Uživatelské nástroje
httppost
Rozdíly
Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.
| Následující verze | Předchozí verze | ||
|
httppost [2010/04/10 08:24] slim vytvořeno |
httppost [2010/04/13 11:38] (aktuální) 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ž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|NewPost()]] a jeho obsah následně vytvořen za pomocí příkazu [[AddToPost|AddToPost()]] popřípadě [[AddFileToPost|AddFileToPost()]]. Položky hlavičky odpovědi lze následně zpracovat za pomocí funkce [[HTTPResponse|HTTPResponse()]]. |
| 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> | ||
httppost.1270880689.txt.gz · Poslední úprava: 2010/04/10 08:24 autor: slim
Nástroje pro stránku
Kromě míst, kde je explicitně uvedeno jinak, je obsah této wiki licencován pod následující licencí: GNU Free Documentation License 1.3
