解决unigui中SendFile方法无法下载apk和其他格式文件的问题

在unigui中,使用Download发送文件下载功能时,会遇到无法下载apk和其他格式文档的问题。今天就来讨论如何解决这个问题。

1. 下载功能的代码如下:

procedure TMainForm.UniTreeView1Click(Sender: TObject);
begin
       uniimage1.Picture.LoadFromFile('./files/citofo55iuag008001fg扩展替换.png');
       if uniTreeView1.Selected.Text='下载' then
       begin
             UniSession.SendFile(UniServerModule.FilesFolderPath+ 'cfa-2.5.9-premium-universal-release.apk');
             ShowMessage(UniServerModule.FilesFolderPath);
       end;
end;

2. 在servermodule中的create事件中,需要加入以下代码:

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
  MimeTable.AddMimeType('apk', 'application/apk', False);
  ExploreWeb('http://127.0.0.1:8077');
end;

3. 加入这段代码后的效果如下:

可以成功下载apk文件了,其他格式的文件也可以正常下载。