unitmsgdm.pas

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

unit Unitmsgdm;

interface

uses
  SysUtils, Classes, MConnect, ObjBrkr, DB, DBClient, SConnect,forms,windows,inifiles;

type
  Tdm = class(TDataModule)
    SocketConn: TSocketConnection;
    Simple: TSimpleObjectBroker;
    cdsggb: TClientDataSet;
    Dsbbs: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

uses Unitzcser;

{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
var
  fl:tinifile;
  s,remo:string;
  i,j:integer;
  sv:tserveritem;
begin
  fl:=tinifile.Create(ExtractFilePath(application.ExeName)+'remoserver.ini');
  s:=fl.ReadString('servers','counts','');
  if s='' then
  begin
    i:=0;
  end else
  begin
    i:=strtoint(s);
  end;
  for j:=1 to i do
  begin
    remo:=fl.ReadString('servers','servier'+inttostr(j),'');
    simple.Servers.Add;
    simple.Servers[j-1].ComputerName:=trim(remo);
  end;
  fl.Free;
  try
  socketconn.Connected:=true;
  except
    application.MessageBox('应用服务器连接错误,请重新注册应用服务器！',pchar(application.Title),mb_iconwarning);
    application.CreateForm(tfrmzcser,frmzcser);
    frmzcser.ShowModal;
  end;

end;

end.