Ok, wahrscheinlich hast du Recht und ihc bin auch shcon ziemlich durcheinander im Projekt. Das liegt einfach daran, dass am Anfang viele Dinge nicht mit bedacht werden und die dann hinterher füchtig eingesetzt werden!
Ich denke ich schriebe die Units nochmal neu und ordentlich!
Zu der Sache mit dem Controller. Also nur der Server kennt den Controller!
Wenn ein Spieler setzt, schickt er eine Nachricht an den Server, zB:
'Bet[600]' ---> 600setzen
Wenn der Server das empfängt, soll er den Controller benachrichtigen, dass er die procedure Bet aufruft!
Dann kann der Controller aber nichtmehr den Server benachrichtigen, wenn er die procedure ausgeführt hat, weil er den Server ja nicht in den Uses hat!
Ich weiss nun wie ich über-kreuz-uses machen kann, aber ich will es garnicht, will mein Projekt ja hinterher ordentlich haben!
Was hälst du denn davon wie ich die Nachrichten schicke und auswerte?
Ich schreib hier ma n paar Zeilen dazu:
Delphi-Quellcode:
SendText('Call'); //wär zB ein einfacher Call
SendText('SGeld(1)[1500]'); //würde zB das Geld von Spieler 1 auf 1500 setzen
Ansatz so richtig oder Verbesserungsvorschlag?
Zur Auswertung hab ich mir ne Funktion geschrieben, der ich einen String und zwei Zeichen geben kann, und die dann den Substring zwischen den beiden Zeichen ausgibt.
Sieht dann zB so aus:
Delphi-Quellcode:
function TMyClient.Klammern(Value, Search1, Search2: String): String; //eben genannte Funktion
begin
Result := Copy(Value, Pos(Search1, Value) + 1, Pos(Search2, Value) - Pos(Search1, Value) - 1);
end;
procedure TMyClient.Parse_Text(Value: String); //hier wird dann der Text ausgewertet, hoffe das ist einigermassen verständlich!
var
temp: String;
begin
temp := Copy(Value, 0, Pos('[', Value) - 1);
if temp = 'CBet' then //CBet wird geändert
CBet := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'Phase' then //Phase wird geändert
Phase := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'SBlind' then //SBlind wird geändert
SBlind := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'Dealer' then //Dealer wird geändert
Dealer := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'AktiverSp' then //AktiverSp wird geändert
AktiverSp := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'Pot' then //Pot wird geändert
Pot := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'ClientNumber' then //ClientNr wird zugewiesen
ClientNr := StrtoInt(Klammern(Value, '[', ']'));
if temp = 'Start' then //Spielstatus
if Klammern(Value, '[', ']') = 'True' then
Start := True
else
Start := False;
end;
Gibts da eigentlich ne schönere/bessere Möglichkeit als diese tausend if-Abfragen?
Und dann hab ich da noch ein Problem:
Der Server schickt oft soviele Nachrichten nacheinander, dass der Server beim auswerten die Nachrichten durcheinander bringt, wie kann ich das verhindern?
Danke für die Hilfe und hoffe ich hab nix vergessen, aber jetzt muss mein Hund raus
