unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
IdHTTP1: TIdHTTP;
Memo1: TMemo;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
RequestStream, ResponseStream: TStringStream; // 返回信息
begin
ResponseStream := TStringStream.Create('');
RequestStream := TStringStream.Create(Memo1.Lines.Text);
try
IdHTTP1.Post(Edit1.Text, RequestStream, ResponseStream);
Memo2.Text := ResponseStream.DataString;
finally
RequestStream.Free;
Delphi 简单Post
最新推荐文章于 2023-12-05 14:28:53 发布