ChibiOS Free Embedded RTOS

Code: Select all

static WORKING_AREA(waThreadUSB, 2048);
static msg_t ThreadUSB(void *arg)
{
  (void) arg;
  
  for (;;)
  {
    chThdSleepMilliseconds(MS2ST(1000));
    
    // Wait USB ready
    while (SDU1.config->usbp->state != USB_ACTIVE)
    {
      chThdSleepMilliseconds(MS2ST(1000));
    }
    
    chprintf(dbg_port, "USB cable plugged.\n\r");    
    
    // Process commands
    while (SDU1.config->usbp->state == USB_ACTIVE)
    {      
      int size = USB_GET_PACKET(COMM_RX_BUFFER, sizeof(COMM_RX_BUFFER));
      if (size > 0)
      {
        size = COMM_PROCESS_COMMAND(COMM_RX_BUFFER, COMM_RX_BUFFER, sizeof(COMM_RX_BUFFER));
        if (size > 0)
        {
          // Send result
          sdWrite(&SDU1, COMM_RX_BUFFER, size);
        }
      }    
    }
    
    chprintf(dbg_port, "USB cable unplugged.\n\r");
    
  }

}

Code: Select all

URB 0069      12:43:51.734 39.442891s        Bulk or Interrupt Transfer 4096 bytes buffer in 01:01:81 88852490h USBPDO-6 usbhub 892278F8h   
URB 0070-0069 12:43:51.734 39.443884s 993 us Bulk or Interrupt Transfer    0 bytes data   in 01:01:81 88852490h USBPDO-6 usbhub 892278F8h Success
URB 0071      12:43:51.734 39.443888s        Bulk or Interrupt Transfer 4096 bytes buffer in 01:01:81 88852490h USBPDO-6 usbhub 892278F8h   
URB 0072-0071 12:43:51.734 39.444881s 994 us Bulk or Interrupt Transfer    0 bytes data   in 01:01:81 88852490h USBPDO-6 usbhub 892278F8h Success

Code: Select all

static WORKING_AREA(waThreadUSB, 2048);
static msg_t ThreadUSB(void *arg)
{
  (void) arg;
  int size;
  static char BUFFER[512];

  for (;;)
  {   
    // Wait USB ready
    while (SDU1.config->usbp->state != USB_ACTIVE)
    {
      chThdSleepMilliseconds(MS2ST(1000));
    }
    
    DEBUG_TRACE("USB cable plugged.\n\r");
       
    size = sdReadTimeout(&SDU1, BUFFER, 64, MS2ST(10));
    if (size != 0) 
    {
      DEBUG_TRACE("read %d bytes\r", size);
      sdWrite(&SDU1, COMM_RX_BUFFER, size);        
     }
    }
    
    DEBUG_TRACE("\n\r");
    DEBUG_TRACE("USB cable unplugged.\n\r");    
  }

}

Code: Select all

program usb_test;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, Registry, Classes;

// Searching serial devices
Procedure SearchHardware;
Var
  I    : Integer;
  reg  : TRegistry;
  st   : TStrings;
  Port : String;
Begin
  Writeln('Available Serial devices:');

  // Using reestry
  reg := TRegistry.Create;
  Try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware\devicemap\serialcomm',false);
    st := TStringList.Create;
    Try
      reg.GetValueNames(st);
      For I := 0 to st.Count -1 Do
      Begin
        Port := reg.ReadString(st.Strings[i]);
        Writeln(st.Strings[i],' ', Port);
      End;
    Finally
      st.Free;
    End;
  Finally
    reg.CloseKey;
    reg.free;
  End;

  Writeln;
End;

Var
  WrBuffer,
  RdBuffer      : Array of Byte;
  Count, Speed  : Integer;
  n, amount     : Integer;
  h             : Thandle;
  DeviceName, S : String;
  r             : Cardinal;
  Timeouts      : TCommTimeouts;
Begin
  Writeln('USB SERIAL TEST Program V.1.00 (C) 2012 ALEX BLACK');
  If ParamCount<2 Then
  Begin
    Writeln('Usage: usb_test <com_port> <packet size>');
    SearchHardware;
    Exit;
  End;

  // Check COM port name
  S := ParamStr(1);
  If (length(S)<4) or (AnsiUpperCase(Copy(S, 1, 3))<>'COM') Then
  Begin
    Writeln('Error: invalid com_port name (must be as COM1, COM3 or COM10)');
    Exit;
  End;
  Delete(S, 1, 3);
  Try
    n := StrToInt(S);
    If (n<=0) or (n>255) Then Abort;
  Except
    Writeln('Error: invalid com_port number');
    Exit;
  End;
  DeviceName := 'COM'+IntToStr(n);
  If n>=10 Then
  Begin
    Devicename := '\\.\'+DeviceName;
  End;

  // Setup buffers
  Try
    n := StrToInt(ParamStr(2));
    If (n<=0) or (n>65536) Then Abort;
  Except
    Writeln('Error: invalid buffer size!');
    Exit;
  End;
  SetLength(WrBuffer, n);
  SetLength(RdBuffer, n);

  Writeln('Open COM port...');

  h := CreateFile(PChar(DeviceName), GENERIC_READ or GENERIC_WRITE, 0,  nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  If h = INVALID_HANDLE_VALUE then
  Begin
    If GetLastError = ERROR_FILE_NOT_FOUND Then
    Begin
      Writeln('Error: invalid COM port');
    End Else
    Begin
      Writeln('Error: port open error');
    End;
    Exit;
  End;
  Writeln('OK');

  // Setup timeouts for read and write operations
  GetCommTimeouts(h, Timeouts);
  Timeouts.ReadIntervalTimeout := 0;
  Timeouts.ReadTotalTimeoutMultiplier := 0;
  Timeouts.ReadTotalTimeoutConstant  := 1000;
  Timeouts.WriteTotalTimeoutConstant := 1000;
  SetCommTimeouts(h, Timeouts);

  Count := 1;
  amount := 0;

  Repeat
    Write(#13'COUNT ', Count, ' write ');
    WriteFile(h, WrBuffer[0], n, r, nil);
    If (n<>r) Then
    Begin
      Writeln;
      Write('error ', getLastError);
      Break;
    End Else
    Begin
      Write(r, ' bytes');
    End;
    Write(' : reading ');
    ReadFile(h, RdBuffer[0], n, r, nil);
    Inc(amount, r);
    Write(r,' bytes, amount = ', amount, '        ');
    Inc(Count);
  Until False;

  CloseHandle(h);
End.

Code: Select all

G:\NEW_WORK\USB_TEST>usb_test COM18 512
USB SERIAL TEST Program V.1.00 (C) 2012 ALEX BLACK
Open COM port...
OK
COUNT 60333 write 512 bytes : reading 512 bytes, amount = 30889984
error 0

Code: Select all

size = sdReadTimeout(&SDU1, COMM_RX_BUFFER, 64, MS2ST(10));