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