한국 델파이 개발자 모임 - 이미지 캡쳐에 대해서......

이미지 캡쳐에 대해서......

안녕하십니까?

먼저 유익하고 좋은 페이지 제공해주는데 대해서 감사합니다.

다름이 아니구요.

브러쉬 스타일을 bsclear 로 해서 투명창을 띄웠거든요.

그런데 그 투명창에 보이는 이미지를 캡쳐하기 위해서 getformimage 를 사용했더니 그냥 하얗게만 캡쳐가 되더라구요.

그래서 투명창이 뜨기전에 그 뒷배경을 캡쳐하고 싶은데 어떻게 해야 가능한지요.

궁금합니다.

아니면 다른 방법이 있는지요?

안녕히 계세요.

이 게시물을

4 COMMENTS

김태균 • 1999.06.15 20:04

음.... 조복기님이 말하신대로 바꾸어서 실행했는데요...

그래도 결과는 마찬가지네요.

몇개만 Insert했을 때는 이상없이 들어 가는데

전체를 인서트 할 때만 SQL문이 실행만되고 실제 데이타

인서트는 되지 않습니다.

참고로 말씀드리면 Table의 필드수는 37개이고 C/S환경에

ODBC를 사용해서 SQLServer 7.0과 붙여서 사용하고 있습니다.

소스는 다음과 같습니다..

Try

Dm1F.ResumeQr.Close;

Dm1f.ResumeQr.SQL.Clear;

Dm1F.resumeQr.sql.add(' insert into Dbo.ResumeTb values( :resdate'

+ ' ,:resnum, :resourcecom, :img, :Korname, :Chnname, :engname'

+ ' ,:socialnum, :birthday, :age, :sex, :nation, :PZip, :PAddr'

+ ' ,:NZip, :NAddr, :Maried, :Parant, :Holder, :HolderRel '

+ ' ,:Tel1, :Tel2, :Mobile, :Email, :Military, :Mkind'

+ ' ,:MIndate, :MOutdate, :NationHelp, :LEye, :REye, :Weight, :Height'

+ ' ,:Blood , :Religion, :Hobby, :Selfmemo)');

Dm1F.resumeQr.ParamByName('resdate').asstring := edit3.Text;

Dm1F.resumeQr.ParamByName('resnum').asstring := edit2.Text;

Dm1F.resumeQr.ParamByName('Resourcecom').asstring := edit4.Text;

Dm1F.resumeQr.ParamByName('Img').LoadFromFile(openpicturedialog1.FileName,ftgraphic);

Dm1F.resumeQr.ParamByName('korname').asstring := edit5.Text;

Dm1F.resumeQr.ParamByName('chnname').asstring := edit6.Text;

Dm1F.resumeQr.ParamByName('engname').asstring := edit7.Text;

Dm1F.resumeQr.ParamByName('socialnum').asstring := maskedit1.Text;

Dm1F.resumeQr.ParamByName('birthday').asstring := maskedit2.Text;

Dm1F.resumeQr.ParamByName('age').asstring := edit8.Text;

Dm1F.resumeQr.ParamByName('sex').asstring := combobox2.Text;

Dm1F.resumeQr.ParamByName('Nation').asstring := combobox1.text;

Dm1F.resumeQr.ParamByName('PZip').asstring := maskedit3.Text;

Dm1F.resumeQr.ParamByName('PAddr').asstring := edit9.Text;

Dm1F.resumeQr.ParamByName('NZip').asstring := maskedit4.Text;

Dm1F.resumeQr.ParamByName('NAddr').asstring := edit10.Text;

Dm1F.resumeQr.ParamByName('Maried').asstring := combobox3.Text;

Dm1F.resumeQr.ParamByName('Parant').asstring := Combobox4.Text;

Dm1F.resumeQr.ParamByName('Holder').asstring := edit11.Text;

Dm1F.resumeQr.ParamByName('HolderRel').asstring := edit12.Text;

Dm1F.resumeQr.ParamByName('Tel1').asstring := maskedit5.Text;

Dm1F.resumeQr.ParamByName('Tel2').asstring := maskedit6.Text;

Dm1F.resumeQr.ParamByName('mobile').asstring := maskedit7.Text;

Dm1F.resumeQr.ParamByName('Email').asstring := edit13.Text;

Dm1F.resumeQr.ParamByName('Military').asstring := combobox6.Text;

Dm1F.resumeQr.ParamByName('MKind').asstring := combobox8.Text;

Dm1F.resumeQr.ParamByName('MInDate').asstring := maskedit8.Text;

Dm1F.resumeQr.ParamByName('MOutdate').asstring := maskedit9.Text;

Dm1F.resumeQr.ParamByName('NationHelp').asstring := combobox5.Text;

Dm1F.resumeQr.ParamByName('LEye').asstring := edit14.Text;

Dm1F.resumeQr.ParamByName('REye').asstring := edit15.Text;

Dm1F.resumeQr.ParamByName('Weight').asstring := edit16.Text;

Dm1F.resumeQr.ParamByName('Height').asstring := edit17.Text;

Dm1F.resumeQr.ParamByName('Blood').asstring := combobox9.Text;

Dm1F.resumeQr.ParamByName('Religion').asstring := edit20.Text;

Dm1F.resumeQr.ParamByName('hobby').asstring := edit19.Text;

Dm1F.resumeQr.ParamByName('selfmemo').asmemo := memo1.text;

Dm1F.resumeQr.ExecSQL;

except

on EDBEngineError

do begin

showmessage('다시입력하세요...');

(..rollback 처리부분 ..)

Dm1F.ResumeQr.cancel;

end;

end;
- 0
- 0
- 삭제
- 수정
- 댓글
안치봉 • 1999.03.26 23:19

주선희 wrote:

> 안녕하십니까?

> 먼저 유익하고 좋은 페이지 제공해주는데 대해서 감사합니다.

> 다름이 아니구요.

> 브러쉬 스타일을 bsclear 로 해서 투명창을 띄웠거든요.

> 그런데 그 투명창에 보이는 이미지를 캡쳐하기 위해서 getformimage 를 사용했더니 그냥 하얗게만 캡쳐가 되더라구요.

> 그래서 투명창이 뜨기전에 그 뒷배경을 캡쳐하고 싶은데 어떻게 해야 가능한지요.

> 궁금합니다.

> 아니면 다른 방법이 있는지요?

> 안녕히 계세요.

안녕하세요. 답변드리겠습니다.

창이 뜨기전의 배경이라는것이 바탕화면을 말하는것인지요?. 그렇다면 GetDC(0) 를 사용하여 바탕화면의 DC 를 얻어올수가 있습니다. DC 를 얻어올수 있다는 말은 곧! 얼마든지 갭쳐할수 있다는 의미 이기도 합니다.
- 0
- 0
- 삭제
- 수정
- 댓글
조복기 • 1999.06.15 20:58

김태균 께서 말씀하시기를...

> 음.... 조복기님이 말하신대로 바꾸어서 실행했는데요...

> 그래도 결과는 마찬가지네요.

> 몇개만 Insert했을 때는 이상없이 들어 가는데

> 전체를 인서트 할 때만 SQL문이 실행만되고 실제 데이타

> 인서트는 되지 않습니다.

>

> 참고로 말씀드리면 Table의 필드수는 37개이고 C/S환경에

> ODBC를 사용해서 SQLServer 7.0과 붙여서 사용하고 있습니다.

> 소스는 다음과 같습니다..

>

> Try

> Dm1F.ResumeQr.Close;

> Dm1f.ResumeQr.SQL.Clear;

> Dm1F.resumeQr.sql.add(' insert into Dbo.ResumeTb values( :resdate'

> + ' ,:resnum, :resourcecom, :img, :Korname, :Chnname, :engname'

> + ' ,:socialnum, :birthday, :age, :sex, :nation, :PZip, :PAddr'

> + ' ,:NZip, :NAddr, :Maried, :Parant, :Holder, :HolderRel '

> + ' ,:Tel1, :Tel2, :Mobile, :Email, :Military, :Mkind'

> + ' ,:MIndate, :MOutdate, :NationHelp, :LEye, :REye, :Weight, :Height'

> + ' ,:Blood , :Religion, :Hobby, :Selfmemo)');

> Dm1F.resumeQr.ParamByName('resdate').asstring := edit3.Text;

> Dm1F.resumeQr.ParamByName('resnum').asstring := edit2.Text;

> Dm1F.resumeQr.ParamByName('Resourcecom').asstring := edit4.Text;

> Dm1F.resumeQr.ParamByName('Img').LoadFromFile(openpicturedialog1.FileName,ftgraphic);

> Dm1F.resumeQr.ParamByName('korname').asstring := edit5.Text;

> Dm1F.resumeQr.ParamByName('chnname').asstring := edit6.Text;

> Dm1F.resumeQr.ParamByName('engname').asstring := edit7.Text;

> Dm1F.resumeQr.ParamByName('socialnum').asstring := maskedit1.Text;

> Dm1F.resumeQr.ParamByName('birthday').asstring := maskedit2.Text;

> Dm1F.resumeQr.ParamByName('age').asstring := edit8.Text;

> Dm1F.resumeQr.ParamByName('sex').asstring := combobox2.Text;

> Dm1F.resumeQr.ParamByName('Nation').asstring := combobox1.text;

> Dm1F.resumeQr.ParamByName('PZip').asstring := maskedit3.Text;

> Dm1F.resumeQr.ParamByName('PAddr').asstring := edit9.Text;

> Dm1F.resumeQr.ParamByName('NZip').asstring := maskedit4.Text;

> Dm1F.resumeQr.ParamByName('NAddr').asstring := edit10.Text;

> Dm1F.resumeQr.ParamByName('Maried').asstring := combobox3.Text;

> Dm1F.resumeQr.ParamByName('Parant').asstring := Combobox4.Text;

> Dm1F.resumeQr.ParamByName('Holder').asstring := edit11.Text;

> Dm1F.resumeQr.ParamByName('HolderRel').asstring := edit12.Text;

> Dm1F.resumeQr.ParamByName('Tel1').asstring := maskedit5.Text;

> Dm1F.resumeQr.ParamByName('Tel2').asstring := maskedit6.Text;

> Dm1F.resumeQr.ParamByName('mobile').asstring := maskedit7.Text;

> Dm1F.resumeQr.ParamByName('Email').asstring := edit13.Text;

> Dm1F.resumeQr.ParamByName('Military').asstring := combobox6.Text;

> Dm1F.resumeQr.ParamByName('MKind').asstring := combobox8.Text;

> Dm1F.resumeQr.ParamByName('MInDate').asstring := maskedit8.Text;

> Dm1F.resumeQr.ParamByName('MOutdate').asstring := maskedit9.Text;

> Dm1F.resumeQr.ParamByName('NationHelp').asstring := combobox5.Text;

> Dm1F.resumeQr.ParamByName('LEye').asstring := edit14.Text;

> Dm1F.resumeQr.ParamByName('REye').asstring := edit15.Text;

> Dm1F.resumeQr.ParamByName('Weight').asstring := edit16.Text;

> Dm1F.resumeQr.ParamByName('Height').asstring := edit17.Text;

> Dm1F.resumeQr.ParamByName('Blood').asstring := combobox9.Text;

> Dm1F.resumeQr.ParamByName('Religion').asstring := edit20.Text;

> Dm1F.resumeQr.ParamByName('hobby').asstring := edit19.Text;

> Dm1F.resumeQr.ParamByName('selfmemo').asmemo := memo1.text;

> Dm1F.resumeQr.ExecSQL;

> except

> on EDBEngineError

> do begin

> showmessage('다시입력하세요...');

> (..rollback 처리부분 ..)

> Dm1F.ResumeQr.cancel;

> end;

> end;

>

안녕하세요..조복기입니다.

한가지 문제가 있었네요..예전에 저도 경험했던부분인데..

query.sql.add <= string형식이라 크기가 작습니다.

그래서 아마 위 문장 add시 짤릴거에요..

query.sql <= 이부분은 TStrings이므로 이걸 사용하면 될거에요

예)

var

ex_string : TStrings;

begin

ex_string := Tex_string.Create;

try

with ex_string do begin

Add('insert into..');

Add('...');

Add('...');

..

Add('마지막줄');

end;

with query do begin

sql.clear;

sql := ex_string;

execsql;

..

..

end;

end;

finally

ex_string.free;

end;

end;

헬프중 TStrings.Add를 참조하세요..

좋은하루..
- 0
- 0
- 삭제
- 수정
- 댓글
조복기 • 1999.06.15 21:11

TString를 사용하는방법은 동일하지만

전 그때 이방법을 안쓰고 sql문장을 memo.line에 넣어두고

sql := memo.line 이라고 썼거든요..(같은 내용이죠?)

add로 안되던문제를 이걸로 해결했던 기억이 남..

하여튼 필드가 많으면 문제가 많네요..

수정하기도 힘들고..

만약 안된다면 연락주세요..

p.s : 흠..짜장면을 시켰는데 넘 안오네요..배고프다.

아래 제가 질문한거(전각<->반각변환) 답변좀 부탁드려요..

좋은하루되시구요..
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 강미라
- •
- 1999.06.16 00:55
- 3 COMMENTS
- /
- 0 LIKES
날짜계산방법 좀 알려주세요.
- 구민오
  
  •
  
  1999.03.29 08:47
  
  원도우즈가 시작될때 실행되도록하려고 하거든요... 즉 시작프로그램으로 등록시키려고요... 어떻게 해야...
- 김우철
  
  •
  
  1999.06.16 02:23
  
  고수는 아니지만, 기냥 써볼랍니다. 날짜에 대한 자료를 처리할수 있는 클래스를 만들어서 윤년계산, 해당...
- 안치봉
  
  •
  
  1999.03.30 01:56
  
  구민오 wrote: > 원도우즈가 시작될때 실행되도록하려고 하거든요... > 즉 시작프로그램으로 등록시키려...
- 이호선
- •
- 1999.03.27 21:21
- 1 COMMENTS
- /
- 0 LIKES
ole/com의 세부 질문
- 안치봉
  
  •
  
  1999.03.30 01:59
  
  이호선 wrote: > 안녕하세요 > 다름이 아니라 대략 Active-X페이지에서 해야된다는 것은 알겠지만 > 단...
- 김진성
- •
- 1999.06.16 00:42
- 3 COMMENTS
- /
- 0 LIKES
SQL SERVER의 레코드수
- 김태균
  
  •
  
  1999.06.16 00:49
  
  김진성 께서 말씀하시기를... > ORACLE에서는 ROWNUM을 이용하여 존재하는 레코드에 대한 > 각각의 번호...
- 김진성
  
  •
  
  1999.06.16 06:22
  
  김태균 께서 말씀하시기를... > 김진성 께서 말씀하시기를... > > ORACLE에서는 ROWNUM을 이용하여 존재...
- 김태균
  
  •
  
  1999.06.16 18:23
  
  음..... 테이블을 만들때 포함시키는 것입니다. SQLServer에서 테이블을 생성할 때 순서가 다음과 같...
- 주선희
- •
- 1999.03.26 23:55
- 1 COMMENTS
- /
- 0 LIKES
이미지 캡쳐에 대한 보충질문...
- 안치봉
  
  •
  
  1999.03.27 01:24
  
  주선희 wrote: > 답변감사드립니다. > 그런데 보충질문 좀 할께요. > 뒷배경은 배경화면 뿐만이 아니라 ...
- 최기훈
- •
- 1999.06.16 00:31
- 1 COMMENTS
- /
- 0 LIKES
Delphi에서 UDP Socket을 사용하려면?
- 최기훈
  
  •
  
  1999.06.16 03:05
  
  최기훈 께서 말씀하시기를... > 안녕하세요. 염치를 불구하고 이렇게 또 메일을 올립니다. > Delphi에서 ...
- 주선희
- •
- 1999.03.26 23:55
- 1 COMMENTS
- /
- 0 LIKES
이미지 캡쳐에 대한 보충질문...
- 안치봉
  
  •
  
  1999.03.27 01:24
  
  주선희 wrote: > 답변감사드립니다. > 그런데 보충질문 좀 할께요. > 뒷배경은 배경화면 뿐만이 아니라 ...
- 장일
- 1999.06.15 22:58
- 0 COMMENTS
- /
- 0 LIKES
에러발생-도와주세요.
- 이호선
- •
- 1999.03.26 22:53
- 1 COMMENTS
- /
- 0 LIKES
OLE,COM의 개체에대하여...
- 안치봉
  
  •
  
  1999.03.26 23:25
  
  이호선 wrote: > 안녕하세요. > 매번 좋은 답변을 주셔서 감사합니다. > 다름이 아니라 내가 제작한 프...
- 이주흥
- •
- 1999.06.15 22:55
- 1 COMMENTS
- /
- 0 LIKES
TrayIcon 에서의 문젭니다...
- 최석기
  
  •
  
  1999.06.16 01:27
  
  > TrayIcon에서요.. 팝업메뉴를 만드는 방법좀 알려주세요.. > 그러니까 Icon에서 오른쪽 마우스클릭 했을...
- 주선희
- •
- 1999.03.26 21:17
- 1 COMMENTS
- /
- 0 LIKES
이미지 캡쳐에 대해서......
- 안치봉
  
  •
  
  1999.03.26 23:19
  
  주선희 wrote: > 안녕하십니까? > 먼저 유익하고 좋은 페이지 제공해주는데 대해서 감사합니다. > 다름...
- 디제이
- •
- 1999.06.15 20:59
- 1 COMMENTS
- /
- 0 LIKES
On Error goto문?
- 안치봉
  
  •
  
  1999.06.15 21:07
  
  디제이 께서 말씀하시기를... > > 비베에서는 On Error goto문이 있습니다만 > 델파이에서는 어떤식으...
- 박종성
- •
- 1999.06.15 20:50
- 2 COMMENTS
- /
- 0 LIKES
마지막 60개의 레코드(파라독스)?
- 이호선
  
  •
  
  1999.03.26 22:53
  
  안녕하세요. 매번 좋은 답변을 주셔서 감사합니다. 다름이 아니라 내가 제작한 프로그램을 WORD나 파워포...
- 안치봉
  
  •
  
  1999.03.26 23:25
  
  이호선 wrote: > 안녕하세요. > 매번 좋은 답변을 주셔서 감사합니다. > 다름이 아니라 내가 제작한 프...
- 주선희
- •
- 1999.03.26 21:17
- 4 COMMENTS
- /
- 0 LIKES
이미지 캡쳐에 대해서......

안녕하십니까? 먼저 유익하고 좋은 페이지 제공해주는데 대해서 감사합니다. 다름이 아니구요. 브러쉬 스타일을 bsclear 로 해서 투명창을 띄웠거든요. 그런데 그 투명창에 보이는 이미지를 캡쳐하기 위해서 getformimage 를 사용했더니 ...
- 김태균
  
  •
  
  1999.06.15 20:04
  
  음.... 조복기님이 말하신대로 바꾸어서 실행했는데요... 그래도 결과는 마찬가지네요. 몇개만 Insert했...
- 안치봉
  
  •
  
  1999.03.26 23:19
  
  주선희 wrote: > 안녕하십니까? > 먼저 유익하고 좋은 페이지 제공해주는데 대해서 감사합니다. > 다름...
- 조복기
  
  •
  
  1999.06.15 20:58
  
  김태균 께서 말씀하시기를... > 음.... 조복기님이 말하신대로 바꾸어서 실행했는데요... > 그래도 결과...
- 조복기
  
  •
  
  1999.06.15 21:11
  
  TString를 사용하는방법은 동일하지만 전 그때 이방법을 안쓰고 sql문장을 memo.line에 넣어두고 sql := ...
- 문보석
- •
- 1999.03.26 03:53
- 3 COMMENTS
- /
- 0 LIKES
소켓 컴포넌트 사용해서 이미지와 마우스 정보 보내기...
- 이미옥
  
  •
  
  1999.06.15 19:55
  
  간단한 ActiveForm 예제(StringGrid에 값을 뿌려주는 예제)를 만들어서 익스플로러에서 실행하다가 문제가 ...
- 안치봉
  
  •
  
  1999.03.26 20:05
  
  문보석 wrote: > 안녕하세요... > 얼마전 소켓 컴포넌트를 공부해서 약간이나마 뭔지는 알았습니다... >...
- 안치봉
  
  •
  
  1999.06.15 21:05
  
  이미옥 께서 말씀하시기를... > 간단한 ActiveForm 예제(StringGrid에 값을 뿌려주는 예제)를 만들어서 익...
- 문보석
- •
- 1999.03.26 03:53
- 1 COMMENTS
- /
- 0 LIKES
소켓 컴포넌트 사용해서 이미지와 마우스 정보 보내기...
- 안치봉
  
  •
  
  1999.03.26 20:05
  
  문보석 wrote: > 안녕하세요... > 얼마전 소켓 컴포넌트를 공부해서 약간이나마 뭔지는 알았습니다... >...
- heart
- •
- 1999.06.15 19:02
- 3 COMMENTS
- /
- 0 LIKES
Font table로부터 문자를 표시하는 방법???
- 안치봉
  
  •
  
  1999.06.15 19:05
  
  heart 께서 말씀하시기를... > > > 굴림체에서 0021에 해당하는 문자는 '!'인데 0021이란 입력값으...
- heart
  
  •
  
  1999.06.15 23:53
  
  안치봉 께서 말씀하시기를... > heart 께서 말씀하시기를... > > > > > > 굴림체에서 0021에 해당...
- 안치봉
  
  •
  
  1999.06.16 00:44
  
  heart 께서 말씀하시기를... > 안치봉 께서 말씀하시기를... > > heart 께서 말씀하시기를... > > > >...
- 정태열
- •
- 1999.03.25 21:33
- 1 COMMENTS
- /
- 0 LIKES
기본프린터의 설정을... 한가지 더
- 안치봉
  
  •
  
  1999.03.25 23:35
  
  정태열 wrote: > 안녕하세요. > 안치봉님의 답변 정말 감사합니다. > 제가 글의 표현력이 부족하여 정확...
- 최기훈
- •
- 1999.06.15 18:37
- 1 COMMENTS
- /
- 0 LIKES
TLable을 동적으로 생성하려고 합니다?
- 안치봉
  
  •
  
  1999.06.15 19:03
  
  procedure Tfrm.ButtonClick(Sender: TObject); var paramName: array[0..20] of TLabel; begin ...
- 정태열
- •
- 1999.03.25 21:33
- 1 COMMENTS
- /
- 0 LIKES
기본프린터의 설정을... 한가지 더
- 안치봉
  
  •
  
  1999.03.25 23:35
  
  정태열 wrote: > 안녕하세요. > 안치봉님의 답변 정말 감사합니다. > 제가 글의 표현력이 부족하여 정확...
- 북해
- •
- 1999.06.15 17:57
- 1 COMMENTS
- /
- 0 LIKES
동적생성한 버튼을...
- 안치봉
  
  •
  
  1999.06.15 19:02
  
  북해 께서 말씀하시기를... > 안녕하세요. 동적생성한 버튼 객체를 없애려 하는데요 어떻게 하면 되는지요...

주선희
1999/03/26 21:17
Views311

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

1359 1360 1361 1362 1363 1364 1365 1366 1367 1368

Last Page→