如何在用delphi保存图片到mysql数据库中，紧急，大家行行好，帮帮我啊，我为了解决这个问题已好几天都睡不着觉了。 我愿意把所有的分数全部给你们。

Question

我用c++ builder +oracle 写过一个图象的管理方面的功能，明天我上班去帮你看看

Answer 1

  query1.Append;
     Tblobfield(query1.FieldByName('pic')).loadfromfile(str4);
     query1.Post;

Answer 2

有两个方法肯定能解决：（曾经同病相怜过，所以无私奉献）
1、如果用BDE或ODBC提交数据库：
Create Table Back_txt
  (
   Back_txt_code int,
   Back_txt_details image
  )  
   Query.Close;
   Query.SQl.Text:=Format('InSert into Back_txt values (%d,:BackTxtDetails)',[Back_txt_Code]);
   Query.ParamByName('BackTxtDetails').DataType:=ftBlob;
   Query.ParamByName('BackTxtDetails').ParamType:=ptInput;
   Query.ParamByName('Backtxtdetails').LoadFromFile(File_Name,ftBlob);
   Query.ExecSql
  
   Query.Close;
   Query.Sql.Txt:=Format('Select * from Back_txt where Back_Txt_code=%D',[Back_Txt_Code]);
   Query.open;
   TblobField(Query.FieldByName('Back_txt_details')).SavetoFile(Filename);  2、如果用ADO提交：
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile('f:\page.doc');
str.Position:=0;
adoquery1.Append;
Tblobfield(adoquery1.FieldByName('tt')).loadfromstream(str);
try
adoquery1.Post;
finally
str.Free;
end;//存储文件var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(adoquery1.FieldByName('tt')).savetostream(str);
str.SaveToFile('F:\gg.doc');
str.Free;//导出文件我用的是delphi6和sql2000试验过，没问题
可以存储任何形式的文件，并可导出为其他后缀名。

Answer 3

用blob形式存放，用loadfromfile存入

Answer 4

mysql 不行的。我现在用mysql做图书馆管理系统，也是没有办法才有mysql的