Delphi-PRAXiS - Delphi Parameterübergabe von TWebBrowser an Programm

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi Parameterübergabe von TWebBrowser an Programm (https://www.delphipraxis.net/8053-parameteruebergabe-von-twebbrowser-programm.html)

1PM	27. Aug 2003 17:43

Parameterübergabe von TWebBrowser an Programm

Hallo!

Wie kann ich Parameter von der Komponente TWebBrowser an das Programm übergeben?

Der Benutzer soll einen Link im Programm klicken, der dann das Programm ausführt!

Gibt es vielleicht noch eine besser Komponente um dies zu realisieren?

Vielen Dank im voraus!

Gruß
1PM

alcaeus

27. Aug 2003 17:44

Re: Parameterübergabe von TWebBrowser an Programm

Wie meinst du das,Parameter übergeben? Ich versteh die Fragestellung nicht ganz...sorry

1PM	27. Aug 2003 17:46

Re: Parameterübergabe von TWebBrowser an Programm

Wenn ein Link geklickt wurde, dass HTML Befehle an das Programm übergibt!

Z.B. Einen Link "Close", der das PRogramm dann schließt! (in HTML)

alcaeus

27. Aug 2003 17:50

Re: Parameterübergabe von TWebBrowser an Programm

Hmmm...das würde dann browserspezifische Websiten geben, sollte man nicht machen. :warn: Ich hab nix gefunden, geh mal auf

Torry's Delphi Pages, da könntest du was finden.

APP	28. Aug 2003 07:03

Re: Parameterübergabe von TWebBrowser an Programm

Hallo,

wenn Du deine HTML-Seite z.B. mit einem Dummy-Script "versorgst", kannst Du folgendes machen:

Code:

			<HTML>

<HEAD>

     <script language="JavaScript">

          function Dummy(text){}

     </script>

<TITLE></TITLE>

</HEAD>

<BODY>

[url="JavaScript:Dummy('Exit')"]Exit[/url]

[url="JavaScript:Dummy('OK')"]OK[/url]

</BODY>

</HTML>

Delphi-Quellcode:

			PROCEDURE TfMain.WebBrowserBeforeNavigate2(Sender: TObject;

  CONST pDisp: IDispatch; VAR URL, Flags, TargetFrameName, PostData,

  Headers: OleVariant; VAR Cancel: WordBool);

BEGIN

  IF pos('Exit', URL) > 0 THEN

    showmessage('Exit')                           // Deine Befehle

  ELSE IF pos('OK', URL) > 0 THEN

    showmessage('OK');                            // Deine Befehle

END;

Alle Zeitangaben in WEZ +1. Es ist jetzt 01:03 Uhr.