Ich hab das:
Delphi-Quellcode:
Nachricht.Nickname := 'Hello';
Nachricht.More.Create;
Nachricht.More.Assign(Listbox1.Items);
Socket.SendBuf (Nachricht, SizeOf(Nachricht));
und das:
Delphi-Quellcode:
Nachricht.Nickname := 'Hello';
Nachricht.More.Create. Assign(Listbox1.Items);
Socket.SendBuf (Nachricht, SizeOf(Nachricht));
Jetzt kommen immernoch erors. Nur ich glaub das liegt daran das ich es beim Client auch noch Createn muss.
Aber ich weis nicht wie ich das machen muss. Ich habs jetzt mal so versucht:
Delphi-Quellcode:
Nachricht.More.Create;
Socket.ReceiveBuf (Nachricht, SizeOf(Nachricht));
if Nachricht.Nickname = 'Hello' then begin
Listbox1.Clear;
Listbox1.Items.AddStrings(Nachricht.More);
Idee?