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

本文介绍了一个基于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;

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值