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 ?