二进制上传下载文件

二进制上传下载文件

只适用于delphi前端。

下载文件

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

　　上传文件

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;