995~~如何把数据库得的image类型字段，取到本地，存成文件~（给个例子）

Question

rt~

Answer 1

数据我是这样存入的：with  myQuery  do
  begin
    FileStream:=TFileStream.Create(sFileName,fmOpenRead);//
    FileStream.Position:=0;
    st:=TStringStream.create('');
    st.CopyFrom(FileStream,FileStream.Size);
    Close;
    Sql.Clear;
    Sql.Add('insert into Files(Name,DirectorysID,State,OperatorID,UploadTime,Content) values');
    Sql.Add('(:Name,:DirectorysID,:State,:OperatorID,:UploadTime,:Content)');
    Parameters.ParamByName('Name').Value:=sPath;
    Parameters.ParamByName('DirectorysID').Value:=myData.iID;
    Parameters.ParamByName('State').Value:=0;
    Parameters.ParamByName('OperatorID').Value:=gShareData.pOperator.sOperatorID;
    Parameters.ParamByName('UpLoadTime').Value:=Now();
    Parameters.ParamByName('Content').LoadFromStream(st,ftBlob);
    try
    begin
      Execsql;

Answer 2

type
qimgF_IMG_DATA: TBlobField;procedure Tfrmimgscan.qimgAfterScroll(DataSet: TDataSet);  //qimg的事件
begin
  
  IF QIMG.RecordCount>0 THEN                     
        IF NOT qimgF_IMG_DATA.IsNull THEN
           qimgF_IMG_DATA.SaveToFile(FN);    //存入文件 
  SHOW_IMG();
end;
PROCEDURE tfrmimgscan.SHOW_IMG;
BEGIN                                              
  IF NOT FILEEXISTS(FN) THEN
        begin
        application.MessageBox('没有图片！','提示信息',MB_ICONINFORMATION);
        exit;
        end;
  image1.Picture.LoadFromFile(fn);  //读图象文件
END;

Answer 3

var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Content')).savetoStream(pic);
pic.positon:=0;
pjpg.LoadFromStream(pic);
pjpg.SaveToFiel('C;\a.jpg');
end;

Answer 4

不用说了  楼上已经说得很清楚了
但是一定是BMP了