论坛 › SQL Server › delphi将图片存储到sql server 2005

什么没有 发表于 2015-7-3 05:42:10

delphi将图片存储到sql server 2005

　　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).SaveToStream(MS);
    ms.Position := 0;
    MyJPEG.LoadFromStream(MS);
    Img.picture.assign(MyJPEG);
    MyJPEg.free;
    MS.free;
end;
end;
　　

查看完整版本: delphi将图片存储到sql server 2005