unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, IdMultipartFormData;
type
TForm1 =
class
(TForm)
edt1: TEdit;
btn1: TButton;
dlgOpen1: TOpenDialog;
idhtp1: TIdHTTP;
mmo1: TMemo;
btn2: TButton;
procedure
btn1Click(Sender: TObject);
procedure
btn2Click(Sender: TObject);
private
public
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1
.
btn1Click(Sender: TObject);
begin
if
dlgOpen1
.
Execute
then
edt1
.
Text:= dlgOpen1
.
FileName;
end
;
procedure
TForm1
.
btn2Click(Sender: TObject);
var
FormData: TIdMultiPartFormDataStream;
Link, Rpns:
string
;
resp:TStringStream;
begin
FormData:= TIdMultipartFormDataStream
.
Create;
FormData
.
AddFile(
'SrcImg.File'
, edt1
.
Text,
'multipart/form-data'
);
FormData
.
AddFormField(
'SrcImg.Kind'
,
'2'
);
FormData
.
AddFormField(
'SrcImg.Url'
,
''
);
Rpns:=idhtp1
.
Post(
'http://***********/Img/UploadTmpImg'
, FormData);
mmo1
.
Lines
.
Add(Utf8ToAnsi(Rpns));
end
;
end
.