dataserver.dpr

delphi写的基于server和client的聊天源码 有参考意义

program dataserver;

uses
  Forms,
  Unitservermain in 'Unitservermain.pas' {frm_servermain},
  dataserver_TLB in 'dataserver_TLB.pas',
  Unitserverdata in 'Unitserverdata.pas' {galssdata: TRemoteDataModule} {galssdata: CoClass},
  Uniteyesaledata in 'Uniteyesaledata.pas' {eyesale: TRemoteDataModule} {eyesale: CoClass},
  Unitlocatdata in 'Unitlocatdata.pas' {Dm: TDataModule},
  Unitzc in 'Unitzc.pas' {Formzc},
  Unitmessagedbase in 'Unitmessagedbase.pas' {messagedbase: TRemoteDataModule} {messagedbase: CoClass};

{$R *.TLB}

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '数据应用服务器';
  Application.CreateForm(Tfrm_servermain, frm_servermain);
  try
    Application.CreateForm(tdm,dm);
  except
  end;
  Application.Run;
end.