还是那个老问题，有关SQLSERVER+ADO的图像字段的存取问题

Question

我的代码现在提示是“JPEG ERROR #52”，要是改动的话提示“STREAM READ ERROR”， 我是被彻底陶醉，完全熏陶了！！！！！！！再给小弟说的细点吧，谢！！

Answer 1

存:
var
CurStream:TFileStream;
  begin
  Table1.append;
  if FileName<>'' then
    begin
      CurStream:=TFileStream.Create(FileName,fmOpenRead);
      TBlobField(Table1.FieldByName('ole object Field')).LoadFromStream(CurStream);
      CurStream.free;
    end;
  Table1.post;
取:
TBlobField(Table1.FieldByName('ole object Field')).SavetoFile('c:\temp.bmp');
  shellExecute(handle,'open','c:\temp.bmp', '', '', SW_SHOWNORMAL);