delphi将图片存储到sql server 2005

最新推荐文章于 2023-06-03 13:47:34 发布

weixin_30436101

最新推荐文章于 2023-06-03 13:47:34 发布

阅读量133

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/snow001x/archive/2008/11/17/1334772.html

版权

sql server 2005 字段类型为 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;