Uživatelské nástroje

Nástroje pro tento web


httpget

Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

Odkaz na výstup diff

Next revision
Previous revision
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