델사랑 wrote:

> 한수 부탁합니다.

> 델에서 폼을 캡쳐해서 프린터하는 방법좀 가르쳐주세요.

> 내공이 부족해서 제가 생각한데로 잘 되지가 않습니다.

> 많이 많이 부탁합니다.



안녕하세요..

제가 가지고있는 팁중에 화면을 bmp로 저장하는 방법과

bmp를 출력하는 방법을 적어놓을께요..

참고로 김영대님이 예전에 답변했던 내용이군요..

좋은하루되세요..







1. [고급] 화면캡처하기





> 델파이 3.0에서

> 현재의 화면을 캡처하여 DB에 저장하려고 하는데

> 방법을 모르겠내요



안녕하세요 김영대입니다.

화면(DeskTop의 full screen)을 Capture하는 예제를 올립니다.

Capture하여 bmp 파일로 저장하는 예제입니다.

그리고 DB저장은 BLOB 필드를 다루는 내용이 많이 공개되어 있으니

생략합니다

그럼 좋은 결과 있기를 바랍니다.

(아래의 BitmapRect의 영역좌표를 바꾸면 DeskTop의 특정 영역만

Capture할 수 있습니다, full screen의 bmp 크기는 대략 938KB 입니다)





unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

SaveDialog1: TSaveDialog;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

DeskTopDC: HDc;

DeskTopCanvas: TCanvas;

BitmapRect: TRect;

Bitmap: TBitmap;

begin

try

Bitmap := TBitmap.Create; {BMP를 저장할 bitmap 생성}

BitMap.Width := Screen.Width;

BitMap.Height := Screen.Height;

BitmapRect := Rect(0, 0, Screen.Width, Screen.Height); {full screen 영역}



{전체 window의 device context(DC) 을 얻는다}

DeskTopDC := GetWindowDC(GetDeskTopWindow);

DeskTopCanvas := TCanvas.Create;

DeskTopCanvas.Handle := DeskTopDC; {전체 window의 canvas를 얻습니다}



// BitmapRect영역의 DeskTopCanvas에서 BitmapRect영역의 Bitmap.Canvas로

// 복사받습니다

Bitmap.Canvas.CopyRect(BitmapRect, DeskTopCanvas, BitmapRect);



if SaveDialog1.Execute then

Bitmap.SaveToFile(SaveDialog1.FileName);

finally

ReleaseDC(GetDeskTopWindow, DeskTopDC);

DeskTopCanvas.Free;

Bitmap.Free;

end;

end;



end.









2. bitmap 인쇄하기









// uses절에 Printers 를 포함하세요



procedure TForm1.Button1Click(Sender: TObject);

var

ScaleX, ScaleY: Integer;

R: TRect;

begin

Printer.BeginDoc;

with Printer do

try

ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;

ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

R := Rect(0, 0, Image1.Picture.Width * ScaleX, Image1.Picture.Height * ScaleY);

Canvas.StretchDraw(R, Image1.Picture.Graphic);

finally

EndDoc;

end;

end;

조복기 wrote:

> 델사랑 wrote:

> > 한수 부탁합니다.

> > 델에서 폼을 캡쳐해서 프린터하는 방법좀 가르쳐주세요.

> > 내공이 부족해서 제가 생각한데로 잘 되지가 않습니다.

> > 많이 많이 부탁합니다.

>

> 안녕하세요..

> 제가 가지고있는 팁중에 화면을 bmp로 저장하는 방법과

> bmp를 출력하는 방법을 적어놓을께요..

> 참고로 김영대님이 예전에 답변했던 내용이군요..

> 좋은하루되세요..

>

>

>

> 1. [고급] 화면캡처하기

>

>

> > 델파이 3.0에서

> > 현재의 화면을 캡처하여 DB에 저장하려고 하는데

> > 방법을 모르겠내요

>

> 안녕하세요 김영대입니다.

> 화면(DeskTop의 full screen)을 Capture하는 예제를 올립니다.

> Capture하여 bmp 파일로 저장하는 예제입니다.

> 그리고 DB저장은 BLOB 필드를 다루는 내용이 많이 공개되어 있으니

> 생략합니다

> 그럼 좋은 결과 있기를 바랍니다.

> (아래의 BitmapRect의 영역좌표를 바꾸면 DeskTop의 특정 영역만

> Capture할 수 있습니다, full screen의 bmp 크기는 대략 938KB 입니다)

>

>

> unit Unit1;

>

> interface

>

> uses

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

> StdCtrls;

>

> type

> TForm1 = class(TForm)

> Button1: TButton;

> SaveDialog1: TSaveDialog;

> procedure Button1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

> {$R *.DFM}

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> DeskTopDC: HDc;

> DeskTopCanvas: TCanvas;

> BitmapRect: TRect;

> Bitmap: TBitmap;

> begin

> try

> Bitmap := TBitmap.Create; {BMP를 저장할 bitmap 생성}

> BitMap.Width := Screen.Width;

> BitMap.Height := Screen.Height;

> BitmapRect := Rect(0, 0, Screen.Width, Screen.Height); {full screen 영역}

>

> {전체 window의 device context(DC) 을 얻는다}

> DeskTopDC := GetWindowDC(GetDeskTopWindow);

> DeskTopCanvas := TCanvas.Create;

> DeskTopCanvas.Handle := DeskTopDC; {전체 window의 canvas를 얻습니다}

>

> // BitmapRect영역의 DeskTopCanvas에서 BitmapRect영역의 Bitmap.Canvas로

> // 복사받습니다

> Bitmap.Canvas.CopyRect(BitmapRect, DeskTopCanvas, BitmapRect);

>

> if SaveDialog1.Execute then

> Bitmap.SaveToFile(SaveDialog1.FileName);

> finally

> ReleaseDC(GetDeskTopWindow, DeskTopDC);

> DeskTopCanvas.Free;

> Bitmap.Free;

> end;

> end;

>

> end.

>

>

>

>

> 2. bitmap 인쇄하기

>

>

>

>

> // uses절에 Printers 를 포함하세요

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> ScaleX, ScaleY: Integer;

> R: TRect;

> begin

> Printer.BeginDoc;

> with Printer do

> try

> ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;

> ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

> R := Rect(0, 0, Image1.Picture.Width * ScaleX, Image1.Picture.Height * ScaleY);

> Canvas.StretchDraw(R, Image1.Picture.Graphic);

> finally

> EndDoc;

> end;

> end;

>







우선 이렇게 내공을 불어 넣어주셨어 감사합니다.

그런데 제가 이와 비슷한 방법으로 해 보았는데 인쇄 할때 모니터 크기에

따라 폼의 크기가 달라지는듯 합니다.

그리고 프린트도 해상도도 영~~~

그래서 다시 내공을 부탁합니다.

혹시 다른 방법이 없나요?