Was ist der beste Weg, zu laden, einen string (HTML-code) im TWebBrowser?

Habe ich eine string-var 'HTMLCode' enthält HTML-code. Ich möchte zum laden von code in den browser ein.

Dies ist Embarcadero-code:

procedure THTMLEdit.EditText(CONST HTMLCode: string);
{VAR
   Doc: IHTMLDocument2;
   TempFile: string; }
begin
 TempFile := GetTempFile('.html');  
 StringToFile(TempFile, HTMLCode);
 wbBrowser.Navigate(TempFile);

 Doc := GetDocument;
 if Doc <> NIL
 then Doc.Body.SetAttribute('contentEditable', 'true', 0);  //crash here when I load complex html files

 DeleteFile(TempFile);
end;

Es hat einige Probleme so ersetzte ich es mit diesem hier:

procedure THTMLEdit.EditText(CONST HTMLCode: string);
VAR
   TSL: TStringList;
   MemStream: TMemoryStream;
begin
 wbBrowser.Navigate('about:blank');
 WHILE wbBrowser.ReadyState < READYSTATE_INTERACTIVE
  DO Application.ProcessMessages;

 GetDocument.DesignMode := 'On';

 if Assigned(wbBrowser.Document) then
  begin
    TSL := TStringList.Create;
    TRY
      MemStream := TMemoryStream.Create;
      TRY
        TSL.Text := HTMLCode;
        TSL.SaveToStream(MemStream);
        MemStream.Seek(0, 0);
        (wbBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(MemStream));
      FINALLY
        MemStream.Free;
      end;
    FINALLY
      TSL.Free;
    end;
  end;
end;

Aber dafür hat man auch Probleme . Erste, wenn ich links einfügen (...) in den HTML-code, den der browser den code ändern, Anhängen 'about:' vor meinen URLs. Zweitens: es ist langsamer als das erste Verfahren (mit temp-Datei).

Kann ich das laden von HTML-code im browser ohne Navigation zunächst auf 'about:blank'?

Quelle: swissdelphicenter.ch/de/showcode.php?id=1096

InformationsquelleAutor WeGoToMars | 2016-09-29

10

Könnten Sie Ihren laden HTML code wie der unten
```
procedure THTMLEdit.EditText(CONST HTMLCode: string);
var
  Doc: Variant;
begin
  if NOT Assigned(wbBrowser.Document) then
    wbBrowser.Navigate('about:blank');

  Doc := wbBrowser.Document;
  Doc.Clear;
  Doc.Write(HTMLCode);
  Doc.Close;
end;
```
- Es funktioniert - nach dem hinzufügen Doc.DesignMode := 'On' zu deinem code 🙂 Vielen Dank. Aber es zeigt immer noch die 'about:' - problem, wenn ich html EINFÜGEN " link. Details: stackoverflow.com/questions/39745849/...
- Sie müssen <base href=...> tag in der HTML links.
- nope: ich trat in '<head><base href="c:\My web site\" target="_blank"></head> " und den link nach, dass wurde geändert: <Ein href="file:///c:/My%20web%20site/MyFile.html">Link</A>
- Follow-up-Frage: stackoverflow.com/questions/41957051/...
InformationsquelleAutor RepeatUntil

Ihre Qustions:

Erste, wenn ich links einfügen (...) in den HTML-code, den der browser den code ändern, anfügen von 'about:' vor meinen URLs.
Zweiten: es ist langsamer als das erste Verfahren (mit temp-Datei).
Kann ich das laden von HTML-code im browser ohne Navigation zunächst auf " about:blank'?

Antworten:

Ja, es ist möglich ohne änderung der link !
Nein, es ist nicht langsamer !
Ja,es ist möglich, keine Notwendigkeit, Navigieren Sie zuerst zu about:blank

Beginnen wir mit dem code und der ersten Prozedur (nur um zu zeigen, wo das in etwa: ...) kommt.

{$R *.DFM}
var
Doc: IHTMLDocument2;
TempFile: string;
xBody   : IHTMLElement;
xLoaded : Boolean;
onlyOnce: Boolean;

procedure TForm1.WB_LoadHTML(HTMLCode: string);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  xLoaded := False;
  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).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
      Doc :=  WebBrowser.Document as IHTMLDocument2;
    end;
  end;
end;

procedure TForm1.LoadHTMLBtnClick(Sender: TObject);
begin
WB_LoadHTML(Memo1.Text);
end;

procedure TForm1.LoadFileBtnClick(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('G:\Programme\Apache Group\Apache\htdocs\bearbeiten1.html');
end;

Haben wir erstellt 2 Dateien (sind identisch) Skript nur abweicht, um eine Warnung zu laden.

bearbeiten1.html

<script type="text/javascript">
alert ("bearbeiten1.html");      
</script>

bearbeiten3.html

<script type="text/javascript">
alert ("bearbeiten3.html");      
</script>

Mit Klick auf Datei Laden wir laden die "bearbeiten1.html" Datei

und mit WB_LoadHTML wir in den Arbeitsspeicher zu laden.

bekommen wir URL : about:blank