Uživatelské nástroje
httpget
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 | ||
|
httpget [2010/04/13 11:38] slim vytvořeno |
httpget [2010/04/13 11:40] (aktuální) slim |
||
|---|---|---|---|
| Řádek 13: | Řádek 13: | ||
| //Příklad://\\ | //Příklad://\\ | ||
| <code> | <code> | ||
| - | ResultName:String=GetTempFileName() | + | Designed('WinDUO'); |
| - | + | if(HTTPGet('http://download.winduo.cz/winduocd.exe','winduocd.exe')) | |
| - | 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 | 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; |
| + | end | ||
| </code> | </code> | ||
httpget.1271151495.txt.gz · Poslední úprava: 2010/04/13 11:38 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
