13,870
社区成员




AnsiString __fastcall CrnGetHTMLAreaText(AnsiString strUrl)
{
AnsiString res;
TIdHTTP *ih = new TIdHTTP(NULL);
ih->HandleRedirects = true;
ih->ReadTimeout = 20000;
TStringStream *sResponse=new TStringStream();
try
{
ih->Get(strUrl,sResponse);
}
catch(Exception &e)
{
WriteLog(e.Message);
delete ih;
}
ih->Disconnect();
delete ih;
res = sResponse->DataString;
delete sResponse;
return res;
}