如何在用delphi保存图片到mysql数据库中,紧急,大家行行好,帮帮我啊,我为了解决这个问题已好几天都睡不着觉了。 我愿意把所有的分数全部给你们。 我用c++ builder +oracle 写过一个图象的管理方面的功能,明天我上班去帮你看看 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 query1.Append; Tblobfield(query1.FieldByName('pic')).loadfromfile(str4); query1.Post; 有两个方法肯定能解决:(曾经同病相怜过,所以无私奉献)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;beginstr:=Tmemorystream.Create;str.LoadFromFile('f:\page.doc');str.Position:=0;adoquery1.Append;Tblobfield(adoquery1.FieldByName('tt')).loadfromstream(str);tryadoquery1.Post;finallystr.Free;end;//存储文件var str:Tmemorystream;beginstr:=Tmemorystream.Create;str.Position:=0;Tblobfield(adoquery1.FieldByName('tt')).savetostream(str);str.SaveToFile('F:\gg.doc');str.Free;//导出文件我用的是delphi6和sql2000试验过,没问题可以存储任何形式的文件,并可导出为其他后缀名。 用blob形式存放,用loadfromfile存入 mysql 不行的。我现在用mysql做图书馆管理系统,也是没有办法才有mysql的 有关表的字符编码问题,字段与表定义的编码格式不一致 表字段值与另一表字段名相同问题。 mysql建表出错 如何加密MYSQL触发器和存储过程 mysql导入文件时,存储过程导入出错 小妹请教前辈们如何从一张表里取值存放另一张表! php mysql连不上 求一条sql语句(在线等) 数据库存储量的问题 查询和插入问题 求教:想用MYSQL建一张表,其中要含一项ID值是由系统自动增长(无符号整型),如何实现??急!! MYSQL里如何设置密码?
Tblobfield(query1.FieldByName('pic')).loadfromfile(str4);
query1.Post;
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试验过,没问题
可以存储任何形式的文件,并可导出为其他后缀名。