Delphi+SQL Server如何在数据库中存取图象?

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOTable1.Append;
   TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
   ADOTable1.Post;
end;

Answer 1

http://expert.csdn.net/Expert/topic/2048/2048142.xml?temp=2.929324E-02

Answer 2

procedure TForm1.BitBtn4Click(Sender: TObject);
var sfilename:string;
function blobcontenttostring(const filename:string):string;
begin
 with tfilestream.create(filename,fmopenread) do
  try
   setlength(result,size);
   read(pointer(result)^,size);
   finally
   free;
   end;
  end;
begin
  if (opendialog1.execute) then
  begin
   sfilename:=opendialog1.filename;
   adoquery1.edit;
   adoquery1.FieldByName('標簽例樣').asstring:=blobcontenttostring(sfilename);
   adoquery1.post;
   end;
end;