Вывести результат запроса HTTP Post

Советы » Интернет » Вывести результат запроса HTTP Post

New Page 1

uses

IdMultipartFormData; { .... } procedure

TForm1.Button1Click(Sender: TObject); var

data: TIdMultiPartFormDataStream; begin

data := TIdMultiPartFormDataStream.Create; try

{ add the used parameters for the script } data.AddFormField('param1', 'value1'); data.AddFormField('param2', 'value2'); data.AddFormField('param3', 'value3'); { Call the Post method of TIdHTTP and read the result into TMemo } Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data); finally

data.Free; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com