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] 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> | ||