Q&A
HOME
Tips & Tech
Q&A
Discuss
Download
자유게시판
홍보 / 광고
구인 / 구직
LOGIN
회원가입
ActiveX 를 이용해서 현재 페이지 주소 얻기...
ActiveX 를 이용해서 현재 익스플로러가 열고 있는
페이지의 주소를 추출할 수 있을까요?
어찌하면 좋을런지... 잘 모르겠네요...
부탁드립니다.
3
COMMENTS
칼짱
•
2003.02.11 05:49
안녕하세요. 칼짱입니다. ^^;
생각나는 대로...
간략하게 설명드릴께요.
타입라이브러리 아시죠? 인터페이스에 프로퍼티를 추가하면
get과 set이 생깁니다.
해당프로퍼티 이름을 window라고 써넣습니다.하나바꾸면 자동^^
자료형은 IUnknown* 되어있는걸로 지정합니다.
저장!~
그다음 ActiveX폼.pas를 여시면 get과 set이 추가되어 있습니다.
Uses에 MSHTML을 추가하시고
private에
FWindow: IHTMLWindow2;
추가하시고
Get_window메소드 구현부에
Result := FWindow;
그리고 Set_window메소드 구현부에
FWindow := Value as IHTMLWindow2;
그다음
버튼하나 만들고
메소드 구현에
FWindow.location.toString 값을 가져오시면 됩니다.
혹시나 싶어서..^^
지금 샘플테스트 해봤습니다.
참
Html파일에
<OBJECT id=test
오브젝트 ID부여하시고
스크립트문 추가하시고요^^
<Script>
test.window = window;
</Script>
window가 브라우저를 뜻합니다.
좋은 결과 얻으세요.
그럼~
이상 칼짱이었습니다.
0
0
삭제
수정
댓글
나옹이
•
2003.02.11 07:58
아항..... 이런 방법이...
감사합니다.
그런데요....
ActiveX 폼에 Lable 컴포를 하나 올려놓고...
그 위에 현재 페이지의 주소를 표시 하려면... 어찌하면 될까요?
0
0
삭제
수정
댓글
칼짱
•
2003.02.11 19:00
메소드구현에
Label1.Caption := FWindow.location.toString;
즐겁게 코딩하세요!~
^^;
0
0
삭제
수정
댓글
(NOTICE) You must be
logged in
to comment on this post.
김민수
•
2003.02.12 03:07
1
COMMENTS
/
0
LIKES
dll을 만들었는데...
gokick
•
2003.02.12 19:38
동적으로 만드시지요 특정프로시저~~~ var vquery: TQuery; begin vquery ...
이상협
2003.02.12 02:43
0
COMMENTS
/
0
LIKES
Header File 에 대해서
김용호
•
2003.02.12 02:14
3
COMMENTS
/
0
LIKES
TStream -> OleVariant
이희진
•
2003.02.12 03:54
procedure TDOWNLOAD.StreamToVariant(Stream: TStream; var v: olevariant); var p : point...
최용일
•
2003.02.12 02:25
안녕하세요. 최용일입니다. VarArrayLock쓰시면 될건데요... 이 함수가 리턴하는 값이 데이터가 있는...
김용호
•
2003.02.12 08:56
.
김영남
•
2003.02.12 01:39
2
COMMENTS
/
0
LIKES
QuickReport의 Preview시 "Cannot Create File!" 오류.
KDDG_ZZOM
•
2003.02.12 01:43
혹시 그림파일을 출력하나요? 그림파일을 출력할때 원본그림의 해상도를 낮게 해서 해보세요.... 저...
김영남
•
2003.02.12 02:25
답변 감사합니다...^^ 이미지는 없습니다... 단지 2장 이상 출력이 되는 경우가 그런듯 한데... 1...
김보영
•
2003.02.12 01:08
1
COMMENTS
/
0
LIKES
NMSMTP 를 써서 메일보낼때...
김동환
•
2003.02.12 23:33
음...일단 SubType 프로퍼티를 "mtHtml" 로 선언하셔야 하구요... NMSTMP.PostMessage.Body부분을 HTM...
초보에요.
•
2003.02.12 00:39
3
COMMENTS
/
0
LIKES
문자열을 자르고 싶습니다..
초보에요.
•
2003.02.12 03:45
냉무...
박장용
•
2003.02.12 01:54
방법1> widestring타입으로 복사하여 Copy함수를 쓰시는 방법 여기서 s가 '하나두울셋'일때 결과는 '하...
KDDG_ZZOM
•
2003.02.12 00:53
예전에 김영대씨홈피에서 뽀리친것같네요...^^ 여기 팁란이나 예전 질답란을 검색해도 나올것같은데... ...
강석찬
2003.02.12 00:13
0
COMMENTS
/
0
LIKES
scExcelExport를 사용하여l Export하는 부분에서 필드명이 없어지는 현상???
하용수
•
2003.02.11 21:35
1
COMMENTS
/
0
LIKES
좌표 값을 그룹별로 구분할려구 하는데요. 그 방법을 모르겠네요...
구창민
•
2003.02.11 22:26
구창민입니다. 항상 'T.F.. ' 요 항목이 같이 존재한다는 전제하에 아래 처럼 하면 될거 같네여, ...
곽상호
•
2003.02.11 21:02
1
COMMENTS
/
0
LIKES
이미지가 자꾸 깨져요 ㅠㅠ
gokick
•
2003.02.12 19:30
BDE에서 Oracle Drivers에 보면 BLOB에 관련된 설정이 나옵니다.. 그부분을 변경하시면 좀더 커다란 이...
김인수
•
2003.02.11 19:40
1
COMMENTS
/
0
LIKES
Qreport 에러발생 - XP 환경
구니
•
2003.02.12 02:23
혹시 ADO를 사용하신것 아닙니까? 혹 ADO를 사용하셨다면 패치를 찾아서 해보셔요.. ADO patch.... ...
김상수
•
2003.02.11 18:32
7
COMMENTS
/
0
LIKES
RichEdit에서 끝에 CRLF제거 방법????
김상수
•
2003.02.12 01:17
KDDG_ZZOM
•
2003.02.11 20:46
우선 이방법으로 치환 해보시고 원하는 후속작업을 하시면 될것같네요... StringReplace(내용,#13#10,' ...
최용일
•
2003.02.11 18:56
안녕하세요. 최용일입니다. Copy함수를 써보세요... RichEdit1.Text := Copy(RichEdit1....
김상수
•
2003.02.11 22:07
제가 원하는 그런게 나타나지 않네요 아래에도 설명했지만 메세지는 '2003-02-11 12:17:00 설...
KDDG_ZZOM
•
2003.02.11 22:42
리치에디트에 인서트한후 아래메시지를 던지면 리치에디트이 마지막으로 가거든요... SendMessage(Rich...
김상수
•
2003.02.11 19:36
음.. 답변 감사합니다. 그런데요 소스가 ls_set_msg := ls_show_time +' '+'설...
구창민
•
2003.02.11 22:56
다추가하고난뒤 이렇게 하심 되겟네여.. for i := RichEdit.Lines.Count-1 downto 0 do &n...
박희경
•
2003.02.11 06:57
1
COMMENTS
/
0
LIKES
레코드삭제시 한개가 꼭남습니다.
midaskpp
•
2003.02.11 16:42
// 이렇게 해보세요... mainform.table1.open; mainform.table1.first; &nbs...
정성헌
2003.02.11 06:38
0
COMMENTS
/
0
LIKES
Invalid floating point operation 에 대해..
이재훈
•
2003.02.11 05:46
2
COMMENTS
/
0
LIKES
variant형은 참조형으로 넘길수 없나요?(소스있습니다.)
최용일
•
2003.02.11 19:06
안녕하세요. 최용일입니다. Variant형도 참조형으로 넘길수 있습니다. Variant형과 Integ...
이재훈
•
2003.02.11 23:42
.
장미경
•
2003.02.11 05:15
•
2
COMMENTS
/
0
LIKES
델파이 프로그램은 없는데, 소스를 보고 싶습니다.
델파이탐크루즈
•
2003.02.11 05:33
.pas 파일을 볼려고 하시는것 같은데... 메모장 열어놓으시고 화일 열기하셔서 *.pas 하신후 보시면...
장미경
•
2003.02.11 05:44
그렇군요 ^^; 괜히 고민했네요, 감사드립니다..
나옹이
•
2003.02.11 03:49
3
COMMENTS
/
0
LIKES
ActiveX 를 이용해서 현재 페이지 주소 얻기...
ActiveX 를 이용해서 현재 익스플로러가 열고 있는 페이지의 주소를 추출할 수 있을까요? 어찌하면 좋을런지... 잘 모르겠네요... 부탁드립니다.
칼짱
•
2003.02.11 05:49
안녕하세요. 칼짱입니다. ^^; 생각나는 대로... 간략하게 설명드릴께요. 타입라이브러리 아시죠? ...
나옹이
•
2003.02.11 07:58
아항..... 이런 방법이... 감사합니다. 그런데요.... ActiveX 폼에 Lable 컴포를 하나 올려놓고.....
칼짱
•
2003.02.11 19:00
메소드구현에 Label1.Caption := FWindow.location.toString; 즐겁게 코딩하세요!~ ^^;
파니
•
2003.02.11 01:22
1
COMMENTS
/
0
LIKES
하나의 DLL을 MDI, SDI 모달다이얼로그에서 사용중 문제점
최용일
•
2003.02.11 10:21
안녕하세요. 최용일입니다. OnShow이벤트에서 메세지를 보내보세요... PostMessage(FormHandle, WM_C...
오세은
•
2003.02.11 01:15
1
COMMENTS
/
0
LIKES
ShellExecute 로 form 내에 인터넷 익스플로러를 띄웠는데여...
최용일
•
2003.02.11 10:23
안녕하세요. 최용일입니다. 굳이 익스플로러를 폼에 넣으려고 하시지 마시고, 델파이에 있는 TWebBrowse...
이뿌이
•
2003.02.11 00:33
1
COMMENTS
/
0
LIKES
dbgrid에 대한 상세 질문입니다.
파니
•
2003.02.11 03:01
미흡하지만 도움이 되었으면 좋겠네요...^* DBGrid + TQuery + TDataSource 일 경우. TDataSou...
올랭이
2003.02.10 23:44
0
COMMENTS
/
0
LIKES
cannot load drive 이케 나오네요
나옹이
2003/02/11 03:49
Views
329
Likes
0
Comments
3
Reports
0
Tag List
수정
삭제
목록으로
한델 로그인 하기
로그인 상태 유지
아직 회원이 아니세요? 가입하세요!
암호를 잊어버리셨나요?
생각나는 대로...
간략하게 설명드릴께요.
타입라이브러리 아시죠? 인터페이스에 프로퍼티를 추가하면
get과 set이 생깁니다.
해당프로퍼티 이름을 window라고 써넣습니다.하나바꾸면 자동^^
자료형은 IUnknown* 되어있는걸로 지정합니다.
저장!~
그다음 ActiveX폼.pas를 여시면 get과 set이 추가되어 있습니다.
Uses에 MSHTML을 추가하시고
private에
FWindow: IHTMLWindow2;
추가하시고
Get_window메소드 구현부에
Result := FWindow;
그리고 Set_window메소드 구현부에
FWindow := Value as IHTMLWindow2;
그다음
버튼하나 만들고
메소드 구현에
FWindow.location.toString 값을 가져오시면 됩니다.
혹시나 싶어서..^^
지금 샘플테스트 해봤습니다.
참
Html파일에
<OBJECT id=test
오브젝트 ID부여하시고
스크립트문 추가하시고요^^
<Script>
test.window = window;
</Script>
window가 브라우저를 뜻합니다.
좋은 결과 얻으세요.
그럼~
이상 칼짱이었습니다.