二进制上传下载文件
二进制上传下载文件
只适用于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;
本文来自博客园,作者:{咏南中间件},转载请注明原文链接:https://www.cnblogs.com/hnxxcxg/p/17628244.html