ارتباط با پورت USB

[smt1383]

با سلام خدمت دوستان

من می خواهم که توسط دلفی با پورت USB ارتباط برقرار کنم. آیا می توانید مرا راهنمایی کنید. البته کامپوننت
nrcomm_lib را دانلود کرده ام اما چون نسخه آزمایش است کار نمی کند.
آیا دوستان کامپوننت یا نمونه برنامه ای برای ارسال و دریافت اطلاعات به پورت USB سراغ دارند؟

خیلی ممنون

[smt1383]

واقعاً تا حالا کسی از دوستان با USB کار نکرده ؟

[Mah6447]

http://barnamenevis.org/forum/showthread.php?t=59112

برای اطلاع از وضعیت ارتبات یواس بی ( Detect Usb ) :


// Component to detect when usb devices are connected or disconnected
// using RegisterDeviceNotification

unit U_Usb;

interface

uses
Windows, Messages, SysUtils, Classes, Forms;

type

PDevBroadcastHdr = ^DEV_BROADCAST_HDR;
DEV_BROADCAST_HDR = packed record
dbch_size: DWORD;
dbch_devicetype: DWORD;
dbch_reserved: DWORD;
end;

PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;
DEV_BROADCAST_DEVICEINTERFACE = record
dbcc_size: DWORD;
dbcc_devicetype: DWORD;
dbcc_reserved: DWORD;
dbcc_classguid: TGUID;
dbcc_name: short;
end;

const
GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';
DBT_DEVICEARRIVAL = $8000; // system detected a new device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class

type

TComponentUSB = class(TComponent)
private
FWindowHandle: HWND;
FOnUSBArrival: TNotifyEvent;
FOnUSBRemove: TNotifyEvent;
procedure WndProc(var Msg: TMessage);
function USBRegister: Boolean;
protected
procedure WMDeviceChange(var Msg: TMessage); dynamic;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property OnUSBArrival: TNotifyEvent read FOnUSBArrival write FOnUSBArrival;
property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;
end;

implementation

constructor TComponentUSB.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FWindowHandle := AllocateHWnd(WndProc);
USBRegister;
end;

destructor TComponentUSB.Destroy;
begin
DeallocateHWnd(FWindowHandle);
inherited Destroy;
end;

procedure TComponentUSB.WndProc(var Msg: TMessage);
begin
if (Msg.Msg = WM_DEVICECHANGE) then
begin
try
WMDeviceChange(Msg);
except
Application.HandleException(Self);
end;
end
else
Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);
end;

procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);
var
devType: Integer;
Datos: PDevBroadcastHdr;
begin
if (Msg.wParam = DBT_DEVICEARRIVAL) or (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then
begin
Datos := PDevBroadcastHdr(Msg.lParam);
devType := Datos^.dbch_devicetype;
if devType = DBT_DEVTYP_DEVICEINTERFACE then
begin // USB Device
if Msg.wParam = DBT_DEVICEARRIVAL then
begin
if Assigned(FOnUSBArrival) then
FOnUSBArrival(Self);
end
else
begin
if Assigned(FOnUSBRemove) then
FOnUSBRemove(Self);
end;
end;
end;
end;

function TComponentUSB.USBRegister: Boolean;
var
dbi: DEV_BROADCAST_DEVICEINTERFACE;
Size: Integer;
r: Pointer;
begin
Result := False;
Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);
ZeroMemory(@dbi, Size);
dbi.dbcc_size := Size;
dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
dbi.dbcc_reserved := 0;
dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;
dbi.dbcc_name := 0;

r := RegisterDeviceNotification(FWindowHandle, @dbi,
DEVICE_NOTIFY_WINDOW_HANDLE
);
if Assigned(r) then Result := True;
end;

end.

[saleh_fartash]

برای این کار این کامپوننت رو می ذارم.
موفق باشی.

[smt1383]

ممنون از راهنمکایی دوستان
می روم که آزمایش نمایم

[smt1383]

آقا صالح. ممنون از کامپوننتی که گذاشته بودبد.
نمی دانم آیا شما خودتان با آن کار کرده اید یا نه ؟
چون من کامپوننت را نصب کردم و برنامه نمونه انرا اجرا کردم اما حتی دستگاه متصل به پورت یو اس بی را هم نمی شناسد چه برسد به ارسال و دریافت دیتا.
آیا می توانید کمی راهنمایی کنید.
بسیار ممنون.

[HAMIDyekta]

شما با این کامپوننت می تونید شناسایی کنید ببیند که یو اس بی متصل شد یا نه؟
جهت ارسال و دریافت اطلاعات پس از شناسایی درایو یو اس بی متصل شده می بایست ارسال و دریافت را خودتان با دلفی طراحی کنید بر اساس آنچه که نیاز دارید
با این تابع می توانید لیست یو اس بی های فعال را لیست کنید.
Function RemovableDrive: string;
var
Drive: Char;
d:String;
begin
d:='';
for Drive := 'A' to 'Z' do
if (Windows.GetDriveType(PChar(Drive + ':\')) = Windows.Drive_Removable) then
d:=d+Drive;
Result:=d;
end;