vielen Dank

/Edit : Bitte aussagekräftigeren Thematitel wählen

Was gibt es da zu erklären? Es wird statt dem normalen AnsiString (SendText) eben ein Bytearray verschickt. Der Start wird durch Buf gekennzeichnet, die Größe in Bytes bzw. die Anzahl der Zeichen durch Count.

bis bald
akari

Ich habe die Anzahl der User in einem Chat als Variable gespeichert,
die ich dann über SendBuf an die Clienten übetragen will.

Was muss ich dazu machen?

Nehmen wir mal an die Variable sei int a;

(für a<10)

ServerSocket1->Socket->SendBuf(a,1);

aber das geht ja nicht. wie muss in diesem fall der befehl genau lauten?
Das heißt, was muss ich in die Klammern schreiben?

Nico

Diese Funktion ist in erster Linie dazu um binäre Daten zu übertragen. Vermutlich ist es für dich einfacher den Integer einfach als String zu senden

SendText(IntToStr(a));

Wenn du den Integer unbedingt binär übertragen willst (da du ansonsten keine anderen binären Daten zu senden scheinst ist das bei dir sicher nicht notwendig) must du eben casten

SendBuf(reinterpret_cast<void*>(&a), sizeof(a));

Auf jedenfall must du natürlich genauso empfangen wie du sendest und dieser Steuerwert muß auch durch dein Anwendungsprotokoll definiert werden, um besondern behandelt zu werden.

bis bald
akari

Das heißt ich empfange so?

ClientSocket1->Socket->ReceiveBuf(reinterpret_cast<void*>(&a), sizeof(a))
Label7->Caption= "User online: " + a;

genau das hilft dir da nicht weiter, denn im On...Read-Event weiß der Emfänger ja nicht, ob SendText oder SendBuf vom Sender benutzt wurde. Das wird nur durch den Kontext klar, der durch ein von dir festgelegtes Protokoll definiert wird.
Einfaches Beispiel :
Der Server sendet Text normal mit SendText, den UserCount durch

SendText(AnsiString("USERCOUNT:") + IntToStr(a));

Im Event der Clients muß jetzt also der Text wieder überprüft werden

AnsiString Text = ...;
if (Text.Pos("USERCOUNT:") == 1) // Usercount wurde gesendet
{
  Text.Delete(1, 10);
  int a = StrToInt(Text); 
  ... // Usercount weiter verarbeiten
  return;
}
...
// Normalen Text weiterverarbeiten

Das hätte noch den kleinen Schönheitsfehler, das auch durch Benutzereingaben ein Usercount-Versand vorgetäuscht werden könnte. Deshalb werden normalerweise alle Usereingaben noch gekapselt (gequotet), um Steuerdaten zusätzlich und außerhalb Userreichweite übertragen zu können.

bis bald
akari

theoretisch könnte man ja auh einfach usereingaben mit USERCOUNT verbieten.

ich probiers aus! Nico

Nico (16:25) : HiUSERCOUNT: 1

Das ist mein Code:

im Clienten:

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
AnsiString Text = ClientSocket1->Socket->ReceiveText();

if (Text.Pos("USERCOUNT:") == 1) // Usercount wurde gesendet
{
  Text.Delete(1, 10);
  int a = StrToInt(Text);
  Label7->Caption = "User online: " + a ;
  return;
}

else
{
RichEdit1->Lines->Add (Text);
RichEdit1->Perform(EM_SCROLLCARET, 0, 0);
if (Frame41->CheckBox1->Checked == true)
MediaPlayer1->Play();
if (c==1)
FlashWindow(Application->Handle,true);
}
}

und im Server

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
int x;
RichEdit1->Text = Socket->ReceiveText();
RichEdit3->Text = RichEdit3->Text + " \n" + RichEdit1->Text;
int Verbindungen = ServerSocket1->Socket->ActiveConnections;
     for(int x = 0; x <= Verbindungen - 1; x++){
       ServerSocket1->Socket->Connections[x]->SendText(RichEdit1->Text);
       ServerSocket1->Socket->Connections[x]->SendText(AnsiString("USERCOUNT:") + IntToStr(a));
       }

RichEdit3->Lines->SaveToFile(SaveDialog1->FileName);
}

... oder Du drehst einfach die Sendereihenfolge um

Gruß,
Christian

Gibt es noch irgendeine andere Möglichkeit, bzw. etwas, dass das System verstärkt?

Am sinnvollsten wäre aber vermutlich, wenn Du (wie Akari schrieb) die Usereingaben kapselst. Bei zeichenweisem Vergleich kannst Du dann eine bool'sche Variable bUserText auf true oder false setzen. Sobald sie auf false steht, kannst Du den nachfolgenden Text (also ab Position 1) mit USERCOUNT - gerne auch mit anderen Schlüsselwörtern - vergleichen und die gewünschten Maßnahmen ergreifen.
Gruß,
Christian