28 lines
427 B
ObjectPascal
28 lines
427 B
ObjectPascal
unit fClientDataModule;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, uROClient, uROLocalChannel, $MESSAGEUNIT;
|
|
|
|
type
|
|
TClientDataModule = class(TDataModule)
|
|
ROMessage: TRO$MSGCLSNAME;
|
|
ROChannel: TROLocalChannel;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
ClientDataModule: TClientDataModule;
|
|
|
|
implementation
|
|
|
|
uses fServerDataModule;
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|