我用下面语句将Blob字段保存到数据库中去:var SQLstr : string;
MS:TMemoryStream;
s:string;
begin
MS := TMemoryStream.Create;
try
CustomQuery.SQL.Clear;
SQLstr := ' update ZPB set ZP=:ZP where ID=''1''';
CustomQuery.SQL.Add(SQLstr);
MS.LoadFromFile('C:\aaa.jpg');
MS.Position := 0;
CustomQuery.ParamByName('ZP').LoadFromStream(MS,ftBlob);
CustomQuery.ExecSQL;
CustomQuery.Close;
finally
MS.Free;
end;
但是运行结果没有保存进去,不知道那位大虾可以一点迷经.
MS:TMemoryStream;
s:string;
begin
MS := TMemoryStream.Create;
try
CustomQuery.SQL.Clear;
SQLstr := ' update ZPB set ZP=:ZP where ID=''1''';
CustomQuery.SQL.Add(SQLstr);
MS.LoadFromFile('C:\aaa.jpg');
MS.Position := 0;
CustomQuery.ParamByName('ZP').LoadFromStream(MS,ftBlob);
CustomQuery.ExecSQL;
CustomQuery.Close;
finally
MS.Free;
end;
但是运行结果没有保存进去,不知道那位大虾可以一点迷经.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货