如何把图片存储到Sql里面的某个字段里面？

Question

有Delphi原码最好。。谢了！

Answer 1

程序如下
procedure Tform1.BitBtn1Click(Sender: TObject);
var
Bitmap2:Tbitmap;
Begin
   BitMap2 := TBitMap.Create;
   if OpenDialog1.Execute then
   BitMap2.LoadFromFile(Opendialog1.FileName);
   With DataModule1.OA_PERSON_IMAGE Do
   Begin
       Edit;
       Fields[1].assign(bitmap2);
       Post;
   End;
   BitMap2.Free;
End;

Answer 2

procedure Tform1.readfile;var  iFileHandle, FileHandle1: Integer;  iFileLength: Integer;  iBytesRead: Integer;begin   if OpenDialog1.Execute then   begin      iFileHandle := FileOpen( OpenDialog1.FileName, fmOpenRead );      iFileLength := FileSeek(iFileHandle,0,2);      FileSeek(iFileHandle,0,0);      SetLength( Str ,  iFileLength +1  ) ;      iBytesRead := FileRead(iFileHandle, Str[1], iFileLength);      FileClose(iFileHandle);      if length(strTemp) >0 then        strTemp:=Copy(strTemp, 1, length(strTemp) -1);      ShowMessage(strTemp);      FileHandle1 := FileCreate( 'c:\temp.data' );      FileWrite( FileHandle1 , strTemp[1] , Length(strTemp) ) ;      FileClose(FileHandle1);  end ;end ;把strtemp作为一个字段的值放在数据库里就可以了。可以存储任何文件