Ich habe ein Programm für einnen PocketPc (PPC) geschrieben und das schickt mittels WLan Messwerte zu meinem Desktop . Zum Empfangen meiner Daten benutze ich die TServerSocket Komponente (BCB6) und ich bekomme auch Werte. Das grosse Problem ist aber, dass ich in unregelmässigen Abständen, die falsche Anzahl an Bytes erhalte. Normalerweise verschicke ich 512 Byte, und das 3 Mal pro Sekunde für die WLan Verbindung. Tritt der Fehler auf werden weniger Bytes empfangen und gleichzeitig fehlen dadurch einige Messwerte.
Das PPC Programm funzt ordentlich, habe es schon getestet. Es sendet die richtige Anzahl an Byte weg.
Wo liegt da denn das Problem?

void __fastcall TForm5::ServerSocket1ClientRead(TObjekt *Sender, TCustomWinSocket *Socket)
{
   Byte buffer[512];
   int wert = Socket->ReceiveBuf(&buffer,512);
   Form1->Memo2->Lines->Add(wert);  // Ausgabe in einem Memofeld
}

PS: Habe auch schon versucht das ganze in grösseren Zeitabständen zu verschicken, aber das Problem war das selbe.....

mfg
devilempire

void __fastcall TForm5::ServerSocket1ClientRead(TObjekt *Sender, TCustomWinSocket *Socket)
{
   Byte buffer[5000];
   int wert_length = Socket->ReceiveLength();
   int wert = Socket->ReceiveBuf(&buffer,wert_length);
   Form1->Memo2->Lines->Add(wert);  // Ausgabe in einem Memofeld
   Form1->Memo1->Lines->Add(wert_length);
}

Ich könnte mir vorstellen, dass es vielleicht Hardwareseitig irgendwo ein Problem gibt. Kann ich irgendwie anderst testen, was mein PC über sein WLan empfängt?

Rob'

für jede Lösung wäre ich dankbar...

mfg
devilempire

mach das doch einfach so.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString Buff = Edit1->Text;
 ServerSocket1->Socket->Connections[0]->SendText(Buff);
}

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
 AnsiString RecBuff = Socket->ReceiveText();;
 Memo1->Lines->Add(RecBuff);
}

Würde die Daten aber mit Zeichen in den String packen.

z.B. so ...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString Buff = "#" + Edit1->Text + "#" + Edit1->Text.Length() + "#";
 ServerSocket1->Socket->Connections[0]->SendText(Buff);
}

... das dann mit ner for - Schleife auslesen ...

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
 AnsiString Daten;
 AnsiString Test;
 int Count;

 if (RecBuff.SubString(1,strlen("#"))=="#")    
     {
      for (int a=2; RecBuff[a]!=RecBuff[1]; a++)
           {
            Daten = Daten + RecBuff[a];
            Count++;
          }

      for (int b=2+Count+1; RecBuff[b]!=RecBuff[1]; b++)
           {
            Test=Test+RecBuff[b];
           }

      if (Count == StrToInt(Text)) 
          {
           Memo1->Lines->Add(Daten);
          }
      else
          {
           //Befehl an Client zurück schicken das Daten neu gesendet
           //werden müssen
          } 
     }  
}

... hoffe das hilft dir!

Gruß Sebastian

Die Schleifen lassen sich mit AnsiString::Pos() und AnsiString::SubStr() viel einfacher lösen bzw. sie können dann einfach entfallen.

mfg