551
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include "uCEFApplication.hpp"
#include "uCEFChromium.hpp"
//---------------------------------------------------------------------------
USEFORM("FormMainUnit.cpp", FormMain);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
Ucefapplication::GlobalCEFApp =new TCefApplication();
Ucefapplication::GlobalCEFApp->LogFile = "debug.log";
Ucefapplication::GlobalCEFApp->LogSeverity = LOGSEVERITY_INFO;
Ucefapplication::GlobalCEFApp->Cache = "cache";
Ucefapplication::GlobalCEFApp->EnablePrintPreview = true;
try
{
Application->Initialize();
Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TFormMain), &FormMain);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
delete Ucefapplication::GlobalCEFApp;
return 0;
}
//---------------------------------------------------------------------------
窗体文件代码如下:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "FormMainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cefvcl"
#pragma link "uCEFChromiumWindow"
#pragma link "uCEFWinControl"
#pragma link "uCEFChromiumWindow"
#pragma link "uCEFWinControl"
#pragma link "uCEFChromium"
#pragma link "uCEFChromiumCore"
#pragma link "uCEFWindowParent"
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::btnGOClick(TObject *Sender)
{
chrm1->LoadURL(txtURL->Text);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::tmr1Timer(TObject *Sender)
{
tmr1->Enabled = false;
bool r=chrm1->CreateBrowser(cfwndwprnt1,"");
if( !r && !chrm1->Initialized )
{
tmr1->Enabled = true;
}
else
{
ShowMessage("Ready!");
}
}
//---------------------------------------------------------------------------
运行结果:
ShowMessage永远不会弹出,也就是说,初始化始终完成不了
点了按钮,打开一个页面,始终打不开。。
debug文件夹下,已经放入了控件运行所需要的库文件: