; vzorova ukazka pro pozadavek na server metodou GET, urceno pro stazeni souboru ze serveru

  Designed('WinDUO');
  if(HTTPGet('http://www.winduo.cz/docasne/faktmail.htm','/temp/faktmail.htm','Veverka','Ciperka'))
    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