🚀 go-pugleaf

> -----Original Message-----
> From: RaNo [mailto:ranologo@poczta.fm]
> Subject: Jeszcze raz WebBrowser (czytajcie tylko początek)
> 
> 
> W procedurze zdarzeniowej onBeforeNavigate mam parametr pDisp.
> 
> W helpie z MSDN (którego zamieszczam na końcu mojego listu) znajduję:
> 
> <cytat>
> When reissuing a navigation for the WebBrowser object,
> the Stop method must first be executed for pDisp.
> </cytatu>
> 
> Pytanie: Jak wykonać "Stop dla pDisp"?


<CODE>
uses ActiveX;

procedure TForm1.WebBrowser1BeforeNavigate2(...; 
                                            const pDisp: IDispatch;
                                            ...);
var
  Names     : array [0..0] of PWChar;
  StopName  : WideString;
  DispIDs   : array [0..0] of Integer;
  Params    : TDispParams;
const
  IID_NULL : TGuid = '{00000000-0000-0000-0000-000000000000}';
begin
  StopName:='Stop';
  Names[0]:=PWChar(StopName);
  if pDisp.GetIDsOfNames(IID_NULL,@Names,1,0,@DispIds)=S_OK then
  begin
    Params.cArgs:=0;       //Stop to bezparametrowa procedura
    Params.cNamedArgs:=0;
    pDisp.Invoke(DispIDs[0],IID_NULL,0,DISPATCH_METHOD,Params,nil,nil,nil);
  end;
end;
</CODE>

Wystarczy? Czy mam tłumaczyć co i jak? :))

Pozdrawiam,
Morris


PS.
  W temacie Excela 95 - powyższe to hint, jak do niego podejść :)
Właśnie przez "ręczną" zabawę z IDispatch, bo inaczej nie idzie...
Z tym, że w wywołaniach IDispatch Excela95 kryje się jeszcze pewien
kruczek ;) Ale to tak zupełnie na marginesie.

Morris
-- 
Archiwum grupy: http://niusy.onet.pl/pl.comp.lang.delphi