본문 바로가기

전체 글

Delphi/꿀팁 Drag&Drop된 파일정보 가져오기 - 1 1. uses에 ShellAPI를 추가합니다. uses .., ShellAPI; 2. 폼의 OnCreate와 OnClose에 파일을 받을 컴포넌트의 핸들을 넘겨 Drag&Drop을 허용/비허용합니다. procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Form1.Handle, True); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin DragAcceptFiles(Form1.Handle, False); end; 3. 폼에 WM_DROPFILES의 윈도우 메시지를 상속받는 함수를 생성합니다. type TForm1 = class(TForm) ..
WebBrowser로 웹페이지 내 선언된 값 가져오기 - 2
Delphi/꿀팁 WebBrowser로 웹페이지 내 선언된 값 가져오기 - 2 1. TWebBrowser와 TButton 두개를 올려놓습니다. 2. SHDocVw와 MSHTML을 선언하고 간단한 HTML 소스를 작성합니다.uses .., SHDocVw, MSHTML;const sHTML =' ' + sLineBreak +' ' + sLineBreak +' ' + sLineBreak +' ' + sLineBreak + //임시로 불러올 데이터를 저장할 곳입니다.'Page Run.. ' + sLineBreak +' ' + sLineBreak +' ';3. 폼의 OnShow 이벤트에서 작성한 HTML 소스로 웹브라우저를 실행합니다.procedure TForm1.FormShow(Sender: TObject);var Doc: Variant;begin if not Assigned(WebBro..
WebBrowser로 웹페이지 내 선언된 값 가져오기 - 1
Delphi/꿀팁 WebBrowser로 웹페이지 내 선언된 값 가져오기 - 1 1. TWebBrowser와 TButton을 하나 올려놓습니다. 2. SHDocVw와 MSHTML을 선언하고 간단한 HTML 소스를 작성합니다.uses .., SHDocVw, MSHTML;const sHTML =' ' + sLineBreak +' ' + sLineBreak +' ' + sLineBreak +'Page Run.. ' + sLineBreak +' ' + sLineBreak +' ';3. 폼의 OnShow 이벤트에서 작성한 HTML 소스로 웹브라우저를 실행합니다.procedure TForm1.FormShow(Sender: TObject);var Doc: Variant;begin if not Assigned(WebBrowser1.Document) then WebBrowser1.Navigate('..

티스토리툴바