Quelltext filtern

[SleepyMaster]

Ja! Schaffbar schon
aber ich hatte gehofft, mir den aufwand ersparen zu können!

Und außerdem fände ich es "schöner" wenn ich dafür nicht extra einen Datei auf der Festplatte temporär anlegen muss!

[a.vollmer]

quelltext laden, in stringlist laden und so im webbrowser aufrufen:

Delphi-Quellcode:

uses
  ActiveX;

procedure WB_LoadHTML(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).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WB_LoadHTML(WebBrowser1,stringliste.text);
end;

[SleepyMaster]

Woahw! Super!

Vielen Dank!!!

[SleepyMaster]

Habs jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  ms: TMemoryStream;
  s:string;
begin
  ms:=TMemoryStream.Create;
  ms.Clear;
  PersistStream := Webbrowser1.Document as IPersistStreamInit;
  Stream := TStreamAdapter.Create(ms, soReference) as IStream;
  PersistStream.Save(Stream, True);
  MS.Position:=0;
  SetLength(S,MS.Size);
  Ms.Read(S[1],MS.Size);

  s:='Hallo';

  Ms.Clear;
  MS.Write(s[1],Length(s));
  MS.Position:=0;
  PersistStream.Load(Stream);
end;

Vielen Dank nochmal a.vollmer

[Luckie]

Und wo wird der MemoryStream wieder freigegeben? Der Resourcenschutzblock (tyr-finally) fehlt auch in diesem Zusammenhang.

Sehe gerade der StreamAdapter wird auch nicht wieder freigegeben.

[SleepyMaster]

War ja nur mal grade Quick'n'dirty hingeschmiert.

Aber hast ja recht:

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  ms: TMemoryStream;
  s:string;
begin
try
  ms:=TMemoryStream.Create;
  ms.Clear;
  PersistStream := Webbrowser1.Document as IPersistStreamInit;
  try
    Stream := TStreamAdapter.Create(ms, soReference) as IStream;
    PersistStream.Save(Stream, True);
    MS.Position:=0;
    SetLength(S,MS.Size);
    Ms.Read(S[1],MS.Size);

    s:='Hallo';

    Ms.Clear;
    MS.Write(s[1],Length(s));
    MS.Position:=0;
    PersistStream.Load(Stream);
  finally
    Stream.Free;
finally
  MS:Free;
end;
end;

so ungefähr!