Hallo,
das kann man mit der WebBrowser-Komponente(
ActiveX-Control) realisieren.
Beispiel:
Angenommen folgende
HTML-Datei:
Code:
<a href=1>Tabelle laden</a>
<a href=2>Tabelle leeren</a>
Diese Datei im WebBrowser laden
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var f : OleVariant;
begin
WebBrowser1.Navigate('file://C:\Temp\Befehle.html',f,f,f,f);
end;
auf die Link-Ausführung reagieren
Delphi-Quellcode:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if Pos('
\1',
URL) > 0
then//URL ist C:\Temp\1
begin
showmessage('
Tabelle wird geladen');
Cancel := True;
//Linkausführung unterbinden
end;
if Pos('
\2',
URL) > 0
then//URL ist C:\Temp\2
begin
showmessage('
Tabelle leeren');
Cancel := True;
//Linkausführung unterbinden
end;
end;