用BCB写windows服务程序

最新推荐文章于 2018-03-15 10:37:43 发布
最新推荐文章于 2018-03-15 10:37:43 发布
阅读量3.2k 收藏 2
点赞数
分类专栏： C C++ 文章标签： windows string null 数据库 sql delete

用BCB写windows服务程序

用BCB写windows服务程序  

       windows服务程序是个好东西，尤其是你要做的软件很复杂的时候，一个模块一个模块的写，都写成服务程序，免得像一般程序的时候启动的时候要启动多个。基于这个考虑，我决定写个windows服务程序。

       step1:FILE/OTHER/SERVER，建立框架；

       STEP2: 新建FORM，像一般程序一样写代码。

       STEP3: 安装，比如你的服务叫 STEST.EXE

                     再CMD窗口中键入 STEST.EXE -INSTALL

                     卸载的话STEST.EXE -INSTALL/U

       注意：1。如果程序中用到odbc数据库，一定选用系统dns

                  2。服务程序调试不是很好调试，最好写入记录文件，或者先在用正常程序实现，在搬代码。

以下为原码

----------------------------------------------------------------------------------------------------------------------------

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

// task 1:存入数据库 udisk

// task 2:刷新显示程序 127.0.0.1 :6006端口

// task 3:后台复制

// task 4:存入数据库 fdisk

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

#include <vcl.h>

#include <Dbt.h>

#include <stdio.h>

#include "UVD_IFC.h"

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma link "trayicon"

#pragma resource "*.dfm"

TMainForm *MainForm;

FILE *in0,*in2;

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

__fastcall TMainForm::TMainForm(TComponent* Owner)

        : TForm(Owner)

{

}

void __fastcall TMainForm::WndProc(TMessage &Message)

{ bool rundll=false;

if((Message.Msg == WM_DEVICECHANGE)&&(Message.WParam==0x8000))

{   PDEV_BROADCAST_VOLUME dbvDev = (PDEV_BROADCAST_VOLUME)Message.LParam;

      DWORD vn = dbvDev->dbcv_unitmask;

      char si;

      char pi='A';

      //if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

      //{ fprintf(in2,"WParam=%d, LParam=%d\r\n",Message.WParam,Message.LParam);

      //   }

      //fclose(in2);

      for (si = 0; si < 26; ++si)

        { if (vn & 0x1)

                break;

          vn= vn>> 1;

          pi++;

        }

      MainForm->path.sprintf("%c",pi );

      path=path+":\\"+CFGFILE;

      //if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

      // { fprintf(in2,"%s\r\n",path.c_str());

      //     fclose(in2);

      //   }

       try

       {

      //..读操作表

       if ((in0 = fopen(path.c_str(), "rb"))!= NULL)

       { int fi;

          FHEAD fhead;

          FRED fred;

          String Sql;

          Sql.sprintf("DELETE FROM Udisk");

          //if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

          //{ fprintf(in2,"%s\r\n",Sql.c_str());

          //   fclose(in2);

          // }

          MainForm->UpdateQuery->Close();

          MainForm->UpdateQuery->SQL->Clear();

          MainForm->UpdateQuery->SQL->Add(Sql);

          MainForm->UpdateQuery->ExecSQL();

          // task 1:存入数据库 udisk

          fread(&fhead, sizeof(FHEAD), 1, in0);

          // if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

          //{ fprintf(in2,"execsql...\r\n");

          //   fclose(in2);

          // }

          for(fi=0;fi<fhead.Num;fi++)

          { fread(&fred, sizeof(FRED), 1, in0);

            Sql.sprintf("INSERT INTO Udisk (No,Page,SubNo,Save,Type,Label,Path,Key0,Key1,Key2,Key3,Key4,Key5,Key6,Key7,Key8,Key9,KeyLeft,KeyRight,KeyUp,KeyDown) VALUES (%d,%d,%d,%d,%d,'%s','%s',%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)",

                   (fred.NO%10),(fred.NO/10),fred.SubNo,fred.Save,fred.Type,fred.Label,fred.Path,

                   fred.key[0],fred.key[1],fred.key[2],fred.key[3],fred.key[4],fred.key[5],fred.key[6],

                   fred.key[7],fred.key[8],fred.key[9],fred.key[10],fred.key[11],fred.key[12],fred.key[13]);

            UpdateQuery->Close();

            UpdateQuery->SQL->Clear();

            UpdateQuery->SQL->Add(Sql);

            UpdateQuery->ExecSQL();

            // if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

            //{ fprintf(in2,"fi=%d...\r\n",fi);

            //   fclose(in2);

             // }

          }

          fclose(in0);

          // task 2:刷新显示程序 127.0.0.1 :6006端口

          CSocket->Active=true;

          CSocket->Socket->SendText("UDISK_REFRESH");

          CSocket->Active=false;

          // 启动后台复制线程

          rundll=true;

        }

       else

       { DISocket->Socket->SendText("提示：找不到U盘的播放配置文件,请使用计算机MyTV软件生成播放文件！");

          //if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

          //{ fprintf(in2,"open file fall!\r\n");

          //   fclose(in2);

          // }

       }

       }

       catch(...)

       { //if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

          //{ fprintf(in2,"open file fall!2\r\n");

          //   fclose(in2);

          // }

       }

   }

   TForm::WndProc(Message);

   if(rundll)

   { cpm=new CopyMoive(true);

     cpm->Resume();

      //if ((in2 = fopen("c:\\t.txt", "at"))!= NULL)

      // { fprintf(in2,"rundll...\r\n");

      //     fclose(in2);

      //   }

   }

}

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

void __fastcall TMainForm::CSocketError(TObject *Sender,

      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{

   ErrorCode=0;

}

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

/

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

#include <vcl.h>

#include <stdio.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "UVD_IFC.h"

#pragma package(smart_init)

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

//   Important: Methods and properties of objects in VCL can only be

//   used in a method called using Synchronize, for example:

//

//      Synchronize(UpdateCaption);

//

//   where UpdateCaption could look like:

//

//      void __fastcall CopyMoive::UpdateCaption()

//      {

//        Form1->Caption = "Updated in a thread";

//      }

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

__fastcall CopyMoive::CopyMoive(bool CreateSuspended)

        : TThread(CreateSuspended)

{

}

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

void __fastcall CopyMoive::Execute()

{FILE *in20;

        //STEP1 :获取磁盘的剩余空间，获取文件的大小

        //STEP2:如果够拷贝则拷贝，

        //STEP3:否则删除磁盘中创建时间在一天前、等级最低的文件

        //STEP4: GOTO STEP1

    if ((in20 = fopen(MainForm->path.c_str(), "rb"))!= NULL)

       { int fi;

          int savelevel=0;

          FHEAD fhead;

          FRED fred;

          String delcmd;

          String Sql;

          // task 1:存入数据库 udisk

          fread(&fhead, sizeof(FHEAD), 1, in20);

          Sql.sprintf("select * FROM filesn WHERE sn = '%s'",fhead.SN);

          MainForm->UpdateQuery->Close();

          MainForm->UpdateQuery->SQL->Clear();

          MainForm->UpdateQuery->SQL->Add(Sql);

          MainForm->UpdateQuery->Open();

          if(MainForm->UpdateQuery->RecordCount>0)

               { fclose(in20);

                 MainForm->UpdateQuery->Close();

                 return;

                 }

           //写入数据库

          Sql.sprintf("INSERT INTO filesn (SN) VALUES ('%s')",fhead.SN);

          MainForm->UpdateQuery->Close();

          MainForm->UpdateQuery->SQL->Clear();

          MainForm->UpdateQuery->SQL->Add(Sql);

          MainForm->UpdateQuery->ExecSQL();

           //删除临时文件夹

          delcmd.sprintf("%s%d\\",LPATH,savelevel);

          DelTree(delcmd);

          Sql.sprintf("DELETE FROM Ldisk WHERE Save = 0");

          MainForm->UpdateQuery->Close();

          MainForm->UpdateQuery->SQL->Clear();

          MainForm->UpdateQuery->SQL->Add(Sql);

          MainForm->UpdateQuery->ExecSQL();

for_fi:   for(fi=0;fi<fhead.Num;fi++)

          { fread(&fred, sizeof(FRED), 1, in20);

            if(fred.IsCopy)

              { _ULARGE_INTEGER freespace,totalspace,userspace;

                HANDLE hFile;

                DWORD dwFileSize = 0;

                int filesz,disksz;//以兆位单位的

                //STEP1 :获取磁盘的剩余空间，获取文件的大小

                hFile = CreateFile(fred.Path,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);

                if(INVALID_HANDLE_VALUE!=hFile)

                 { bool NotCopy=false;

                   dwFileSize = GetFileSize(hFile,NULL)/1024/1024;

                   CloseHandle(hFile);

                   filesz=dwFileSize;

                   int totalsz;

                   do

                   { ::GetDiskFreeSpaceEx(LDISK,&freespace,&totalspace,&userspace);

                     disksz=userspace.QuadPart/1024/1024;

                     totalsz=totalspace.QuadPart/1024/1024;

                     if(filesz>(totalsz-50))

                       { String temp;

                         temp.sprintf("提示：磁盘空间太小无法复制 %s 该文件！",fred.Label);

                         MainForm->DISocket->Socket->SendText(temp);

                         goto for_fi;

                        }

                     //STEP2:如果够拷贝则拷贝，

                     if(filesz<(disksz-50))

                     {

                       String dFileName=GetFileName(fred.Path,fred.Save);

                       CopyFile(fred.Path,dFileName.c_str(),true);

                       NotCopy=true;

                       //写入数据库

                       Sql.sprintf("INSERT INTO Ldisk (No,Page,SubNo,Save,Type,Label,Path,Key0,Key1,Key2,Key3,Key4,Key5,Key6,Key7,Key8,Key9,KeyLeft,KeyRight,KeyUp,KeyDown) VALUES (%d,%d,%d,%d,%d,'%s','%s',%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)",

                        (fred.NO%10),(fred.NO/10),fred.SubNo,fred.Save,fred.Type,fred.Label,dFileName.c_str(),

                         fred.key[0],fred.key[1],fred.key[2],fred.key[3],fred.key[4],fred.key[5],fred.key[6],

                         fred.key[7],fred.key[8],fred.key[9],fred.key[10],fred.key[11],fred.key[12],fred.key[13]);

                       MainForm->UpdateQuery->Close();

                       MainForm->UpdateQuery->SQL->Clear();

                       MainForm->UpdateQuery->SQL->Add(Sql);

                       MainForm->UpdateQuery->ExecSQL();

                      }

                     else//STEP3:否则删除磁盘中创建时间在一天前、等级最低的文件

                    {   //删除临时文件夹

                       savelevel++;

                       if(savelevel>=3)

                         {String temp;

                           temp.sprintf("提示：磁盘空间太小无法复制 %s 该文件！",fred.Label);

                           MainForm->DISocket->Socket->SendText(temp);

                           goto end_if;

                         }

                       else

                         { delcmd.sprintf("%s%d\\",LPATH,savelevel);

                           DelTree(delcmd);

                           Sql.sprintf("DELETE FROM Ldisk WHERE Save = %d",savelevel);

                           MainForm->UpdateQuery->Close();

                           MainForm->UpdateQuery->SQL->Clear();

                           MainForm->UpdateQuery->SQL->Add(Sql);

                           MainForm->UpdateQuery->ExecSQL();

                         }

                     }

                   }while(!NotCopy);

                 }//..if(INVALID_HANDL

              }//..if(fred.IsCopy)

          }//..for(fi..

end_if:   fclose(in20);

        }//..if ((in =

}

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

String __fastcall CopyMoive::GetFileName(String fpath,int SaveLevel)

{ int p1;

   Word Year, Month, Day, Hour, Min, Sec, MSec;

   String tph=fpath;

   String FileName;

   do

   { p1=tph.AnsiPos(".");

     if(p1>0)

       tph=tph.SubString(p1+1,tph.Length());

   }while(p1);

   TDateTime dtPresent = Now();

   DecodeDate(dtPresent, Year, Month, Day);

   DecodeTime(dtPresent, Hour, Min, Sec, MSec);

   FileName.sprintf("%d\\%d%d%d%d%d%d%d%d.%s",SaveLevel,Year, Month, Day,Hour, Min, Sec, MSec,rand()%10,tph.c_str());

   FileName=LPATH+FileName;

   return (FileName);

}

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

void __fastcall CopyMoive::DelTree(String FileDir)

{ TSHFileOpStruct *Dir;

   String strTemp;

   Dir = (TSHFileOpStruct*)malloc(sizeof(TSHFileOpStruct));

   try

   { Dir->hwnd = this;

     Dir->wFunc = FO_DELETE;

     strTemp=FileDir+"*.*"+'\0';

     Dir->pFrom =strTemp.c_str();

     Dir->pTo = FileDir.c_str();

     Dir->fFlags = FOF_NOCONFIRMMKDIR+FOF_SILENT+FOF_NOCONFIRMATION;

     SHFileOperation(Dir);

   }

   catch(...)

    { if(Dir!=NULL)

       free(Dir);

    }

if(Dir!=NULL)

     free(Dir);

}

PPL1998
关注
专栏目录
BCB程序打包发布教程
11-16
详细介绍c++builder的打包过程，并附有图形说明
BCB6常用dll-BCB程序的运行库
10-03
【BCB6常用dll-BCB程序的运行库】是一个针对BCB6.0（Borland C++ Builder 6）开发环境的重要组件集合。这些动态链接库（DLLs）和相关文件是确保BCB程序在没有完整安装BCB6环境的计算机上也能正常运行的关键。下面将...
BCB 编写服务程序的一个注意事项
weixin_30377461的博客
12-13 95
BCB编写服务，install报错的一个问题 今天编写了一个服务，最后INSTALL 的时候报错，如图： 经过近1小时的比较（俺过去写例子），居然无意中设置了一个属性 查看BCB 的帮助。ServiceStartName 从文档大意，可知道，就是用与启动服务的名字。当时没看懂，查了msdn ...
BCB开发的程序发布注意
大伟的代码空间
07-24 2542
  从网络上看到的BCB开发的程序发布注意事项有以下两点，信息来自网络，呵呵  一般，我们这样发布程序：        在prject->Options->Compiler中点击Release,         在prject->Options->Packages中去掉Builder     with     runtime     packages选项         在prject->Op
BCB 用管理员身份运行程序
wawj522527的专栏
07-19 3119
BCB 用管理员身份运行程序 Vista提供的UAC机制，是Vista的新增功能之一。它的主要目的是防止对于操作系统本   身的恶意修改。如果想对于Vista的系统设置进行改动，必须通过UAC的验证才能够进行   。通过这样的手段，大大提供了系统的安全性。   关于UAC的利弊，网络上的说法褒贬不一，在这里就不具体讨论了。   对于Delphi程序的影响，UAC主要在于以下几
BCB和Delphi添加Windows服务的描述性文字
远方
03-14 1425
Delphi: var reg: TRegistry; begin reg := TRegistry.Create; try with reg do begin RootKey := HKEY_LOCAL_MACHINE; if OpenKey('SYSTEM\CurrentControlSet\Services\' + Name, false) the
（02）C++ builder之WINDOWS系统服务编写与WINDOWS桌面程序调用
路在脚下
03-15 1857
(中行雷威2018.3.12)（同一个世界，同一个梦想，交流学习C++Builder XE10，传承c++builder的魅力！欢迎各地朋友加入我的QQ群484979943,进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群）【阅读倡议】1、有问题请留言;2、没问题请点赞;3、看连载请加群;4、下源码请加群;【开发工具】1、C++...
IO端口读写(BCB).rar_C++builder _bcb_bcb 图像_c builder_io
07-15
在IT领域，C++Builder是一款强大的集成开发环境（IDE），专为C++编程设计，尤其在Windows平台上构建桌面应用程序方面表现出色。C++Builder集成了RAD（Rapid Application Development）工具，使得开发者能够快速地...
socket1_上位机的UDP传输测试程序BCB6_seeing966_
10-04
C++ Builder 6是一个集成开发环境，它提供了Visual C++风格的接口和Delphi的Object Pascal语言的结合，方便开发者创建Windows应用程序。在本项目中，主要涉及的知识点包括： 1. **Socket编程**：Socket是网络编程的...
OPC bcb 程序代码
06-23
Borland C++ Builder是一款集成开发环境，适用于创建Windows应用程序，特别是那些需要高效性能和低级系统访问的应用。 OPC服务器是OPC技术的核心部分，它负责与硬件设备交互，将设备的数据包装成OPC标准格式，供...
BCB6访问服务端数据库
04-15
用BCB6的控件写了一个访问服务端数据库的小程序，TServerSocket, TClientSocket, f分别作为服务端和客户端。数据用Access, 使用OAD控件和ODBC数据源
BCB CB CX11 C++Builder 10.1 Berlin 程序开发手册 和 配套程序
11-20
《BCB CB CX11 C++Builder 10.1 Berlin 程序开发手册》是一本详尽的指南，专为使用C++Builder 10.1 Berlin进行应用程序开发的程序员设计。这本书涵盖了大量的主题，旨在帮助开发者充分利用C++Builder的特性，提升...
C++ Builder 高手进阶 （五）用BCB编写多线程应用程序
开心果的专栏
01-30 5318
 C++ Builder 高手进阶（五）用BCB编写多线程应用程序nxyc_twz@163.com　　　随着Windows系统的全球性普及，多线程技术已越来越多地运用到许多软件设计中。使用多线程技术可全面提高应用程序的执行效率。以前为了实现多线程编程，基本上都是调用一系列的API函数，如CreateThread、ResumeThread等，不容易控制，还容易出错。在使用BCB以后，
子线程执行scheduledTimer
04-15 397
BCB日期处理
BEYOND
09-28 2444
 日期类型：TDateTime字符串到日期类型的转换：StrToDate两个全局变量：    ShortDateFormat   =   "yyyymmdd";    DateSeparator   =   -;    用来定义StrToDate函数的格式 代码        TDateTime dt,dt2,dt3;        unsi
常用的BCB 函数
芒果儿
09-08 3520
文件： ActnList  CreateAction 函数 创建一个指定类型的Action，显示在action list editor中。  EnumRegisteredAction 过程 枚举已经注册的Action  RegisterAction 过程 注册Action  UnRegisterAction 过程 反注册Action  文件： Classes  Bounds 函数
BCB讲座：文件读写与记录保存
在BCB讲座第十讲中，主要讨论了文件读写操作在C++ Builder项目中的应用，特别是针对之前开发的Mp3Collect程序，该程序在之前的讲座中已经实现了事件和事件处理函数，但在记录功能上存在缺陷，记录不能持久化保存。...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值