Marco Cantù 1998, Mastering Delphi 4
Project: MTSCLI.DPR
Project Structure
MTSCLI.DPR
program MtsCli;
uses
Forms,
MtsCliF in 'MtsCliF.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
MTSCLIF.PAS
unit MtsCliF;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids, DBClient, MConnect;
type
TForm1 = class(TForm)
DCOMConnection1: TDCOMConnection;
ClientDataSet1: TClientDataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
procedure DCOMConnection1AfterConnect(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DCOMConnection1AfterConnect(Sender: TObject);
begin
DCOMConnection1.AppServer.Hello;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientDataSet1.Active := True;
end;
end.
MTSCLIF.DFM
object Form1: TForm1
Left = 228
Top = 107
Width = 356
Height = 194
Caption = 'MtsCli'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 16
Top = 16
Width = 313
Height = 129
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DCOMConnection1: TDCOMConnection
ServerGUID = '{4A0AD2F8-1B2C-11D2-B9F1-004845400FAA}'
ServerName = 'MtsPrj.FirstMTS'
AfterConnect = DCOMConnection1AfterConnect
Left = 56
Top = 32
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'Table1'
RemoteServer = DCOMConnection1
Left = 128
Top = 32
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 208
Top = 32
end
end
Copyright Marco Cantù 1998