unigui上传图片并将文件名保存到Access数据库

原创

于 2020-05-03 15:24:47 发布 · 1k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#上传 #unifileupload #图片 #Access

1、拖一个upload组件。

2、执行execute函数。

  unflpld_Up.Execute;

3、当上传完成事件触发。

procedure TUniFrmMainWin.unflpld_UpCompleted(Sender: TObject;
  AStream: TFileStream);
var
  DestName    : string;    //目标文件
  DestFolder  : string;    //文件保存的路径

  sResName    : String;    //真实保存在服务器上的文件名(ResName，不能有中文)，
  sTitleName  : string;   //仅用于在Grid中显示用的标签名TitleName（允许中文）

  lJump       : boolean;  //存在则跳过

  lResult     : boolean;

  sExt        : string;   //文件扩展名，文件类型
begin
  //处理上传完成后的事件

  //文件的扩展名
  sExt := LowerCase(ExtractFileExt(unflpld_Up.FileName));
  //文件名
  sTitleName := ExtractFileName(unflpld_Up.FileName);

  //文件保存的路径
  DestFolder:=UniServerModule.FilesFolderPath + UniMainModule.UserName + '\';
  //创建文件目录
  CreateDir(DestFolder)