フリーソフト

« [BCB] バイナリサーチ(2分探索) | トップページ | [BCB] 右寄せのTStatusBar »

[BCB] 中間ファイルを使用せずにWebBrowserに直接書き込む

Delphiでは割と簡単だったのですが。もっと簡単な方法があるのでしょうか?


  AnsiString Str="<html>aaaa</html>";

  SAFEARRAY *safe_array = SafeArrayCreateVector(VT_VARIANT,0,1);
  VARIANT *variant;

  SafeArrayAccessData(safe_array,(void **)&variant);
  variant->vt      = VT_BSTR;            
  variant->bstrVal = SysAllocString(WideString(Str));
  SafeArrayUnaccessData(safe_array);

  IHTMLDocument2 *Html=NULL;
  CppWebBrowser1->Navigate(L"about:blank");
  CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,(void **)&Html);
  Html->write(safe_array);

  Html->close();
  Html->Release();

  SafeArrayDestroy(safe_array);

« [BCB] バイナリサーチ(2分探索) | トップページ | [BCB] 右寄せのTStatusBar »

C++Builder」カテゴリの記事

TWebBrowser」カテゴリの記事