XMega erste Versuche mit USB direkt..

function usbFindDevice(var device: TDevObj): Pusb_device;
var
  bus: Pusb_bus;
  dev: Pusb_device;
begin
  result := nil;
  usb_init;
  usb_find_busses;
  usb_find_devices;
  bus := usb_get_busses;
  while (assigned(bus)) do
  begin
    dev := bus^.devices;
    while assigned(dev) do
    begin
     // if(dev.descriptor.idVendor = VendorID) and (dev.descriptor.idProduct = ProductID) then begin
      if dev.filename = device.FileName then
      begin
        Result := dev;
        exit;
      end; //if dev descriptor
      dev := dev.next;
    end; //while assigned(dev)
    bus := bus.next;
  end;
end;

     // if(dev.descriptor.idVendor = VendorID) and (dev.descriptor.idProduct = ProductID) then 

{--------------------------------------------------------------}
{$Validate $}
  //  User function to receive EP0 ControlRequests from Host
Function myUSB_ControlRequest(bRequest : Byte; wValue : word) : boolean;
// need always answer from device
Var
  b : byte;
begin
  case (bRequest) of
    $00 : // do a real RESET
          USB_ControlSend(nil, 0);
           DebugOut('USB Befehl:'+ ByteToHex( bRequest ));
          mDelay(100);
          HardWareReset;
        |
    $20 : // write to a Port
//          PortF:= Lo(wValue);
          USB_ControlSend(nil, 0);  // ACK the request
           DebugOut('USB Befehl:'+ ByteToHex( bRequest ));
          Return(True);
        |
    $30 : // Read a Port
          b:= $F;
        //  b:= PinF;
          USB_ControlSend(@b, 1);  // send back ACK and PortF status
           DebugOut('USB Befehl:'+ ByteToHex( bRequest ));
          Return(True);
        |
    $40 : // do Beep
          USB_ControlSend(NIL, 0);  // send back ACK
           DebugOut('USB Befehl:'+ ByteToHex( bRequest ));
          Return(True);
        |
    $60 : // empfange Config
          USB_ControlSend(NIL, 0);  // send back ACK
           DebugOut('USB Befehl:'+ ByteToHex( bRequest ));
            usbAct:= $60;
          Return(True);
        |


  else
    USB_ControlSend(nil, 0);  // unknown vendor request, do an ACK
    Return(true);
  endcase;
end;
{--------------------------------------------------------------}
  // The USB_ControlJob must be repeatedly called to process common PC requests

Task ControlJob(iData, resumed);
begin
  USB_ControlJob;
end;