본문 바로가기

Delphi Tip/인터넷24

웹브라저를 통한 사이트HTML 옵션문 추가방법 웹브라저를 통한 사이트HTML 옵션문 추가방법 var Option: OleVariant; begin tOption := WebBrowser.OleObject.document.createElement('option'); tOption.value:='DD'; tOption.text:='text'; doc.file_list.add(tOption); end; html 문법과 동일 2021. 11. 17.
Delphi WebBrowser Delphi WebBrowser 이 글은 제가 IE스파이를 만들면서 MSDN을 뒤져 C소스를 델파이로 바꾸고, 여기저기 기웃거리며 하나씩 주워 모은 자료입니다. 이걸 참고 하셔서 WebBrowser 컨트롤을 쓰는데 조금이라도 도움이 되길 바랍니다. 글을 메모장에서 쓰다보니 보기좋게 꾸지미 못하는점을 쪼금 이해해 주세요. 1. 기본적인 사항 모든 웹브라우저 컴퍼넌트는 IWebBrowser2 라는 인터페이스를 사용합니다. 델파이로만들던 VC로 만들던 VB로 만들던지 암튼간에 무조건 저 인터페이스를 사용합니다. 델파이의 TWebBrowser라는 컴퍼넌트 역시 MS의 웹브라우저 컴포넌트를 포장해서 쓰는관계로 IWebBrowser2 인터페이스를 가지고 있습니다. 바로 OleObject 퍼로퍼티가 그 놈입니다. I.. 2021. 11. 16.
네트워크(인터넷) 연결 유무 (물리적) 네트워크(인터넷) 연결 유무 (물리적) 네트워크의 연결 유무 체크하는 함수 입니다. ​ 좀 더 자세한 내용은 MSDN등을 참조하시면 나옵니다. Windows Me 버전 이상, Explorer 5.0 이상이 있어야 한다는 군요... 또한 아시겠지만 sensapi.dll 도... const NETWORK_ALIVE_LAN = $1; NETWORK_ALIVE_WAN = $2; NETWORK_ALIVE_AOL = $4; function IsNetworkAlive(var lpdwFlags: DWORD): HRESULT; stdcall; external 'SENSAPI.DLL'; . . . . var dRet : DWORD; begin if IsNetworkAlive(dRet) = 0 then ShowMessage.. 2021. 11. 15.
IdHTTP 이용하여 파일 다운로드 IdHTTP 이용하여 파일 다운로드 procedure 이미지파일_저장(웹경로, 로컬경로: String); var IdHTTP1: TIdHTTP; mStream: TMemoryStream; begin mStream:=TMemoryStream.Create; IdHTTP1:=TIdHTTP.Create; try // 1. 스트림으로 받아 IdHTTP1.Get(웹경로, mStream); // 2. 로컬디스크에 저장 mStream.SaveToFile(로컬경로); finally FreeAndNil(IdHTTP1); FreeAndNil(mStream); end; end; 2021. 11. 12.