ich habe ein Program geschrieben, welches Messdaten von Serieller Schnittstelle in eine DB Schreibt (4 untersch. Sensoren). Zudem wird der Letzte Zeitwert in der DB ermittelt und zu jedem Datensatz mit +32s dazugeschrieben.
Das ganze passiert Blockweise(128B also 32Datensätze a 4B). Das ganze wird solange wiederholt bis ein Stopp-Signal kommt(1Byte=0xff).
So weit funktioniert die Sache eigentlich auch, aber manchmal wird die Zeit nicht korrekt dazuaddiert, d.h. manchmal zählt er 20,30,40 mal hoch und trägt dann plötzlich wieder einen alten wert ein, oder aber mehrere stunden vorraus.
Außerdem erscheint in einem der Felder(nicht immer dasselbe)manchmal ein unmöglicher wert(0,255,...).
Ich komme einfach nicht mehr weiter, ich habe schon allerhand ausprobiert,erfolglo und habe keine Idee woran es liegen könnte,weil manchmal tut es ja auch!
hier die Schleife:

rec_buf_c[0] = 0x00;
  abbrechen = false;
  while(rec_buf_c[0] != 0xff)          //Datensatz Downloaden und Speichern
  {
    Application->ProcessMessages();    //Ermöglicht Ausführen von anderen Prozessen

    if (abbrechen == true)             //Bricht die Schleife ab, wenn
    {                                  //abbrechen mit Button Verb. Trennen
      break;                           //auf true gesetzt wird
    }

  //Signal für Datenauslesen senden
  send_buf_c[0] = 0x20;
  //Daten Senden:
  Write_Comport(com_status_h, 2, &send_buf_c);

  //Daten Empfangen:             // Wird bei mir direkt nach Write_Comport ausgeführt
  succes = Read_Comport (com_status_h,    // Fest - True falls Port geöffnet
                &rec_bytes_dw,   // Fest - Anzahl der Empfangenen Bytes
                128,              // Variabel - Empfange maximal 128 Bytes (für char)
                &rec_buf_c,      // Variabel - Empfangspuffer (min. 19 Bytes groß)
                3000);           // Variabel - Timeout nach 3 sec.

      if(succes == true)
        {
          succes = false;
          if (rec_buf_c[0]== 0xff)
          {
            break;
          }
          else
          {
            //Aktivieren des Letzten Datensatzes
            Main->ADOQuery1->Close();
            Main->ADOQuery1->SQL->Clear();
            Main->ADOQuery1->SQL->Add("SELECT Zeitwert FROM Tabelle1 WHERE AnlagenNr =" + tmp);
            Main->ADOQuery1->Open();
            Main->ADOQuery1->Last();

            //Herauslesen des letzten Zeitwerts
            let_z = Main->ADOQuery1->FieldByName("Zeitwert")->AsDateTime; 
            if(let_z == (EncodeTime(0, 0, 0, 0))) //Vieleicht ist hier was falsch?
            {
              let_z = dt-EncodeTime(0, 17,32, 0);
            }
            //Schreiben der Empfangenen Daten in die DB
            Main->ADOQuery1->Close();
            Main->ADOQuery1->SQL->Clear();
            Main->ADOQuery1->SQL->Add("SELECT * FROM Tabelle1");
            Main->ADOQuery1->Open();

            for(int z=0;z<32;z++)             //für jeden Datensatz ein Durchlauf
            {

               //Main->ADOQuery1->Insert();
                 Main->ADOQuery1->Append();
               Main->ADOQuery1->FieldByName("AnlagenNr")->AsString = tmp;
               if (rec_buf_c[ind] ==NULL)
               {
                  Main->ADOQuery1->FieldByName("Windgeschwindigkeit")->AsInteger = 0;
                  ind++;
               }
               else
               {  gewandelte_mc_werte[ind] = rec_buf_c[ind];
                  Main->ADOQuery1->FieldByName("Windgeschwindigkeit")->AsInteger = gewandelte_mc_werte[ind];
                  ind++;
               }
               if (rec_buf_c[ind] ==NULL)
               {
                  Main->ADOQuery1->FieldByName("Windrichtung")->AsInteger = 0;
                  ind++;
               }
               else
               {  gewandelte_mc_werte[ind] = rec_buf_c[ind];
                  Main->ADOQuery1->FieldByName("Windrichtung")->AsInteger = gewandelte_mc_werte[ind];
                  ind++;
               }
               if (rec_buf_c[ind] ==NULL)
               {
                  Main->ADOQuery1->FieldByName("Strom")->AsInteger = 0;
                  ind++;
               }
               else
               {  gewandelte_mc_werte[ind] = rec_buf_c[ind];
                  Main->ADOQuery1->FieldByName("Strom")->AsInteger = gewandelte_mc_werte[ind];
                  ind++;
               }
               if (rec_buf_c[ind] ==NULL)
               {
                  Main->ADOQuery1->FieldByName("Spannung")->AsInteger = 0;
                  ind++;
               }
               else
               {  gewandelte_mc_werte[ind] = rec_buf_c[ind];
                  Main->ADOQuery1->FieldByName("Spannung")->AsInteger = gewandelte_mc_werte[ind];
                  ind++;
               }
                  Main->ADOQuery1->FieldByName("Leistung")->AsInteger  = (Main->ADOQuery1->FieldByName("Strom")->AsInteger) * (Main->ADOQuery1->FieldByName("Spannung")->AsInteger);//StrToInt fällt weg
                  let_z = let_z + EncodeTime(0, 0, 32, 0);
                  Main->ADOQuery1->FieldByName("Zeitwert")->AsDateTime = let_z; //Hier wird Zeit eingetragen
                  Main->ADOQuery1->Post();
                  //delay(10);

            }
          }
        }

Ich weiß es ist etwas unübersichtlich, aber bitte helft mir! Ich muß dieses Problem dringend lösen!

Aber das mit den Werten, das manchmal 0 auftaucht ist mir immer noch unerklärlich, mein Microcontroller sendet auf jeden fall immer eine 1 (Probrweise).

was liefert den Read_Comport nach dem timeout oder tritt der gar nicht erst auf?
wieso fragst du die pufferwerte mit NULL ab?

Was den Timeout betrifft: In dieser Funktion taucht er nicht auf,aber die Funktion Read_Comport hat eine untermethode (Read_File)die diese Zeit benötigt(wenn über Timeout Zeit keine Daten kommen wird abgebrochen).

Was die Zeit betrifft die DB zum Schreiben braucht: mit relativ wenig Daten langen mir im delay 31ms(deleay wird nicht mit sleep,sondern über timer gebastelt)->vieleicht Zufall? , ich weiß aber nicht ob es mit zunehmender Datenmenge länger dauert.

Was mich aber am meisten wundert, warum Taucht periodisch nach 32Sätzen im Feld Strom eine 0 und nach 33Sätzen in Windrichtung eine 0 auf? So was ist theoretisch mti dem Code nicht möglich!?

- wozu dient z?
- wo und wie wird ind initialisiert?
- wie gross ist der puffer rec_buf_c?

das ist nur der teil, der die daten in die db schreibt. ist wesentlich kompakter und macht genau das gleiche (naja, sollte zumindest ;))

// ...

char v1, v2, v3, v4;

// fuer jeden Datensatz ein Durchlauf 
for (int z = 0; z < 128; z += 4)
{ 
  let_z = let_z + EncodeTime(0, 0, 32, 0);

  v1    = rec_buf_c[z];
  v2    = rec_buf_c[z + 1];
  v3    = rec_buf_c[z + 2];
  v4    = rec_buf_c[z + 3];

  // wozu diese werte merken?
  gewandelte_mc_werte[z]     = v1;
  gewandelte_mc_werte[z + 1] = v2;
  gewandelte_mc_werte[z + 2] = v3;
  gewandelte_mc_werte[z + 3] = v4;

  Main->ADOQuery1->Append(); 
  Main->ADOQuery1->FieldByName("AnlagenNr")->AsString            = tmp; 
  Main->ADOQuery1->FieldByName("Windgeschwindigkeit")->AsInteger = v1;
  Main->ADOQuery1->FieldByName("Windrichtung")->AsInteger        = v2;
  Main->ADOQuery1->FieldByName("Strom")->AsInteger               = v3;
  Main->ADOQuery1->FieldByName("Spannung")->AsInteger            = v4;
  Main->ADOQuery1->FieldByName("Leistung")->AsInteger            = v3 * v4;
  Main->ADOQuery1->FieldByName("Zeitwert")->AsDateTime           = let_z;
  Main->ADOQuery1->Post();
}      

// ...

danke für deinen Code, er ist in der Tat etwas Kompakter und tut genauso!
allerdings schreibt er auch genauso eine 0 abwechselnd in die Felder.
Aber da dieser Code eigentlich so richtig ist(stimmt doch,oder?) könnte es ja evtl auch sein das es an meinem MC liegt.

mfg