Problem beim Senden mit Indy

[Bigmichi]

ich bin mir ein kleinen chat am aufbauen nur mein Problem ist, dass
der Text immer nur 100 Zeichen lang sein kann wieso ?

mein code sieht so aus:

Code:

procedure TClientFrmMain.ButtonSendClick(Sender: TObject);
var
  CommBlock : TCommBlock;

begin
  CommBlock.Command      := EditCommand.Text;         // assign the data
  CommBlock.MyUserName   := Client.LocalName;
  CommBlock.Msg          := EditMessage.Text;
  CommBlock.ReceiverName := EditRecipient.Text;

  Client.WriteBuffer (CommBlock, SizeOf (CommBlock), true);

  editmessage.Clear;
end;

ist das falsch ?

[Sharky]

Wie ist denn TCommBlock deklariert?
Und was bitte ist Client?

[Bigmichi]

deklarieren ?

hab nur wie gesagt

var
CommBlock : TCommBlock;

und Client is der indy TCP CLient

[Sharky]

Zitat von Bigmichi:

...var
CommBlock : TCommBlock;...

Hmmm.... mein Indy kennt das nicht.

[Bigmichi]

Hier der Bsp code von Indy Page persönlich daraus habe cha uch meins erstellt =)