🚀 go-pugleaf

Remy Lebeau (TeamB) wrote:
> "Emmanuel" <emmanuel@erphk.com> wrote in message
> news:4201c82d$1@newsgroups.borland.com...
> 
> 
>>but I find that Borland SocketServer which provided by
>>Borland C++builder can work as Service and work as
>>a single program
> 
> 
> TServerSocket is an individual component, not a project of its own.  Writing
> a project for a standalone application and writing a project for a service
> use very different architectures.  For what you ask, you would have to write
> project-neutral code and then include it into both projects.  For that, you
> can use a TDataModule, for instance.  Put all of your shared code into a
> TDataModule that has no concept of what kind of project it is being used
> with, and then you can include the DataModule into both an application
> project and a service project.
You can modify a project to support both running as an application or as 
a service. You need to take some precautions to prevend builder from 
screwing up the changes you have to make to the WinMain function. I have 
done it as follows.

project.cpp
===========

USERES("hybrid.res");
USEFORM("hybridserviceunit.cpp", HybridService); /* TService: DesignClass */
USEFORM("HybridFormUnit.cpp", HybridForm);
//---------------------------------------------------------------------------
// This WinMain is to keep builder happy.
#if 0
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
	try
	{
		Application->Initialize();
		Application->Title = "hybrid";
		Application->CreateForm(__classid(THybridService), &HybridService);
		Application->CreateForm(__classid(THybridForm), &HybridForm);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Sysutils::ShowException(&exception, Sysutils::ExceptAddr());
	}
	return 0;
}
#else
// This file contains the real WinMain
#include "winmain.cpp"
#endif


winmain.cpp
===========

#include <SvcMgr.hpp>

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR cmd, int)
{
	try
	{
		AnsiString cmdline = AnsiString(cmd).Trim().LowerCase();
		bool service = true;
		if (cmdline == "/app") service = false;
		// >>>>>>>>>>>>>
		if (service) {
			Svcmgr::Application->Initialize();
			Svcmgr::Application->Title = "hybrid";
			Svcmgr::Application->CreateForm(__classid(THybridService), 
&HybridService);
			Svcmgr::Application->Run();
		} else {
			Forms::Application->Initialize();
			Forms::Application->Title = "hybrid";
			Forms::Application->CreateForm(__classid(THybridForm), &HybridForm);
			Forms::Application->Run();
		}
		// >>>>>>>>>>>>>
	}
	catch (Exception &exception)
	{
		Sysutils::ShowException(&exception, Sysutils::ExceptAddr());
	}
	return 0;
}


Eelke