uimage_ex.pas

来自「青年文明号管理系统」· PAS 代码 · 共 60 行

unit Uimage_ex;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, ExtCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid,db,
  dxDBTLCl, dxGrClms;

type
  Timage_ex = class(TForm)
    dxDBGrid1: TdxDBGrid;
    Image1: TImage;
    dxDBGrid1dwbh: TdxDBGridColumn;
    dxDBGrid1xh: TdxDBGridColumn;
    dxDBGrid1ms: TdxDBGridColumn;
    dxDBGrid1image: TdxDBGridBlobColumn;
    dxDBGrid1bz: TdxDBGridColumn;
    procedure dxDBGrid1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  image_ex: Timage_ex;

implementation

uses Udm;

{$R *.dfm}

procedure Timage_ex.dxDBGrid1Click(Sender: TObject);
var
ms:tmemorystream;
begin
ms:=tmemorystream.Create;

(dm.t_image.FieldByName('image') as TBlobField).SaveToStream(ms);
//image1.Picture.Graphic.LoadFromStream(ms);

end;

procedure Timage_ex.FormShow(Sender: TObject);
begin
dm.t_image.Parameters.ParamValues['vdwbh']:=dm.v_sbb['dwbh'];
dm.t_image.Open;
end;

procedure Timage_ex.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.t_image.Close;
end;

end.