D
dwguo
Unregistered / Unconfirmed
GUEST, unregistred user!
bmp格式能打印,可是为什么Jpg格式就不能打印呢? -在线等!
代码如下:
procedure TUserInfoPrintForm.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
path: string;
begin
path := ExtractFilePath(Application.ExeName) + 'images/';
if FileExists(path + UserInfoForm.query3.FieldByName('相片').AsString) then
TFrPictureView(frPer.FindObject('imgPer')).Picture.LoadFromFile(path + UserInfoForm.query3.FieldByName('相片').AsString);
end;
代码如下:
procedure TUserInfoPrintForm.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
path: string;
begin
path := ExtractFilePath(Application.ExeName) + 'images/';
if FileExists(path + UserInfoForm.query3.FieldByName('相片').AsString) then
TFrPictureView(frPer.FindObject('imgPer')).Picture.LoadFromFile(path + UserInfoForm.query3.FieldByName('相片').AsString);
end;