delphi idHttp上传图给ASP完美解决

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

IdHTTP, StdCtrls,IdMultiPartFormData;

type

TForm1 = class(TForm)

Button1: TButton;

IdHTTP1: TIdHTTP;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

res : String;

ms : TIdMultiPartFormDataStream;

h: TIdhttp;

f:string;

begin

if Opendialog1.Execute then

f:=Opendialog1.FileName;

if f='' then exit;

try

ms := TIdMultiPartFormDataStream.Create;

h := Tidhttp.Create(nil);

ms.AddFile('file1',f,'');

idhttp1.Request.ContentType := 'multipart/form-data' ;

res:=h.Post('http://www.oro.com/Admin/u.asp?menu=up',ms);

if res='上传成功' then

Application.MessageBox('图片上传成功!','提示',MB_OK+MB_ICONASTERISK)

else

Application.MessageBox('图片上传失败!','ERROR',MB_OK+MB_ICONSTOP);

finally

ms.Free;

end;

end.

推荐分享