HTTPPost(URL,SouborProVysledek,Uzivatel,Heslo):Boolean - funkce
Funkce HTTPPost pošle požadavek na URL adresu HTTP metodou POST (obdobně jak by data byla odeslána z webového formuláře). Odesílaný požadavek musí být předem inicializován za pomocí příkazu NewPost() a jeho obsah následně vytvořen za pomocí příkazu AddToPost() popřípadě AddFileToPost(). 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
Příklad:
ResultName:String=GetTempFileName() NewPost() AddToPost('FileIncluded','1') AddToPost('FilesKey','vlozeny_soubor') AddFileToPost('vlozeny_soubor','c:\slozka\soubor.txt') if(HTTPPost('http://www.server.net/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