frog.raindrop.jp.knowledge

というわけで実装です。とりあえずサーバのファイルを一個とってきて表示するだけのちょんプロを作成してみました。VC++でWin32 Console Applicationプロジェクトを作成します。stdafx.h で afxinet.h をインクルードします。そうそう、とってくるファイルですが、コンソールアプリなのでHTMLをとってきても仕方ないし、かといって「てすと」とか書いたテキストファイルを取ってくるのもあんまりです。そこで、テストらしくこんなCGIを作ってサーバにおいておくことにします。

#!/usr/bin/perl -w
use strict;
use vars qw($key $val);

format STDOUT = 
@<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key, $val
.

print	<<'HEADER_END';
Content-Type: text/plain

HEADER_END

while ( ( $key, $val ) = each( %ENV ) )
{
	write();
}
1;

showenv.cgi とかいう名前をつけてサーバに転送し、パーミッションを変更しておきます。サーバ側で取得可能な環境変数を列挙するのみのCGIプログラムです。

で、VC++のほうはこんな感じで･･･どうでしょうか。

static BOOL GetResuest()
{
	CInternetSession	inetSess( _T( "HttpTest1 Browser" ), 1, INTERNET_OPEN_TYPE_PRECONFIG );
	INTERNET_PORT		nPort		= INTERNET_DEFAULT_HTTP_PORT;
	LPCTSTR				lpszServer	= _T( "frog.raindrop.jp" );
	LPCTSTR				lpszObject	= _T( "httptest1.cgi?testquery=testvalue" );

	BOOL				bRet		= FALSE;

	CHttpConnection*	lpHttpConn	= inetSess.GetHttpConnection( lpszServer, nPort );

	if ( lpHttpConn == NULL ) {
		std::cout << _T( "GetHttpConnection エラー" ) << std::endl;
	} else {
		CHttpFile*			lpHttpFile	= lpHttpConn->OpenRequest( CHttpConnection::HTTP_VERB_POST, lpszObject );

		if ( lpHttpFile == NULL ) {
			std::cout << _T( "OpenRequest エラー" ) << std::endl;
		} else {

			BOOL bRet	= lpHttpFile->SendRequest();
			if ( !bRet ) {
				std::cout << _T( "SendRequest エラー" ) << std::endl;
			} else {

				DWORD	dwStatus;
				bRet	= lpHttpFile->QueryInfoStatusCode( dwStatus );
				if ( !bRet ) {
					std::cout << _T( "QueryInfoStatusCode エラー" ) << std::endl;
				} else {
				
					switch ( dwStatus )
					{
					case HTTP_STATUS_OK:
						{
							CString	strBuf;
							
							while ( lpHttpFile->ReadString( strBuf ) )
							{
								std::cout << (LPCTSTR)strBuf << endl;
							}
							bRet = TRUE;
						}
					default:
						std::cout << _T( "StatusCode：" ) << dwStatus << endl;
					}
				}
			}
		}
	}
	return bRet;
}

うーん、コメントもありません。でも、必要ないくらい簡単な感じです。ちゃんと動作しました。