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?

[DeddyH]

Delphi-Quellcode:

Nachricht.Nickname := 'Hello';
Nachricht.More := TStringList.Create;
try
  Nachricht.More.Assign(Listbox1.Items);
  Socket.SendBuf (Nachricht, SizeOf(Nachricht));
finally
  Nachricht.More.Free;
end;

Mal so versucht? Wobei ich jetzt nicht ganz sicher bin, ob nicht nur der Zeiger auf das Objekt übertragen wird. In dem Fall muss man sich etwas anderes überlegen.

[k4ni]

Danke, geht aber auch nicht :(

Normale strings zu senden und zu empfangen geht ganz einfach, aber das ist nicht so leicht.

[DeddyH]

Das hatte ich befürchtet. Du wirst wohl nur den Objektzeiger übergeben.

[k4ni]

Also ich hab das vorher falsch eingefügt sorry.

Jetzt geht es schon weiter und die adress violation kommt jetzt später wenn es das macht:

Delphi-Quellcode:

Listbox1.Items.AddStrings(Nachricht.More);

das geht auch nicht:

Delphi-Quellcode:

Listbox1.Items.Assigns(Nachricht.More);

obwohl ich oben before

Delphi-Quellcode:

  Socket.ReceiveBuf (Nachricht, SizeOf(Nachricht));

das gemacht hab

Delphi-Quellcode:

Nachricht.More := TStringList.Create;

[Muetze1]

In der Nachricht ist More eine Klassenreference. Dies ist nur die Adresse, wo die Klasse liegt aber nichtmal ansatzweise die Adresse wo die Strings liegen. Du versendest einfach nur die Adresse, wo in der Application vom Server die Klasseninstanz liegt. Das bringt dir rein gar nichts, weil ob beim Client eine gültige Instanz an der Stelle liegt ist mehr als fraglich (sirius letzte Aussage: 1 zu 4 Milliarden) und zum anderen würde die Instanz immernoch keine Strings haben - weil die gar nicht übertragen werden.

Versende die Userliste aus dem TStrings Objekt als String. Nutze dazu die Eigenschaft Text um es in die Nachricht als String abzulegen und weise es nach dem Empfang wieder der Text Eigenschaft zu, um wieder eine Liste zu erhalten.

[k4ni]

Ohh ya :) Vielen dank!

Also zum senden verwende ich jetzt

Delphi-Quellcode:

Nachricht.Nickname := 'Hello';
Nachricht.Text := Listbox1.Items.Text;
Socket.SendBuf (Nachricht, SizeOf(Nachricht));

und zum empfangen

Delphi-Quellcode:

if Nachricht.Nickname = 'Hello' then begin
Listbox1.Clear;
Listbox1.AddItem(Nachricht.Text, NIL);

Doch im client empfang ich alle namen in einer reihe wie kann ich das ändern?
Oder mach ich das alles überhaupt richtig?

EDIT: In einem Memo wurde es die zeilenumbrüche mitnehmen, aber nicht in einer Listbox.

[k4ni]

Gibt es wirklich keinen weg das als TStrings lsit zu senden?

[Muetze1]

1. Pushen ist erst nach 24 Stunden erlaubt, also lass uns doch erstmal Zeit, deine Beiträge zu lesen. Wir werden hier schliesslich nicht bezahlt für die Arbeit!

2. Du hast es nicht so umgesetzt, wie ich es geschrieben habe. Senden schon, aber beim empfangen weist du es nicht der Text Property zu.

[k4ni]

Oh, Sorry!
Ich mach daran jetzt schon lange herum.
Kannst du mir bitte sagen wie es geht?

[SirThornberry]

auch beim senden macht er es noch falsch. Er sendet weiterhin die Objectreferenz "Nachricht" und nicht den Text "Nachricht.Text".

Delphi-Quellcode:

var
  lText: String;
begin
  lText := ListBox1.Items.Text;
  Socket.SendText(lText, Length(lText));

auf der Gegenseite dann genau so wieder empfangen.

Allerdings machst du seit her wohl einen großen Fehler. Du sendest die Daten ohne irgend ein bestimmtes Format. Das heißt wenn 2 Nachrichten kurz hintereinander gesendet werden kann es schnell mal passieren das diese als eine große Nachricht ankommen. Du müsstest dir also noch ein protokoll oder eine maskierung überlegen.

[Muetze1]

Zitat:

Zitat von SirThornberry

auch beim senden macht er es noch falsch. Er sendet weiterhin die Objectreferenz "Nachricht" und nicht den Text "Nachricht.Text".

Wie schließt du darauf? Er benutzt nun beim Senden folgenden Code:

Delphi-Quellcode:

Nachricht.Nickname := 'Hello';
Nachricht.Text := Listbox1.Items.Text;
Socket.SendBuf (Nachricht, SizeOf(Nachricht));

Wenn Nachricht eine TStringList hätte, dann müsste unter dem Qualifizierer Nachricht erstmal der Name des TStrings Objektes folgen und dann dessen Eigenschaft Text. Das kann mit dem o.g. Code nicht sein. Einzige Möglichkeit wäre, wenn er von TStrings/TStringList abgeleitet hätte und dieser neuen Klasse eine Eigenschaft/öffentlichen Member Nickname verpaßt hätte. Davon gehe ich aber mal nicht aus. Somit scheint er es ordentlich auf einen String geändert zu haben, wie ich es geschrieben hatte.

[k4ni]

Also das hesit gesendet hab ich es richtig aber angenommen nicht?
Ich glaub mal schon ja weil wenn ich die empfangene nachricht in ein Memo setze dann geht es ja wunderbar, nur nicht in der ListBox da ich dort nicht weis wie ich es dort einfügen soll.

[michagolf4]

hallo alle zusammen,

ich denke mal wenn er die einzelnen strings in eine listbox einfügen will sollt er

Delphi-Quellcode:

  ListBox.Items.Add(dein_string)

benutzen

aber um eine ganze liste hinzuzufügen wiederum

Delphi-Quellcode:

  ListBox.Items := deine_StringList

ich hoffe ich konnte helfen

tschö michagolf4

[Muetze1]

Zitat:

Zitat von k4ni

Ich glaub mal schon ja weil wenn ich die empfangene nachricht in ein Memo setze dann geht es ja wunderbar, nur nicht in der ListBox da ich dort nicht weis wie ich es dort einfügen soll.

Was hatte ich denn geschrieben?

Delphi-Quellcode:

ListBox1.Items.Text := Nachricht.Text;