DELPHI SQL 存取图像

Delphi sql存取图像
procedure TForm1.Button1Click(Sender:TObject);//插入图片过程
var
Stream:TMemoryStream;
begin
try
Stream:=TMemoryStream.Create;//创建内存流
Image1.Picture.Graphic.SaveToStream(Stream);//将图片保存到内存流中
adoquery1.Close;
adoquery1.SQL.Clear;
adoQuery1.SQL.Add('Insert into tbltemp(Image)values
(:photo)');//进行插入操作
adoQuery1.Parameters.ParamByName('photo').LoadFromStream(Strea m,ftBlob);//读取保存的内存图
adoquery1.ExecSQL;
finally
Stream.Free;//释放内存流
end;
end;
procedure TForm1.Button2Click(Sender:TObject);//读取图片过程
var
Stream:TMemoryStream;
Jpg:TjpegImage;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT*FROM tbltemp';//查询图片
ADOQuery1.Open;
if not ADOQuery1.FieldByName('Image').IsNull then
begin
Stream:=TMemoryStream.Create;
Jpg:=TjpegImage.Create;
TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(Stream) ;//显示的转换为BlobField并保存到内存流
Stream.Position:=0;
jpg.LoadFromStream(Stream);//加载图片
image2.Picture.Assign(Jpg);
end
else
begin
image2.Picture:=nil;
end;
end;
sql server2005字段类型为image
delphi使用的单元为jpeg,db,dbtables;
delphi存储图片代码片段
procedure TForm1.btnPostClick(Sender:TObject);
var
lMemoStream:TMemoryStream;
jpg:TJpegImage;
begin
lMemoStream:=TMemoryStream.Create;
jpg:=TJpegimage.Create;
jpg.Assign(Img.Picture.Graphic);
jpg.SaveToStream(lMemoStream);
lMemoStream.Position:=0;
TBlobField(dm1.adoqrytea.fieldbyname('image')).LoadFromStream(lMemoStream);
dm1.adoqrytea.Post;
end;
delphi从数据库读取到image中的代码片段
procedure TForm3.FormShow(Sender:TObject);
var
MyJPEG:TJPEGImage;
MS:TMemoryStream;
begin
MyJPEG:=TJPEGImage.Create;
MS:=TMemoryStream.Create;
if not dm1.adostuview.Active then
dm1.adostuview.Open;
with dm1.adostuview do
begin
TBlobField(dm1.adostuview.Fields[9]).SaveToStream(MS);
ms.Position:=0;
MyJPEG.LoadFromStream(MS);
Img.picture.assign(MyJPEG);
MyJPEg.free;
MS.free;
end;
end;
uses,jpeg,db
show
procedure Tfrmyd.SpeedButton4Click(Sender:TObject);
const
JPEG_FLAG_BEGIN=$D8FF;
JPEG_FLAG_END=$D9FF;
var
Stream:TMemoryStream;
Flag1,Flag2:word;
Jpg:TjpegImage;
begin
dmdata.ADOQupdate.Close;
dmdata.ADOQupdate.SQL.Text:='SELECT*FROM Restaurant where reno=''5''';//查询图片
dmdata.ADOQupdate.Open;
if not dmdata.ADOQupdate.FieldByName('photo').IsNull then
begin
Stream:=TMemoryStream.Create;
TBlobField(dmdata.ADOQupdate.FieldByName('photo')).SaveToStream(Stream);//显示的转换为BlobField并保存到内存流
Stream.Position:=0;
Stream.Read(Flag1,SizeOf(Flag1));
Stream.Position:=Stream.Size-2;
Stream.Read(Flag2,sizeOf(Flag2));
if(flag1=JPEG_FLAG_BEGIN)and(flag2=JPEG_FLAG_END)then
begin
Stream.Position:=0;
Jpg:=TjpegImage.Create;
jpg.LoadFromStream(Stream);//加载jpeg图片
image1.Picture.Assign(Jpg);
jpg.Free;
end
else
begin
Stream.Position:=0;//加载bmp图片
image1.Picture.BITMAP.LoadFromStream(Stream);
end;
end
else
begin
image1.Picture:=nil;
end;
end;
shave
procedure Tfrmyd.SpeedButton2Click(Sender:TObject);
var
Stream:TMemoryStream;
begin
if OpenDialog1.Execute then
begin
image1.Picture.LoadFromFile(OpenDialog1.FileName);
try
Stream:=TMemoryStream.Create;//创建内存流
Image1.Picture.Graphic.SaveToStream(Stream);//将图片保存到内存流中dmdata.ADOQupdate.Close;
dmdata.ADOQupdate.SQL.Clear;
dmdata.ADOQupdate.SQL.Add('Insert into Restaurant(photo)values(:photo)'); //进行插入操作
dmdata.ADOQupdate.Parameters.ParamByName('photo').LoadFromStream(Stream,ft Blob);//读取保存的内存图
dmdata.ADOQupdate.ExecSQL;
finally
Stream.Free;//释放内存流
end;
end;
end;
内存流中转换jpeg传入imagelist中
uses
Jpeg
myjpg:=TJPEGImage.Create;
mybmp:=TBitmap.Create;
tmpbmp:=TBitmap.Create;
myjpg.LoadFromFile(JPEG文件);
mybmp.Assign(myjpg);
tmpbmp.Width:=136;
tmpbmp.Height:=160;
tmpbmp.Canvas.StretchDraw(tmpbmp.Canvas.ClipRect,mybmp);
ImageList.Add(tmpbmp,nil);。