Has anyone ever done that?
Thank you,
--
Alain Quesnel
alains...@logiquel.com
1) Download TEmbeddedWB (euromind) and his integrated "IServiceProvider"
implementation.
2) Implement "IAuthenticate" interface :
// IAuthenticate
TMyAuth = class(TInterfacedObject,IAuthenticate)
public
function Authenticate(var hwnd: HWnd; var szUserName, szPassWord:
LPWSTR): HResult; stdcall;
end;
function TMyAuth.Authenticate(var hwnd: HWnd; var szUserName, szPassWord:
LPWSTR): HResult; stdcall;
begin
// test
szUserName:='MyLogin';
szPassWord:='MyPwd';
Result:=S_OK;
end;
3) In the form with EmbeddedWB in "QueryService" event return your own
IAuthenticate implementation :
function TForm1.EmbeddedWB1QueryService(const rsid, iid: TGUID;
out Obj: IInterface): HRESULT;
begin
Result:=E_NOINTERFACE;
// IAuthenticate test ?
if IsEqualGUID(iid,IID_IAuthenticate) then // cf. URLMon.pas for IID_...
begin
obj:=TMyAuth.Create as IAuthenticate; // My Auth...
Result:=S_OK;
end
end;
4) Test it :
4.1) Navigate "about:blank" for interface service init...
4.2) Navigate to the secure site. Your IAuthenticate implementation
should be called.
Pascal Chapuis
"Alain Quesnel" <alains...@logiquel.com> a écrit dans le message de
news: 41d6cc56$1...@newsgroups.borland.com...
Alain Quesnel
alains...@logiquel.com
"Pascal Chapuis" <Chapuis...@DELETETHISTiscali.fr> wrote in message
news:41d9...@newsgroups.borland.com...
The previous url, works fine for me. Here's another google view from the
same thread :
http://groups.google.com/groups?selm=%237%24CfCriEHA.556%40tk2msftngp13.phx.gbl
This is the Igor Tandetnik point of view from ms.webbrowser_ctl newsgroup
regarding the authenticate process...
Pascal
http://chapsandchips.chez.tiscali.fr/
"Alain Quesnel" <alains...@logiquel.com> a écrit dans le message de
news: 41dab2db$1...@newsgroups.borland.com...
--
Alain Quesnel
alains...@logiquel.com
"Pascal Chapuis" <Chapuis...@DELETETHISTiscali.fr> wrote in message
news:41db...@newsgroups.borland.com...