Hallo Ferdinand,
zwar hat dein Thread schon einen Bart, aber wenn du noch grübeln solltest:
Der Zugriffsfehler beim ersten Klicken entsteht durch deinen zu frühen Zugriff auf das Document, welches noch nicht existiert (Document = nil). Später dann greifst du beim ersten Klicken immer auf das zuvor geladene Teildokument (wird ja nie vollständig geladen) zu.
Du fügst deinen WebBrowser zur Laufzeit hinzu, klinkst ihn aber nicht in die Nachrichtenkette ein (Parent = nil) - so kommt es früher oder später zu Problemen. Wie du bemerkst, kannst du nur auf das erste Markup-Paket zugreifen, das dein Browser empfängt. Füge den Browser zur Entwurfszeit ein oder mache sein Control zu einem message-only window.
Und nicht zuletzt: Wenn du auf das Dokument eines WebBrowsers beim Ereignis OnDocumentComplete() zugreifst, dann tust du es garantiert zum richtigen Zeitpunkt.
Delphi-Quellcode:
type
TDemoForm =
class(TForm)
Button: TButton;
Edit: TEdit;
procedure ButtonClick(Sender: TObject);
procedure DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
procedure FormCreate(Sender: TObject);
private
wb: TWebBrowser;
end;
// ...
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 TDemoForm.ButtonClick(Sender: TObject);
begin
WB.Navigate(Edit.text);
end;
procedure TDemoForm.DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
with Sender
as TWebBrowser
do
if pDisp = DefaultInterface
then
ShowMessage(wb_gethtmlcode(WB));
end;
procedure TDemoForm.FormCreate(Sender: TObject);
begin
wb := TWebBrowser.Create(self);
wb.ParentWindow := HWND(HWND_MESSAGE);
wb.OnDocumentComplete := DocumentComplete;
end;
Die von Lars verwendete Bedingung (State >= 4) ist in Ordnung, deine (State >= 3) in Verbindung mit dem behinderten Nachrichtenfluss ist Schuld am verkürzten Markup.
Freundliche Grüße