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

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

思路：将图片上传到服务器指定路径下，将文件名自动加入到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;