Bonjour,
Je dois lire une carte RFID sur une caisse. J'ai un exemple de code en C++ mais je n'arrive pas à le traduire en VB.NET 2010.
Voici le code C++ :
dans la dll :
extern
"C"__declspec(dllexport)
int__stdcallCommRead(intindex,
int *id,
char*function,
char*data);
dans le code C++
char
Func[10], Data[100];
void
__fastcallTFrmMain::Timer1Timer(TObject
*Sender)
{
int
i;
if(CommRead(0,&i,Func,Data) != 0)
{
LRece->Caption = AnsiString(Func) +
" "+ AnsiString(Data);
if(StrLen(Data) == 17) EUID->Text =
AnsiString(Data+1);
else
EUID->Text = "";
Count = 5;
}
else
if(--Count == 0) LRece->Caption =
"";
}
Voici ma traduction :
Private
Declare
FunctionCommRead
Lib
"C:\DEV\TestRFIDCaisse\TestRFIDCaisse\SunComm.dll"(ByValidx
As
Integer,
ByRefID
As
Integer,
ByRefFunctio
As
Char,
ByRefDataR
As
Char)
As
String
DimFunc(10)
AsChar
Dimdata(100)
AsChar
PrivateSubTimer1_Tick(ByValsender
AsSystem.Object,
ByVale
AsSystem.EventArgs)
HandlesTimer1.Tick
Dimlu
AsString=
""
Dimi
AsInteger=
0
If(CommRead(0, i, Func(0), data(0)) <>
0) Then
'LRece->Caption = AnsiString(Func) + " " + AnsiString(Data);
'if (StrLen(Data) == 17) EUID->Text = AnsiString(Data+1);
lu = Func.ToString &
" "& data.ToString
EndIf
EndSub
Si quelqu'un pouvait m'aider, d'avance merci
Func[10], Data[100];
Fab!
