void __fastcall TForm1::IdHTTPServer1CommandGet(TIdPeerThread *AThread,
TIdHTTPRequestInfo *RequestInfo, TIdHTTPResponseInfo *ResponseInfo)
{
...
TIdHTTP *myhttp = NULL;
try{
myhttp = new TIdHTTP(0);
ResponseInfo->ContentText = myhttp->Get(URLstr);
// <-----!!!!
}
catch (Exception &Er){
ShowMessage("Error: " + Er.Message);
}
if(myhttp) delete myhttp;
}
как достать значение из загружаемой страници
Код:
к загружаемой таким образом странице на сервере я приписываю некое значение (допустим MyECT = 1234) в ее заголовок.
Подскажите как в моем случае это значение теперь достать!
Код:
TStringList* temp = new TStringList();
myhttp->Response->ExtraHeaders->Extract("Set-cookie", temp);//получаем кукисы
...
myhttp->Response->ExtraHeaders->Extract("Set-cookie", temp);//получаем кукисы
...
или
Код:
Memo1->Lines->Add(myhttp->Response->ExtraHeaders->Text);//получаем весь заголовок