Hallo,
ich nutze folgenden Code, um in einen TWebBrowser
HTML direkt zu "injizieren":
Delphi-Quellcode:
{ ************************************************************ }
procedure WB_InjectHTML (WebBrowser: TWebBrowser; HTMLCode: String);
{ ************************************************************ }
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek (0, 0);
(WebBrowser.Document as IPersistStreamInit).InitNew;
(WebBrowser.Document as IPersistStreamInit).Load (TStreamAdapter.Create (ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
Das funktioniert auch soweit, nur auf manchen Systemen (bisher 2 von ca. 60) interpretiert er den
HTML-Code nicht, sondern zeigt diesen an.
Ich habe Windows XP Professional, SP 1 und alle akt. Updates, IE-Version 6.0.2800. Die anderen Kunden verstreut Windows 98, 2000, XP, ME.
Ein betroffenes System ist z.B. Windows XP Home, IE v.6.0.2000. Ich denke aber nicht, dass es an der IE-Version liegt, da die anderen Kunden zum Teil ziemlich alte Systeme haben und da streikts auch nicht. Auf einem Notebook mit Windows 98, selbst auf unserem Windows 98 PC, funktioniert das.
Hat jemand eine Idee, warum das dort nicht funktioniert?
Ein alternativer Code, der allerdings eine Zugriffsverletzung bei Range := ((WebBrowser...) verursacht, wäre:
Delphi-Quellcode:
{ ************************************************************ }
procedure WB_InjectHTML (WebBrowser: TWebBrowser; HTMLCode: String);
{ ************************************************************ }
var
Range: IHTMLTxtRange;
begin
Range := ((WebBrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
Range.Collapse (FALSE);
Range.PasteHTML (HTMLCode);
end;
Was ist der Unterschied zu dem anderen? Könnte vielleicht jemand so freundlichen sein, und mir das erklären?
Vielen Dank und viele Grüße,
Mario