Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.
Obě strany předchozí revize Předchozí verze Následující verze | Předchozí verze Poslední revize Obě strany příští revize | ||
httppost [2010/04/10 08:26] slim |
httppost [2010/04/10 09:17] slim |
||
---|---|---|---|
Řádek 3: | Řádek 3: | ||
**HTTPPost(URL,SouborProVysledek,Uzivatel,Heslo):Boolean** // - funkce// | **HTTPPost(URL,SouborProVysledek,Uzivatel,Heslo):Boolean** // - funkce// | ||
- | Funkce HTTPPost pošle požadevek na URL adresu HTTP metodou POST. Odesílaný požadavek musí být předem vytvořen za pomocí příkazu [[NewPost|NewPost()]] a jeho obsah vytvořen za pomocí příkazu [[AddToPost|AddToPost()]] popřípadě [[AddFileToPost|AddFileToPost()]]. | + | Funkce HTTPPost pošle požadevek 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|NewPost()]] a jeho obsah následně vytvořen za pomocí příkazu [[AddToPost|AddToPost()]] popřípadě [[AddFileToPost|AddFileToPost()]]. |
Funkce převede datum v interním číselném formátu na řetězec\\ | Funkce převede datum v interním číselném formátu na řetězec\\ | ||
Řádek 13: | Řádek 13: | ||
//Příklad://\\ | //Příklad://\\ | ||
<code> | <code> | ||
- | ResultName:String=GetTempFileName(); | + | ResultName:String=GetTempFileName() |
- | NewPost(); | + | NewPost() |
- | AddToPost('FileIncluded','1'); | + | AddToPost('FileIncluded','1') |
- | AddToPost('FilesKey','vlozeny_soubor'); | + | AddToPost('FilesKey','vlozeny_soubor') |
- | AddFileToPost('vlozeny_soubor','c:\slozka\soubor.txt'); | + | AddFileToPost('vlozeny_soubor','c:\slozka\soubor.txt') |
if(HTTPPost('http://www.server.net/httppost.php',ResultName,'Veverka','Ciperka')) | if(HTTPPost('http://www.server.net/httppost.php',ResultName,'Veverka','Ciperka')) | ||
begin | begin | ||
- | LocW:Word=HTTPResponses(); | + | LocW:Word=HTTPResponses() |
- | LocW2:Word; | + | LocW2:Word |
- | WNSType(1); | + | WNSType(1) |
- | NewWNS(); | + | NewWNS() |
- | SetColumn(0,TA_RIGHT,4); | + | SetColumn(0,TA_RIGHT,4) |
- | SetColumn(1,TA_LEFT,32); | + | SetColumn(1,TA_LEFT,32) |
- | SetColumn(2,TA_LEFT,44); | + | SetColumn(2,TA_LEFT,44) |
- | SetHead('p.č.','Klíč','Hodnota'); | + | SetHead('p.č.','Klíč','Hodnota') |
while(LocW2<LocW) | while(LocW2<LocW) | ||
begin | begin | ||
- | Inc(LocW2); | + | Inc(LocW2) |
- | AddLine(Str(LocW2),HTTPResponseID(LocW2),HTTPResponse(HTTPResponseID(LocW2))); | + | AddLine(Str(LocW2),HTTPResponseID(LocW2),HTTPResponse(HTTPResponseID(LocW2))) |
- | end; | + | end |
- | AddComment(''); | + | AddComment('') |
- | AddComment('*******\t*******\t*******'); | + | AddComment('*******\t*******\t*******') |
- | AddComment(''); | + | AddComment('') |
TF:TextFile | TF:TextFile | ||
LocStr:String | LocStr:String | ||
- | Open(TF,ResultName); | + | Open(TF,ResultName) |
While(not EOF(TF)) | While(not EOF(TF)) | ||
begin | begin | ||
- | LocStr=ReadLn(TF); | + | LocStr=ReadLn(TF) |
- | AddComment(LocStr); | + | AddComment(LocStr) |
- | end; | + | end |
- | end; | + | end |
</code> | </code> | ||