Q&A
- CreateOLEObject한 오브젝트의 이벤트를 받고 싶습니다.
팁에 나와있는 내용과 같이 CreateOLEObject를 통해서 오브젝트를 생성하였씁니다.
여기에서 IE의 Event를 받기위해서는 어떻게 해야 하는 지 알고 싶습니다.
WebBrowser 컴포넌트를 이용하는 방법도 있겠습니다만
특이한 환경이라 아래의 소스와 같이 하여야 합니다.
많은 조언 부탁드립니다.
--
Internet Explorer 실행하기
program iexplor;
uses
Windows, ComObj;
procedure OpenInternetExplorer( sURL : string );
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
WinHanlde : HWnd;
begin
if( VarIsEmpty( IE ) )then
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Navigate( sURL );
end else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if( 0 <> WinHanlde )then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHanlde );
end else
begin
// handle error ...
end;
end;
end;
begin
OpenInternetExplorer( 'microsoft.com' );
end.
여기에서 IE의 Event를 받기위해서는 어떻게 해야 하는 지 알고 싶습니다.
WebBrowser 컴포넌트를 이용하는 방법도 있겠습니다만
특이한 환경이라 아래의 소스와 같이 하여야 합니다.
많은 조언 부탁드립니다.
--
Internet Explorer 실행하기
program iexplor;
uses
Windows, ComObj;
procedure OpenInternetExplorer( sURL : string );
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
WinHanlde : HWnd;
begin
if( VarIsEmpty( IE ) )then
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Navigate( sURL );
end else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if( 0 <> WinHanlde )then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHanlde );
end else
begin
// handle error ...
end;
end;
end;
begin
OpenInternetExplorer( 'microsoft.com' );
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이경환
- •
- 2000.08.21 23:13
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.08.21 23:46이경환 wrote: > treeview의 항목을 선택하면 해당 항목에 대하여 hint(?) > ex)한국이라는 항목을 선...
-
- 전성훈
- 2000.08.21 23:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 31-7
- •
- 2000.08.22 00:10
- 1 COMMENTS
- /
- 0 LIKES
-
심동훈•2000.08.22 01:0831-7 wrote: > 안녕하세요. 비트맵파일을 프린트로 출력하는 과정을 하고 있는데요, TPrinter로 인쇄를 ...
-
- 양중모
- 2000.08.21 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 동형이
- 2000.08.21 22:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 한미르
- •
- 2000.08.22 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
장성호•2000.08.22 04:15한미르 wrote: > 고수님들..잘 모르겠네염.!! > 도와주세여!! > 회원관리 프로그램을 만들었습니다. > ...
-
윤•2000.08.22 04:16한미르 wrote: > 고수님들..잘 모르겠네염.!! > 도와주세여!! > 회원관리 프로그램을 만들었습니다. > ...
-
- jeyun
- •
- 2000.08.21 21:42
- 2 COMMENTS
- /
- 0 LIKES
-
나그네•2000.08.22 00:14jeyun wrote: > 저의 질문에 빠른 답변을 주시는 분들께 감사드리구요. > 오늘도 또 질문하나 하겠습니다...
-
jeyun•2000.08.22 00:22dbgrid에서 한 셀을 선택해서 sql로 select를 수행하면 dbgrid에 있던 데이타들이 없어져 보이지 않습니다....
-
- 심효찬
- 2000.08.21 21:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 장성호
- •
- 2000.08.21 21:11
- 3 COMMENTS
- /
- 0 LIKES
-
조복기•2000.08.22 03:52안녕하세요~ 변수선언을 통해서 넘겨도 되지만 바로 파라미터로 넘기시면 더 편하지않을까 생각되네여....
-
정지호•2000.08.21 22:13sql문에서 변수앞에 :를 붙여주심 될 것 같습니다. 아래처럼요... 도움이 되셨길 바랍니다 .... ..... ...
-
장성호•2000.08.22 01:11정지호 wrote: > sql문에서 변수앞에 :를 붙여주심 될 것 같습니다. > 아래처럼요... > 도움이 되셨길 ...
-
- 용가리
- •
- 2000.08.21 21:01
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2000.08.22 00:25용가리 wrote: > > > 삼성레이져5050G에서 인쇄가 안돼요!!!! > > 다른 프린터(삼성 마이젯900...
-
- 곽경남
- •
- 2000.08.21 20:24
- 1 COMMENTS
- /
- 0 LIKES
-
정지호•2000.08.21 22:16곽경남 wrote: > 안녕하세요? > 델파이 초보 곽경남입니다. > > 프로그램 중에 함수명 앞에 procedure...
-
- hnc
- •
- 2000.08.21 20:12
- 1 COMMENTS
- /
- 0 LIKES
-
윤•2000.08.21 20:18제가 아는바로는 PreView이전에 몇페이지인지 알 수 있는 함수로 알고 있습니다. 맞는지 정확하지는 않...
-
- 박찬희
- •
- 2000.08.22 04:18
- 3 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.08.22 04:18sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart ...
-
박찬희•2000.08.22 04:19붙여봤더니 이번엔 또 다른 에러가 뜨네여... 수정부분에서... open...부분... 어떻게 좀 해주세...
-
윤유섭•2000.08.22 04:19SQL.add('update chan'); sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: dep...
-
- 김성일
- 2000.08.21 19:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 송병철
- •
- 2000.08.21 19:43
- 2 COMMENTS
- /
- 0 LIKES
-
Windboy•2000.08.21 20:10원하시는 내용인지는 모르겠으나 옛 통합 게시판 Q&A의 5037을 보면 스트링그리드의 내용을 QuickReport...
-
윤유섭•2000.08.21 20:09QuickReport의 QRBang의 OnNeedData Event를 이용하면 StringGrid의 자료를 쉽게 출력할 수 있습니다. ...
-
- 이채성
- •
- 2000.08.21 19:34
- 1 COMMENTS
- /
- 0 LIKES
팁에 나와있는 내용과 같이 CreateOLEObject를 통해서 오브젝트를 생성하였씁니다. 여기에서 IE의 Event를 받기위해서는 어떻게 해야 하는 지 알고 싶습니다. WebBrowser 컴포넌트를 이용하는 방법도 있겠습니다만 특이한 환경이라 아래의...-
이채성•2000.08.22 23:46자답이네요.. 관련된 소스와 자료를 구하였습니다. 참고하시기 바랍니다. 그리고 소스는 자료실에 올려놓...
-
- 윤준호
- •
- 2000.08.21 19:31
- 3 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.08.22 18:42에고 이벤트 몇개가 빠졌네요 새로운 Form위에 Button 3개와 StringGrid 1개를 올려놓으세요 1번째 ...
-
윤유섭•2000.08.21 20:15어딘가서 본 자료인데 도움이 될련지... // StringGrid에 CheckBox와 RadioButton을 만들어 주는 부분. ...
-
윤준호•2000.08.22 06:16안되는데요. 다시 한번 갈쳐주셨으면 감사하겠구요, 그 원리도 설명해 주세여
-
- 왕초보
- •
- 2000.08.21 18:52
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.21 19:17왕초보 wrote: > Access DB를 ADO로 쓰고 있는데요. > Delet 후에도 DB Size가 줄어들지를 않습니다. > ...
-
- 사발우성
- •
- 2000.08.23 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
주경래•2000.08.23 18:34사발우성 wrote: > sql.Add('select 순번,제품명,고객명,검사수량,합격수량,불량수량,조처결과,검사결과,...
-
사발우성•2000.08.21 20:19주경래 wrote: > 사발우성 wrote: > > sql.Add('select 순번,제품명,고객명,검사수량,합격수량,불량수량,...
-
- 임호빈
- •
- 2000.08.22 04:38
- 1 COMMENTS
- /
- 0 LIKES
-
한근수•2000.08.22 04:38임호빈 wrote: > 안녕하세요 > 문의 사항은 오라클에서 디비를 생성한다음 델파이에있는 데이터 데스크탑...
관련된 소스와 자료를 구하였습니다. 참고하시기 바랍니다.
그리고 소스는 자료실에 올려놓습니다.
http://www.techvanguards.com
그리고 Automation에 대한 자료는
http://www.djpate.freeserve.co.uk/Automation.htm
에 많이 있구요
델파이에서 WEB BROWSER사용에 대한 홈페이지가
http://www.egroups.com/messages/delphi-webbrowser 입니다.
참조하시기 바랍니다.
이채성 wrote:
> 팁에 나와있는 내용과 같이 CreateOLEObject를 통해서 오브젝트를 생성하였씁니다.
> 여기에서 IE의 Event를 받기위해서는 어떻게 해야 하는 지 알고 싶습니다.
> WebBrowser 컴포넌트를 이용하는 방법도 있겠습니다만
> 특이한 환경이라 아래의 소스와 같이 하여야 합니다.
> 많은 조언 부탁드립니다.
> --
> Internet Explorer 실행하기
>
> program iexplor;
>
> uses
> Windows, ComObj;
>
>
> procedure OpenInternetExplorer( sURL : string );
> const
> csOLEObjName = 'InternetExplorer.Application';
> var
> IE : Variant;
> WinHanlde : HWnd;
> begin
> if( VarIsEmpty( IE ) )then
> begin
> IE := CreateOleObject( csOLEObjName );
> IE.Visible := true;
> IE.Navigate( sURL );
> end else
> begin
> WinHanlde := FindWIndow( 'IEFrame', nil );
> if( 0 <> WinHanlde )then
> begin
> IE.Navigate( sURL );
> SetForegroundWindow( WinHanlde );
> end else
> begin
> // handle error ...
> end;
> end;
> end;
>
> begin
> OpenInternetExplorer( 'microsoft.com' );
> end.
>