二进制上传下载文件

二进制上传下载文件

只适用于delphi前端。

下载文件

?

1 2 3 4 5 6 7 8 9

procedure TForm1.Button2Click(Sender: TObject); //下载 begin   var bin: TBinFile;   bin.resource := 'binfile';   bin.filename := '1.exe';   bin.filesaveto := 'e:\';   bin.downfile; end;

　　上传文件

?

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button3Click(Sender: TObject); //上传 begin   if OpenDialog1.Execute then   begin     var bin: TBinFile;     bin.resource := 'binfile';     bin.filename := OpenDialog1.FileName;     bin.upfile;   end; end;