Autor Tema: VB.net a VC#2008 .....ayuda para migración de código (Leído 6555 veces)

jonathanPIC888 · « **en:** 10 de Febrero de 2010, 19:15:06 »

Hola a todos.....en este momento estoy experimentando un poco con USB en modo HID usando un PIC18F2550 , programando en CCS v4.104 y Visual C#2008 para la PC.
Ahora mi consulta es la siguiente...
yo tengo un programa de control básico usando VB.net y easyHID...

Código: vb.net

' Acá está el código fuente del main...
    Public Class Form1
 
    Private Const VendorID As Short = 6017  ' Definimos el VendorID.
    Private Const ProductID As Short = 2000 ' Definimos el ProductID.
 
    ' Declaramos los buffer's de entrada y salida de datos.
    Private Const BufferInSize As Short = 8  ' Definimos el tamaño del buffer entrada.
    Private Const BufferOutSize As Short = 8 ' Definimos el tamaño del buffer de salida.
    Dim BufferIn(BufferInSize) As Byte
    Dim BufferOut(BufferOutSize) As Byte
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ConnectToHID(Me) ' Al ejecutarse el formulario conectamos el dispositivo al controlador.
    End Sub
 
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        DisconnectFromHID() ' Si cerramos el formulario desconectamos el dispositivo del controlador.
    End Sub
 
    ' Si se conecta el dispositivo al host...
    Public Sub OnPlugged(ByVal pHandle As Integer)
        If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then
            Me.estado.BackColor = Color.Green
            Me.estado_conexion.Text = "CONECTADO"
        End If
    End Sub
 
    ' Si se desconecta el dispositivo del host...
    Public Sub OnUnplugged(ByVal pHandle As Integer)
        If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then
            hidSetReadNotify(hidGetHandle(VendorID, ProductID), False)
            Me.estado.BackColor = Color.Red
            Me.estado_conexion.Text = "DESCONECTADO"
        End If
    End Sub
 
    Public Sub OnChanged() ' LLama a todas las funciones de mensajes.
        Dim pHandle As Integer
        pHandle = hidGetHandle(VendorID, ProductID)
        hidSetReadNotify(hidGetHandle(VendorID, ProductID), True)
    End Sub
 
    ' Si recibimos un dato...
    Public Sub OnRead(ByVal pHandle As Integer)
        If hidRead(pHandle, BufferIn(0)) Then
            ' Aqui se reciben los datos a partir del BufferIn(1) = dato del micro..
        End If
    End Sub
 
    Public Sub WriteSomeData() ' Si hay un dato listo para enviar...
        hidWriteEx(VendorID, ProductID, BufferOut(0))
    End Sub
 
    Private Sub boton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles boton.Click
        BufferOut(1) = 1
        Call WriteSomeData()
    End Sub
End Class

Y la librería de control :

Código: vb.net

Imports System
Imports System.Threading
Imports System.Runtime.InteropServices ' Clase para importar la DLL.
 
 
Module HIDDLLInterface
    'Declaramos todas las funciones.
    Declare Function hidConnect Lib "mcHID.dll" Alias "Connect" (ByVal pHostWin As Integer) As Boolean
    Declare Function hidDisconnect Lib "mcHID.dll" Alias "Disconnect" () As Boolean
    Declare Function hidGetItem Lib "mcHID.dll" Alias "GetItem" (ByVal pIndex As Integer) As Integer
    Declare Function hidGetItemCount Lib "mcHID.dll" Alias "GetItemCount" () As Integer
    Declare Function hidRead Lib "mcHID.dll" Alias "Read" (ByVal pHandle As Integer, ByRef pData As Byte) As Boolean
    Declare Function hidWrite Lib "mcHID.dll" Alias "Write" (ByVal pHandle As Integer, ByRef pData As Byte) As Boolean
    Declare Function hidReadEx Lib "mcHID.dll" Alias "ReadEx" (ByVal pVendorID As Integer, ByVal pProductID As Integer, ByRef pData As Byte) As Boolean
    Declare Function hidWriteEx Lib "mcHID.dll" Alias "WriteEx" (ByVal pVendorID As Integer, ByVal pProductID As Integer, ByRef pData As Byte) As Boolean
    Declare Function hidGetHandle Lib "mcHID.dll" Alias "GetHandle" (ByVal pVendoID As Integer, ByVal pProductID As Integer) As Integer
    Declare Function hidGetVendorID Lib "mcHID.dll" Alias "GetVendorID" (ByVal pHandle As Integer) As Integer
    Declare Function hidGetProductID Lib "mcHID.dll" Alias "GetProductID" (ByVal pHandle As Integer) As Integer
    Declare Function hidGetVersion Lib "mcHID.dll" Alias "GetVersion" (ByVal pHandle As Integer) As Integer
    Declare Function hidGetVendorName Lib "mcHID.dll" Alias "GetVendorName" (ByVal pHandle As Integer, ByVal pText As String, ByVal pLen As Integer) As Integer
    Declare Function hidGetProductName Lib "mcHID.dll" Alias "GetProductName" (ByVal pHandle As Integer, ByVal pText As String, ByVal pLen As Integer) As Integer
    Declare Function hidGetSerialNumber Lib "mcHID.dll" Alias "GetSerialNumber" (ByVal pHandle As Integer, ByVal pText As String, ByVal pLen As Integer) As Integer
    Declare Function hidGetInputReportLength Lib "mcHID.dll" Alias "GetInputReportLength" (ByVal pHandle As Integer) As Integer
    Declare Function hidGetOutputReportLength Lib "mcHID.dll" Alias "GetOutputReportLength" (ByVal pHandle As Integer) As Integer
    Declare Sub hidSetReadNotify Lib "mcHID.dll" Alias "SetReadNotify" (ByVal pHandle As Integer, ByVal pValue As Boolean)
    Declare Function hidIsReadNotifyEnabled Lib "mcHID.dll" Alias "IsReadNotifyEnabled" (ByVal pHandle As Integer) As Boolean
    Declare Function hidIsAvailable Lib "mcHID.dll" Alias "IsAvailable" (ByVal pVendorID As Integer, ByVal pProductID As Integer) As Boolean
 
    'Funciones para desplegar mensajes.
 
    Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Integer, ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
                                          (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
 
    Delegate Function SubClassProcDelegate(ByVal hwnd As Integer, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Public Declare Function DelegateSetWindowLong Lib "USER32.DLL" Alias "SetWindowLongA" _
                                           (ByVal hwnd As Integer, ByVal attr As Integer, ByVal lval As SubClassProcDelegate) As Integer
 
 
    ' Constantes de la aplicación.
    Public Const WM_APP As Integer = 32768
    Public Const GWL_WNDPROC As Short = -4
 
    ' Constantes de mensajes de HID.
    Private Const WM_HID_EVENT As Decimal = WM_APP + 200
    Private Const NOTIFY_PLUGGED As Short = 1
    Private Const NOTIFY_UNPLUGGED As Short = 2
    Private Const NOTIFY_CHANGED As Short = 3
    Private Const NOTIFY_READ As Short = 4
 
    ' Variables locales.
    Private FPrevWinProc As Integer
    Private FWinHandle As Integer
    Private Ref_WinProc As New SubClassProcDelegate(AddressOf WinProc)
    Private HostForm As Object
 
    'Espera a recibir un mensaje del controlador HOST y luego se conecta a el mediante la librería de 
    'Funciones.
    Public Function ConnectToHID(ByRef targetForm As Form) As Boolean
        Dim pHostWin As Integer = targetForm.Handle.ToInt32
        FWinHandle = pHostWin
        pHostWin = hidConnect(FWinHandle)
        FPrevWinProc = DelegateSetWindowLong(FWinHandle, GWL_WNDPROC, Ref_WinProc)
        HostForm = targetForm
    End Function
 
    ' Se desconecta del HOST.
    Public Function DisconnectFromHID() As Boolean
        DisconnectFromHID = hidDisconnect
        SetWindowLong(FWinHandle, GWL_WNDPROC, FPrevWinProc)
    End Function
 
    Private Function WinProc(ByVal pHWnd As Integer, ByVal pMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
        If pMsg = WM_HID_EVENT Then
            Select Case wParam
 
                ' Mensaje de que un dispositivo se ha conectado al host.
                Case Is = NOTIFY_PLUGGED
                    HostForm.OnPlugged(lParam)
                    ' Mensaje de que un dispositivo se ha desconectado del host.
                Case Is = NOTIFY_UNPLUGGED
                    HostForm.OnUnplugged(lParam)
                    ' El controlador ha cambiado.
                Case Is = NOTIFY_CHANGED
                    HostForm.OnChanged()
                    ' Se he recibido un dato.
                Case Is = NOTIFY_READ
                    HostForm.OnRead(lParam)
            End Select
        End If
        WinProc = CallWindowProc(FPrevWinProc, pHWnd, pMsg, wParam, lParam)
 
    End Function
End Module

Mi pregunta es como poder migrar este código que está en VB.net a VC#2008

No se mucho de programación de aplicaciones pero me gustaría saber como poder llamar a las funciones de mcHID.dl que es la librería de easyHID en VC# 2008.

Cualquier ayuda será bienvenida

Geo · « **Respuesta #1 en:** 11 de Febrero de 2010, 06:30:15 »

Viendo que el código ya está listo en VB, tus razones tendrás para pasar a C#

.

Estas serían algunas equivalencias (por favor corríjanme si me equivoco):

Código: vb.net

Declare Function hidConnect Lib "mcHID.dll" Alias "Connect" (ByVal pHostWin As Integer) As Boolean

Código: C#

[DllImport("mcHID.dll", EntryPoint = "Connect")]
public static extern bool hidConnect(int pHostWin);

------------------

Código: vb.net

Delegate Function SubClassProcDelegate(ByVal hwnd As Integer, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Código: C#

Delegate int SubClassProcDelegate( int hwnd, int msg, int wParam, int lParam );

------------------

Código: vb.net

Public Const WM_APP As Integer = 32768

Código: C#

public const int WM_APP = 32768;

------------------
Con eso creo ya se puede avanzar con la conversión, hay una ventaja, que los tipos de datos de VB.NET y C# tienen equivalentes casi directos

.
Otra cosa, ¿estás seguro que ya buscaste y no hay algo ha hecho? Yo pensaría que alguien más ya pudo haber realizado esta migración.

jonathanPIC888 · « **Respuesta #2 en:** 11 de Febrero de 2010, 18:36:23 »

Hasta ahora he correjido la mayoría de los errores...pero hay uno que no entiendo Cry

Código: C#

public static bool ConnectToHID(ref Form1 targetForm)
    {
        int pHostWin = targetForm.Handle.ToInt32;
        FWinHandle = pHostWin;
        pHostWin = hidConnect(FWinHandle);
        FPrevWinProc = DelegateSetWindowLong(FWinHandle, GWL_WNDPROC, Ref_WinProc);
        HostForm = targetForm;
    }

me tira el error: no se puede encontrar el tipo o nombre de espacio de nombres "Form" (¿falta una referencia using o una referencia de ensamblado ?)

Geo · « **Respuesta #3 en:** 11 de Febrero de 2010, 19:39:58 »

Cita de: jonathanPIC888 en 11 de Febrero de 2010, 18:36:23

Hasta ahora he correjido la mayoría de los errores...pero hay uno que no entiendo Cry
Código: C#
public static bool ConnectToHID(ref Form1 targetForm)
{
int pHostWin = targetForm.Handle.ToInt32;
FWinHandle = pHostWin;
pHostWin = hidConnect(FWinHandle);
FPrevWinProc = DelegateSetWindowLong(FWinHandle, GWL_WNDPROC, Ref_WinProc);
HostForm = targetForm;
}
me tira el error: no se puede encontrar el tipo o nombre de espacio de nombres "Form" (¿falta una referencia using o una referencia de ensamblado ?)

El tipo es Form, no Form1.

Código: C#

public static bool ConnectToHID(ref Form targetForm)

jonathanPIC888 · « **Respuesta #4 en:** 11 de Febrero de 2010, 20:02:02 »

Me sigue marcando error

la verdad no se a que se pueda deber....modifique lo que me dijiste pero sigue con los errores

jonathanPIC888 · « **Respuesta #5 en:** 11 de Febrero de 2010, 20:25:58 »

Código: C#

int pHostWin = targetForm.Handle.ToInt32;

Acá me indica que la conversión no es posible por que no se puede convertir directamente desde un formato int a int32 ??

es otro de los errores que me tira ...

Geo · « **Respuesta #6 en:** 12 de Febrero de 2010, 00:48:10 »

Pon el código y los errores.

jonathanPIC888 · « **Respuesta #7 en:** 13 de Febrero de 2010, 17:05:55 »

acá está el código con los errores todo dentro de la carpeta...estoy investigando mientras otra forma de conectarme por HID con otra librería pero quiero saber si se puede hacer con esta

http://www.mediafire.com/?tlnjkejtund

Geo · « **Respuesta #8 en:** 14 de Febrero de 2010, 02:50:25 »

La biblioteca ya está declarada, los problemas se deben en gran parte a la forma en que se intenta sobreescribir los procedimientos de ventana del Form1, lo cual no es algo que haya hecho y por ahí no te puedo ayudar mucho en estos momentos.

De cualquier forma, las funciones de la biblioteca ya deberían poder ser llamadas.

jonathanPIC888 · « **Respuesta #9 en:** 15 de Febrero de 2010, 17:22:08 »

Bueno he correjido muchos de los errores del programa

, pero siguen habiendo errores que no entiendo

Pongo el código del programa:
primero el código del formulario....

Código: C#

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Drawing;
using System.Diagnostics;
using System.Windows.Forms;
using System.Linq;
using System.Xml.Linq;
 
namespace WindowsApplication1
{
        public partial class Form1
        {
 
                internal Form1()
                {
                        InitializeComponent();
                }
                private const short VendorID = 6017; // Definimos el VendorID.
                private const short ProductID = 2000; // Definimos el ProductID.
 
                // Declaramos los buffer's de entrada y salida de datos.
                private const short BufferInSize = 8; // Definimos el tamaño del buffer entrada.
                private const short BufferOutSize = 8; // Definimos el tamaño del buffer de salida.
                private byte[] BufferIn = new byte[BufferInSize + 1];
                private byte[] BufferOut = new byte[BufferOutSize + 1];
 
                private void Form1_Load(object sender, System.EventArgs e)
                {
                        HIDDLLInterface.ConnectToHID(ref this); // Al ejecutarse el formulario conectamos el dispositivo al controlador.
                }
 
                private void Form1_FormClosed(object sender, System.Windows.Forms.FormClosedEventArgs e)
                {
                        HIDDLLInterface.DisconnectFromHID(); // Si cerramos el formulario desconectamos el dispositivo del controlador.
                }
 
                // Si se conecta el dispositivo al host...
                public void OnPlugged(int pHandle)
                {
                        if (HIDDLLInterface.hidGetVendorID(pHandle) == VendorID && HIDDLLInterface.hidGetProductID(pHandle) == ProductID)
                        {
                                this.estado.BackColor = Color.Green;
                                this.estado_conexion.Text = "CONECTADO";
                        }
                }
 
                // Si se desconecta el dispositivo del host...
                public void OnUnplugged(int pHandle)
                {
                        if (HIDDLLInterface.hidGetVendorID(pHandle) == VendorID && HIDDLLInterface.hidGetProductID(pHandle) == ProductID)
                        {
                                HIDDLLInterface.hidSetReadNotify(HIDDLLInterface.hidGetHandle(VendorID, ProductID), false);
                                this.estado.BackColor = Color.Red;
                                this.estado_conexion.Text = "DESCONECTADO";
                        }
                }
 
                public void OnChanged() // LLama a todas las funciones de mensajes.
                {
                        int pHandle = 0;
                        pHandle = HIDDLLInterface.hidGetHandle(VendorID, ProductID);
                        HIDDLLInterface.hidSetReadNotify(HIDDLLInterface.hidGetHandle(VendorID, ProductID), true);
                }
 
                // Si recibimos un dato...
                public void OnRead(int pHandle)
                {
//INSTANT C# TODO TASK: In VB, the following line changed the value of the array element BufferIn(0) as a side effect. It will need to be recoded since C# does not allow passing array elements as 'ref' arguments.
                        if (HIDDLLInterface.hidRead(pHandle, ref BufferIn[0]))
                        {
                                // Aqui se reciben los datos a partir del BufferIn(1) = dato del micro..
                        }
                }
 
                public void WriteSomeData() // Si hay un dato listo para enviar...
                {
                        byte tempVar = BufferOut[0];
                        HIDDLLInterface.hidWriteEx(VendorID, ProductID, ref tempVar);
                                BufferOut[0] = tempVar;
                }
 
                private void boton_Click(object sender, System.EventArgs e)
                {
                        BufferOut[1] = 1;
                        WriteSomeData();
                }
        }
 
}

y el código de la librería :

Código: C#

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Drawing;
using System.Linq;
using System.Runtime.InteropServices; // Clase para importar la DLL.
using System.Threading;
using System.Windows.Forms;
using System.Xml.Linq;
 
 
namespace WindowsApplication1
{
        internal static class HIDDLLInterface
        {
                //Declaramos todas las funciones.
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="Connect", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidConnect(int pHostWin);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="Disconnect", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidDisconnect();
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetItem", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetItem(int pIndex);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetItemCount", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetItemCount();
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="Read", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidRead(int pHandle, ref byte pData);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="Write", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidWrite(int pHandle, ref byte pData);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="ReadEx", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidReadEx(int pVendorID, int pProductID, ref byte pData);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="WriteEx", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidWriteEx(int pVendorID, int pProductID, ref byte pData);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetHandle", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetHandle(int pVendoID, int pProductID);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetVendorID", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetVendorID(int pHandle);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetProductID", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetProductID(int pHandle);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetVersion", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetVersion(int pHandle);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetVendorName", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetVendorName(int pHandle, string pText, int pLen);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetProductName", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetProductName(int pHandle, string pText, int pLen);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetSerialNumber", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetSerialNumber(int pHandle, string pText, int pLen);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetInputReportLength", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetInputReportLength(int pHandle);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="GetOutputReportLength", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int hidGetOutputReportLength(int pHandle);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="SetReadNotify", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern void hidSetReadNotify(int pHandle, bool pValue);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="IsReadNotifyEnabled", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidIsReadNotifyEnabled(int pHandle);
                [System.Runtime.InteropServices.DllImport("mcHID.dll", EntryPoint="IsAvailable", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern bool hidIsAvailable(int pVendorID, int pProductID);
 
                //Funciones para desplegar mensajes.
 
                [System.Runtime.InteropServices.DllImport("user32", EntryPoint="CallWindowProcA", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int CallWindowProc(int lpPrevWndFunc, int hwnd, int Msg, int wParam, int lParam);
                [System.Runtime.InteropServices.DllImport("user32", EntryPoint="SetWindowLongA", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int SetWindowLong(int hwnd, int nIndex, int dwNewLong);
 
                public delegate int SubClassProcDelegate(int hwnd, int msg, int wParam, int lParam);
                [System.Runtime.InteropServices.DllImport("USER32.DLL", EntryPoint="SetWindowLongA", ExactSpelling=true, CharSet=System.Runtime.InteropServices.CharSet.Ansi, SetLastError=true)]
                public static extern int DelegateSetWindowLong(int hwnd, int attr, SubClassProcDelegate lval);
 
 
                // Constantes de la aplicación.
                public const int WM_APP = 32768;
                public const short GWL_WNDPROC = -4;
 
                // Constantes de mensajes de HID.
                private const decimal WM_HID_EVENT = WM_APP + 200;
                private const short NOTIFY_PLUGGED = 1;
                private const short NOTIFY_UNPLUGGED = 2;
                private const short NOTIFY_CHANGED = 3;
                private const short NOTIFY_READ = 4;
 
                // Variables locales.
                private static int FPrevWinProc;
                private static int FWinHandle;
                private static SubClassProcDelegate Ref_WinProc = new SubClassProcDelegate(WinProc);
                private static object HostForm;
 
                //Espera a recibir un mensaje del controlador HOST y luego se conecta a el mediante la librería de 
                //Funciones.
                public static bool ConnectToHID(ref Form targetForm)
                {
                        bool pHostWin = Convert.ToBoolean(targetForm.Handle);
            FWinHandle = Convert.ToInt32(FWinHandle);
                        pHostWin = hidConnect(FWinHandle);
                        FPrevWinProc = DelegateSetWindowLong(FWinHandle, GWL_WNDPROC, Ref_WinProc);
                        HostForm = targetForm;
//INSTANT C# NOTE: Inserted the following 'return' since all code paths must return a value in C#:
                        return false;
                }
 
                // Se desconecta del HOST.
                public static bool DisconnectFromHID()
                {
                        bool tempDisconnectFromHID = false;
                        tempDisconnectFromHID = hidDisconnect();
                        SetWindowLong(FWinHandle, GWL_WNDPROC, FPrevWinProc);
                        return tempDisconnectFromHID;
                }
 
                private static int WinProc(int pHWnd, int pMsg, int wParam, int lParam)
                {
                        if (pMsg == WM_HID_EVENT)
                        {
                                switch (wParam)
                                {
 
                                        // Mensaje de que un dispositivo se ha conectado al host.
                                        case NOTIFY_PLUGGED:
                                                HostForm.OnPlugged(lParam);
                                                // Mensaje de que un dispositivo se ha desconectado del host.
                                                break;
                                        case NOTIFY_UNPLUGGED:
                                                HostForm.OnUnplugged(lParam);
                                                // El controlador ha cambiado.
                                                break;
                                        case NOTIFY_CHANGED:
                                                HostForm.OnChanged();
                                                // Se he recibido un dato.
                                                break;
                                        case NOTIFY_READ:
                                                HostForm.OnRead(lParam);
                                                break;
                                }
                        }
                        return CallWindowProc(FPrevWinProc, pHWnd, pMsg, wParam, lParam);
 
                }
 
        internal static void ConnectToHID(ref Form1 form1)
        {
            throw new NotImplementedException();
        }
    }
}

y por último la lista de los errores generados:

Código: C#

Error   1 No se puede pasar '<this>' como argumento out o ref porque es de sólo lectura        C:\Documents and Settings\Flia. Moyano\Escritorio\Electrónica\easyHID c#\Form1.cs      32      37      easyHID_VB.net 2008
Error   2       'object' no contiene una definición de 'OnPlugged' ni se encontró ningún método de extensión 'OnPlugged' que acepte un primer argumento de tipo 'object' (¿falta una directiva de uso o una referencia de ensamblado?)    C:\Documents and Settings\Flia. Moyano\Escritorio\Electrónica\easyHID c#\Module1.cs    121     16      easyHID_VB.net 2008
Error   3       'object' no contiene una definición de 'OnUnplugged' ni se encontró ningún método de extensión 'OnUnplugged' que acepte un primer argumento de tipo 'object' (¿falta una directiva de uso o una referencia de ensamblado?)        C:\Documents and Settings\Flia. Moyano\Escritorio\Electrónica\easyHID c#\Module1.cs    125     16      easyHID_VB.net 2008
Error   4       'object' no contiene una definición de 'OnChanged' ni se encontró ningún método de extensión 'OnChanged' que acepte un primer argumento de tipo 'object' (¿falta una directiva de uso o una referencia de ensamblado?)    C:\Documents and Settings\Flia. Moyano\Escritorio\Electrónica\easyHID c#\Module1.cs    129     16      easyHID_VB.net 2008
Error   5       'object' no contiene una definición de 'OnRead' ni se encontró ningún método de extensión 'OnRead' que acepte un primer argumento de tipo 'object' (¿falta una directiva de uso o una referencia de ensamblado?)  C:\Documents and Settings\Flia. Moyano\Escritorio\Electrónica\easyHID c#\Module1.cs    133     16      easyHID_VB.net 2008

TODOPIC

Autor Tema: VB.net a VC#2008 .....ayuda para migración de código (Leído 6555 veces)

jonathanPIC888

VB.net a VC#2008 .....ayuda para migración de código

Geo

Re: VB.net a VC#2008 .....ayuda para migración de código

jonathanPIC888

Re: VB.net a VC#2008 .....ayuda para migración de código

Geo

Re: VB.net a VC#2008 .....ayuda para migración de código

jonathanPIC888

Re: VB.net a VC#2008 .....ayuda para migración de código

jonathanPIC888

Re: VB.net a VC#2008 .....ayuda para migración de código

Geo

Re: VB.net a VC#2008 .....ayuda para migración de código

jonathanPIC888

Re: VB.net a VC#2008 .....ayuda para migración de código

Geo

Re: VB.net a VC#2008 .....ayuda para migración de código

jonathanPIC888

Re: VB.net a VC#2008 .....ayuda para migración de código