работа с запросами

[chodorenko]

Вот возникла не тривиальная задача получать раз в несколько дней страничку с одними и темеже параметрами, решил автоматизировать , но не нахожу как организовать получени страницы средствами FPC

итак задача послать на урл <a href='http://test.site/cgi-bin/script.cgi' target='_blank'>http://test.site/cgi-bin/script.cgi</a> форму методом пост ну например такую number=1, number=2, group=1, group=3
и то что скрипт выплюнет обратно положить на с:\русское имя\folder1

[Сергей Смирнов]

Я юзал библиотеку от Synapse. Вот, например, получение списка валют с сервера ЦБ:

Код: Выделить всё

uses
 ... XMLRead, DOM, httpsend, ...


procedure TfrmMain.GetCurrencies;
var
 HTTP: THTTPSend;
 CurrXML: TXMLDocument;
 N, C: TDomNode;
 E: TDomElement;
 i: Integer;
 TempCursor: TCursor;
begin
 FCurrenciesCount := 0;
 TempCursor := Screen.Cursor;
 Screen.Cursor := crHourGlass;
 Application.ProcessMessages;
 SetLength(FCurrenciesList, 0);
 SetLength(FCurrenciesList, 1);
 i := 0;
 HTTP := THTTPSend.Create;
 try
   HTTP.ProxyHost := PROXY_SERVER;
   HTTP.ProxyPort := PROXY_PORT;
   HTTP.ProxyUser := PROXY_USER;
   HTTP.ProxyPass := PROXY_PASSWORD;
   if HTTP.HTTPMethod('POST', GET_CURRENCIES_URL) then
   begin
     ReadXMLFile(CurrXML, HTTP.Document);
     N := CurrXML.DocumentElement;
     N := N.FirstChild;
     while Assigned(N) do
     begin
       E := N as TDomElement;
       FCurrenciesList[i].ID := E.GetAttribute('ID');
       C := N.FindNode('Name');
       if Assigned(C) then
         FCurrenciesList[i].Name := GetNodeTextContent(C as TDomElement);
       C := N.FindNode('EngName');
       if Assigned(C) then
         FCurrenciesList[i].EngName := GetNodeTextContent(C as TDomElement);
       FCurrenciesCount := i + 1;
       N := N.NextSibling;
       if Assigned(N) then
       begin
         Inc(i);
         SetLength(FCurrenciesList, i + 1);
       end;
     end;
   end
   else
   begin
     btnGetRateHistory.Enabled := False;
   end;
 finally
   HTTP.Free;
   Screen.Cursor := TempCursor;
 end;
end;


Только метод Get у меня как-то не заработал...

[chodorenko]

Большое спасибо , пойду разбираться