Visual-Basic-Forum VB-Paradise.de

Quellcode

//--WriteReport-------------------------------------
procedure WriteReport;
var
   NumberOfBytesWritten: DWORD;
   SendBuffer: array [0..2] of Byte;
begin
     //Send data to the device.
    
    //******************************************************************************
    //WriteFile
    //Sends a report to the device.
    //Returns: success or failure.
    //Requires: the handle returned by CreateFile and
    //The output report byte length returned by HidP_GetCaps
    //******************************************************************************

    //The first byte is the Report ID
    SendBuffer[0] := 2;

    SendBuffer[1] := trkRumble[0].Position;
    SendBuffer[2] := trkRumble[1].Position;
    
    NumberOfBytesWritten := 0;

    WriteFile(HIDHandle, SendBuffer, sizeof(SendBuffer), NumberOfBytesWritten, nil);

    If frmMain.chkRawData.Checked = True Then
    begin
        frmMain.txtBytesSent.Text := IntToHex(SendBuffer[1], 2) + '         ' + IntToHex(SendBuffer[2], 2);
    end
    Else
        frmMain.txtBytesSent.Text := '';
    
end;
//--WriteReport-------------------------------------

Quellcode

              HIDHandle := CreateFile(PChar(strDevicePath[frmMain.cmbDevices.ItemIndex]),
                                              GENERIC_WRITE,
                                              FILE_SHARE_READ Or FILE_SHARE_WRITE,
                                              nil,//Addr(Security),
                                              OPEN_EXISTING,
                                              0,
                                              0);

Quellcode

function EnumCallback(EnumDevice: PXBCD_Device): Integer;
     // ...
     strUSBDevicePath[intUSBCount] := EnumDevice.USBPath;
     strDevicePath[intUSBCount] := EnumDevice.HIDPath;
     // ...
     Result := 0;
end;

Quellcode

Type
  PXBCD_Device = ^TXBCD_Device;
  TXBCD_Device = packed record
    Index: Integer;
    HIDPath: PChar;
    USBPath: PChar;
  end;