Rozdíly

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

--- httppost [2010/04/10 06:26] – slim
+++ httppost [2010/04/13 09:38] (aktuální) – slim
@@ Řádek 3: / Řádek 3: @@
 **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\\
@@ Řádek 13: / Řádek 13: @@
 //Příklad://\\
 <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'))
     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
 </code>