Delphi URL prüfen wie gehts das Hifle bitte !

[f4r]

Hi Leute,

wenn ihr den Internet Explorer, Netscape Nav. oder andere Browser öffnet gebt ihr ja oben eure ZielURL ein um auf die gewünschte Seite zu kommen ! logisch ne :D

Ich will mit meinem Proggie jetzt via Timer Prüfen, ob man sich noch der gewünschte Seite befindet !
Geht das irgendwie ?

Also vielleicht mal ein Bsp wie ich mir das vorstelle

If ZielUrl<>'http://www.web.de' then
showmessage ('Sie befinden sich nicht mehr auf der Seite von Web.de');

Das soll natuerlich net die Procedure werden, ist nur zu umfangreich dies hier jetzt zu beschreiben

Freue mich scho auf eure Hilfe !
mfg
f4r


// Offtopic
Ich suche außerdem einen Befehl mit dem man den IE Reloaden kann sprich f5 drucken kann,
wenn es dafuer n tastatur befehl wuerde das auch langen !
//

[faux]

Willst du eine Komponente, die du auf der Form hast, ansprechen, oder mit einem eigenständigem Browser?

Grüße
Faux

[chaosben]

Tscha ... du könntest folgendes machen (ist aber ein sehr ranziger Weg :stupid: ):
Du suchst dir das Browser-Fenster und darin das Edit-Feld der URL (FindWindow) Da ließt du den Text aus und merkst ihn dir. Und dann kann dein Timer loslegen und immer wieder den aktuellen Inhalt mit dem zuletzt gemerkten vergleiche. Aber, und ich hoffe das ist dir klar, dieser Weg ist Browser-abhängig. Das heißt, du musst erst nachsehen, welchen Browser du findest je nach dem, was du findest, ein Stückchen anderen Code ausführen.
Bei dem ganzen Geschschwafel bin ich jetzt davon ausgegangen, das du ein Delphi-Programm neben dem Browser laufen lassen willst. Falls du ein Plugin oder einen eigenen Browser schreibst, dann ist das hier alles Quatsch gewesen. :stupid:

//edit
Und was das Reloaden angeht: Such mal nach Sendkeys

[himitsu]

Ja, es ist möglich.

Ich hab hier in der DP schon mehrere Beiträge gesehn, wo z.B. auf den IE zugegriffen wird (die aktive URL, den Inhalt der angezeigten Webseite ...).

Es ist eventuell sogar schon etwas dazu in der CodeLib, dort wäre die Suche nicht so umfangreich. (also einfach mal suchen)

Hier ist da schon mal was für den FireFox, der Rest sollte sich auch anfinden lassen.
URLs aus Firefox-Instanzen auslesen

[Kidix]

Delphi-Quellcode:

uses
  ddeman;

function GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := '';
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;

procedure TForm1.Timer1.OnTimer(Sender:TObject);
begin
 
 if GetURL('IExplore') != 'http://www.yeho.de' then
begin
ShowMessage('Sie befinden sich auf der falschen Seite');
end;

end;

oder so änlich halt!!!

Gruß

Kidix

[f4r]

danke ihr habt mir wieder mal alle sehr geholfen - man habt ihr das druf :D