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

思路:将图片上传到服务器指定路径下,将文件名自动加入到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').a

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

被折叠的 条评论
为什么被折叠?



