Thema: Delphi Quelltext auslesen

Einzelnen Beitrag anzeigen

Chaismo

Registriert seit: 2. Apr 2007
Ort: Dresden
63 Beiträge
 
Delphi 7 Personal
 
#1

Quelltext auslesen

  Alt 24. Sep 2007, 16:53
Hey ho! ich will aus einem Link gern den Quelltext auslesen und in ein Memo reinschreiben...hab das ganze jetz mal so probiert...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('view-source:'+Edit1.text);
   try
    WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER);
    WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
   except
   end;
   Memo1.PasteFromClipboard;
end;

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;
end.
aber das funktioniert nicht?!
Kann mir jemand sagen was da falsch is bzw. wies rüsch is?!
Danke schonmal im voraus!
Martin Seeler
  Mit Zitat antworten Zitat