URLs aus Firefox-Instanzen auslesen

[Wannabe]

Zitat von Tubos:

Ich würde das mit einem Proxy machen, der zwischen Router und LAN steht. Kostet wenig (irgendein alter Rechner, Linux + Squid drauf, fertig)und bietet eine hohe Sicherheit. Bei Bedarf kannst du so auch Seiten sperren und div. andere Spielereien machen.

Bei Aufbau eines Netzwerkes würde ich es auch sofort so machen, allerdings möchte ich ein Programm schreiben das unter anderem diese Dinge für einen zentral erledigt und welches jeder nur zu installieren braucht um diese Funktionen nutzen zu können. Ich kann ja schlecht anstatt einer History-Funktion eine Anleitung zum installieren eines Proxy-Dienstes auf einem Server implementieren

So schwierig kann es doch eigentlich nicht sein der von toms geposteten Prozedur ein paar Schnippsel Code hinzuzufügen, die dafür sorgen dass nach dem Auslesen der URL des ersten Browsers zum nächsten übergegangen werden soll

[mimi]

@toms
ich habe die proc nicht getestet aber ich hätte eine frage, weil ich das gleiche problem habe und zwar:

geht das nur wenn ich meine eigne anwendung schreibe oder z.b. ich habe jetzt ein FireFox offen mit unterschiedlichen seiten und möchte gerne herrausfinden welchen link unter der Maus ist(statusbar)?

[mdx]

Kann mir jmd. Helfen, bei mir funktioniert das irgendwie nicht, es kommt immer "E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen"???

[jaenicke]

An welcher Stelle denn?

// EDIT:
Bei mir funktioniert es mit Delphi 2007.

[mdx]

Wie rufst du den das auf?

[jaenicke]

Delphi-Quellcode:

var
  MyUrl, MyTitle: String;
begin
  GetCurrentURL(MyUrl, MyTitle);
  ShowMessage(MyUrl + #13#10 + MyTitle);

Wie sonst?

[mdx]

Okay, jetzt gehts zumindest soweit, aber jtezt kommt:

---------------------------
Project1
---------------------------
Assertion fehlgeschlagen (C:\***.pas, Zeile 45)
---------------------------
OK
---------------------------


Zeile 43-47:

Delphi-Quellcode:

if Assigned(p) then try
q := pchar(p);
--> Assert(q^ = '"');
SetLength(URL, StrLen(q));
Inc(q);

[jaenicke]

Unter Delphi 2007 wie in deinem Profil steht? bei Delphi 2009 würde ich das eher vermuten, weil ein String dort ja ein UnicodeString und kein AnsiString mehr ist.
Bei mir funktioniert es jedenfalls mit Delphi 2007 problemlos.

[mdx]

Achso, nein ich habe D2009 und habe schon etwas mit PChar und PAnsiChar korrigiert....

Kannst du mir den Code wenn geht so schreiben dass er auch unter D 2009 funktioniert, währe echt cool!

THX

[jaenicke]

Hast du auch String in AnsiString geändert? Denn sonst hast du weiter hinten vermutlich Probleme mit dem zeichenweisen Zugriff. Also so sollte es eigentlich gehen würde ich sagen:

Delphi-Quellcode:

procedure GetCurrentURL(out URL, Title: AnsiString);
var
   DDEClient : TDDEClientConv;
   p, q: PAnsiChar;
   i: Integer;
begin
...

var
  MyUrl, MyTitle: AnsiString;
begin
...