ANTICHAT — форум по информационной безопасности, OSINT и технологиям

     hT := CreateThread(nil, 0, @GetInetPageSRCasThread, @msg, 0, ThID);

     while( true )do
     begin
          if GetExitCodeThread(hT,exC) then exit;
          if exC <> STILL_ACTIVE then exit;

          application.ProcessMessages;
          WaitForSingleObject(hT, 100);
     end;

     //TerminateThread(hT, 0);

     ShowMessage(GetInetPageSRCasThread_ret);

function GetInetPageSRCasThread(const fileURL: String):dword;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of char;
  BufferLen: DWORD;
  sAppName: string;
begin
 Result := 0;
 GetInetPageSRCasThread_ret := '';
 sAppName := ExtractFileName(Application.ExeName) ;
 hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ;
 try
  hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0) ;
  try
   repeat
    InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
    GetInetPageSRCasThread_ret := GetInetPageSRCasThread_ret + Copy(string(Buffer),1,BufferLen);
   until (BufferLen = 0) OR (length(string(Buffer)) = 0);
  finally
   InternetCloseHandle(hURL);
  end;
 finally
  InternetCloseHandle(hSession);
 end;

 ExitThread(0);
end;

var
   msg:shortstring='http://forum.antichat.ru/antichat/pic/logo.gif';

function ThreadCall(p:pointer):dword;stdcall; //API call stdcall
begin
GetInetPageSRCasThread(string(p));
end;

begin
    hT := CreateThread(nil,0, @ThreadCall, @msg, 0, ThID);
    while(WAIT_OBJECT_0<>WaitForSingleObject(hT,100)) do
    application.ProcessMessages;