Erstens: dein QuellCode ist echt besh*** formatiert ... kaum zu entziffern.
Zweitens: das "=true" gewöhn dir ganz schnell ab, es kann und wird abundzu zu Problemen führen
denn TRUE ist nicht gleich TRUE
Teste es selber mal
Delphi-Quellcode:
Var B: Boolean;
Begin
B := True;
If B = False Then ... // wird nicht ausgelöst
If B = True Then ... // wird ausgelöst (OK, hier funktioniert es mal)
If not B Then ... // wird nicht ausgelöst
If B Then ... // wird ausgelöst
B := Boolean(2); // ist im Grunde auch True, da TRUE <> 0
If B = False Then ... // wird nicht ausgelöst
If B = True Then ... // wird auch nicht ausgelöst !!!
If not B Then ... // wird nicht ausgelöst
If B Then ... // wird ausgelöst
B := Boolean(0); // oder B := False;
If B = False Then ... // wird ausgelöst
If B = True Then ... // wird nicht ausgelöst
If not B Then ... // wird ausgelöst
If B Then ... // wird nicht ausgelöst
End;
Server:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
Text: String;
i: integer;
begin
Text := Socket.ReceiveText;
if Pos('\\', Text) = 1 then
Memo2.Lines.Add(Text)
else
Memo1.Lines.Add(TimeToStr(now) + ': ' + Text);
For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
with ServerSocket1.Socket.Connections[i] do
if connected then SendText(Text);
end;
Client:
Delphi-Quellcode:
Var
IP:
string;
begin
Label3.Caption :=
IP;
if ClientSocket1.Active
then
ClientSocket1.socket.SendText('
\\' +
IP);
end;
[add]
wo war der Rote Kaste ... Daaaannniiiieeellll?