000
18.04.2006, 17:15 Uhr
~Gast
Gast
|
Hi,
Wie kann ich Daten mit VB vom FTDI-USB-Chip Empfangen?
Ich dachte mir das so:
| Visual Basic: |
Private Sub EmpfBtn_Click()
flTimedout = False
flFatalError = False
lngTotalBytesRead = 0
if FT_GetStatus(lngHandle, RxBytes, TxBytes, EventsDWord) = FT_OK Then
Do
lngBytesRead = 0
ftStatus = FT_Read(lngHandle, strReadBuffer, RxBytes - lngTotalBytesRead, lngBytesRead)
If (ftStatus = FT_OK) Or (ftStatus = FT_IO_ERROR) Then
If lngBytesRead > 0 Then
strLoggerBuffer = strLoggerBuffer + Left(strReadBuffer, lngBytesRead)
lngTotalBytesRead = lngTotalBytesRead + lngBytesRead
Else
flTimedout = True
End If
Else
flFatalError = True
End If
Loop Until (lngTotalBytesRead = RxBytes) Or (flTimedout = True) Or (flFatalError = True)
End If
If (flTimedout = False) And (flFatalError = False) Then
LoggerList.AddItem "Read OK"
Empfang.Text = strLoggerBuffer
strLoggerBuffer = ""
flFailed = False
ElseIf flTimedout = True Then
LoggerList.AddItem "FT_Read timeout"
Else
LoggerList.AddItem "FT_Read error"
End If
End Sub
|
Für Wenig Zeichen funktioniert dies auch z.B "TEST",
wird der Text allerdings Länger gibt es einen Buffer overflow.
Hat jemand eine Idee. Danke |
