; vzorova ukazka pro odeslani souboru na server, skript pro prijem na serveru se jmenuje HTTPPOST.PHP

  Designed('WinDUO');

  ResultName:String='/temp/testres.htm';

  NewPost();
  AddToPost('FileIncluded','1');
  AddToPost('FilesKey','slimuv_soubor');
  AddFileToPost('slimuv_soubor','c:\boot.ini');

  if(HTTPPost('http://jkfood.fi.cz/httppost.php',ResultName,'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