1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function TClientVerbindungClient.verbunden_c: Boolean;
begin
  if Fverbunden_cCommand = nil then
  begin
    Fverbunden_cCommand := FDBXConnection.CreateCommand;
    Fverbunden_cCommand.CommandType := TDBXCommandTypes.DSServerMethod;
    Fverbunden_cCommand.Text := 'TClientVerbindung.verbunden_c';
    Fverbunden_cCommand.Prepare;
  end;
  Fverbunden_cCommand.ExecuteUpdate;
  Result := Fverbunden_cCommand.Parameters[0].Value.GetBoolean;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TGUI.B_verbindenClick(Sender: TObject);
var
  Temp: TClientVerbindungClient;
begin
  SQLConnect_muehle_client.Params.Values['HostName'] := E_verbinden.Text;
  SQLConnect_muehle_client.Connected := true;

  Temp:=TClientVerbindungClient.Create(SQLConnect_muehle_client.DBXConnection);
    //try
      if Temp.verbunden_c()=true then begin;
        ShowMessage('Verbunden...');
        B_verbinden.Enabled := false;
        L_status.Caption:='Du bist an der Reihe';
        derChat.schreibeIP(E_verbinden.Text);
        dieSteuerung.verbunden();
      end;
    {except
      ShowMessage('Verbindungsfehler!');
    end; }
  Temp.Free;
end;                    

1:
2:
3:
4:
5:
6:

function TClientVerbindung.verbunden_c():boolean;
begin
  AnzSteineImSpiel:=0;
  dieGUI.verbunden();
  result := true;
end;                    

1:
2:
3:
4:

constructor TClientVerbindung.erzeugeClientVerbindung(p_GUI:TGUI);
begin
  dieGUI:=p_GUI;
end;                    

1:
2:
3:
4:
5:

procedure TGUI.FormCreate(Sender: TObject);
begin
  dieSteuerung := TSteuerung.CreateSteuerung(self);
  TClientVerbindung.erzeugeClientVerbindung(self);
end;                    

1:
2:
3:
4:

procedure TGUI.DSMuehleClass_serverCreateInstance(DSCreateInstanceEventObject: TDSCreateInstanceEventObject);
begin
  DSCreateInstanceEventObject.ServerClassInstance := TClientVerbindung.Create(Self);
end;                    

1:
2:
3:
4:
5:

  TThread.Queue(nil,
    procedure
    begin
      dieGUI.verbunden();
    end);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TOnConnect = procedure(...) of object;

  property OnConnect: TOnConnect read FOnConnect write FOnConnect;

  if Assigned(FOnConnect) then
    TThread.Synchronize(nil,
      procedure
      begin
        FOnConnect(...);
      end;                    

1:
2:
3:
4:

//
// Erzeugt vom DataSnap-Proxy-Generator.
// 24.06.2012 15:24:31
// bearbeitet!!!!!!!!!!!!                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

constructor TSteuerung.Create(p_GUI:TGUI);
var
  I: Integer;
begin
  for I := 1 to 9 do begin
    derStein_weiss[I] := TStein.Create();
    derStein_schwarz[I] := TStein.Create();
  end;

  for I := 1 to 8 do begin
    dasSpielfeld_innen[I] := TSpielfeld.Create();
    dasSpielfeld_mitte[I] := TSpielfeld.Create();
    dasSpielfeld_aussen[I] := TSpielfeld.Create();

    dasSpielfeld_innen[I].aendereBesetzung(keine_f);
    dasSpielfeld_mitte[I].aendereBesetzung(keine_f);
    dasSpielfeld_aussen[I].aendereBesetzung(keine_f);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

constructor TClientVerbindung.Create(p_GUI:TGUI; p_Steuerung: TSteuerung);
var
  I:cardinal;
begin
  for I := 1 to 9 do begin
    derStein_weiss[I] := TStein.Create();
    derStein_schwarz[I] := TStein.Create();
  end;

  for I := 1 to 8 do begin
    dasSpielfeld_innen[I] := TSpielfeld.Create();
    dasSpielfeld_mitte[I] := TSpielfeld.Create();
    dasSpielfeld_aussen[I] := TSpielfeld.Create();

    dasSpielfeld_innen[I].aendereBesetzung(keine_f);
    dasSpielfeld_mitte[I].aendereBesetzung(keine_f);
    dasSpielfeld_aussen[I].aendereBesetzung(keine_f);
  end;
end;