Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link Other Languages - using Clarion with...: C++ Calling clarion functions from VC 2002-11-28 -- Jim Kane Newsgroups: comp.lang.clarion
I wrote a clarion dll to read tps files from vc. I did not use (I never
use) mfc or atl. This was a straight C app.
in callfile.c
case WM_CREATE:
hInstance = ((LPCREATESTRUCT) lParam)->hInstance;
hdc = GetDC (hwnd) ;
GetTextMetrics (hdc, &tm) ;
cxChar = tm.tmAveCharWidth ;
cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ;
cyChar = tm.tmHeight + tm.tmExternalLeading ;
ReleaseDC (hwnd, hdc) ;
//load the clarion dll
hGetFile =
LoadLibrary(TEXT("GETFILE.DLL"));
if(!hGetFile == 0)
{
PD_Init =
)GetProcAddress(hGetFile,"PD_INIT");
PD_SetDataPath =
D_SETDATAPATH )GetProcAddress(hGetFile,"PD_SETDATAPATH");
PD_GetBufferSize =
(PD_GETBUFFERSIZE )GetProcAddress(hGetFile,"PD_GETBUFFERSIZE");
PD_OpenFile =
PENFILE )GetProcAddress(hGetFile,"PD_OPENFILE");
//more code here
}
else
{
MessageBox(hwnd,"LoadLib Failed for GetFile.dll","Fatal Error", MB_OK);
SendMessage(hwnd,WM_CLOSE,0,0);
return(1);
}
if(PD_Init == 0 || PD_SetDataPath==0 || PD_OpenFile==0 ||
PD_GetBufferSize==0 ||
//more code here
)
{
MessageBox (hwnd, TEXT("Wrong version of GetFile.Dll"), TEXT("Fatal
Error"), MB_OK);
SendMessage(hwnd,WM_CLOSE,0,0);
return(1);
}
PD_Init(); //Init the dll
//rest of the program here......
then in callfile.h the prototypes
#ifndef CALLFILE_H
#define CALLFILE_H
#ifdef __cplusplus
extern "C" {
#endif
//Function Prototypes
typedef void (WINAPI * PD_INIT)(void);
PD_INIT PD_Init;
typedef unsigned char (WINAPI * PD_SETDATAPATH )(LPCSTR lpDataPath);
PD_SETDATAPATH PD_SetDataPath;
typedef unsigned char (WINAPI * PD_GETBUFFERSIZE)(LPCSTR lpFileLabel,
LPDWORD cbBuffer);
PD_GETBUFFERSIZE PD_GetBufferSize;
typedef unsigned char (WINAPI * PD_OPENFILE)(LPCSTR lpFileLabel, LPCVOID
lpBuffer, DWORD cbBuffer);
PD_OPENFILE PD_OpenFile;
typedef unsigned char (WINAPI * PD_CLOSEFILE)(LPCSTR lpFileLabel);
PD_CLOSEFILE PD_CloseFile;
//other prototypes here
//Equates
// Error Equates - Usually returned as a byte (unsigned char)
#define levelbenign 0 //No Error
#define levelfatal 3 //Error - Action did not complete
#define levelnotify 5 //Action didnt complete but not an error - typically
End of File
//Cstring size for File and Key Labels
#define LabelLen 41
#ifdef __cplusplus
};
#endif
#endif
Jim Kane
"Mihai Palade (Bucharest - Romania)"
Today is April 27, 2024, 3:57 pm This article has been viewed 35138 times. Google search has resulted in 317 hits on this article since January 25, 2004.
|
|