怎么将SQLServer2000的image字段的值写到文件中?

Question

我们的客户端需要经常更新,我们把升级文件以Image的形式写进了数据库,怎么把它读出来写到文件中呢?请大侠给点示例,谢谢

Answer 1

DataModule1.ADOQuery1.FieldByName('temp')//这个是读出来至于写到文件中，就不清楚了
学习

Answer 2

这个不太难的，通过运用TADOBlobStream对象来实现procedure TForm1.Button1Click(Sender: TObject);
Var
  aStream:TADOBlobStream;
begin
  aStream:=TADOBlobStream.Create(ADOQuery1.FieldByName('Image字段名'),bmRead);
  try
    aStream.SaveToFile('c:\我的文件.exe');
    aStream.Free;
  except
    ShowMessage('保存失败');
  end;
end;大量电脑书籍下载：
http://www.netyi.net/in.asp?id=ForMoreU

Answer 3

var
  stream1: tmemorystream;
  begin
  stream1 := tmemorystream.Create;
try
tblobfield(DataModule1.ADOQuery1.FieldByName('temp')).SaveToStream(stream1)
if stream1.Size > 0 then
      begin
        if fileexists(filepath) then
          deletefile(filepath);
          stream1.SaveToFile(filepath);
        end; 
      end;
finally
  freeandnil(stream1);
end;
  end;