datasnap 上传/下载大文件(本Demo以图传片文件为例)

原创

于 2024-05-10 16:09:23 发布 · 1.1k 阅读

标签

#delphi

收录于

好久没写技术文了 datasnap传大流。完整代码，同时感谢叶兄传流的指点,（只公开十天）

附：下面代码，转载请注明出处

::code

服务端：

function TServerMethods1.DownLoadFile(AfileName: string): TStream;
const
SaveFolder = 'FSimage\';
defaultName = 'Default.png'; // 此文件必须有
//用默认文件处理不存在图片
var
ALLpath: string;
begin
ALLpath := LocalPath + SaveFolder + AfileName;
if not FileExists(ALLpath) then
    ALLpath := LocalPath + SaveFolder + defaultName;
Result := TFileStream.Create(ALLpath, fmOpenRead);
Result.Position := 0;
//此处也可以加错误处理 或 释放默认文件 再生成流
end;
 
function TServerMethods1.PutFile(AfileName: string; Stream: TStream): Boolean;
const
BufSize = $F000;
SaveFolder = 'FSimage\';
var
Buffer: TBytes;
ReadCount: Integer;
FS: TFileStream;
begin
if not DirectoryExists(LocalPath + SaveFolder) then
    CreateDir(LocalPath + SaveFolder);
FS :=