DDT

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