Hi,
ich hab mir deinen Source jetzt ma angeguckt, bin an der Umsetzung aber gescheitert.
Ich hab genau deinen Source genommen, hat aber nicht funktioniert, d.h. die ListBox blieb ganz
leer, weder
IP noch Host wurde angezeigt.
Aus lauter Programmierfrust (
) hab ich nochma drüber nachgedacht und bin auf folgendes
gekommen:
Code:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
ltemp :string;
begin
edit10.text := 'User eingeloggt: ' + IntToStr(ServerSocket1.Socket.ActiveConnections);
nick := Socket.ReceiveText;
nick1 := xorstring(nick, '');
memo1.lines.Add(nick1);
nick1:=Copy(nick1, 1, 6);
lTemp := Socket.RemoteHost + ' ' + Socket.RemoteAddress + ' ' + nick1;
ListBox1.Items.AddObject(lTemp, Socket);
end;
Achso beim Clienten steht dann logischerweise:
Code:
procedure ClientSocket1ClientConnect;
begin
ClientSocket1.socket.sendtext(nachricht);
Das funktioniert aber nicht immer, nur manchmal, d.h. es macht was es will !!!!
Meistens geht es beim zweiten Mal, also wenn der Client die Verbindung trennt und
erneut herstellt dann geht es.
Wieso das ?