谁可以跑一下这个小程序?

ooolinux 2016-08-02 12:58:06
谁有BCB 6.0、CB2010或者XE以上版本,跑一下这个小程序看看结果?CB版本?多谢!
程序可以先复制到word。

Project1.cpp文件:

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);

char fileName[]="EventsLog2.txt";
FILE *logfile;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
logfile=fopen(fileName,"wt");
if(!logfile)
{
ShowMessage("创建文件"+AnsiString(fileName)+"失败!");
throw Exception("创建文件失败");
}
fprintf(logfile,"%d,%s\nWinMain函数\n",__LINE__,__FUNC__);
// ShowMessage("WinMain函数");

Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}

fclose(logfile);

return 0;
}
//---------------------------------------------------------------------------






Unit1.cpp文件:

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
extern char fileName[];
extern FILE *logfile;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
fprintf(logfile,"\n%s , %s , %s\n%d,%s\n构造函数\n",
__DATE__,__TIME__,__FILE__,__LINE__,__FUNC__);

Label1->Caption="程序关闭后请查看 \n"
+ExtractFilePath(Application->ExeName)
+AnsiString(fileName)+" ";
Label1->Font->Size=16;
Label1->Font->Color=clBlue;

//ShowMessage("构造函数");
}
//---------------------------------------------------------------------------
//析构函数声明添加到头文件
__fastcall TForm1::~TForm1()
{
fprintf(logfile,"%d,%s\n析构函数\n",__LINE__,__FUNC__);
//ShowMessage("析构函数");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnCreate\n",__LINE__,__FUNC__);
//ShowMessage("OnCreate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnShow\n",__LINE__,__FUNC__);
//ShowMessage("OnShow");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnPaint\n",__LINE__,__FUNC__);
//ShowMessage("OnPaint");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnActivate\n",__LINE__,__FUNC__);
//ShowMessage("OnActivate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDeactivate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnDeactivate\n",__LINE__,__FUNC__);
//ShowMessage("OnDeactivate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
fprintf(logfile,"%d,%s\nOnCloseQuery\n",__LINE__,__FUNC__);
//ShowMessage("OnCloseQuery");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
fprintf(logfile,"%d,%s\nOnClose\n",__LINE__,__FUNC__);
//ShowMessage("OnClose");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnDestroy\n",__LINE__,__FUNC__);
//ShowMessage("OnDestroy");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Activate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnApplicationActivate\n",__LINE__,__FUNC__);
//ShowMessage("OnApplicationActivate");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Deactivate(TObject *Sender)
{
fprintf(logfile,"%d,%s\nOnApplicationDeactivate\n",__LINE__,__FUNC__);
//ShowMessage("OnApplicationDeactivate");
}
//---------------------------------------------------------------------------
...全文
130 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ooolinux 2016-08-09
  • 打赏
  • 举报
回复
谁顶一下我结贴
  • 打赏
  • 举报
回复
我来顶...
ooolinux 2016-08-08
  • 打赏
  • 举报
回复
程序有错误,应该注释掉第45行的 fclose(logfile); 让系统来关闭文件。 现在结果比较明白了。
ooolinux 2016-08-02
  • 打赏
  • 举报
回复
窗体要放置一个ApplicationEvents(位于Additional页)和一个Label。
微信小程序系统教程[初级阶段],微信小程序0基础学起,讲解微信小程序开发的基础知识。 微信小程序系统教程共有“微信小程序系统教程[初级阶段]”、“微信小程序系统教程[中级阶段]——核心技术”、“微信小程序系统教程[阶段]客服消息+微信支付+九宝电商系统”。 “微信小程序系统教程[阶段]全套课程”包含: 1.微信小程序系统教程[阶段]_客服消息 2.微信小程序系统教程[阶段]_微信支付 3.微信小程序系统教程[阶段]_九宝电商系统 学习“微信小程序系统教程[阶段]”要求有微信小程序的基础。建议先学习“微信小程序系统教程[初级阶段]”、“微信小程序系统教程[中级阶段]”,后在报名“微信小程序系统教程[阶段]”。 阶段讲解的客服消息,是针对小程序的。后台程序用接近底层的技术,没有使用三方技术。这样降低同学们学习成本。 微信支付,这部分课程很有难度,要求同学们认真听讲,有不会的技术问题可以请教老师。购买课程后请联系老师,提供单号,给你源程序。 九宝电商系统是一套十分适和学习、项目的课程。既可以系统的学习微信小程序相关知识,还可以修改后上线。 “微信小程序系统教程[中级阶段]——核心技术”重点讲解微信小程序事件、组件、API 微信小程序系统教程[初级阶段],微信小程序0基础学起,讲解微信小程序开发的基础知识。 购买课程的同学,可赠送就九宝老师编写的《微信小程序开发宝典》。 购课请咨询qq2326321088

552

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder 茶馆
社区管理员
  • 茶馆
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧