Hallo,
ja ich weiß gibt schon eine Menge Threads dazu, aber ich bekomm es einfach nicht 100% hin.
Also was ich will:
1x Edit Feld, bei dem man die
URL eingibt
1x Memo, hier wird der Quellcode angezeigt
1x Button, aktualisieren des Quellcodes.
Mein Programm:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Classes, Forms,
ActiveX, ComObj, SysUtils, SHDocVw_tlb, Controls,
StdCtrls, Dialogs;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
Test: TWebBrowser;
implementation
{$R *.dfm}
function WB_GetHTMLCode(WebBrowser: TWebBrowser):
string;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s:
string;
bool: boolean;
begin
ps := WebBrowser.Document
as IPersistStreamInit;
s := '
';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference)
as IStream;
bool := Succeeded(ps.Save(sa, True));
if bool
then Result:=Result +#10+ ss.Datastring;
finally
ss.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
test.Navigate(edit1.text);
memo1.Lines.Text:=wb_gethtmlcode(test);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Test:=TWebBrowser.Create(self);
end;
end.
Also meine Probleme:
1)
Beim ersten mal auf den Button drücken kommt ein Laufzeitfehler, keine Ahnung warum
Beim zweiten mal drücken Funktioniert es
2)
Es wird nicht immer der vollständige Quellcode ausgelesen, sondern mittendrin hört es auf.
An was kann das liegen? Ich habe es auch schon mit widestring ausprobiert
3)
Wenn ich eine neue Adresse im Edit Feld eingebe muss ich immer 2x am Button drücken, bis
der Quellcode aktualisiert wird, warum??
Ich habe mal das ganze Projekt + exe im Anhang gegeben, damit ihr mein Problem vlt besser nachvollziehen könnt..