Hi marabu,
ich hab es eben getestet, leider funktioniert es nicht:
Delphi-Quellcode:
procedure TfrmMain.Vorschau1Click(Sender: TObject);
var
frmPreview: TfrmPreview;
tmp:
String;
begin
frmPreview := TfrmPreview.Create(Application);
tmp := '
<html><head></head><body>';
tmp := tmp + TConverter.ConvertBBtoHTML(reEditor.Text);
tmp := tmp + '
</body></html>';
try
frmPreview.wbBrowser.OleObject.Open('
about:blank', '
_blank');
frmPreview.wbBrowser.OleObject.Clear;
frmPreview.wbBrowser.OleObject.WriteLn(tmp);
frmPreview.wbBrowser.OleObject.Close;
frmPreview.ShowModal;
finally
frmPreview.Free;
end;
end;
Fehlermeldung:
Code:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Projekt1.exe ist eine
Exception der Klasse EOleError mit der Meldung 'Die Methode 'Open' wird vom Automatisierungsobjekt nicht unterstützt' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------