B4A Library UsbSerial library 2.0 - supports more devices

Sub btnOpen_Click
If usb.UsbPresent = usb.USB_NONE Then
Log("Msgbox - no device")
Msgbox("No USB device or accessory detected!", "Error")
Log("Msgbox - returned")'!%µM
Return
End If
Log("Checking permission")
If (usb.HasPermission) Then
Msgbox(usb.DeviceInfo, "Device Information")
Dim dev As Int
dev = usb.Open(115200)
If dev <> usb.USB_NONE Then
Log("Connected successfully!")
usb.SetParameters(9600, usb.DATABITS_8, usb.STOPBITS_1, usb.PARITY_NONE)
usb.UsbTimeout = 1000
Msgbox("Device connected","test")
btnOpen.Enabled = False
btnClose.Enabled = True
btnSend.Enabled = True
astreams.Initialize(usb.GetInputStream , usb.GetOutputStream, "astreams")
Else
Log("Error opening USB port")
End If
Else
usb.RequestPermission
End If
End Sub

Click to expand...

dc_status_t
fabric_clow_device_open (dc_device_t **out, dc_context_t *context, const char *name)
{
if (out == NULL)
return DC_STATUS_INVALIDARGS;

// Allocate memory.
fabric_clow_device_t *device = (fabric_clow_device_t *) malloc (sizeof (fabric_clow_device_t));
if (device == NULL) {
ERROR (context, "Failed to allocate memory.");
return DC_STATUS_NOMEMORY;
}

// Initialize the base class.
device_init (&device->base, context, &fabric_clow_device_vtable);

// Set the default values.
device->port = NULL;
memset (device->fingerprint, 0, sizeof (device->fingerprint));

// Open the device.
int rc = serial_open (&device->port, context, name);
if (rc == -1) {
ERROR (context, "Failed to open the serial port.");
free (device);
return DC_STATUS_IO;
}

// Set the serial communication protocol (9600 8N1).
rc = serial_configure (device->port, 9600, 8, SERIAL_PARITY_NONE, 1, SERIAL_FLOWCONTROL_NONE);
if (rc == -1) {
ERROR (context, "Failed to set the terminal attributes.");
serial_close (device->port);
free (device);
return DC_STATUS_IO;
}

// Set the timeout for receiving data (1000 ms).
if (serial_set_timeout (device->port, 1000) == -1) {
ERROR (context, "Failed to set the timeout.");
serial_close (device->port);
free (device);
return DC_STATUS_IO;
}

// Set the DTR/RTS lines.
if (serial_set_dtr (device->port, 1) == -1 ||
serial_set_rts (device->port, 1) == -1) {
ERROR (context, "Failed to set the DTR/RTS line.");
serial_close (device->port);
free (device);
return DC_STATUS_IO;
}

Click to expand...

fabric_common_device_read (dc_device_t *abstract, unsigned int address, unsigned char data[], unsigned int size)
{
fabric_common_device_t *device = (fabric_common_device_t*) abstract;

unsigned int nbytes = 0;
while (nbytes < size) {
// Calculate the packet size.
unsigned int len = size - nbytes;
if (len > PACKETSIZE)
len = PACKETSIZE;

// Build the raw command.
unsigned char raw[] = {0x51,
(address ) & 0xFF, // Low
(address >> 8) & 0xFF, // High
len}; // Count

// Build the ascii command.
unsigned char command[2 * (sizeof (raw) + 2)] = {0};
fabric_common_make_ascii (raw, sizeof (raw), command, sizeof (command));

// Send the command and receive the answer.
unsigned char answer[2 * (PACKETSIZE + 2)] = {0};
dc_status_t rc = fabric_common_transfer (device, command, sizeof (command), answer, 2 * (len + 2));
if (rc != DC_STATUS_SUCCESS)
return rc;

// Extract the raw data from the packet.
array_convert_hex2bin (answer + 1, 2 * len, data, len);

nbytes += len;
address += len;
data += len;
}

return DC_STATUS_SUCCESS;
}

Click to expand...

agraham said:

Which FTDI chip are you using? It looks to me as though that chip is not compatible with the driver in the library. Either it is not sending the expected two status bytes at the start of the data packet or the endpoints are reversed from what is expected.

Click to expand...

agraham said:

The UsbSerial library doesn't know about the FT230X - and neither do I. I don't know if it is progam compatible with the FT232 or not. You could try

B4X:

Dim SerialLib as UsbSerial
...
SerialLib.SetCustomDevice(SerialLib.DRIVER_FTDI, 0x403, 0x6015)

Before trying to Open the device.

Click to expand...

jimTaylor said:

Can you provde a step-by-step that doesn't assume I know what I'm doing?

Click to expand...