PureBasic Forums - English

Code: Select all

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

BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  ul_reason_for_call, 
                       LPVOID lpReserved
					 )
{
    return TRUE;
}



#include <windows.h> 

////////////////////////////////////////////////////////////////////////////// 
// Step (1) Include PB's debugger stuff. 
//          With SendDebuggerError() the debugger can be stopped with some 
//          warning message. Useful in "_DEBUG" functions. 
////////////////////////////////////////////////////////////////////////////// 

char *PB_DEBUGGER_ErrorDescription; 
HWND  PB_DEBUGGER_Window; 
int   PB_DEBUGGER_Control; 


void SendDebuggerError(char*); 

void SendDebuggerError(char *text) 
{ 
   if (PB_DEBUGGER_ErrorDescription == 0) 
   { 
      PB_DEBUGGER_ErrorDescription = text; 
      PB_DEBUGGER_Control = 2; // Halt the PureBasic program flow... 
      SendMessage(PB_DEBUGGER_Window, WM_COMMAND, 6, 1); 
   } 
} 
////////////////////////////////////////////////////////////////////////////// 

////////////////////////////////////////////////////////////////////////////// 
// Step (2) Write the C functions you want to export to PureBasic. 
//          These functions must be prefixed with "PB_" for PureBasic to 
//          recognize them. 
// 
// Note:    Functions have to use STDCALL calling convention. 
////////////////////////////////////////////////////////////////////////////// 
#define PBCOMMAND   extern  

PBCOMMAND int _stdcall PB_SampleCFunction(); 

PBCOMMAND int _stdcall PB_SampleCFunction() 
{ 
          return 1234; 
} 

////////////////////////////////////////////////////////////////////////////// 
// Step (3) Write the C debug functions. They must be suffixed with "_DEBUG". 
//          This function for example will raise an error in PB's debugger, 
//          if one of the three arguments are NULL (0). 
// 
// Note:    Functions have to use CDECL calling convention and must use void 
//          as return value. 
////////////////////////////////////////////////////////////////////////////// 
#define PBDEBUG     extern void 

PBDEBUG PB_SampleCFunction_DEBUG(); 

PBDEBUG PB_SampleCFunction_DEBUG() 
{ 

}

Code: Select all

; 
; Langage used to code the library: ASM or C 
C 
; 
; Number of windows DLLs our library needs. 
; This is used to tell the PureBasic compiler / 
; linker which libraries are needed to link with. 
1 
MSVCRT 
; 
; Library type (Can be OBJ or LIB). 
OBJ 
; 
; Number of PureBasic libraries needed by your library. 
; (additional PureBasic libraries that are needed for linking). 
0 
; 
; Help directory name. 
SampleLib 
; 
; Library functions (FunctionName, Arg1, Arg2, ...); 
; First the function name. Its the name of the C function 
; that should be exported to PB, without the "PB_" Prefix 
; used in C. After function name a comma and a list of 
; arguments seperated by comma aswell. in parentheses 
; a argument description that is showed by the PureBasic IDE 
; as quick help. After the parentheses a general description 
; can follow. 
; 
; Translation table for some arguments: 
; ANSI C         | PureBasic 
; -------------------------- 
; int *          |  Long 
; byte *         |  Long 
; int  (32 bits) |  Long 
; char *         |  Long / String 
; long (32 bits) |  Long 
; float          |  Float 
; double         |    -  (must be casted to float in C for now) 
; char           |  Byte 
; void           |  None 
; short(16 bits) |  Word 
; 
SampleCFunction () - My Sample Function. 
; 
; Return value: 
; Type of return value and flags for: 
; 'InitFunction' (a function which is called automatically 
; at the start of a PureBasic program), 
; 'EndFunction' (called at the end, for cleaning) 
; and 'DebuggerCheck' (a debugger handler function for this command.) 
Long | DebuggerCheck

Code: Select all

MessageRequester("",Str(SampleCFunction()))

Code: Select all

#include "stdafx.h"

BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  ul_reason_for_call, 
                       LPVOID lpReserved
					 )
{
    return TRUE;
}


extern "C" int _stdcall PB_SampleCFunction() 
{ 
          return 1234; 
} 

extern "C" void _stdcall PB_SampleCFunction_DEBUG() 
{ 

} 

Code: Select all

LIBRARY PURETEST

EXPORTS
PB_SampleCFunction @1
PB_SampleCFunction_DEBUG @2

Code: Select all

C 
1 
MSVCRT 
LIB
0 
Extension1 
;
SampleCFunction () - My Sample Function. 
Long | DebuggerCheck

Code: Select all

MessageRequester("",Str(SampleCFunction()))

Code: Select all

char *PB_DEBUGGER_ErrorDescription; 
HWND  PB_DEBUGGER_Window; 
int   PB_DEBUGGER_Control; 


void SendDebuggerError(char*); 

void SendDebuggerError(char *text) 
{ 
   if (PB_DEBUGGER_ErrorDescription == 0) 
   { 
      PB_DEBUGGER_ErrorDescription = text; 
      PB_DEBUGGER_Control = 2; // Halt the PureBasic program flow... 
      SendMessage(PB_DEBUGGER_Window, WM_COMMAND, 6, 1); 
   } 
}

Code: Select all

extern "C" int _stdcall PB_HelloWorld(int x) 
{ 
	return x*2; 
} 

extern "C" void PB_HelloWorld_DEBUG(int x) 
{ 
} 

Code: Select all

C 
1 
MSVCRT 
OBJ 
0 
Extension1 
; 
HelloWorld, Long (integer) - Doubles the given integer
Long | DebuggerCheck

Code: Select all

i=HelloWorld(34)
MessageRequester("",Str(i))