Also, ich hab jetzt mal die Platine so wie beschrieben besteckt und wenn ich den USB jetzt in den PC steck blinkt si ein paar mal
so wie es auch normale USB-Sticks machen.
Aber wie mach ich das ganze in delphi?
Der code in VB sieht so aus:
Delphi-Quellcode:
Private Sub Option1_Click(Index As Integer) 'bei LED AN
LED_Click (False) ,ruft Funktion LED_Click mit False auf
End Sub
Private Sub Option2_Click(Index As Integer) 'bei LED AUS
LED_Click (True) 'ruft Funktion LED_Click mit True auf
End Sub
Der eigentliche Programmablauf erfolgt in dieser Funktion:
Delphi-Quellcode:
Private Function LED_Click(AnAus As Boolean)
On Error GoTo LED_Click_fehler
LoggerList.Clear
If FT_GetNumDevices(lngNumDevices,vbNullString,FT_LIST_BY_NUMBER_ONLY)<>FT_OK Then
LoggerList.AddItem ("Fehler bei Aufruf: FT_GetNumDevices funktionierte nicht")
Exit Function
Else
LoggerList.AddItem ("Anzahl vorhandener USB-Geräte: " & lngNumDevices)
End If
das ganze geht ja mit D2XX, aber ich seh nirgends etwas das die Klasse importiert oder so?
Und wie importier ich eine
Unit in delphi? (Hab noch nie mit mehreren Units gearbeitet
) Einfach in die Uses geht irgendwie nicht, da meckert er rum das er die
Unit nicht finden kann.
Außerdem unterstreicht er ein paar Wörter in D2XX z.B. Dialogs, wenn ich ein neues Programm schreiben will nennt er das FMX.Dialogs?
Hat sich was geändert? hab schon ewig nicht mehr rumprogrammiert.
soll ich Dialogs in FMX.Dialogs umbenennen?