Delphi-PRAXiS

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 04:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz