Q&A
- 어느 특정부분을 캡쳐받아 저장하는법-매우급함
안녕하세요...
다시 찾게 되었습니다.
어느 특정 부분을 캡쳐받아 저장하려고 합니다. (폼의 위치는 언제든지 바뀔수 있음.)
제가 작업한 소스는 다음과 같습니다.
var
Source: TComponent;
DeskTopDC: Hwnd;
image4Canvas: TCanvas;
BitmapRect: TRect;
Bitmap: TBitmap;
x,y,z,a : integer;
begin
if (check = 1) and (image1.Visible = true) then begin
x := albumform3.width - (albumform3.width - (image1.Width + image1.Left));//left
y := AlbumForm3.Height - (albumform3.height -(image1.top + image1.Height));//top
z := image1.left;
a := image1.top;
end
else begin
x := AlbumForm3.width - (albumform3.width - (image4.Width + image4.Left));//left
y := AlbumForm3.Height - (albumform3.height -(image4.top + image4.Height));//top
z := image4.left;
a := image4.top;
end;
try
Bitmap := TBitmap.Create; {BMP를 저장할 bitmap 생성}
BitMap.Width := Screen.Width;
BitMap.Height := Screen.Height;
// BitmapRect := Rect(100, 0, image4.Width, image4.Height); {full screen 영역}
BitmapRect := Rect(x,y,z,a);
{전체 window의 device context(DC) 을 얻는다}
image4Canvas := TCanvas.Create;
image4Canvas.Handle := GetDeviceContext(desktopdc);//GetDeviceContext(DeskTopDC);
// BitmapRect영역의 DeskTopCanvas에서 BitmapRect영역의 Bitmap.Canvas로
// 복사받습니다
Bitmap.Canvas.CopyRect(BitmapRect, image4Canvas, BitmapRect);
bitmap.SaveToFile('c:졸업작품user'+'이미지'+inttostr(filelistbox3.Items.Count+1)+'.bmp');
showmessage('저장되었습니다.');
check := 0;
AlbumForm2.showmodal;
finally
ReleaseDC(GetDeskTopWindow, DeskTopDC);
image4Canvas.Free;
Bitmap.Free;
end;
다시 찾게 되었습니다.
어느 특정 부분을 캡쳐받아 저장하려고 합니다. (폼의 위치는 언제든지 바뀔수 있음.)
제가 작업한 소스는 다음과 같습니다.
var
Source: TComponent;
DeskTopDC: Hwnd;
image4Canvas: TCanvas;
BitmapRect: TRect;
Bitmap: TBitmap;
x,y,z,a : integer;
begin
if (check = 1) and (image1.Visible = true) then begin
x := albumform3.width - (albumform3.width - (image1.Width + image1.Left));//left
y := AlbumForm3.Height - (albumform3.height -(image1.top + image1.Height));//top
z := image1.left;
a := image1.top;
end
else begin
x := AlbumForm3.width - (albumform3.width - (image4.Width + image4.Left));//left
y := AlbumForm3.Height - (albumform3.height -(image4.top + image4.Height));//top
z := image4.left;
a := image4.top;
end;
try
Bitmap := TBitmap.Create; {BMP를 저장할 bitmap 생성}
BitMap.Width := Screen.Width;
BitMap.Height := Screen.Height;
// BitmapRect := Rect(100, 0, image4.Width, image4.Height); {full screen 영역}
BitmapRect := Rect(x,y,z,a);
{전체 window의 device context(DC) 을 얻는다}
image4Canvas := TCanvas.Create;
image4Canvas.Handle := GetDeviceContext(desktopdc);//GetDeviceContext(DeskTopDC);
// BitmapRect영역의 DeskTopCanvas에서 BitmapRect영역의 Bitmap.Canvas로
// 복사받습니다
Bitmap.Canvas.CopyRect(BitmapRect, image4Canvas, BitmapRect);
bitmap.SaveToFile('c:졸업작품user'+'이미지'+inttostr(filelistbox3.Items.Count+1)+'.bmp');
showmessage('저장되었습니다.');
check := 0;
AlbumForm2.showmodal;
finally
ReleaseDC(GetDeskTopWindow, DeskTopDC);
image4Canvas.Free;
Bitmap.Free;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 열심이
- 1999.10.26 02:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민홍
- 1999.10.26 02:28
- 0 COMMENTS
- /
- 0 LIKES
-
- hopeship
- •
- 1999.10.26 01:21
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.10.26 01:32hopeship wrote: > 안녕하십니까 > 대구에 사는 희망선 김성률입니다. > 제가 질문할 사항은 다름이 아...
-
- 모름이
- •
- 1999.10.25 22:22
- 2 COMMENTS
- /
- 0 LIKES
-
류성호•1999.10.26 00:12다른 통신에서 받았는데 누가 썼는지는 모르겠습니다. 먼저 파라독스를 공유하기 위해서는 BDE Config...
-
유도삼•1999.10.25 22:39모름이 wrote: > 랜으로 두 대의 컴을 연결해서 사용하고자 합니다. > data는 한 대의 컴에만 있고, 다른...
-
- 김영진
- •
- 1999.10.25 22:00
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.26 00:57김영진 wrote: > 혹시 StringGrid나 DrawGrid 에서 특정한 셀의 색깔을 변경할 수 > 있습니까? > 있을 ...
-
- 최은석
- 1999.10.25 20:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 화랑
- •
- 1999.10.25 19:57
- 3 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.10.25 20:31그냥 String에 집어 넣으면 되지 않나요...??? 음.. 전 그렇게 알고 있는데요.. 흐.. 화랑 wrote: > ...
-
화랑•1999.10.25 22:12WideString은 2Byte이고요... String은 1바이트인데... 어떻게 변환이 돼죠? 그리고 그냥 집어넣다...
-
이정욱•1999.10.25 23:04네. 그냥 아래처럼 하시면 됩니다. 화랑 wrote: > WideString은 2Byte이고요... > > String은 1바이...
-
- 신재식
- •
- 1999.10.25 19:32
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.25 21:17신재식 wrote: > 안녕들하세요.... > 오랜만에 질문을 던짐니다.... 시험 기간중에 계속적으로 프로젝트...
-
- 문영미
- •
- 1999.10.25 16:36
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.25 21:22문영미 wrote: > 안녕하세요! 꾸우뻑. > > 프로그래밍을 하다 보니 잘 되지 않는 것이 있어서 글을 올...
-
- 고혜정
- •
- 1999.10.25 15:53
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요... 다시 찾게 되었습니다. 어느 특정 부분을 캡쳐받아 저장하려고 합니다. (폼의 위치는 언제든지 바뀔수 있음.) 제가 작업한 소스는 다음과 같습니다. var Source: TComponent; DeskTopDC: Hwnd; image4Canvas: TCanvas; Bitm...-
이정욱•1999.10.25 19:53참고하세요. var DesktopHWnd : HWnd; DesktopDC : HDC; TempBitmap : TBitmap; begin ...
-
- 장일형
- •
- 1999.10.25 08:59
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.25 21:20장일형 wrote: > TreeView를 탐색기에 있는 것과 똑같이 만들고 싶은데 잘 않되네요. > 혹시 자료있는 곳...
-
- 박근영
- •
- 1999.10.25 08:14
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.10.25 20:35아마도 그런것은 구하기 어려울것입니다. 일정한 금액을 지불하지 않고는 말이죠... 일단 정보를 하나 드...
-
- 황현동
- 1999.10.25 07:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 고혜정
- •
- 1999.10.25 08:48
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.10.25 20:29아래처럼 하면 이미지가 어두워 집니다. 뒤에 0.5라는 숫자를 바꾸면 RGB값을 바꿀 수 있으므로 밝기조정...
-
- 문보석
- •
- 1999.10.25 02:28
- 3 COMMENTS
- /
- 0 LIKES
-
고혜정•1999.10.25 05:18문보석 wrote: > 안녕하세요... > > 제목대로 bmp gif 변환에 대한 알고리즘을 자세히 알고 싶습니다....
-
문보석•1999.10.26 06:11안녕하세요... 답변에 감사드립니다... 근데 제 의도가 잘못전달됐나보네요... 컨버팅하는 예제소스를 ...
-
박성훈•1999.12.03 20:27문보석 wrote: > 안녕하세요... 답변에 감사드립니다... > > 근데 제 의도가 잘못전달됐나보네요... 컨...
-
- 나원용
- 1999.10.25 01:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 고혜정
- •
- 1999.10.24 21:44
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.10.25 06:57아래처럼 원하는 콘트롤의 핸들에게 메세지를 던져주세요. PostMessage( Button1.Handle, WM_SYSCOMMAND...
-
- 김선우
- •
- 1999.10.24 13:17
- 1 COMMENTS
- /
- 0 LIKES
-
박지훈.임프•1999.10.24 18:51김선우 wrote: > 안녕하세요.. > > 지금이나 앞으로나 웹은 DB가 더욱더 중요해 지고있습니다. > > ...
-
- 방기남
- •
- 1999.10.24 12:18
- 1 COMMENTS
- /
- 0 LIKES
-
박지훈.임프•1999.10.24 18:56방기남 wrote: > 안녕하세요. > > 일반적으로 이미지 파일은 리소스를 이용하여 컴파일하게 되는데, 이...
-
- Choi
- •
- 1999.10.24 04:09
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.10.25 06:58델파이3.0은 델파이 3.01로 새로운 설치본이 있습니다. 그리고 3.02가 3.01을 업그레이드 하는 패치입니다...
var
DesktopHWnd : HWnd;
DesktopDC : HDC;
TempBitmap : TBitmap;
begin
DesktopHWnd := GetDesktopWindow;
DesktopDC := GetDC(DesktopHWnd);
TempBitmap := TBitmap.Create;
TempBitmap.Width := 500;
TempBitmap.Height := 300;
BitBlt (
TempBitmap.Canvas.Handle,
0,
0,
TempBitmap.Width,
TempBitmap.Height,
DesktopDC,
10,
50,
SRCCOPY
); //일부분을 가져옵니다.
TempBitmap.SaveToFile('c:졸업작품user'+'이미지x.bmp');
ReleaseDC(DesktopHwnd, DesktopDC);
TempBitmap.Free;
end;
음.. 온라인상에서 작성한 코드라 정확할지는 모르지만 위와 같습니다.
CopyRect보다는 BitBlt가 더 빠른게 동작하죠.
도움이 되셨기를...
고혜정 wrote:
> 안녕하세요...
> 다시 찾게 되었습니다.
> 어느 특정 부분을 캡쳐받아 저장하려고 합니다. (폼의 위치는 언제든지 바뀔수 있음.)
> 제가 작업한 소스는 다음과 같습니다.
>
> var
> Source: TComponent;
> DeskTopDC: Hwnd;
> image4Canvas: TCanvas;
> BitmapRect: TRect;
> Bitmap: TBitmap;
> x,y,z,a : integer;
> begin
> if (check = 1) and (image1.Visible = true) then begin
> x := albumform3.width - (albumform3.width - (image1.Width + image1.Left));//left
> y := AlbumForm3.Height - (albumform3.height -(image1.top + image1.Height));//top
> z := image1.left;
> a := image1.top;
>
> end
> else begin
> x := AlbumForm3.width - (albumform3.width - (image4.Width + image4.Left));//left
> y := AlbumForm3.Height - (albumform3.height -(image4.top + image4.Height));//top
> z := image4.left;
> a := image4.top;
> end;
>
> try
> Bitmap := TBitmap.Create; {BMP를 저장할 bitmap 생성}
> BitMap.Width := Screen.Width;
> BitMap.Height := Screen.Height;
> // BitmapRect := Rect(100, 0, image4.Width, image4.Height); {full screen 영역}
>
>
> BitmapRect := Rect(x,y,z,a);
>
>
> {전체 window의 device context(DC) 을 얻는다}
>
>
> image4Canvas := TCanvas.Create;
> image4Canvas.Handle := GetDeviceContext(desktopdc);//GetDeviceContext(DeskTopDC);
>
>
> // BitmapRect영역의 DeskTopCanvas에서 BitmapRect영역의 Bitmap.Canvas로
> // 복사받습니다
> Bitmap.Canvas.CopyRect(BitmapRect, image4Canvas, BitmapRect);
> bitmap.SaveToFile('c:졸업작품user'+'이미지'+inttostr(filelistbox3.Items.Count+1)+'.bmp');
> showmessage('저장되었습니다.');
> check := 0;
> AlbumForm2.showmodal;
> finally
> ReleaseDC(GetDeskTopWindow, DeskTopDC);
> image4Canvas.Free;
> Bitmap.Free;
> end;
>