DDT

HTTPPost(URL,SouborProVysledek,Uzivatel,Heslo):Boolean - funkce

Funkce HTTPPost pošle požadevek 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 vytvořen za pomocí příkazu NewPost() a jeho obsah vytvořen za pomocí příkazu AddToPost() popřípadě AddFileToPost().

Funkce převede datum v interním číselném formátu na řetězec

• URL: URL adresa kde se bude odesílat požadavek
  
• SouborProVysledek: název souboru, kde se má uložit vrácená odezva ze serveru
  
• Uzivatel: v případě autentifikace typu Basic jméno uživatele
• Heslo: v případě autentifikace typu Basic heslo

Příklad:

  ResultName:String=GetTempFileName()

  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()
      LocW2:Word

      WNSType(1)
      NewWNS()

      SetColumn(0,TA_RIGHT,4)
      SetColumn(1,TA_LEFT,32)
      SetColumn(2,TA_LEFT,44)

      SetHead('p.č.','Klíč','Hodnota')

      while(LocW2<LocW)
        begin
          Inc(LocW2)
          AddLine(Str(LocW2),HTTPResponseID(LocW2),HTTPResponse(HTTPResponseID(LocW2)))
        end

      AddComment('')
      AddComment('*******\t*******\t*******')
      AddComment('')

      TF:TextFile
      LocStr:String

      Open(TF,ResultName)
      While(not EOF(TF))
        begin
          LocStr=ReadLn(TF)
          AddComment(LocStr)
        end
    end