VB Forum / General / October 2004

Hi

I received the code of a interface written i C, but I can't program in C.
Can someone interpret me this in VB?

/////////////////////////////////////////////////////////////////////////////
// CHotelTstAppDlg dialog

//Deklaration:

unsigned int CHotelTstAppDlg::m_UM_ELAPINotify = 0;

//Registrierung

BEGIN_MESSAGE_MAP(CHotelTstAppDlg, CDialog)
//{{AFX_MSG_MAP(CHotelTstAppDlg)
....
....
//}}AFX_MSG_MAP
ON_REGISTERED_MESSAGE(CHotelTstAppDlg::m_UM_ELAPINotify, OnELAPINotify)
//internal service message
END_MESSAGE_MAP()

//Aufruf von Connect mit Parameterübergabe:

void CHotelTstAppDlg::OnConnect()
{
// TODO: Add your control notification handler code here
 BYTE bDeviceID;
 HWND hOwnerWnd= m_hWnd;
 UINT* puNotifyMsg= &m_UM_ELAPINotify;

UpdateData();
 bDeviceID= GetDeviceId(m_iDevice);

 DWORD dwRet;

 if(m_bUseVB_API)
   dwRet= m_pWELAPI->VB_Connect( (LONG) bDeviceID, (LONG) hOwnerWnd,
(LONG*) puNotifyMsg);
 else
   dwRet= m_pWELAPI->Connect( bDeviceID, hOwnerWnd, puNotifyMsg);

 if(dwRet == ELAPI_OK)
   SetConnectionFlag(TRUE);
 else
   SetConnectionFlag(FALSE);
}

//Callback-Funktion mit auswerten der Parameter:

LRESULT CHotelTstAppDlg::OnELAPINotify(WPARAM wParam, LPARAM lParam)
{
CString str;

// Message received from SManager
switch( LOWORD(wParam) )
{
 case SVC_DISCONNECTED:
     printLine("SVC_DISCONNECTED");
     SetConnectionFlag(FALSE);
    trace("CHotelTstDlg::OnELAPINotify: message: SVC_DISCONNECTED
received");
  break;
  // Data received
 case SVC_DATARECEIVED:
     printLine("SVC_DATARECEIVED");
    trace("CHotelTstDlg::OnELAPINotify: message: SVC_DATARECEIVED
received");

  WORD size;
   size= HIWORD(wParam);
  char * pacRecBuffer;
  pacRecBuffer= new char[size];

     ReceiveData( (unsigned char*)pacRecBuffer, size);

  ProcessReceiveData(pacRecBuffer, size);
  delete pacRecBuffer;
  break;

 default:
    trace("CHotelTstDlg::OnELAPINotify: undefined message:!!!");
  break;
}
return 1;
}

oid HotelTstAppDlg::ReceiveData(char* pacRecBuffer, WORD wSize)
{
CString str;
WORD wStrCount=3;

if(pacRecBuffer==NULL)
 return;

switch(pacRecBuffer[0])
{

     // Hotel_Start_Conf
 case 0x45:

       int RefID;
       int len;
 RefID= pacRecBuffer[1];
       len= ((int)pacRecBuffer[2]) << 8;
       len+= pacRecBuffer[3];

       switch(pacRecBuffer[4])
       {
        case 0xD0: // parameter result
         int ilenResult;
         ilenResult= pacRecBuffer[5];
         int iResultValue;
         iResultValue= pacRecBuffer[6];
         int iErrorValue;
         iErrorValue= pacRecBuffer[7];
 }
}
}

THANKS FOR EVERY HELP

Nijazi Halimaji