Application179 ActiveX 안정성 (IObjectSafety) 구현하여 웹상에서 보안경고 안나오게 하는 방법 FObjectSafetyFlags: dword; add IObjectSafety to your class declaration and implement it as follows: TfrmRPDEClient = class(TActiveForm, IRPDEClient, IObjectSafety) ... ... protected { Protected declarations } function GetInterfaceSafetyOptions(const IID: TIID; pdwSupportedOptions, pdwEnabledOptions: PDWORD): HResult; stdcall; function SetInterfaceSafetyOptions(const IID: TIID; dwOptionSetMask, d.. 2008. 8. 13. idhttp 에서 https 적용하기 Ok got it to work. I was trying to URL_encode the params rather than param_encode. Here is what I have learned and done. You will need 2 ".dll"s for SSL to work with the Indy components: "libeay32.dll" and "ssleay32.dll" I downloaded them from http://www.intelicom.si/download.php?op=viewdownload&cid=1 Do not forget to put the ".dll"s in the same directory as your executable. here is the code I u.. 2008. 8. 13. activex 의 현재 ie url 가져오기 우선 USUS에 SHDocVw 추가 하시구요. function Get_IE_URL:string; var ClientSite: IOleClientSite; WebBrowserApp: IWebBrowserApp; ServiceProvider: IServiceProvider; WebBrowser2: IWebBrowser2; begin Result := ''; if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then begin if (ClientSite nil) then begin ClientSite.QueryInterface(IServiceProvider, ServiceProvider); if (ServiceProvider nil) then beg.. 2008. 8. 13. Activex 쉽게 만들기 1. Application으로 제작된 Unit를 uses 절에 추가. 2. ActiveForm Create 이벤트시 아래구문을 추가. procedure TActiveFormX.ActiveFormCreate(Sender: TObject); begin self.DockSite := true; form1 := TForm1.Create(Self); form1.dock(self, ClientRect); form1.Visible := true; end; 2008. 8. 13. 이전 1 ··· 19 20 21 22 23 24 25 ··· 45 다음