Rozdíly

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

--- httpget [2010/04/13 09:38] – vytvořeno slim
+++ httpget [2010/04/13 09:40] (aktuální) – slim
@@ Řádek 13: / Řádek 13: @@
 //Příklad://\\
 <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
-      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)
         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
       LocStr:String
-      Open(TF,ResultName)
+      Open(TF,ResultName);
       While(not EOF(TF))
         begin
-          LocStr=ReadLn(TF)
+          LocStr=ReadLn(TF);
-          AddComment(LocStr)
+          AddComment(LocStr);
-        end
+        end;
-    end
+    end;
+end
 </code>