Форум программистов [Powered by Invision Power Board]

Код


// Callback процедура

procedure  InetCallback(hInternet: HINTERNET; dwContext: DWORD; dwInternetStatus: DWORD; lpvStatusInformation: pointer;  dwStatusInformationLength: DWORD); stdcall;
begin
...
end;

// Кусок кода, где происходит попытка закачать файл

var
  hURL, hSession: HInternet;
  info: array [1..1024] of char;
  url: string;
  index, error, sizelen : cardinal;
begin
  url := 'http://www.rbc.ru';
  hSession := InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_ASYNC);
  InternetSetStatusCallback(hSession, @InetCallback);
   try
     hURL := InternetOpenURL(hSession, PChar(Url), nil,0,0,DWORD(10));
     if hURL = nil then
     begin
       sizelen := 1024;
       ZeroMemory(@info,SizeOf(info));
       if InternetGetLastResponseInfo(Error, @info, sizelen) then
         Memo1.Lines.Add(info)
       else
         Memo1.Lines.Add(inttostr(GetLastError()));
       InternetCloseHandle(hSession);
       Exit;
     end;
...