Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

cBuffer        := FReadStr(nHandle,FSize(nHandle))

Code: Alles auswählen

FATAL ERROR LOG 
System-Error
SYS Thread-ID: 1052 
Module: MOM
Error Codes: EH: 4 Sub: 87(57) OS: 87 XPP: 40
Call Stack of Thread 1 (452):
@DC_GETLIST@I@EVENTLOOP(3847)
@DC_GETLIST@I@READGUI(3591)
DC_READGUI(95)
PHNARTULDKONVERT(114)
(B)main(130)
@DC_GETLIST@I@EVENTLOOP(4296)
@DC_GETLIST@I@READGUI(3591)
DC_READGUI(95)
MAIN(183)
Call Stack of GUI Thread (640):
Call Stack of Thread 3 (1052):
ARTULDKONVERT(146)
File: y:\video9\programm\shdstammdaten10.exe
TimeStamp: 20110215 17:44
End of FATAL ERROR LOG.

Code: Alles auswählen

          IF ! lAbbruch
             oThread:nZaehler := 2                                              // weil Überschrift überspringen wird
             oPhnUpdate:db_oeffnen(,.F.,.T.,,.T.,,.T.)
             nHandle := FOpen(oSysPara:cProgrammPfad + "\download\phononet\artuld.txt",FO_READ)
             cBuffer        := FReadStr(nHandle,FSize(nHandle))
             oThread:nMenge := NumAt(Chr(10),cBuffer)
             nStelleLF      := AtNum(Chr(10),cBuffer,3,nStelleLF) + 1           // Überschrift übergehen
             DO WHILE .T.
                Sleep(0)
                oThread:nZaehler++
                IF oThread:nZaehler = oThread:nMenge
                   EXIT
                ENDIF
                IF ! oThread:lGestartet
                   IF oSysPara:oMessage:anzeigen("Konvertierung abbrechen?",.T.,"N")
                      EXIT
                   ENDIF
                   oThread:lGestartet := .T.
                ENDIF
                nLaenge := AtNum(Chr(10),cBuffer,1,nStelleLF) - nStelleLF          // berechnen, wie lang der Auszu sein muss
                cAuszug := SubStr(cBuffer,nStelleLF,nLaenge)
                aArray  := Str2Array(cAuszug)
                (oPhnUpdate:nArea)->(DbAppend())
                (oPhnUpdate:nArea)->v_titel    := aArray[10]
                (oPhnUpdate:nArea)->v_titel2   := Upper(aArray[10])
                (oPhnUpdate:nArea)->v_darstell := aArray[11]
                (oPhnUpdate:nArea)->v_fsk      := Val(aArray[45])
                (oPhnUpdate:nArea)->v_bestnr   := aArray[6]
                (oPhnUpdate:nArea)->fst1ekdat  := SToD(aArray[35])
                (oPhnUpdate:nArea)->aenderdat  := SToD(aArray[37])
                (oPhnUpdate:nArea)->streichdat := SToD(aArray[36])
                (oPhnUpdate:nArea)->ean_neu    := aArray[56]
                nStelleLF := AtNum(Chr(10),cBuffer,1,nStelleLF) + 1
             ENDDO
             oThread:lGestartet := .F.
             FClose(nHandle)
             oPhnUpdate:schliesse_Datenbank()
          ENDIF
          oPbStart:setCaption("Start")
          oPbEnde:enable()
          RETURN
********************************************************************************
FUNCTION  Str2Array(cString, cDelim )
          LOCAL aRet := {}
          LOCAL nX   := 1
          LOCAL nPos := 0
          LOCAL nLen
          LOCAL cRet

          DEFAULT cDelim TO ";"

          nLen := LEN( cString )
          cRet := SPACE(nLen)

          DO WHILE ( .T. )
             nPos := AT(cDelim, cString, nX)
             IF nPos > 0
                cRet    := SubStr(cString, nX, nPos-nX)
                AADD(aRet, cRet)
                nX    := ++nPos
             ELSEIF nX <= nLen
                cRet    := SubStr(cString, nX)
                aadd(aRet, cRet)
                exit
             ELSEIF nX > nLen
                aadd(aRet, "")
                exit
             ELSE
                exit
             ENDIF
          ENDDO
          RETURN ( aRet )