unit1.pas

一个对access和sqlserver中的图片字段进行读取的源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DB, Grids, DBGrids, ADODB,Jpeg, XPMan,adoconed,
  Buttons;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    SpeedButton1: TSpeedButton;
    XPManifest1: TXPManifest;
    Panel1: TPanel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   OpenDialog1.Execute ;
   if Opendialog1.FileName <>'' then
   Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
JPG:TJPEGImage;
MS:TMemoryStream;
begin
  JPG:=TJPEGImage.Create;
  MS:=TMemoryStream.Create ;
  JPG.Assign(Image1.Picture.Graphic);
  JpG.SaveToStream(MS);
  MS.Position :=0;
  ADOTable1.Append ;
  TBlobField(ADOTable1.FieldByName('zp')).LoadFromStream(ms);
  ADOTable1.Post ;
  MS.Free ;
  jpg.Free ;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
JPG:TJPEGImage;
MS:TMemoryStream;
begin
  JPG:=TJPEGImage.Create ;
  MS:=TMemoryStream.Create ;
  TBlobField(ADOTable1.FieldByName('zp')).SaveToStream(ms);
  ms.Position :=0;
  JPG.LoadFromStream(ms);
  IMage1.Picture.Assign(JPG);
  Form2.Image1.Picture.Assign(JPG);
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  form2.Show ;
  form2.Height :=Image1.Height ;
  form2.Width :=Image1.Width ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ADOTable1.Next ;
  DBGrid1DblClick(nil);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  form3.Show ;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ADOTable1.Close ;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
STR:String;
MYList:TStringList;
begin
  if FileExists('config.ini') Then
  begin
  Mylist:=TStringList.Create ;
  Mylist.LoadFromFile('config.ini');
  Str:=Mylist.Text ;
  Adoconnection1.ConnectionString :=Str;
  Adoconnection1.Connected :=true;
//  Adodataset1.Active :=true;
  Adotable1.Active :=true;
  end
  else begin
  Mylist:=TStringlist.Create ;
  if EditConnectionString(ADOConnection1) then
  Try
  begin
  ADOConnection1.Connected :=true;
  if ADOConnection1.Connected then
  Str:=ADOConnection1.ConnectionString ;
  Mylist.Text :=Str;
  Mylist.SaveToFile('config.ini');
  Adotable1.Active :=true;
  end
  except
  Application.Terminate ;
  end;
  end;


end;

end.