M
MyDelphiPower
Unregistered / Unconfirmed
GUEST, unregistred user!
1、我数据库里保存的是相片的路径;
2、如果使用TQRImage控件,所有的用户相片都是第一位用户的相片:
procedure TFrmPrint.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRImage1.Picture.LoadFromFile(FrmMain.ADOQuery.Fields[0].AsString);
end;
3、如果使用TQRDBImage控件,则根本显示不了相片,用流可以,但我数据库里是保存路径:
procedure TFrmPrint.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRDBImage1.Picture.LoadFromFile(FrmMain.ADOQuery.Fields[0].AsString);
end;
不知道还有没有办法可以显示相片??
2、如果使用TQRImage控件,所有的用户相片都是第一位用户的相片:
procedure TFrmPrint.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRImage1.Picture.LoadFromFile(FrmMain.ADOQuery.Fields[0].AsString);
end;
3、如果使用TQRDBImage控件,则根本显示不了相片,用流可以,但我数据库里是保存路径:
procedure TFrmPrint.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRDBImage1.Picture.LoadFromFile(FrmMain.ADOQuery.Fields[0].AsString);
end;
不知道还有没有办法可以显示相片??