[질문]기본 프린터의 온라인 상태 체크...

델파이 2.0 에서 기본 프린터가 켜져있는지, 온라인 상태인지를 체크하는

명령어가 무엇인가요? (혹, 명령어가 없다면 어떻게 해야하나요?)

-.-;; 무슨말인지 잘모르겠네요...



다시 정리해서 올립니다.



아래의 함수는 그리기 전용함수입니다.

이곳에서 모든것을 그리죠...



procedure DrawContent( c: TCanvas );

begin

with c do

begin

Rectangle( 150, 50, 250, 400 );

MoveTo( 100, 100 );

LineTo( 300, 300 );

Font.Size:= 10;

TextOut( 200, 200, '테스트' );

Font.Size:= 20;

TextOut( 200, 400, '테스트' );

end;

end;



미리보기 버튼을 누르면 다음과 같이 화면에 나옵니다.



procedure TfrmPrinter04.btnDrawClick(Sender: TObject);

var

sWin, sView: TSize;

begin

SetMapMode( imgArea.Canvas.Handle, MM_ISOTROPIC );

SetWindowExtEx( imgArea.Canvas.Handle, 300, 300, @sWin );

SetViewportExtEx( imgArea.Canvas.Handle, 300, 300, @sWin );



DrawContent(imgArea.Canvas);

end;



여기서 imgArea는 TImage컴포넌트죠...



그리고 인쇄버튼을 누르면



procedure TfrmPreview.btnPrintingClick(Sender: TObject);

var

XPI, YPI: Integer;

sWin, sView: Size;

begin

if prtDlg.Execute then

begin

Printer.BeginDoc;



XPI:= GetDeviceCaps( Printer.Canvas.Handle, LOGPIXELSX );

YPI:= GetDeviceCaps( Printer.Canvas.Handle, LOGPIXELSY );



SetMapMode( Printer.Canvas.Handle, MM_ISOTROPIC );

SetWindowExtEx( Printer.Canvas.Handle, XPI, YPI, @sWin );

SetViewportExtEx( Printer.Canvas.Handle, XPI, YPI, @sWin );



DrawContent( Printer.Canvas );

Printer.EndDoc;

end;

end;



요렇게 실행을 하죠...



결과는 인쇄하면 폰트가 무자게 커진다는 말씀... -.-;



이 문제를 어떻게 해결할까요?



폰트에 어떤 조작을 가해야 하지 않나요?



알려주세요...



프리즈~

황하강 께서 말씀하시기를...

> [질문]기본 프린터의 온라인 상태 체크...

> 델파이 2.0 에서 기본 프린터가 켜져있는지, 온라인 상태인지를 체크하는

> 명령어가 무엇인가요? (혹, 명령어가 없다면 어떻게 해야하나요?)



예전에 김영대님의 팁을 받아 두엇던게 있어서 올려 드립니다..

참고 하세요..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



// 프린터의 상태를 리턴하는 함수

function PrinterStatus(const APort: Word): Byte; assembler;

{

AH 레지스터의 상태값(8 bit) :

0 - time out

1 - unused

2 - unused

3 - I/O error

4 - On line selected

5 - Out of paper

6 - Acknowledge

7 - Not Busy

}

begin

asm

mov ah, 2 { 서비스 2 - Printer Status }

mov dx, APort { 프린터 포트 - 0 부터 시작 }

int 17h { 프린터 서비스 인터럽트 }

mov al, ah { Set function value }

end;

end;



// 프린터의 준비 상태를 리턴하는 함수

function PrinterReady(APort: Word): Boolean;

{APort : 0=LPT1, 1=LPT2, etc }

const

pTimeOut= $01;

pIOError= $08;

pNoPaper= $20;

pNotBusy= $80;

pTestAll= pTimeOut + pIOError + pNoPaper;

begin

PrinterReady := (PrinterStatus(APort) and pTestAll) = $00;

end;



// 프린터 초기화 프로시저

procedure InitPrinter(const APort: word); assembler;

begin

asm

mov ah, 1

mov bx, APort

int 17h

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

if PrinterReady(1) = True then // LPT1

ShowMessage('Printer Ready')

else

// 에러 발생시 위의 PrinterStatus 함수를 호출하여 에러 상태를

// 알 수 있습니다

ShowMessage('Printer off or unplugged');

end;



end.

다시 질문입니다.



제가



XPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSX );

YPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSY );

SetMapMode( Canvas.Handle, MM_ISOTROPIC );

SetWindowExtEx( Canvas.Handle, 100, 100, @sWin );

SetViewportExtEx( Canvas.Handle, XPI, YPI, @sWin );



이 코드를 이용해서 인쇄를 했습니다.



문제는 화면에 뿌렸을 때는 폰트의 사이즈에 따라



화면의 비율에 따라 자연스럽게 나오지만



인쇄로 들어가면 비율에 맞지 않는 이미지가



나온다는 것이죠...



이 문제를 해결하려면 어떻게 해야 할까요?



T.T



무진장 중요한 문제랍니다.



그럼.. 고수님들 부탁드립니다.

최석기 께서 말씀하시기를...

> 황하강 께서 말씀하시기를...

> > [질문]기본 프린터의 온라인 상태 체크...

> > 델파이 2.0 에서 기본 프린터가 켜져있는지, 온라인 상태인지를 체크하는

> > 명령어가 무엇인가요? (혹, 명령어가 없다면 어떻게 해야하나요?)

>

> 예전에 김영대님의 팁을 받아 두엇던게 있어서 올려 드립니다..

> 참고 하세요..

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

> Dialogs, StdCtrls;

>

> type

> TForm1 = class(TForm)

> Button1: TButton;

> procedure Button1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

> {$R *.DFM}

>

> // 프린터의 상태를 리턴하는 함수

> function PrinterStatus(const APort: Word): Byte; assembler;

> {

> AH 레지스터의 상태값(8 bit) :

> 0 - time out

> 1 - unused

> 2 - unused

> 3 - I/O error

> 4 - On line selected

> 5 - Out of paper

> 6 - Acknowledge

> 7 - Not Busy

> }

> begin

> asm

> mov ah, 2 { 서비스 2 - Printer Status }

> mov dx, APort { 프린터 포트 - 0 부터 시작 }

> int 17h { 프린터 서비스 인터럽트 }

> mov al, ah { Set function value }

> end;

> end;

>

> // 프린터의 준비 상태를 리턴하는 함수

> function PrinterReady(APort: Word): Boolean;

> {APort : 0=LPT1, 1=LPT2, etc }

> const

> pTimeOut= $01;

> pIOError= $08;

> pNoPaper= $20;

> pNotBusy= $80;

> pTestAll= pTimeOut + pIOError + pNoPaper;

> begin

> PrinterReady := (PrinterStatus(APort) and pTestAll) = $00;

> end;

>

> // 프린터 초기화 프로시저

> procedure InitPrinter(const APort: word); assembler;

> begin

> asm

> mov ah, 1

> mov bx, APort

> int 17h

> end;

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> if PrinterReady(1) = True then // LPT1

> ShowMessage('Printer Ready')

> else

> // 에러 발생시 위의 PrinterStatus 함수를 호출하여 에러 상태를

> // 알 수 있습니다

> ShowMessage('Printer off or unplugged');

> end;

>

> end.

>

>

[다시 질문]

프로그램 예제 잘 받아서 테스트를 해보았습니다.

그런데 PrinterStatus function 문에서 뭔가 문제가 있는것 같은데...

제가 분석을 잘못한것인지 아니면 테스트 환경이 잘못되었는지를

알려주세요.( 나 원참 줘도 못먹네여...)

감사합니다.

화면 출력 후



XPI := GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX);

YPI := GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY);



로 다시 계산 하신후 출력해 보세요.





남윤혁 wrote:

> 다시 질문입니다.

>

> 제가

>

> XPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSX );

> YPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSY );

> SetMapMode( Canvas.Handle, MM_ISOTROPIC );

> SetWindowExtEx( Canvas.Handle, 100, 100, @sWin );

> SetViewportExtEx( Canvas.Handle, XPI, YPI, @sWin );

>

> 이 코드를 이용해서 인쇄를 했습니다.

>

> 문제는 화면에 뿌렸을 때는 폰트의 사이즈에 따라

>

> 화면의 비율에 따라 자연스럽게 나오지만

>

> 인쇄로 들어가면 비율에 맞지 않는 이미지가

>

> 나온다는 것이죠...

>

> 이 문제를 해결하려면 어떻게 해야 할까요?

>

> T.T

>

> 무진장 중요한 문제랍니다.

>

> 그럼.. 고수님들 부탁드립니다.

>

>

남윤혁 wrote:

> 으아... 미치겠습니다.

>

> 인쇄를 하기 위해서

>

> 매핑모드 바꾼거 까지는 좋았습니다.

>

> 텍스트를 인쇄하기 전까지는 말이죠... -.-;;

>

> 그런데... 텍스트가 지 마음대로 인쇄가 되는 것입니다.

>

> 이 난관을 어떻게 극복해야 할까요?

>

> 알려 주세용...

>

> 저는 델파이의 Printer객체를 사용해서 인쇄를 하려 합니다.

>

> 이 질문을 윈도우API로 분류해도 되는지 몰겠네요...

>

> 그럼...

>

>

> - 글을 읽어 주셔서 감사합니다.



안녕하세요!.



질문의 범위가 너무 광범위 합니다. 질문을 하실때는 되도록 이면



이런 이런 코드가 있는데 이런 부분에서 문제가 생기더라 식으로 작성 해주시면



감사하겠습니다.