TidTCP records senden/empfangen

[XXcD]

Hallo,
ich kann komischerweise keine records vom idtcpserver zum idtcpclient senden.

Ich habe den Code aus folgendem Thread:
http://www.delphipraxis.net/internal...t.php?p=989054

Mein Code sieht so aus:

Server:

Delphi-Quellcode:

type
  TSendChannellist = record
   Channels: String;
  end;

  type
  TChannel = class(TObject)
  ID: String;
  Name: string;
  Port: Integer;
  MaxUser: Integer;
  Password: string;
  end;

var
ChannelList: TList;

...

procedure TLogin.ServerExecute(AThread: TidContext);
var
SendChannelsList: TSendChannellist;
Buffer: TIdBytes;
Channel: TChannel;
begin

with AThread as TidContext do
   begin
   read:=Connection.Socket.ReadLn;
   end;

//Channellist abrufen
if unpackpacketid(Read)='02' then
begin
Channel:=ChannelList.Items[0];
SendChannelsList.Channels:= Channel.Name;

Buffer := RawToBytes(SendChannelsList, sizeof (TSendChannellist));
TidContext(AThread).Connection.IOHandler.Write(Buffer);
end;
end;

Client:

Delphi-Quellcode:

type
  TSendChannellist = record
   Channels: String;
  end;
PSendChannellist = ^TSendChannellist;

...

procedure TForm3.Button6Click(Sender: TObject);
var
Buffer: TIdBytes;
SendChannellist: PSendChannellist;
begin
IdTCPClient1.Socket.WriteLn(Edit2.Text);
New(SendChannellist);

IdTCPClient1.IOHandler.ReadBytes(Buffer, SizeOf (TSendChannellist));
BytesToRaw (Buffer, SendChannellist^, SizeOf (TSendChannellist));

Memo9.Lines.Add(SendChannellist.Channels);

end;

Beim Server läuft alles einwandfrei, doch beim Client kommt nur ein leerer String an.
Was kann denn da schiefgelaufen sein?

[franktron]

Du sendest doch nur ein Byte wie soll das den gehen

[XXcD]

Achso ok das hilft mir schon mal weiter.
Ich habe den Code nämlich selbst noch nicht so ganz verstanden, da ich soetwas noch nie brauchte.

Wie kann ich denn ganze records senden?
Dort müssen z.b. Bilder, Stringlists und strings rein.

[Klaus01]

Wenn Du Bilder und StringListen in den Record
speichern willst mußt Du die Inhalte der Bilder udn StringListen
abspeichern, denn im Record steht dann nur die Adresse der ObjectInstanz.

Grüße
Klaus

[XXcD]

Ja ok könntest du mir denn zeigen wie das mit Stringlisten geht?
Einfach so ein Beispiel, bei dem eine Stringlist vom Server zum Client gesendet wird

[Klaus01]

Hallo,

ein Beispiel habe ich gerade nicht zur Hand.
Aber den Inhalt der TStringList bekommst Du
mit sl.text (wenn sl Deine StringList ist)
und den Text kannst Du wie gewohnt versenden.

Grüße
Klaus

[XXcD]

Es muss doch auch möglich seon ganze packete zu verschicken, wo strings usw. Drin sind. Das wäre nämlich wichtig ich z.b. Bilder mit texten dazu laden möchte.

[Klaus01]

Guten Abend,

dann solltest Du dir ein geignetes Protokoll überlegen.

Nehmen wir an

Beginn der Übertragung(2Byte),Länge des Textes(2Byte),Text,Größe der Bilddatei(4Byte).Bilddatei,Ende der Übertragung(2Byte);

Für jeden Sendevorgang mußt Du dir alles entsprechend zusammenbauen.
Der Empfänger kann es dann wieder richtig auspacken.

Grüße
Klaus

[XXcD]

Ok aber wie funktioniert das genau?
Gibt es da nicht irgendwelche Demos für TCP die so einen Fall beinhalten?

[Blup]

Dein Problem hat mit TCP nur sekundär zu tun.

Überführe deine Datenstruktur in eine transportablen Datenstrom, am besten in einen Stream.
Statte jeden verwendeten Datentyp mit einer Methode SavetoStream und LoadfromStream aus.
Zusammengesetzte Datentypen müssen intern für jedes Unterelement SavetoStream bzw. LoadFromStream aufrufen.
Alternativ könnte man mit Hilfsklassen arbeiten (Reader/Writer) die diese Aufgabe übernehmen.

Delphi-Quellcode:

TChannel = class(TObject) 
  ID: String; 
  Name: string; 
  Port: Integer; 
  MaxUser: Integer; 
  Password: string;
  procedure LoadFromStream(AStream: TStream);
  procedure SaveToStream(AStream: TStream);
end;

procedure TChannel.SaveToStream(AStream: TStream);
var
  iLen: Integer;
begin
  {String ID}
  iLen := Length(ID);
  AStream.Write(iLen, SizeOf(iLen));
  AStream.Write(ID[1], iLen);
  {String Name}
  iLen := Length(Name);
  AStream.Write(iLen, SizeOf(iLen));
  AStream.Write(Name[1], iLen);
  {Integer ID}
  AStream.Write(Port, SizeOf(Port));
{...}

end;

procedure TChannel.LoadFromStream(AStream: TStream);
var
  iLen: Integer;
begin
  {String ID}
  AStream.Read(iLen, SizeOf(iLen));
  SetLength(ID, iLen);
  AStream.Read(ID[1], iLen);
  {String Name}
  AStream.Read(iLen, SizeOf(iLen));
  SetLength(Name, iLen);
  AStream.Read(Name[1], iLen);
  {Integer ID}
  AStream.Write(Port, SizeOf(Port));
{...}

end;

Jetzt solltest du z.B. einen TMemoryStream erzeugen und deine Datenstruktur speichern und wieder lesen können.
Der TMemorystream verfügt über einen Buffer in dem die gespeicherten Daten als ein zusammenhängender Speicherblock abgelegt sind. Das Problem reduziert sich darauf diesen Block zu übertragen.
Dazu sollte erst die Anzahl der Byte (Stream.Size) und anschließend die eigentlichen Daten (Stream.Buffer^) gesendet werden.
Beim Empfangen entsprechend erst die Anzahl der Byte zuweisen (Stream.Size) und anschließend die Daten lesen.