FiveTech Software tech support forums

Code: Select all

// ===========================================================================
//  XBase_IF.cpp    July 2009 Angelo C
// ============================1===============================================
    
 #include <winten.h>   // More includes than necessary for this cut down version. 
 #include <stdio.h>    // My complete code needs
 #include <Winsock2.h>
 #include <stdlib.h>
 #include <malloc.h>
 #include <lm.h>
 #include <Icmpapi.h>


#include <Windows.h>
#include <psapi.h>

#include "hbapi.h"      //Need so that FWH can pass parameters back/forth
#include "hbapirdd.h"   //btween XBase and c/c++ code
#include "hbapierr.h"
#include "hbapiitm.h"
#include "hbvm.h"
#include "hbset.h"


#ifdef __cplusplus
   extern "C" {
 #endif


 // Prototypes for function in the cfuncs_vs DLL.  Also used for accessing DOT.NET framework
 extern int TEST_NAMESPACE_in_DLL();
 
//This routine is called from FWH as: TEST_NAMESPACE()
HB_FUNC( TEST_NAMESPACE )
 {
  int nResult;
  OutputDebugString_c("\nIn routine: HB_FUNC( TEST_NAMESPACE ).\n");

  nResult = TEST_NAMESPACE_in_DLL();
  OutputDebugString_c(Int2Hex((unsigned int) nResult));

 }


 #ifdef __cplusplus
 }
 #endif
 

Code: Select all

// stdafx.h : include file for standard system include files,
// or project specific include files that are used frequently, but
// are changed infrequently
//

#pragma once

// The following macros define the minimum required platform.  The minimum required platform
// is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 
// your application.  The macros work by enabling all features available on platform versions up to and 
// including the version specified.

// Modify the following defines if you have to target a platform prior to the ones specified below.
// Refer to MSDN for the latest info on corresponding values for different platforms.
#ifndef WINVER                          // Specifies that the minimum required platform is Windows Vista.
#define WINVER 0x0600           // Change this to the appropriate value to target other versions of Windows.
#endif

#ifndef _WIN32_WINNT            // Specifies that the minimum required platform is Windows Vista.
#define _WIN32_WINNT 0x0600     // Change this to the appropriate value to target other versions of Windows.
#endif

#ifndef _WIN32_WINDOWS          // Specifies that the minimum required platform is Windows 98.
#define _WIN32_WINDOWS 0x0410 // Change this to the appropriate value to target Windows Me or later.
#endif

#ifndef _WIN32_IE                       // Specifies that the minimum required platform is Internet Explorer 7.0.
#define _WIN32_IE 0x0700        // Change this to the appropriate value to target other versions of IE.
#endif


#define WIN32_LEAN_AND_MEAN             // Exclude rarely-used stuff from Windows headers
// Windows Header Files:
#include <windows.h>


// TODO: reference additional headers your program requires here
 

Code: Select all

// dllmain.cpp : Defines the entry point for the DLL application.
#include "stdafx.h"

BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}
 

Code: Select all

// ===========================================================================
//  c_funcs.cpp               July 2009 Angelo C.
// ============================1===============================================
// cfuncs_vs.cpp : Defines the exported functions for the DLL application.
//  This is CALLED from other C/C++ modules which can be compiled by Borlandc
//  which interfaces with FWH/[x]Harbour source directly using hb_parYYYY, etc functions


// NOTE.  Function names that are called from the Borlandc c/c++ wrapper routine MUST HAVE
//        an underscore "_" included at the start of the name.
//        Borlandc puts this in automatically.
//        SUMMARY. Put "_" at start of routines called from Borlandc Wrapper module
 

#include "stdafx.h"

#define CFUNCS_VS_API __declspec(dllexport)

using namespace System;
 
// Routine converts system strings to another type
// compile with: /clr
#include <string>
#include <iostream>
using namespace std;
using namespace System;

void MarshalString ( String ^ s, string& os ) {
   using namespace Runtime::InteropServices;
   const char* chars = 
      (const char*)(Marshal::StringToHGlobalAnsi(s)).ToPointer();
   os = chars;
   Marshal::FreeHGlobal(IntPtr((void*)chars));
}

void MarshalString ( String ^ s, wstring& os ) {
   using namespace Runtime::InteropServices;
   const wchar_t* chars = 
      (const wchar_t*)(Marshal::StringToHGlobalUni(s)).ToPointer();
   os = chars;
   Marshal::FreeHGlobal(IntPtr((void*)chars));
}

//----------------------------------------------------------------

#ifdef __cplusplus
   extern "C" {
#endif


#using <System.dll>

//A Test for this namespace
CFUNCS_VS_API int _TEST_NAMESPACE_in_DLL()

{
   string a = "test";

  OutputDebugStringA("\nIn (TEST_NAMESPACE_in_DLL(...): ");

    using namespace System;
    using namespace System::IO::Ports;
    using namespace System::ComponentModel;

    array<String^>^ serialPorts = nullptr;
    try
    {
        // Get a list of serial port names.
        serialPorts = SerialPort::GetPortNames();
    }
    catch (Win32Exception^ ex)
    {
        OutputDebugStringA("\nError: ex->Message: ");
        MarshalString(ex->Message, a);
        OutputDebugStringA(a.c_str());
    }

    OutputDebugStringA("\nThe following serial ports were found:");

    // Display each port name to the console.
    for each(String^ port in serialPorts)
    {
       MarshalString(port, a);
       OutputDebugStringA(a.c_str());
    }
}


//Function prototype descriptions for Windows API functions
// lpOutputString is a pointer to string to be displayed in debug window
WINBASEAPI VOID WINAPI OutputDebugStringA( LPCSTR lpOutputString );


// Converts an integer (2 or 4 bytes) into a hex string ( 4 or 8 chars)
CFUNCS_VS_API char * _Int2Hex_dll( unsigned int wWord )
{
  static far char sIntHex[ 17 ];
  WORD i;

  if (sizeof(int) == 4) //Platform has 4 byte represenattion for int
  { 
    i = 9;
    do
      {
        sIntHex[ i ] = 48 + ( wWord & 0x000000000000000F );
        if( sIntHex[ i ] > 57 )
      sIntHex[ i ] += 7;
        wWord >>= 4;
      } while( i-- > 0 );
    sIntHex[ 16 ] = 0;
  }
  else   //Platform has 2 byte represenattion for int
  {
    i= 3;
    do
      {
        sIntHex[ i ] = 48 + ( wWord & 0x000F );
        if( sIntHex[ i ] > 57 )
      sIntHex[ i ] += 7;
        wWord >>= 4;
      } while( i-- > 0 );
    sIntHex[ 4 ] = 0;
  }
  return sIntHex;
}


/* ============================================================================ 
 * OutputDebugStringCR_DLL( cStr )          
 *
 * Purpose:
 *  Send a string the the system debugger window WITH <CR>+<LF> printed first
 * ========================================================================= */
CFUNCS_VS_API void _OutputDebugStringCR_DLL(char * cMsg) {
    OutputDebugStringA("\n");
    OutputDebugStringA(cMsg);
}
 #ifdef __cplusplus
 }
 #endif