Quelltext eines Offenen Internet Explorers auslesen...

[Supremacy]

Hat jemand eine idee wie man den Quelltext von einem Offenen Internet Explorer auslesen kann ?
Wenn ja wie ? ^^
Habe schon mehrere lösungswege probiert aber alle sind mehr oder weniger ziemlich schlecht.

Also es sind die delphi-freaks gefragt... thx schonmal im voraus.

[Die Muhkuh]

hmm, meinst du die Seite im IE? Oder vom IE selbst?
Ich glaub den Quelltext vom IE wirst du nicht rausbekommen!


Wenn du denn Queltext von der aktiven Seite willst das geht:

Rechte Maustaste auf die Seite -> Quelltext anzeigen


Dann öffnet sich ein Text Editor mit dem Quelltext!

[toms]

Zitat:

Ich glaub den Quelltext vom IE wirst du nicht rausbekommen!

Doch das geht schon.

[Kamil]

Ich würde sagen es geht um die HTML Daten im IE, oder?
So könntest du vorgehen:
1) Den Code (unit InternetExplorer1), den ich in diesem Forum gepostet habe nehmen
http://www.delphi-groups.de/YaBBSe/i...=17218;start=0
und so anwenden wie dort beschrieben
2) leicht abgeänderte Version von http://www.swissdelphicenter.ch/de/s...e.php?id=1112:

Delphi-Quellcode:

function WB_SaveHTMLCode(WebBrowser: TInternetExplorer1; const FileName: TFileName): Boolean; 
var 
  ps: IPersistStreamInit; 
  fs: TFileStream; 
  sa: IStream; 
begin 
  ps := WebBrowser.DefaultInterface.Document as IPersistStreamInit; 
  fs := TFileStream.Create(FileName, fmCreate); 
  try 
    sa := TStreamAdapter.Create(fs, soReference) as IStream; 
    Result := Succeeded(ps.Save(sa, True)); 
  finally 
    fs.Free; 
  end; 
end; 

function WB_GetHTMLCode(WebBrowser: TInternetExplorer1; ACode: TStrings): Boolean; 
var 
  ps: IPersistStreamInit; 
  ss: TStringStream; 
  sa: IStream; 
  s: string; 
begin 
  ps := WebBrowser.DefaultInterface.Document as IPersistStreamInit; 
  s := ''; 
  ss := TStringStream.Create(s); 
  try 
    sa := TStreamAdapter.Create(ss, soReference) as IStream; 
    Result := Succeeded(ps.Save(sa, True)); 
    if Result then ACode.Add(ss.Datastring); 
  finally 
    ss.Free; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WB_SaveHTMLCode(InternetExplorer11, 'c:\test.txt'); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  WB_GetHTMLCode(InternetExplorer11, Memo1.Lines); 
end;

Ungestestet!

[Die Muhkuh]

Zitat:

Zitat von toms

Zitat:

Ich glaub den Quelltext vom IE wirst du nicht rausbekommen!

Doch das geht schon.

Kannst du Decompilieren? Bist du Gott? Ich glaub du wirst es niemals schaffen die Original Quellcode vom IE rauszubekommen!

Oder hast du schon mal ein Projekt von dir (dei Exe) den Quellcode wieder rausbekommen wenn du das Projekt gelöscht hast?

[sharkx]

Ich weiß net warum ihr hier rummeckert. Er will nich mehr und nich weniger als Den Quelltext der im IE geöffneten Seite.

[Supremacy]

ja natürlich wollte ich den quellcode von einer internet seite die in einem internet explorer offen ist auslesen.
das man den quelltext vom internetexplorer programm net auslesen kann ist mir schon klar.

@Kamil: da kommt bei mir:
Undeclared Identifier: 'IPersistStreamInit' :(

[MrKnogge]

Zitat:

Zitat von Spider

Zitat:

Zitat von toms

Zitat:

Ich glaub den Quelltext vom IE wirst du nicht rausbekommen!

Doch das geht schon.

Bist du Gott?

Ne er arbeitet bei Microsoft :mrgreen:

[Kamil]

Zitat:

Zitat von Supremacy

@Kamil: da kommt bei mir:
Undeclared Identifier: 'IPersistStreamInit' :(

uses
ActiveX;

[Supremacy]

Jo danke erstmal.... aber noch ne kleine frage...das müsste doch auch möglich sein einfach den source von der WebBrowser1 Komponente anzeigen zu lassen. Also nicht von der komponente ansich sondern halt von der internet seite in dem Webbrowser1 in meiner application.