kann bei OnConnect keine TStrings liste übergeben

[k4ni]

Hey leute,

Ich bin gerade dabei einen chat zu machen.
Und das mache ich mit ServerSocket und ClientSocket, und was klar ist wenn der Client connected braucht er eine liste mit den leuten die schon im chat sind. Und diese liste gibt es auf dem Server.

Also übergeb ich die list von einer ListBox in TStrings. Also ungefähr so:

Delphi-Quellcode:

Server:
Nachricht.More(Listbox1.Items);  //More ist TStrings

Client:
Listbox1.Clear;
Listbox1.Items.AddItems(Nachricht.More);  //Natürlich noch die nachricht davor empafangen

Also damit ihr das noch besser versteht, hier die source: Download

Ich versteh einfach nicht warum das nicht funktioniert.

Danke im voraus!!

[mkinzler]

Ist .More jetzt eine Eigenschaft oder Methode?

[k4ni]

Delphi-Quellcode:

type  TChatNachricht = Record
        Nickname: string[255];
        Text:     string[255];
        Text2:    string[255];
        More:     TStrings
      end;

[mkinzler]

Delphi-Quellcode:

Nachricht.More.Assign(Listbox1.Items);

[k4ni]

Danke :-D
doch jetzt kommt eine Address Violation beim Server.

[mkinzler]

Und andersherum?

[DeddyH]

Da es sich um ein Objekt handelt, musst Du es zunächst erst instanziieren. Hast Du daran gedacht?

[k4ni]

Nein, und ich weis auch nicht was das heist.
Bitte um erklärung

[DeddyH]

Damit meine ich, dass Du bei TStrings erstmal irgendwo ein Create aufrufen musst.

[k4ni]

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?