ne frage zu twebbrowser

[markus lemcke]

hallo,

ich habe mit twebbrowser einen minibrowser programmiert.
wenn ich in das edit feld eine webadresse eingebe und taste enter drücke wird die seite geladen. wenn ich nun innerhalb dieser seite auf einen link klicke, möchte ich das die adresse der aufgerufenen seite im editfeld steht! wie geht das?

gruß

markus

[Thomas Melchert]

Hallo Markus,

schau Dir einmal das Ereignis <strong>OnBeforeNavigate2</strong> des WebBrowsers an. In diesem Ereignis wird die gerade gewählte URL als Parameter übergeben.<br />
<br />
Gruß Thomas
<a href="http://www.kalenderlexikon.de" target="_blank">kalenderlexikon.de</a&gt

[markus lemcke]

hallo thomas,

vielen dank! schaue es mir heute abend an!

gruß

marku

[markus lemcke]

hallo thomas,

bist klasse!!

so geht es:

<pre>
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
EdtAdresse.Text := url;
end;
</pre>

gruß und danke!

marku

[Martin Weber]

Ich häng mich mal kurz hier an:

Wie bekomm ich den Wert der in alt = "test" also 'test' in diesem oder einem anderen Ereignis?

Hab alle OleVariants duchgeschaut, ist aber nirgends zu finden

[markus lemcke]

hi martin!

meinst du den wert vom alt-tag oder

[Martin Weber]

ja genau.. also wenn ich da stehen hab : <a href="http://localhost/index.htm" alt="indexalttag"> alt="indexalttag"</ a> dannmöchte ich indexalttag als Ergebnis bekommen.. nur wie

[markus lemcke]

weißt du wie du generell an den html-code ran kommst?

einfach html-code auf einen string speichern,
dann den html-code parsen!
wenn das parsen dein problem ist, dann melde dich nochmal, ich schaue dann in meinem forum ob da was steht

[markus lemcke]

schau mal hier rein:
http://www.marlem-software.de/wbboard/thread.php?threadid=1957&boardid=120

hoffe der link tut auch ohne anmeldung

[Martin Weber]

Nee also ich hab einfach nur einen Link auf den ich klicke, an den Code komm ich nicht ran.

Falls es eine andere Möglichkeit gibt einen String zurück zu bekommen wäre das auch möglich.

Wichtig ist nur das keine Seite aufgerufen wird sondern nur dieser Klick ausgeführt und abgefangen wird.

*Klatsch* ich könnt ja einfach als Ziel den Wert eingeben den ich brauche und die Weiterleitung verhindern aber mir das Ziel dennoch ausgeben.. mal schauen ob das funktioniert

[Martin Weber]

Jo das ist was ich brauche:

procedure TtfBenutzer.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
ShowMessage(Copy(URL,8,Length(URL)-8));
Cancel:=True;
end;

procedure TtfBenutzer.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('Test');
end;

Das Leben kann sooo einfach sein....

Copy(URL,8,Length(URL)-8);

Das ist übrigens weil der TWebbrowser bei mir automatisch 'http://Test/' daraus mach

[markus lemcke]

habe noch ne frage zu twebbrowser:
wie kann ich überprüfen ob eine seite schon geladen ist in twebbbrowser oder noch nix "Angezeigt" wird in twebbrowser