哪位大俠知道!對SQL數據庫中Image字段的打印!
不過有几點!
圖片是通過OLE控件來保存的!
保存的有bmp.jpg還有CAD圖形!
使用QRDBImage來打印,其他的如QRImage...也可!
錯信息是Bitmap 無效!(用DBimage,QRDBImage控件!)部分用到的保存顯示源代嗎如下://SQL數據庫中Iamge字段內容的保存var
Stream :TADOBlobStream;
with 表名 do
begin
if(OleImage.State = osLoaded)then //OleImage為OLE控件
begin
Stream := TADOBlobStream.Create(TBlobField(FieldByName('cad')),bmReadWrite);
try
OleImage.SaveToStream(Stream);
finally
Stream.Free;
end;
end;
end; //用OLE來顯示Iamge字段內容
var
fdTmp :TBlobField;
with 表名 do
begin
if(not(FieldByName('cad').IsNull))then
begin
fdTmp:= TBlobField(FieldByName('cad'));
Stream := TADOBlobStream.Create(fdTmp,bmRead);
try
OleImage.LoadFromStream(Stream);
finally
Stream.Free;
end else
OleImage.DestroyObject;
end;
不過有几點!
圖片是通過OLE控件來保存的!
保存的有bmp.jpg還有CAD圖形!
使用QRDBImage來打印,其他的如QRImage...也可!
錯信息是Bitmap 無效!(用DBimage,QRDBImage控件!)部分用到的保存顯示源代嗎如下://SQL數據庫中Iamge字段內容的保存var
Stream :TADOBlobStream;
with 表名 do
begin
if(OleImage.State = osLoaded)then //OleImage為OLE控件
begin
Stream := TADOBlobStream.Create(TBlobField(FieldByName('cad')),bmReadWrite);
try
OleImage.SaveToStream(Stream);
finally
Stream.Free;
end;
end;
end; //用OLE來顯示Iamge字段內容
var
fdTmp :TBlobField;
with 表名 do
begin
if(not(FieldByName('cad').IsNull))then
begin
fdTmp:= TBlobField(FieldByName('cad'));
Stream := TADOBlobStream.Create(fdTmp,bmRead);
try
OleImage.LoadFromStream(Stream);
finally
Stream.Free;
end else
OleImage.DestroyObject;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货