如何实现HTTP请求？

[jone7319]

新年好！
很久不写代码了，最近 我想写一段代码获取网络时间，初步方案是从http://www.beijing-time.org/time15.asp这个页面返回时间。抓包看了一下，包的内容如下：
GET /time15.asp HTTP/1.1
Host: www.beijing-time.org
Connection: keep-alive
Cache-Control: max-age=0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36
Accept-Encoding: gzip,deflate,sdch
Accept-Language: zh-CN,zh;q=0.8
Cookie: AJSTAT_ok_times=4; ASPSESSIONIDQQACDBBT=KBPLFKEDFJJFDGNEJDIJNEEG

以前写了一个类要以实现http POST 和GET，测试一下竟然用不了！用CppWebBrowser可以实现，但不是我想要的。能不能用SOCKet来实现。测试以下代码也不能正确返回。
TClientSocket *sckt=new TClientSocket(this);
sckt->ClientType=ctBlocking;
sckt->Address="120.25.212.59";
sckt->Port=StrToInt("80");
sckt->Open();
bool test_flag=sckt->Active;
sckt->Socket->SendText("GET /time15.asp HTTP/1.0");
AnsiString info=sckt->Socket->ReceiveText();
ShowMessage(info);
请各位大侠给一个能正确返回时间的好方案！谢了！

[缘中人]

不用CppWebBrowser，可以用idhttp

[jone7319]

TClientSocket *sckt=new TClientSocket(this); sckt->ClientType=ctBlocking; sckt->Address="120.25.212.59"; sckt->Port=StrToInt("80"); sckt->Open(); bool test_flag=sckt->Active; sckt->Socket->SendText("GET /time15.asp HTTP/1.1\r\n"); //改这里为sckt->Socket->SendText("GET /time15.asp \r\n"); 或sckt->Socket->SendText("GET /time15.asp");均无返回 AnsiString info=sckt->Socket->ReceiveText(); ShowMessage(info);

[jone7319]

引用 2 楼 ksrsoft 的回复:

不用CppWebBrowser，可以用idhttp

Idhttp之前也试过，会出现错误

[缘中人]

void __fastcall TForm6::Button1Click(TObject *Sender)
{
	TStringStream *stream;
	stream = new TStringStream();
	this->IdHTTP1->Get("http://www.beijing-time.org/time15.asp", stream);

	this->Caption = stream->Size;
	Memo1->Text = stream->DataString;
	delete stream;
}

[jone7319]

引用 4 楼 ksrsoft 的回复:

void __fastcall TForm6::Button1Click(TObject *Sender)
{
	TStringStream *stream;
	stream = new TStringStream();
	this->IdHTTP1->Get("http://www.beijing-time.org/time15.asp", stream);

	this->Caption = stream->Size;
	Memo1->Text = stream->DataString;
	delete stream;
}

不知你测试过代码没有，我用的BCB6报错 stream = new TStringStream();

[jone7319]

修改后可以取时间了！谢谢！

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringStream *stream= new TStringStream(NULL);
    TIdHTTP *http=new TIdHTTP(NULL);
    http->Get("http://www.beijing-time.org/time15.asp", stream);
    String dtstr=stream->DataString,dt0,dt;
    int p1,p2;
    p1=dtstr.Pos(";");
    dtstr=dtstr.SubString(p1+1,200);
    for(int i=0;i<7;i++)
      {
        p1=dtstr.Pos("=");
        p2=dtstr.Pos(";");
        dt0=dtstr.SubString(p1+1,p2-p1-1);
        dtstr=dtstr.SubString(p2+1,200);
        if(i!=3)
           dt+=dt0;
        if(i<2)
            dt=dt+"-";
        if(i==2)
           dt+=" ";
        if(i>3 && i<6)
          dt+=":";
       }
    TDateTime datetime=StrToDateTime(dt);
    ShowMessage(datetime);
    delete stream,http;
}

[zcchm]

除了vcl，还可以用libcurl：https://curl.haxx.se/