winhttp подключение

[winhttp]

всем привет. покажите пожалуста пример простой отправки гет запроса с помощью winhttp.больше интересует подключение библиотеки. а там уже сам разберусь, так, как работал с ней, только на др. яп

и еще: скачал компонент дляя работы с winhttp , так он триал и стоит много, может есть бесплатный? через компонент работать проще

[Stilet]

Вот. Когда-то для журнала делал

program Project1;

{$APPTYPE CONSOLE}

uses
  wininet,
  SysUtils;

var
 hSession,hConnect,hRequest:HINTERNET;
 Size,nbr:Cardinal;
 s,a:string;
begin
 hSession:=InternetOpen('Драсте',INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
 if hSession<>nil then begin
   hConnect:=InternetConnect(hSession,pchar('www.programmersforum.ru'),
    INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
   if hConnect<>nil then begin
        hRequest := HttpOpenRequest(hConnect, 'GET',
          '', HTTP_VERSION, nil, Nil,INTERNET_FLAG_KEEP_CONNECTION, 1);
        if hRequest<>nil then begin
         if HttpSendRequest(hRequest,'',0,nil,0) then begin
           InternetQueryDataAvailable(hRequest,Size,0,0);
           while size<>0 do begin
            Writeln('Loading ',Size,' bytes...');
            SetLength(a,Size);
            if not InternetReadFile(hRequest,@a[1],Size,nbr) then break;
            s:=s+a;
            InternetQueryDataAvailable(hRequest,Size,0,0);
           end;
         end;  InternetCloseHandle(hRequest);
        end; InternetCloseHandle(hConnect);
   end;InternetCloseHandle(hSession);
 end;
 Write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

В переменку s зальется HTML с портала

с помощью winhttp

Кстати а что это за библиотечка?