Uživatelské nástroje

Nástroje pro tento web


httppost

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
httppost [2010/04/10 08:24]
slim vytvořeno
httppost [2010/04/13 11:38] (aktuální)
slim
Řádek 3: Řádek 3:
 **HTTPPost(URL,​SouborProVysledek,​Uzivatel,​Heslo):​Boolean** // - funkce// **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\\ Funkce převede datum v interním číselném formátu na řetězec\\
Řádek 13: Řádek 13:
 //​Příklad://​\\ //​Příklad://​\\
 <​code>​ <​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'​))   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
 </​code>​ </​code>​
  
httppost.1270880689.txt.gz · Poslední úprava: 2010/04/10 08:24 autor: slim