자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 델파이 xe seattle 10 사용중 이미지 인쇄 버그
2020.11.17 15:09
uses
Printers,
procedure TfrmPreview.File_Read(Canvas : TCanvas; isPrint : Boolean);
begin
with Canvas do
begin
TempFileName := 'c:\temp\aaa.bmp';
tempGraphic.LoadFromFile(tempFileName);
TempBit := TBitmap.Create;
TempBit.Width := 100;
TempBit.Height := 100;
TempRect.Left := 0;
TempRect.Top := 0;
TempRect.Right := 100;
TempRect.Bottom := 100;
TempBit.Canvas.StretchDraw(TempRect, tempGraphic);
Draw (StrToInt(sX), StrToInt(sY), TempBit);
tempGraphic.Free;
DeleteFile(tempFileName);
end;
이런식으로 Print Canvas 에 직접 이미지를 인쇄 하고 있습니다.
인쇄를 약 3 ~ 5초에 1장을 하는데 가끔 이미지 인쇄가 되지 않을 경우가 있습니다.
어떻게 버그를 해결해야 할지 몰라서 글을 씁니다...
댓글 0
Delphi 델파이 xe seattle 10 사용중 이미지 인쇄 버그
2020.11.17 15:09
uses
Printers,
procedure TfrmPreview.File_Read(Canvas : TCanvas; isPrint : Boolean);
begin
with Canvas do
begin
TempFileName := 'c:\temp\aaa.bmp';
tempGraphic.LoadFromFile(tempFileName);
TempBit := TBitmap.Create;
TempBit.Width := 100;
TempBit.Height := 100;
TempRect.Left := 0;
TempRect.Top := 0;
TempRect.Right := 100;
TempRect.Bottom := 100;
TempBit.Canvas.StretchDraw(TempRect, tempGraphic);
Draw (StrToInt(sX), StrToInt(sY), TempBit);
tempGraphic.Free;
DeleteFile(tempFileName);
end;
이런식으로 Print Canvas 에 직접 이미지를 인쇄 하고 있습니다.
인쇄를 약 3 ~ 5초에 1장을 하는데 가끔 이미지 인쇄가 되지 않을 경우가 있습니다.
어떻게 버그를 해결해야 할지 몰라서 글을 씁니다...
