二进制上传下载文件
二进制上传下载文件
只适用于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;