Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
Microsoft hat dazu in der MSDN Library hat den Knowlegdebase-Artikel <b>Q176792 "HOWTO: Connecting to a Running Instance of Internet Explorer"</b> veröffentlicht. Das folgende Beispiel baut die von MS vorgestellte C++-Lösung in Delphi nach. Wenn der Interface-Zeiger auf IWebBrowser2 gültig ist, läuft eine IE-Instanz:
<pre>
unit ConnectToIEFrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, SHDocVw_TLB, OleServer;
type
TForm1 = class(TForm)
Button1: TButton;
InternetExplorer1: TInternetExplorer;
ShellWindows1: TShellWindows;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ Typbibliothek von Microsoft Internet Controls installieren:
- TShellWindows für IShellWindow
- TInternetExplorer }
procedure TForm1.Button1Click(Sender: TObject);
var
aBrowserObj : IWebBrowser2;
i : Integer;
begin
for i := 0 to ShellWindows1.Count - 1 do
begin
aBrowserObj := ShellWindows1.Item(i) as IWebBrowser2;
if aBrowserObj.LocationURL = 'http://www.entwickler.com/' then
begin
InternetExplorer1.ConnectTo(aBrowserObj);
InternetExplorer1.GoHome;
InternetExplorer1.Disconnect;
end;
end;
end;
end.
</pre>
Die Konfiguration von TShellWindow und TInternetExplorer sieht in der DFM wie folgt aus:
<pre>
object InternetExplorer1: TInternetExplorer
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 32
Top = 64
end
object ShellWindows1: TShellWindows
AutoConnect = True
ConnectKind = ckRunningOrNew
Left = 64
Top = 64
end
</pre>
eeehmm das is mir etwas peinlich aber
ich bin noch anfänger und versteh das net so ganz kannst du mir das mal per mail in einem Beispiel prog. schicken????Bitte,Bitte,Bitte
Comment