HTML & WebBrowser

[Andrew101095]

Привет всем!вот такая проблема :мне нужно,что бы при нажатии на батон1 из мемо1(есть код аштиэмэл) в вэббраузере1 отобразилась страница.
http://programmersforum.ru/showthread.php?t=94440 этот способ не работает...ругается на PSafeArray...говорит,что не знает....кто знает что можно с этим сделать ?

[Voody]

Не знаю, сработает ли в TWebBrowser, но с TEmbeddedWB работает:

procedure SetHTML(WebBrowser:TEmbeddedWB {TWebBrowser}; HTML: String);
var
  HTMLDocument: IHTMLDocument2;
  varHTML: Variant;
begin
  //Устанавливаем тихий режим ,чтобы не выскакивали ошибки. Можно отключить
  WebBrowser.Silent:=true;
  HTMLDocument := WebBrowser.Document as IHTMLDocument2;
  varHTML := VarArrayCreate([0, 0], varVariant);
  varHTML[0] := HTML;
  HTMLDocument.Write(PSafeArray(TVarData(varHTML).VArray));
  HTMLDocument.Close;
  WebBrowser.Silent:=false;
end;

Вызов:

SetHTML(EmbeddedWB1, Str);

где Str - исходный код

[Andrew101095]

Спасибо...попробую...