unigui快速编制web图片查看页面

最新推荐文章于 2025-05-27 09:38:55 发布

winfredzhang

最新推荐文章于 2025-05-27 09:38:55 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi rio unigui web开发文章标签： unigui web sqlite firedac

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/104647253

delphi rio 同时被 3 个专栏收录

89 篇文章

订阅专栏

unigui

60 篇文章

订阅专栏

web开发

23 篇文章

订阅专栏

本文介绍了一个基于Unigui的照片分享应用开发过程，包括创建工程、界面设计、数据库连接及图片展示代码实现。通过将图片上传至服务器并记录于SQLite数据库，实现网络照片分享功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

作用：将本地照片分享到网络上，供大家欣赏。如图效果。

思路：将图片上传到服务器指定路径下，将文件名自动加入到sqlite数据库中，在页面中读出路径然后点击显示。

1、使用向导创建unigui工程。

2、新建freeform窗体。

3、在刚刚创建的窗体上放置unidbgrid+uniimage+datasource+fdconnection+fdquery组件。

4、fdconnection设置。

5、代码实现。

procedure TUniForm1.UniDBGrid1CellClick(Column: TUniDBGridColumn);
var
  FolderPath: string;
  DestName: string;
  DestFolder: string;
begin
  DestFolder := UniServerModule.StartPath + 'UploadFolder\';       //路径（fieldbyanem('coy_image').asstring）
  DestName := DestFolder + ExtractFileName(FDQuery1.FieldByName('filename').AsString);
  UniImage1.Picture.LoadFromFile(DestName);

end;

procedure TUniForm1.UniFormCreate(Sender: TObject);
begin
  with FDQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from photos');
    Open;
  end;
end;