idhttp文件的上传和下载

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    IdHTTP1: TIdHTTP;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  iLen:integer;
  sFN,sPath:string;
  MS,MS2:TMemoryStream;
begin
  MS:=TMemoryStream.Create;
  try
    sPath:=ExtractFilePath(application.ExeName)+'a.bmp';
    sFN:=ExtractFileName(sPath);
    iLen:=length(sFN);

    MS.WriteBuffer(iLen,sizeof(iLen));
    MS.WriteBuffer(sFN[],iLen);

    MS2:=TMemoryStream.Create;
    MS2.LoadFromFile(sPath);

    iLen:=MS2.Size;

    MS.WriteBuffer(iLen,sizeof(iLen));

    MS.CopyFrom(MS2,iLen);
    MS2.Free;
    IDHTTP1.post('http://127.0.0.1:2111',MS,nil);
  finally
    MS.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  IdHTTP1.Host:= '127.0.0.1';
//  IdHTTP1.Port:= 2111;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer,
  IdHTTPServer;

type
  TForm1 = class(TForm)
    IdHTTPServer1: TIdHTTPServer;
    procedure IdHTTPServer1CommandGet(AThread: TIdPeerThread;
      ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  iLen:Integer;
  sData,sFN:string;
  MS:TMemoryStream;
  pData:PChar;
begin
  sData:=ARequestInfo.UnparsedParams;
  if sData<>'' then
  begin
  {
   自己定义一个简单的消息格式，数据长度1,数据1,数据长度2,数据2

   |文件名长度|文件名|文件内容长度|文件内容|
   |5|a.bmp|17788|0x10101010101001010100101...|

  }

    MS:=TMemoryStream.Create;
    try
      //1读取文件名
      MS.WriteBuffer(sData[],length(sData));
      MS.Position:=;
      MS.ReadBuffer(iLen,sizeof(iLen)); //读文件名长度
      SetLength(sFN,iLen);
      MS.ReadBuffer(sFN[],iLen); //读文件名
      //2读取文件内容
      MS.ReadBuffer(iLen,sizeof(iLen));//读文件内容长度
      GetMem(pData,iLen);
      MS.ReadBuffer(pData^,iLen);//读文件内容  pData里面保存的就是图片数据

      //3保存为文件
      MS.Clear;
      MS.WriteBuffer(pData^,iLen);
      MS.SaveToFile(ExtractFilePath(Application.ExeName)  +sFN);
    finally
      MS.Free;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTPServer1.DefaultPort:= ;
  IdHTTPServer1.Active:= true;
  Self.Caption:= '启动';
end;

end.