Einzelnen Beitrag anzeigen

Benutzerbild von S - tefano
S - tefano

Registriert seit: 16. Dez 2002
Ort: Dülmen
477 Beiträge
 
Delphi 2009 Professional
 
#2
  Alt 8. Mai 2003, 16:27
Hi,

Meinst du nen Button in einer angezeigten Website?
Würd ich den Quellcode der Seite in ein Memo laden und dann nach entsprechenden Tags suchen.
Weiß jetzt nicht ob es bessere Möglichkeiten gibt, an den Quellcode der Seite heranzukommen, aber das hier hab ich beim Swiss Delphi Center gefunden:

Delphi-Quellcode:
uses
  ActiveX, MSHTML_TLB, SHDocVw_TLB,
  ComCtrls, OleCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  PersistFile := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True);
end;
In der Datei steht ja dann der Quellcode drin. Den dann in ein Memo laden und durchsuchen.
Gibt bestimmt auch weniger komplizierte Methoden, aber mit dem TWebBrowser kenn ich mich nich soo0 gut aus...

Bis dann,

S - tefano
"Sir, we are surrounded!" - "Excellent, we can attack in every direction!"
  Mit Zitat antworten Zitat