Nicht schlecht, aber noch nicht so schoen wie es sein koennte.
Delphi-Quellcode:
Const
FTD2xxLib = '
FTD2XX.DLL';
Type
FT_HANDLE = Pointer;
FT_STATUS = DWORD;
Function FT_Open(deviceNumber : Integer;
var Handle : FT_HANDLE) : FT_STATUS;
StdCall;
External FTD2xxLib;
Function FT_OpenEx(pArg1 : Pointer; Flags : DWORD;
var Handle : FT_HANDLE) : FT_STATUS;
StdCall;
External FTD2xxLib;
Function FT_Close(ftHandle : FT_HANDLE) : FT_STATUS;
StdCall;
External FTD2xxLib;
Function FT_Read(ftHandle : FT_HANDLE; lpBuffer : Pointer; nBufferSize : DWORD;
var BytesReturned : DWORD) : FT_STATUS;
StdCall;
External FTD2xxLib;
Function FT_Write(ftHandle : FT_HANDLE; lpBuffer : Pointer; nBufferSize : DWORD;
var BytesWritten : DWORD) : FT_STATUS;
StdCall;
External FTD2xxLib;
Ob man bei FT_Read einen ungetypten "var Buffer" und bei FT_Write entsprechend "const Buffer" nimmt ist Geschmackssache.
Ich wuerde es vorziehen, da es dann mit ReadFile bzw WriteFile korrespondiert.