quelltext der aktuellen seite im twebbrowser

**glkgereon**

jo, den will ich haben...wie?

**alcaeus**

Hi glkbkk,

indem du suchst:

http://www.delphipraxis.net/internal...=163870#163870

Greetz
alcaeus

**glkgereon**

ich hätte das gern als TStrings/TStringList

aber ich kanns speichern und wieder einlesen....thx

**toms**

Hi,

Schau mal hier:

http://www.swissdelphicenter.ch/de/showcode.php?id=1112

**glkgereon**

also ich benutz das jetzt so:

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.getHTMLCode(WebBrowser: TWebBrowser; ACode: TStringList): Boolean;

var ps: IPersistStreamInit;

    ss: TStringStream;

    sa: IStream;

    s: string;

begin

  ps := WebBrowser.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;

markieren

Delphi-Quellcode:

			getHTMLCode(WebBrowser1,aktqt);

ListBox1.Items.AddStrings(aktqt);

aber alles kommt in einer spalte mit "||" dazwischen, wo ein enter sein sollte...

**glkgereon**

*push*

warum funzt das nicht?

*push*

**Remote1**

also, da ich mal davon ausgehe, dass du twebbrowser verwendest, ist glaube ich die einfachste variante:

markieren

Delphi-Quellcode:

			var htmltext: string;

begin

  htmltext:=WebBrowser1.OleObject.Document.Body.InnerHtml;

was willst du eigentlich damit.
denn wenn du blos den quelltext darstellen willst, dann machs doch so

zusammenfalten · markieren

Delphi-Quellcode:

			uses ActiveX;

{für Dialogart:

 Suchen_Dialog = 1;

 Quelltext_anzeigen = 2;

 IE_Optionen = 3;

}

procedure WB_ShowDialog(AWebbrowser: TWebbrowser;dialogart:cardinal=1);

const

 CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}'; 

var

 CmdTarget : IOleCommandTarget; 

 vaIn, vaOut: OleVariant; 

 PtrGUID: PGUID;

begin 

 New(PtrGUID); 

 PtrGUID^ := CGID_WebBrowser; 

 if AWebbrowser.Document <> nil then 

   try

     AWebbrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget);

     if CmdTarget <> nil then 

       try

         CmdTarget.Exec(PtrGUID, dialogart, 0, vaIn, vaOut);

       finally

         CmdTarget._Release; 

       end;

   except 

     // Nothing 

   end; 

 Dispose(PtrGUID);

end;

**glkgereon**

nein, ich will den quelltext nach substrings durchsuchen....

also in dem string...kann ich den irgendwie in eine TStringList verwandeln?

geht das so:

markieren

Delphi-Quellcode:

			while i<length(code) do

begin

  if code[i]=#13

  then begin

    codelist.Add(copy(code,0,i));

    delete(code,0,i);

    i:=0;

    end;

inc(i);

end;

**Remote1**

den string in eine stringlist zu verwandeln sollte nicht das problem sein.
brauchst ja eigentlich nur denn string einem memo übergeben (da hast du gleich den quelltext dargestellt - memo1.text:=der string) und dann zeilenweise (memo1.lines....) der stringlist übergeben

**toms**

Zitat:

Quellcode:
getHTMLCode(WebBrowser1,aktqt);
ListBox1.Items.AddStrings(aktqt);

aber alles kommt in einer spalte mit "||" dazwischen, wo ein enter sein sollte...

Hi,

Dann mach's halt so:

markieren

Delphi-Quellcode:

			getHTMLCode(WebBrowser1,aktqt);

ListBox1.Items.Text := aktqt.GetText;

quelltext der aktuellen seite im twebbrowser

quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Re: quelltext der aktuellen seite im twebbrowser

Forumregeln

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#1 quelltext der aktuellen seite im twebbrowser 22. Okt 2004, 11:23 jo, den will ich haben...wie? »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

alcaeus Registriert seit: 11. Aug 2003 Ort: München 6.537 Beiträge	#2 Re: quelltext der aktuellen seite im twebbrowser 22. Okt 2004, 11:25 Hi glkbkk, indem du suchst: http://www.delphipraxis.net/internal...=163870#163870 Greetz alcaeus Andreas B. Die Mutter der Dummen ist immer schwanger. Ein Portal für Informatik-Studenten: www.infler.de
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#3 Re: quelltext der aktuellen seite im twebbrowser 22. Okt 2004, 11:27 ich hätte das gern als TStrings/TStringList aber ich kanns speichern und wieder einlesen....thx »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#4 Re: quelltext der aktuellen seite im twebbrowser 22. Okt 2004, 11:35 Hi, Schau mal hier: http://www.swissdelphicenter.ch/de/showcode.php?id=1112 Thomas
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#6 Re: quelltext der aktuellen seite im twebbrowser 23. Okt 2004, 11:19 push warum funzt das nicht? push »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

Remote1 Registriert seit: 22. Okt 2003 Ort: Dippoldiswalde 252 Beiträge Delphi 6 Personal	#9 Re: quelltext der aktuellen seite im twebbrowser 23. Okt 2004, 11:52 den string in eine stringlist zu verwandeln sollte nicht das problem sein. brauchst ja eigentlich nur denn string einem memo übergeben (da hast du gleich den quelltext dargestellt - memo1.text:=der string) und dann zeilenweise (memo1.lines....) der stringlist übergeben
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#10 Re: quelltext der aktuellen seite im twebbrowser 23. Okt 2004, 12:16 Zitat: Quellcode: getHTMLCode(WebBrowser1,aktqt); ListBox1.Items.AddStrings(aktqt); aber alles kommt in einer spalte mit "\|\|" dazwischen, wo ein enter sein sollte... Hi, Dann mach's halt so: markieren Delphi-Quellcode: getHTMLCode(WebBrowser1,aktqt); ListBox1.Items.Text := aktqt.GetText; Thomas
	Zitat