Uživatelské nástroje

Nástroje pro tento web


httpget

HTTPGet

HTTPGet(URL,SouborProVysledek,Uzivatel,Heslo):Boolean - funkce

Funkce HTTPGet pošle požadavek na URL adresu HTTP metodou GET. Odpověď serveru uloží do zvoleného souboru. Položky hlavičky odpovědi lze následně zpracovat za pomocí funkce HTTPResponse().

Funkce převede datum v interním číselném formátu na řetězec

  • URL: URL adresa kde se bude odesílat požadavek
  • SouborProVysledek: název souboru, kde se má uložit vrácená odezva ze serveru
  • Uzivatel: v případě autentifikace typu Basic jméno uživatele
  • Heslo: v případě autentifikace typu Basic heslo


Příklad:

  Designed('WinDUO');
  if(HTTPGet('http://download.winduo.cz/winduocd.exe','winduocd.exe'))
    begin
      LocW:Word=HTTPResponses();
      LocW2:Word;

      WNSType(1);
      NewWNS();

      SetColumn(0,TA_RIGHT,4);
      SetColumn(1,TA_LEFT,32);
      SetColumn(2,TA_LEFT,44);

      SetHead('p.č.','Klíč','Hodnota');

      while(LocW2<LocW)
        begin
          Inc(LocW2);
          AddLine(Str(LocW2),HTTPResponseID(LocW2),HTTPResponse(HTTPResponseID(LocW2)));
        end;

      AddComment('');
      AddComment('*******\t*******\t*******');
      AddComment('');

      TF:TextFile
      LocStr:String

      Open(TF,ResultName);
      While(not EOF(TF))
        begin
          LocStr=ReadLn(TF);
          AddComment(LocStr);
        end;
    end;
end
httpget.txt · Poslední úprava: 2010/04/13 11:40 autor: slim