svn/view/Unit12.pas

unit Unit12;

interface

uses
  SysUtils, Classes, Controls, Forms,
  IWVCLBaseContainer, IWColor, IWContainer, IWRegion, IWDBStdCtrls,
  IWCompButton, IWCompEdit, IWCompText, IWCompExtCtrls, Vcl.Dialogs,
  Vcl.Imaging.pngimage, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl,
  IWControl, IWHTMLContainer, IWHTML40Container, Graphics, Data.DB,
  FireDAC.UI.Intf, FireDAC.VCLUI.Login, FireDAC.Stan.Intf, FireDAC.Comp.UI;

type
  TIWFrame12 = class(TFrame)
    IWFrameRegion: TIWRegion;
    IWImage1: TIWImage;
    IWImageFile1: TIWImageFile;
    IWDBText1: TIWDBText;
    IWDBEdit6: TIWDBEdit;
    IWDBEdit5: TIWDBEdit;
    IWButton1: TIWButton;
    IWDBNavigator1: TIWDBNavigator;
    IWDBEdit4: TIWDBEdit;
    IWDBEdit3: TIWDBEdit;
    IWDBEdit2: TIWDBEdit;
    IWDBEdit1: TIWDBEdit;
    FDGUIxLoginDialog1: TFDGUIxLoginDialog;
    procedure IWButton1Click(Sender: TObject);
    procedure IWDBNavigator1BeforeAction(Sender: TObject;
      NavButton: TNavigateBtn; var Handled: Boolean);
  private
    { Private declarations }
    procedure Local(DataSet: TDataSet);
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

uses Unit11, Unit3;

procedure TIWFrame12.IWButton1Click(Sender: TObject);
var
  img: TPicture;
  s: TBitmap;
begin
  if FileOpenDialog1.Execute = true then
  begin
    img := TPicture.Create;
    s := TBitmap.Create;
    try
      img.LoadFromFile(FileOpenDialog1.FileName);
      s.Assign(img.Graphic);
      png.Assign(s);
      IWImage1.Picture.Assign(png);
    finally
      img.Free;
      s.Free;
    end;
    IWImage1.Refresh;
    DM.FDTable2.Edit;
  end;
end;

procedure TIWFrame12.IWDBNavigator1BeforeAction(Sender: TObject;
  NavButton: TNavigateBtn; var Handled: Boolean);
var
  s: TStream;
begin
  case NavButton of
    nbPost:
      begin
        s := DM.FDTable2.CreateBlobStream
          (DM.FDTable2.FieldByName('THUMBNAIL'), bmWrite);
        try
          png.SaveToStream(s);
          DM.FDTable2.Post;
        finally
          s.Free;
        end;
        Handled := true;
      end;
  else
    if DM.FDTable2.State = dsInsert then
      DM.FDTable2.Delete;
  end;
end;

procedure TIWFrame12.Local(DataSet: TDataSet);
var
  s: TStream;
begin
  if DM.FDTable2.FieldByName('THUMBNAIL').IsNull = false then
  begin
    s := DM.FDTable2.CreateBlobStream
      (DM.FDTable2.FieldByName('THUMBNAIL'), bmRead);
    try
      png.LoadFromStream(s);
      IWImage1.Picture.Assign(png);
    finally
      s.Free;
    end;
  end
  else
    IWImage1.Picture.Assign(IWImageFile1.Picture);
end;

end.