表名:AA
字段: BB Image类型
保存方式:
{
var mystream1:TStream;
sSQL:string ;
begin
mystream1:=TMemoryStream.Create;
mystream1.Position :=0;
RichViewEdit.SaveRVFToStream(mystream1,false);
sSQL :='INSERT INTO AA(BB) Values(:BB)' ;
Query1.SQL.Clear;
Query1.SQL.Add(sSQL);
Query1.ParamByName('BB').LoadFromStream(mystream1,ftBlob);
Query1.ExecSQL
--保存是成功的, 打印的时候用QRDBImage,结果报错(BitMap Image is not valid)
--请教兄台有何办法打印出来??end;
}
字段: BB Image类型
保存方式:
{
var mystream1:TStream;
sSQL:string ;
begin
mystream1:=TMemoryStream.Create;
mystream1.Position :=0;
RichViewEdit.SaveRVFToStream(mystream1,false);
sSQL :='INSERT INTO AA(BB) Values(:BB)' ;
Query1.SQL.Clear;
Query1.SQL.Add(sSQL);
Query1.ParamByName('BB').LoadFromStream(mystream1,ftBlob);
Query1.ExecSQL
--保存是成功的, 打印的时候用QRDBImage,结果报错(BitMap Image is not valid)
--请教兄台有何办法打印出来??end;
}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货