source upload

contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/EMartin/TSynRestDataset/FishFactSyn/Ffactwin.pas

@@ -0,0 +1,99 @@
+unit Ffactwin;
+
+{ This application shows how to display TSynRestDataset style memo and graphic
+  fields in a form.
+
+  - This application use TWebBrowser for display the image from Project19Server.db3.
+  - Removed display of image because is need convert the Project19Server.db3 field image to base64 or any suggest.
+  - fixed memory leak (by houdw2006)
+}
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  Forms, StdCtrls, DBCtrls, DBGrids, DB, Buttons, Grids, ExtCtrls,
+  SynRestMidasVCL, DBClient,
+  SynCommons, mORMot, OleCtrls, Dialogs, ExtDlgs,
+  SynGdiPlus;
+
+type
+  TForm1 = class(TForm)
+    Panel1: TPanel;
+    Label1: TLabel;
+    DBLabel1: TDBText;
+    DBMemo1: TDBMemo;
+    DataSource1: TDataSource;
+    DBGrid1: TDBGrid;
+    dbnvgr1: TDBNavigator;
+    btnUpload: TButton;
+    dlgOpenPic1: TOpenPictureDialog;
+    img: TImage;
+    procedure FormCreate(Sender: TObject);
+    procedure dbnvgr1Click(Sender: TObject; Button: TNavigateBtn);
+    procedure btnUploadClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    { Private declarations }
+    procedure DoOnAfterScroll(Dataset: TDataset);
+  public
+    { Public declarations }
+    SynRestDataset: TSynRestDataset;
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+uses SampleData;
+
+procedure TForm1.FormCreate(Sender: TObject);
+var
+  I: Integer;
+begin
+  SynRestDataset := TSynRestDataset.Create(Nil);
+  SynRestDataset.DataSet.SQLModel := TSQLModel.Create([TSQLBioLife]);
+  SynRestDataset.CommandText := 'http://LocalHost:8080/root/BioLife?select=Species_No,Category,Common_Name,Species_Name,Length_cm,Length_in,Graphic,Notes,Som&sort=Species_No';
+  SynRestDataset.Open;
+  SynRestDataset.AfterScroll := DoOnAfterScroll;
+  DataSource1.DataSet := SynRestDataset;
+  // show the first record image
+  DoOnAfterScroll(Nil);
+  // hide blob fields in the grid
+  for I := 0 to DBGrid1.Columns.Count-1 do
+    if (DBGrid1.Columns[I].Field.DataType = DB.ftBlob) then
+      DBGrid1.Columns[I].Visible := False;
+end;
+
+procedure TForm1.dbnvgr1Click(Sender: TObject; Button: TNavigateBtn);
+begin
+  case Button of
+    nbDelete, nbPost: SynRestDataset.ApplyUpdates(0);
+  end;
+end;
+
+procedure TForm1.btnUploadClick(Sender: TObject);
+begin
+  // I don't know as encode this :(
+  if not (SynRestDataset.State in [dsEdit, dsInsert]) then
+    SynRestDataset.Edit;
+  if dlgOpenPic1.Execute then
+    TBlobField(SynRestDataset.FieldByName('Graphic')).LoadFromFile(dlgOpenPic1.FileName);
+end;
+
+procedure TForm1.DoOnAfterScroll(Dataset: TDataset);
+begin
+  //img.Picture :=
+end;
+
+procedure TForm1.FormDestroy(Sender: TObject);
+begin
+  SynRestDataset.Dataset.SQLModel.Free;
+  SynRestDataset.Dataset.SQLModel := nil;
+  FreeAndNil(SynRestDataset);
+end;
+
+end.