öÎíµÃÎÔ°µÄ²©¿Í

Delphi´æÈ¡JPEG¡¢BMPͼÏñµ½Êý¾Ý¿âÍêÕû½â¾ö·½°¸

ʱ¼ä£º2011-9-3 14:57:35 µã»÷£º 357

¡¡¡¡ºËÐÄÌáʾ£ºunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Di...
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ExtDlgs, StdCtrls, ADODB, Grids, DBGrids, ExtCtrls,jpeg,
DBCtrls;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
selectimage: TButton;
savetodb: TButton;
OpenPictureDialog1: TOpenPictureDialog;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
savetofile: TButton;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Bevel1: TBevel;
Bevel2: TBevel;
GroupBox1: TGroupBox;
Image1: TImage;
Label3: TLabel;
Label4: TLabel;
DBImage1: TDBImage;
procedure selectimageClick(Sender: TObject);
procedure savetodbClick(Sender: TObject);
procedure ADOTable1AfterScroll(DataSet: TDataSet);
procedure savetofileClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ADOTable1BeforeScroll(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.selectimageClick(Sender: TObject); //Ñ¡ÔñͼÏñ
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName );
end;

////Èçϱ£´æ·½·¨only to sql and access'data
procedure TForm1.savetodbClick(Sender: TObject); //±£´æͼÏñ
var
strm:tmemorystream;
ext:string;
begin
if image1.picture.Graphic <> nil then //±ÜÃâimage1ÖÐÎÞͼÏñ±£´æ³ö´í
begin
ext:=extractfileext(openpicturedialog1.FileName );
strm := tmemorystream.Create ;
try
image1.Picture.Graphic.SaveToStream(strm);
adotable1.Edit ;
strm.Position :=0;
DBImage1.dataField :=''; //dbimageÖ»ÄÜÏÔʾBMP£¬·ñÔòmyimageÓÉBMP±äΪjpegʱ»á³ö´í
tblobfield(adotable1.FieldByName('myimage')).LoadFromStream(strm);
//ÈçÐèÖ±½ÓÓÉÎļþ±£´æ TBlobField(adotable1.FieldByName('myimage')).LoadFromFile(OpenPictureDialog1.FileName);
//ÒÔϼǼ±£´æµ½Êý¾Ý¿âµÄͼÏñ¸ñʽ
if uppercase(ext) = '.BMP' then
begin
adotable1.FieldByName('isbmp').Value := 1;
dbimage1.dataField := 'myimage';
end
else if (uppercase(ext) = '.JPG') OR ( uppercase(ext) = '.JPEG') THEN
adotable1.FieldByName('isbmp').Value := 0;
adotable1.Post ;
finally
strm.Free ; //Èç¹ûÄãÑ¡ÓÃTBLOBSTREAMÀà,³ÌÐòÔËÐе½´ËÓï¾ä»á³ö´í£¬¿É¸ÃÓï¾äÇ°ÌíÈëadotable1.edit
end;
end;
end;
///ÈçÏÂÏÔʾ·½·¨²»ÊÊÓÃÓÚparadoxÖеÄgraphic×ֶεÄÏÔʾ¡£
procedure TForm1.adoTable1AfterScroll(DataSet: TDataSet); //ÏÔʾͼÏñ
var
strm:tadoblobstream;
jpegimage:tjpegimage;
bitmap:tbitmap;
begin
strm := tadoblobstream.Create(tblobfield(adotable1.fieldbyname('MYIMAGE')),bmread);
try //try1
strm.position :=0;
image1.Picture.Graphic := nil;
DBIMAGE1.DataField := '';
//ÏÔʾʱ£¬BMP¡¢JPEGÁ½ÖÖͼÏñÊý¾Ý±ØÐè·Ö±ð´¦Àí
if adotable1.fieldbyname('isbmp').asstring ='1' then
begin //begin11
bitmap := tbitmap.Create ;
try //try11
bitmap.LoadFromStream(strm);
image1.Picture.Graphic := bitmap;
DBIMAGE1.DataField := 'myimage';
finally
bitmap.Free;
end; //end try11
end //end begin11
else if adotable1.fieldbyname('isbmp').asstring ='0' then
begin //begin12
jpegimage := tjpegimage.Create ;
try //try12
jpegimage.LoadFromStream(strm);
image1.Picture.Graphic := jpegimage;
finally
jpegimage.Free ;
end; //end try12
end; //end begin12
finally
strm.Free ;
end; //end try1
end;

////ÏÔʾʱ±ØÐë·Öbmp and jpeg Á½ÖÖÇé¿ö´¦Àí£¬¶ø±£´æ¿Éͳһ¡£

procedure TForm1.savetofileClick(Sender: TObject);
var
tmpstr:string;
begin
if image1.Picture.Graphic <> nil then
begin
tmpstr := openpicturedialog1.Filter;
if adotable1.fieldbyname('isbmp').asstring ='1' then
begin
openpicturedialog1.Filter := 'Bitmaps (*.bmp)|*.bmp';
if openpicturedialog1.Execute then
image1.Picture.SaveToFile(openpicturedialog1.FileName+'.bmp');
end
else
begin
openpicturedialog1.Filter := 'JPEG Image File (*.jpg)|*.jpg';
if openpicturedialog1.Execute then
image1.Picture.SaveToFile(openpicturedialog1.FileName+'.jpg');
end;
openpicturedialog1.Filter := tmpstr;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
adoconnection1.Connected := true;
adoconnection1.LoginPrompt := false;
adotable1.Active := true;

end;

procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);
begin
dbimage1.dataField :=''; //ÕâÌõÓï¾ä²»ÄÜÒÅ©£¬²»ÐÅÄãÊÔÊÔ
end;

end.