我正在使用Delphi XE2并尝试将usb通信dll升级到64位。我们正在使用JVCL SetupAPI和Hid单元。所有工作完全使用32位编译器,可以看到我附加的HID设备。我切换到64位,我再也看不到任何我知道的HID设备了。
我遇到有人提到需要以64位不同的方式调整某些数据结构的大小(参见https://forums.embarcadero.com/thread.jspa?messageID=408473#408473),这有所帮助,但我现在正式感到难过。
目前我的代码返回从SetupDiGetDeviceInterfaceDetail函数读取的0个字节。注释掉的SizeOf()适用于32位但不适用于64位。
非常感谢任何帮助。
repeat
TmpDeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);
TmpDeviceInterfaceData.cbSize := 32; // SizeOf(TmpDeviceInterfaceData);
TmpSuccess := SetupDiEnumDeviceInterfaces(TmpDevInfo, nil, TmpDevHidGuid, TmpDevn, TmpDeviceInterfaceData);
if TmpSuccess then
begin
TmpDevData.cbSize := 32; //SizeOf(TmpDevData);
showmessage(inttostr(tmpdevdata.cbsize));
TmpBytesReturned := 0;
SetupDiGetDeviceInterfaceDetail(TmpDevInfo, @TmpDeviceInterfaceData, nil, 0, TmpBytesReturned, @TmpDevData);
showmessage('bytes returned = ' + inttostr(TmpBytesReturned));
if (TmpBytesReturned <> 0) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
begin
// showmessage('hello');
TmpFunctionClassDeviceData := AllocMem(TmpBytesReturned);
TmpFunctionClassDeviceData.cbSize := sizeof(SP_DEVICE_INTERFACE_DETAIL_DATA_A);
TmpFunctionClassDeviceData.cbSize := 8;
// showmessage(inttostr(TmpFunctionClassDeviceData.cbSize));
if SetupDiGetDeviceInterfaceDetail(TmpDevInfo, @TmpDeviceInterfaceData, TmpFunctionClassDeviceData, TmpBytesReturned, TmpBytesReturned, @TmpDevData) then
begin
// showmessage('here');
try
begin
//try to obtain PID and VID information about the HID devices
TmpDeviceHandle := CreateFile(@TmpFunctionClassDeviceData.DevicePath,
GENERIC_READ OR GENERIC_WRITE,
FILE_SHARE_READ OR FILE_SHARE_WRITE,
NIL, OPEN_EXISTING, 0 , 0);
TmpAttributes.Size := Sizeof(TmpAttributes);
HidD_GetAttributes(TmpDeviceHandle, TmpAttributes);
If (vid = TmpAttributes.VendorID) then
begin
PIDlistStr := PIDlistStr + Inttostr(TmpAttributes.ProductID) + ',';
end ;
if TmpDeviceHandle <> INVALID_HANDLE_VALUE then
begin
CloseHandle(TmpDeviceHandle);
TmpAttributes.ProductID := 0;
TmpAttributes.VendorID := 0;
end;
TmpDeviceHandle := INVALID_HANDLE_VALUE;
end
except
// ignore device if unreadable
end;
Inc(TmpDevn);
end
else
showmessage('error in SetupDiGetDeviceInterfaceDetails');
FreeMem(TmpFunctionClassDeviceData);
end;
end;
until not TmpSuccess;
答案 0 :(得分:0)
所以,经过艰苦的努力,我得到了这个工作。虽然我必须深入研究JVCL SetupApi单元并更改一些结构的变量类型,但最终修复并不过分复杂。
repeat
TmpDeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);
// showmessage('TSPDeviceInterfaceData: ' + inttostr(SizeOf(TSPDeviceInterfaceData)));
TmpSuccess := SetupDiEnumDeviceInterfaces(TmpDevInfo, nil, TmpDevHidGuid, TmpDevn, TmpDeviceInterfaceData);
if TmpSuccess then
begin
TmpDevData.cbSize := SizeOf(TmpDevData);
// showmessage('TmpDevData: ' + inttostr(tmpdevdata.cbsize));
TmpBytesReturned := 0;
SetupDiGetDeviceInterfaceDetail(TmpDevInfo, @TmpDeviceInterfaceData, nil, 0, TmpBytesReturned, @TmpDevData);
//showmessage('bytes returned = ' + inttostr(TmpBytesReturned)); // = 170 in 32 bit app
inc(i);
if (TmpBytesReturned <> 0) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
begin
// showmessage('i did this ' + inttostr(i) + ' times');
TmpFunctionClassDeviceData := AllocMem(TmpBytesReturned);
{$ifdef CPUX64}
TmpFunctionClassDeviceData.cbSize := 8;
// showmessage('64 bit compiler used');
{$else}
TmpFunctionClassDeviceData.cbSize := 6;
// showmessage('32 bit compiler used');
{$endif}
// showmessage('TmpFunctionClassDeviceData:' + inttostr(sizeof(SP_DEVICE_INTERFACE_DETAIL_DATA_A)));
if SetupDiGetDeviceInterfaceDetail(TmpDevInfo, @TmpDeviceInterfaceData, TmpFunctionClassDeviceData, TmpBytesReturned, TmpBytesReturned, @TmpDevData) then
begin
try
begin
//try to obtain PID and VID information about the HID devices
s := '';
for i := 0 to 999 do
begin
s := s + TmpFunctionClassDeviceData.DevicePath[i];
end;
TmpDeviceHandle := CreateFile(PChar(s),
GENERIC_READ OR GENERIC_WRITE,
FILE_SHARE_READ OR FILE_SHARE_WRITE,
0, OPEN_EXISTING, 0 , 0);
TmpAttributes.Size := Sizeof(TmpAttributes);
// showmessage('TmpAttributes: ' + inttostr(Sizeof(TmpAttributes)));
HidD_GetAttributes(TmpDeviceHandle, TmpAttributes);
// showmessage(inttostr(TmpAttributes.VendorID) + ' ; ' + inttostr(TmpAttributes.ProductID));
If (vid = TmpAttributes.VendorID) then
begin
PIDlistStr := PIDlistStr + Inttostr(TmpAttributes.ProductID) + ',';
end ;
if TmpDeviceHandle <> INVALID_HANDLE_VALUE then
begin
CloseHandle(TmpDeviceHandle);
TmpAttributes.ProductID := 0;
TmpAttributes.VendorID := 0;
end;
TmpDeviceHandle := INVALID_HANDLE_VALUE;
end
except
// ignore device if unreadable
end;
Inc(TmpDevn);
end;
//else
//showmessage('bob ' + inttostr(GetLastError));
FreeMem(TmpFunctionClassDeviceData);
end;
end;
until not TmpSuccess;
对于SetupAPI.pas的更改,请在此处查看我的jedi问题跟踪器条目:http://issuetracker.delphi-jedi.org/view.php?id=5706
如果有人能告诉我为什么在传递给CreateFile之前需要将DevicePath显式复制到本地字符串中,或者为什么我不能将SizeOf用于TmpFunctionClassDeviceData.cbSize,我将非常感激。
答案 1 :(得分:0)
现在更改是在JVCL中,请使用最新的SVN内容。
基本上,需要修复SetupApi,以便在x64中使用“填充”进行对齐。
这已经过测试,在这里运作良好。