フリーソフト

カテゴリ

[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);

2006年8月25日 (金) C++Builder, TWebBrowser |

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

動的にHTMLを生成して表示したい場合は以下のようにします。WebBrowser1.Documentがnilの場合はWebBrowser1.Navigate('about:blank')を呼び出すとWebBrowser1.Documentが作成されます。

uses mshtml;

OLEVariant(WebBrowser1.Document as IHTMLDocument2).Write('<html>aaaa</html>');

2006年2月 7日 (火) Delphi, TWebBrowser | | コメント (0)

[Delphi] WebBrawserに表示されている内容をクリアする

WebBrowserに表示されている内容を消したい場合は以下のようにします。

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('about:blank');
end;

2006年2月 7日 (火) Delphi, TWebBrowser | | コメント (0)

[Delphi] WebBrowserに関連した情報（MSDN）

http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/browser_control_node_entry.asp

2006年2月 7日 (火) Delphi, TWebBrowser | | コメント (0)

[Delphi] WebBrowserをスクロールする

水平方向x、垂直方向yが指定できます。yを0にすると一番上までスクロールされます。

uses mshtml;

OLEVariant(WebBrowser1.Document as IHTMLDocument2).parentWindow.scroll(x, y);

2006年2月 7日 (火) Delphi, TWebBrowser | | コメント (0)

[Delphi] WebBrowser上をプログラムからクリックする

「次へ」のリンクをプログラム内からクリックする場合などに使える方法です。クリックする座標は、WebBrowserの左上を(0,0)としたときの座標で指定します。

uses mshtml;

procedure TForm1.Button1Click(Sender: TObject);
var
  hWB:HWND;
begin
  hWB := FindWindowEx(WebBrowser1.Handle,0,'Shell DocObject View',nil);
  hWB := FindWindowEx(hWB,0,'Internet Explorer_Server',nil);
  if hWB <> 0 then begin　
    //指定した座標をクリック
    SendMessage(hWB,WM_LBUTTONDOWN,0,MakeLParam(570,70)); 
    SendMessage(hWB,WM_LBUTTONUP,0,MakeLParam(570,70));
  end;
end;

2006年2月 7日 (火) Delphi, TWebBrowser | | コメント (0)

[Delphi] WebBrowserからHTMLソースを取得する

uses mshtml;

Memo1.Text:= OLEVariant(WebBrowser1.Document as IHTMLDocument2).Body.InnerHTML;

2006年2月 7日 (火) Delphi, TWebBrowser | | コメント (0)

その他のカテゴリー

C++Builder | C++言語・Pascal言語 | Delphi | TActionList | TColor | TEdit | TeX | TForm | TIniFile | TLabel | TListBox | TListView | TMemo | TProgressBar | TSplitter | TStatusBar | TStringGrid | TTrackBar | TWebBrowser | Windows | その他 | アルゴリズム | システム関連 | ネットワーク関連 | ファイル、フォルダの処理 | フォント関連 | フォーム・ダイアログ関連 | フリーソフト | プログラミング全般 | マウス、キーボードの処理 | 文字列の処理 | 日付時刻の処理 | 画像関連 | 開発環境(IDE)関連