Einzelnen Beitrag anzeigen

Bigmichi

Registriert seit: 12. Mär 2004
119 Beiträge
 
#1

Problem beim Senden mit Indy

  Alt 4. Apr 2004, 13:07
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 ?
  Mit Zitat antworten Zitat