kopia lustrzana https://github.com/alpov/SatCam
64 wiersze
2.5 KiB
Plaintext
64 wiersze
2.5 KiB
Plaintext
unit LibFT260;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows;
|
|
|
|
const
|
|
FT260_OK = 0;
|
|
FT260_INVALID_HANDLE = 1;
|
|
FT260_DEVICE_NOT_FOUND = 2;
|
|
FT260_DEVICE_NOT_OPENED = 3;
|
|
FT260_DEVICE_OPEN_FAIL = 4;
|
|
FT260_DEVICE_CLOSE_FAIL = 5;
|
|
FT260_INCORRECT_INTERFACE = 6;
|
|
FT260_INCORRECT_CHIP_MODE = 7;
|
|
FT260_DEVICE_MANAGER_ERROR = 8;
|
|
FT260_IO_ERROR = 9;
|
|
FT260_INVALID_PARAMETER = 10;
|
|
FT260_NULL_BUFFER_POINTER = 11;
|
|
FT260_BUFFER_SIZE_ERROR = 12;
|
|
FT260_UART_SET_FAIL = 13;
|
|
FT260_RX_NO_DATA = 14;
|
|
FT260_GPIO_WRONG_DIRECTION = 15;
|
|
FT260_INVALID_DEVICE = 16;
|
|
FT260_OTHER_ERROR = 17;
|
|
|
|
const
|
|
FT260_I2C_NONE = 0;
|
|
FT260_I2C_START = $02;
|
|
FT260_I2C_REPEATED_START = $03;
|
|
FT260_I2C_STOP = $04;
|
|
FT260_I2C_START_AND_STOP = $06;
|
|
|
|
// FT260 General Functions
|
|
function FT260_CreateDeviceList(var lpdwNumDevs: LongInt): LongInt; stdcall;
|
|
function FT260_Open(iDevice: Integer; var pFt260Handle: THandle): LongInt; stdcall;
|
|
function FT260_OpenByVidPid(vid: Word; pid: Word; deviceIndex: LongInt; var pFt260Handle: THandle): LongInt; stdcall;
|
|
function FT260_Close(pFt260Handle: LongInt): LongInt; stdcall;
|
|
|
|
// FT260 I2C Functions
|
|
function FT260_I2CMaster_Init(pFt260Handle: THandle; kbps: LongWord): LongInt; stdcall;
|
|
function FT260_I2CMaster_Read(pFt260Handle: THandle; deviceAddress: Byte; flag: LongWord; lpBuffer: PChar; dwBytesToRead: LongWord; var lpdwBytesReturned: LongWord; wait_time: LongWord): LongInt; stdcall;
|
|
function FT260_I2CMaster_Write(pFt260Handle: THandle; deviceAddress: Byte; flag: LongWord; lpBuffer: PChar; dwBytesToWrite: LongWord; var lpdwBytesWritten: LongWord): LongInt; stdcall;
|
|
function FT260_I2CMaster_GetStatus(pFt260Handle: THandle; var status: Byte): LongInt; stdcall;
|
|
function FT260_I2CMaster_Reset(pFt260Handle: THandle): LongInt; stdcall;
|
|
|
|
implementation
|
|
|
|
// FT260 General Functions
|
|
function FT260_CreateDeviceList; external 'LibFT260.dll' name '_FT260_CreateDeviceList@4';
|
|
function FT260_Open; external 'LibFT260.dll' name '_FT260_Open@8';
|
|
function FT260_OpenByVidPid; external 'LibFT260.dll' name '_FT260_OpenByVidPid@16';
|
|
function FT260_Close; external 'LibFT260.dll' name '_FT260_Close@4';
|
|
|
|
// FT260 I2C Functions
|
|
function FT260_I2CMaster_Init; external 'LibFT260.dll' name '_FT260_I2CMaster_Init@8';
|
|
function FT260_I2CMaster_Read; external 'LibFT260.dll' name '_FT260_I2CMaster_Read@28';
|
|
function FT260_I2CMaster_Write; external 'LibFT260.dll' name '_FT260_I2CMaster_Write@24';
|
|
function FT260_I2CMaster_GetStatus; external 'LibFT260.dll' name '_FT260_I2CMaster_GetStatus@8';
|
|
function FT260_I2CMaster_Reset; external 'LibFT260.dll' name '_FT260_I2CMaster_Reset@4';
|
|
|
|
end.
|