평소에 실시간 공지사항이나

 

웹에있는 해당 텍스트 문서가 1이면 메시지 박스를 띄우는 그런소스를 구현하기위해선

 

inet1 같은 폼로드시 불편하게 선언코드를 입력해야하는 불편함이 따랐습니다.

 

하지만 ㅇㅅㅇ. 이젠 그런 수고는 격지 않으셔도됩니다.

 

자 일단 웹브라우저 컨트롤 [구성요소에이뜸] 을 메인폼에 추가시킵니다.

 

그리고 일단 웹브라우저가  명령이 적혀있는 파일로 모험을 떠나야겠죠 ㅇㅅㅇ?

 

WebBrowser1.Navigate(http://kchdully.com/웹연동.html)

 

ㅇㅅㅇㅅㅇㅅㅇ

 

그리고 이제부터가 중요합니다. 웹브라우져는 단순히 문서text 가지고 하면 html코드자체가 다 뜨기때문에 처리하기에 무지 어렵습니다;;

 

이것을 없애기 위해 웹브라우저.문서타이틀이라는 기능을 사용했습니다.

 

일단 웹브라우저를 더블클릭후 이 소스를 추가합시다.

 

If "1" = WebBrowser1.DocumentTitle Then ' 만약 1이 WebBrowser1.DocumentTitle 과 같으면
       ' 평소대로 함

 Else ' 아니면
           
            MsgBox("웹연동") ' 이메시지 박스를 출력한다

 

이제 거의 완료입니다.

 

이제는 html 문서만 작성하면 되겠군요. html 문서는 첨부파일로 작성해놨습니다 타이틀과 타이틀 사이에 문장을 쓰시면되겠습니다.

ico src 웹연동.html

만약 1이라면 평소대로 출력하고

 

1말고 다른게 들어가있으면 MsgBox("웹연동") ' 이메시지 박스를 출력한다

 

 

이것 말고 좀더 추가해서 하면 메시지 박스에 해당 타이틀의 문서를 추가시킬수있습니다 이렇게요

[웹브라우저 타이틀은 "우왕 웹연동" 으로 설정할거임]

dim a

a = WebBrowser1.DocumentTitle

msgbox(a)

 

이렇게 하면 웹브라우저의 타이틀이 메시지 박스에 출력됩니다.

 

 

ㅇㅅㅇ. 웹브라우저 구성요소를 이용해서 짧고쉽게 소스를 구사해보았습니다.

 

웹브라우저는 모든것이 다되는군요 ㅁㄴㅇㄹ.

 

저의 타이틀 아이디어가 많은분들의 수고들 덜어주었으면 좋겠습니다 ㅇㅅㅇ.

 

이강좌는 제 홈페이지에도 올릴것이니  다른곳에 올릴때는 꼭 제 홈페이지 주소를 개제해주세요  물론 개허졉강좌지만요 ㅁㄴㅇㄹ

http://kchdully.com "네이버에 유저델파이"

이 게시물을...
profile

User Delphi Project 의 마스터입니다!

(프로필 사진을 추가해보세요 ㅇㅅㅇ) /