C Interface na pas

[petersno]

pani mam prosbu. potrebujem z ceckoveho interface na externy usbhiddriver.dll urobit interface pre delphi. slubil som tu jednemu kolegovy pomoc, bez tohoto sa neviem pohnut a cecko si so mnou moc nerozumie. v prilohe je rar { musel som to zabalit, pretoze pripony cs, aj dll "niesu povolene", snad je tam vsetko

usbhiddriver.RAR

(22.92 KiB) 31 stiahnutí

[xmilos]

Tak nie som si isty, ale neda sa volat modul bez toho, aby sa rozlisovalo v com bol naprogramovany?

[petersno]

nie som si isty, co myslis tym modulom, ak dll, tak ano, mas pravdu. iba k volaniu treba interface pre ten dll subor, v ktorom su deklarovane typy a funkcie toho dll.

[dan21]

Neviem ako v Delphi ale napr. v c# si naimportujes dll-ku a namapujes "funkcie" ktore potrebujes
[DllImport("kernel32.dll", EntryPoint = "RtlMoveMemory")]
static extern void CopyMemory(IntPtr Destination, IntPtr Source, uint Length);

[petersno]

dynamic link library pozna aj delphi. vrtam sa v tom uz treti den a stale mi to nerobi spravne { evidentne nieco nechapem dostatocne } preto som zalozil tuto temu. ci by mi to niekto nepomohol obist vytvorenim niecoho takehoto z tych cs suborov

Kód: Vybrať všetko

{	toto je interface pre "mcHID.dll" kniznicu }

unit USB_mcHID;

interface

uses
   Windows, Classes, Messages;

const
   WM_HID_EVENT      = WM_APP + 200;
   NOTIFY_PLUGGED    = $0001;
   NOTIFY_UNPLUGGED  = $0002;
   NOTIFY_CHANGED    = $0003;
	 NOTIFY_READ       = $0004;

	 DLL_NAME  = 'mcHID.dll';

	function Connect( pHostWin : HWND ) : BOOL; stdcall; external DLL_NAME name 'Connect';
	function Disconnect : BOOL; stdcall; external DLL_NAME name 'Disconnect';
	function GetHandle ( pVendorID, pProductID : UINT ) : UINT; stdcall; external DLL_NAME name 'GetHandle';
	function GetInputReportLength ( pHandle : UINT ) : UINT; stdcall; external DLL_NAME name 'GetInputReportLength';
	function GetItem ( pIndex : UINT ) : UINT; stdcall; external DLL_NAME name 'GetItem';
	function GetItemCount : UINT; stdcall; external DLL_NAME name 'GetItemCount';
	function GetOutputReportLength ( pHandle : UINT ) : UINT; stdcall; external DLL_NAME name 'GetOutputReportLength';
	function GetProductID ( pHandle : UINT ) : UINT; stdcall; external DLL_NAME name 'GetProductID';
	function GetProductName ( pHandle : UINT; pText : LPSTR; pLen : UINT ) : UINT; stdcall; external DLL_NAME name 'GetProductName';
	function GetSerialNumber ( pHandle : UINT; pText : LPSTR; pLen : UINT ) : UINT; stdcall; external DLL_NAME name 'GetSerialNumber';
	function GetVendorID ( pHandle : UINT ) : UINT; stdcall; external DLL_NAME name 'GetVendorID';
	function GetVendorName ( pHandle : UINT; pText : LPSTR; pLen : UINT ) : UINT; stdcall; external DLL_NAME name 'GetVendorName';
	function GetVersion ( pHandle : UINT ) : UINT; stdcall; external DLL_NAME name 'GetVersion';
	function IsAvailable ( pVendorID, pProductID : UINT ) : BOOL; stdcall; external DLL_NAME name 'IsAvailable';
	function IsReadNotifyEnabled ( pHandle : UINT )  : BOOL; stdcall; external DLL_NAME name 'IsReadNotifyEnabled';
	function Read ( pHandle : UINT; pData : pointer ) : BOOL; stdcall; external DLL_NAME name 'Read';
	function ReadEx ( pVendorID, pProductID : UINT; pData : pointer ) : BOOL; stdcall; external DLL_NAME name 'ReadEx';
	function Write ( pHandle : UINT; pData : pointer ) : BOOL; stdcall; external DLL_NAME name 'Write';
	function WriteEx ( pVendorID, pProductID : UINT; pData : pointer ) : BOOL; stdcall; external DLL_NAME name 'WriteEx';

	procedure SetReadNotify ( pHandle : UINT; pValue : BOOL ) ; stdcall; external DLL_NAME name 'SetReadNotify';

implementation

end.

c# zatial nepoznam natolko, aby som to vytvoril sam a dobre

[dan21]

mne , ak som chybu (problem) tak na 95% to bolo v predavanych parametroch. Teda vlastne v datovych typoch. Ono sa mozu rovnako voalt v obidvoch jazykoch , ale struktura je ina. Skus hladat tym smerom