delphi源码 中间件 框架【网盘映射】

1,通过Stream实现文件上传与下载：首先在服务端建立相关路径信息。

【文件上传接口：FileUpLoad】范例代码如下：

var
  memoryStream: TMemoryStream;
  sErrorMsg, filePath,fileName: string;
  token,FolderNo: string;
begin
  if OpenDialog1.Execute = false then
    Exit;
   //待上传的文件
  filePath := OpenDialog1.fileName;
    memoryStream := TMemoryStream.Create;
  try
    screen.Cursor := crHourGlass;
    try
     //调用此接口的秘钥
     token:='123';
     //服务端定义的文件夹序号
     FolderNo:= 'k01';
    //文件名称
      fileName:=ExtractFileName(fileName);
      //文件转Stream
      memoryStream.LoadFromFile(filePath);
      memoryStream.Position := 0;
      //执行失败返回的错误代码
      sErrorMsg:='';
      if not ser.FileUpLoad(fileName,FolderNo,token, memoryStream, sErrorMsg)  then
      begin
        showmessage(sErrorMsg);
        Exit;
      end;
      showmessage('保存成功')
    except on ee: exception do
      begin
        showmessage(ee.Message)
      end;
    end;
  finally
    screen.Cursor := crDefault;
    memoryStream := nil;
  end;

【文件下载接口：FileDownLoad】范例代码如下：

var
  memoryStream: TMemoryStream;
  sErrorMsg, filePath, fileName: string;
  Token, FolderNo: string;
begin
  if OpenDialog1.Execute = false then
    Exit;
  // 待上传的文件
  filePath := OpenDialog1.fileName;
  memoryStream := TMemoryStream.Create;
  try
    screen.Cursor := crHourGlass;
    try
      // 调用此接口的秘钥
      Token := '123';
      // 服务端定义的文件夹序号
      FolderNo := 'k01';
      // 文件名称
      fileName := ExtractFileName(fileName);
      // 文件转Stream
      memoryStream.LoadFromFile(filePath);
      memoryStream.Position := 0;
      // 执行失败返回的错误代码
      sErrorMsg := '';
      if not ser.FileUpLoad(fileName, FolderNo, Token, memoryStream, sErrorMsg) then
      begin
        showmessage(sErrorMsg);
        Exit;
      end;
      showmessage('保存成功') except on ee: exception
      do
      begin
        showmessage(ee.Message)
      end;
    end;
  finally
    screen.Cursor := crDefault;
    memoryStream := nil;
  end;

2，服务端界面：

 源码框架下载地址：https://download.csdn.net/download/dgthm/87647460