Standalone Server Project

A Standalone Server project é o tipo mais simples de projeto uniGUI. Ele cria uma aplicação que é executada de forma semelhante a uma aplicação de desktop, ou seja, a aplicação é iniciada e encerrada pelo usuário. Este tipo de aplicação é mais adequado para fins de depuração. Abaixo estão arquivos de projeto de exemplo para um Standalone Server recém-criado. Veja também Deployment Options.

Project1.dpr

program Project1;

uses
  Forms,
  ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
  MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},
  Main in 'Main.pas' {MainForm: TUniForm};

{$R \*.res}

begin
  Application.Initialize;
  TUniServerModule.Create(Application);
  Application.Run;
end.

Project1.cpp

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

#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include <UniGUIVars.hpp>

USEFORM("ServerModule.cpp",UniServerModule);/* TUniGUIServerModule: File Type */
USEFORM("MainModule.cpp",UniMainModule);/* TUniGUIMainModule: File Type */
USEFORM("Main.cpp",MainForm);/* TUniForm: File Type */

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

#ifdef _WIN64
#pragma link "UniGUIVars.o"
#else
#pragma link "UniGUIVars.obj"
#endif

#pragma Project1

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

int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  ReportMemoryLeaksOnShutdown = true;
  try
  {
    Forms::Application->Initialize();
    Uniguivars::CreateServerModule(__classid(TUniServerModule));
    Forms::Application->Run();
  }
  catch(Exception &exception)
  {
  }
  return 0;
}

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

Veja também: Standalone Server (Console Application)

AnteriorCriando uma Nova Aplicação uniGUI PróximoStandalone Server (Aplicação de Console)