Web Browserの作成

以下のようなWeb Browserを作成します。

WebBrowser.cppファイル
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "WebBrowser.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TFormHTML *FormHTML;
//---------------------------------------------------------------------------
__fastcall TFormHTML::TFormHTML(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormHTML::ButtonGoHomeClick(TObject *Sender)
{
　　　　CppWebBrowser1->GoHome();
}
//---------------------------------------------------------------------------
void __fastcall TFormHTML::ButtonGoBackClick(TObject *Sender)
{
　　　　CppWebBrowser1->GoBack();
}
//---------------------------------------------------------------------------
void __fastcall TFormHTML::ButtonGoForwardClick(TObject *Sender)
{
　　　　CppWebBrowser1->GoForward();
}
//---------------------------------------------------------------------------
void __fastcall TFormHTML::ButtonOpenClick(TObject *Sender)
{

　　　　WideString tempURL;
　　　　BSTR URL;

　　　　tempURL = EditURL->Text;
　　　　URL = BSTR(tempURL);

　　　　CppWebBrowser1->Navigate(URL);
}
//---------------------------------------------------------------------------
void __fastcall TFormHTML::ButtonMatsuLablClick(TObject *Sender)
{
　　　　WideString tempURL;
　　　　BSTR URL;

　　　　tempURL = "http://www.osakac.ac.jp/labs/matsuura/index.html";
　　　　URL = BSTR(tempURL);
　　　　CppWebBrowser1->Navigate(URL);
}
//---------------------------------------------------------------------------

void __fastcall TFormHTML::ButtonFileClick(TObject *Sender)
{
　　　　WideString tempFile;
　　　　BSTR File;

　　　　if(OpenDialogWebBrowser->Execute() == false)
　　　　{
　　　　　　　　return;
　　　　}
　　　　tempFile = "file://" + OpenDialogWebBrowser->FileName;
　　　　File = BSTR(tempFile);
　　　　CppWebBrowser1->Navigate(File);
}
//---------------------------------------------------------------------------

void __fastcall TFormHTML::ButtonRefreshClick(TObject *Sender)
{
　　　　CppWebBrowser1->Refresh();
}
//---------------------------------------------------------------------------

Projectの圧縮ファイル