各位大哥：如何把一个tiff文件保存到sql数据库，而且可以通过dbimage之类的控件显示出来。

Question

如何把一个tiff文件保存到sql数据库，而且可以通过dbimage之类的控件显示出来。

Answer 1

//看看下面我的代码,以前用来存其他文件的,现在不知道可以吗?
procedure TForm1.Button1Click(Sender: TObject);
var
  tempFile:TMemoryStream;
  strName:string;
begin
strName:='xxx';//你的文件
try
  tempFile := TMemoryStream.Create ;
  tempFile.LoadFromFile(strName);
  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('insert into file1(id, afile) values(1,:FileSelf)');
      parameters.ParamByName('FileSelf').LoadFromStream(tempFile, ftBlob);
      ExecSql;
    end;
finally
  tempFile.Free;
end;

Answer 2

tempFile.LoadFromFile(strName)后面加上tempFile.Position := 0 
好象有点问题