谁有向表中存、取图片内容（不是存文件名）的好方法，谢谢

Question

请问，谁有向表中存、取图片内容（不是存文件名）的好方法，谢谢

Answer 1

参考
http://expert.csdn.net/Expert/topic/1205/1205607.xml?temp=.3451807

Answer 2

先将图片内容存为FILESTREAM，然后再将FILESTREAM存入字段，哦棵，

Answer 3

保存：
  ADOTable1.Append;
  TBlobField(ADOTable1.FieldByName('image')).LoadFromFile('C:\WINNT\Web\Wallpaper\Windows 2000.jpg');
  ADOTable1.Post;取出
var
  Jpg:TJPEGImage;
  Buf:TMemoryStream;
begin
  Jpg:=TJPEGImage.Create;  Buf:=TMemoryStream.Create;
  TBlobField(ADOTable1.FieldByName('image')).SaveToStream(Buf);
  Buf.Position:=0;
  Jpg.LoadFromStream(Buf);
  Image1.Picture.Assign(jpg);  Buf.Free;
  Jpg.Free; 

Answer 4

同意楼上意见，有些老bmp图片文件头有一定偏移量。如果这样注意在流中指定读取的起始点。
这是bmp的：
procedure TForm1.Button1Click(Sender: TObject);
var
  MyJPEG : TJPEGImage;
  MS: TMemoryStream ;
begin
MyJPEG:=TJPEGImage.Create;
try
    MS:=TMemoryStream.Create;
    //MyJPEG.Assign(Image1.Picture.Graphic);
    //MyJPEG.SaveToStream(MS);
    self.Image1.Picture.Bitmap.SaveToStream(MS);
    MS.Position:=0;
    ADOQuery1.Edit ;
    //self.ADOQuery1.FieldByName('ID').Value :=1;
    //self.ADOQuery1.FieldByName('Name').AsString := 'zyw';
    TBlobField(ADOQuery1.FieldByName('Photo')).LoadFromStream(MS);
    ADOQuery1.Post;
    messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);
    MS.Free;
finally
    MyJPEG.free;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  MyJPEG : TJPEGImage;
  MS: TMemoryStream;
begin
  MS:=TMemoryStream.Create;
  MyJPEG:=TJPEGImage.Create;
  //ADOQuery1.Requery;
  try
    TBlobField(ADOQuery1.FieldByName('Photo')).SaveToStream(MS);
    MS.Position:=0;
    //MyJPEG.LoadFromStream(MS);
    //Image1.Picture.Bitmap.Assign(MyJPEG);
    self.Image1.Picture.Bitmap.LoadFromStream(MS);
  finally
    MS.Free;
    MyJPEG.Free;
  end;
内容有点乱，自己改一下。大致是这个意思，如果是jpg别忘了在单元中加如Jpeg

Answer 5

在http://www.codestudy.net/book/list.asp?id=522上有个delphi中文手册里面有关于流的操作好像是在20章。www.delphibbs.com这个月里有一片写流的慢慢找吧.^-^