quelltext der aktuellen seite im twebbrowser

[Remote1]

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

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

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;