Compilo con bcc582
- Code: Select all Expand view
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 80: Suspicious pointer conversion in function HB_FUN_CALL_PROC_C
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 86: Suspicious pointer conversion in function HB_FUN_CALL_PROC_IC
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 92: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CC
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 98: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CCC
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 124: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_C_I
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 124: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_C_I
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 142: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CC_I
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 148: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CCC_I
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 154: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CCI_I
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 166: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CIII_I
Warning W8075 K:\\PROY_H~1\\PRG\\fastreph.prg 173: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CICCCCCCCC_I
#include 'lang_en.ch' no existe
///////////////////////////////////////////////////////////////////////////////
//
// FastRepH.PRG
//
// Copyright:
// Spirin Sergey, Paritet Soft, (c) 1992-2008. All rights reserved.
//
// Contents:
// Source File for frReportManager and other classes for
// "FastReport for [x]Harbour"
//
///////////////////////////////////////////////////////////////////////////////
#pragma BEGINDUMP
#include "windows.h"
#include "hbapiitm.h"
#include "hbvm.h"
#include "hbapirdd.h"
#include "hbxvm.h"
typedef void *pointer;
typedef void (*proc_)(void);
typedef void (*proc_I)(long param1);
typedef void (*proc_IP) (int funcnum, pointer adr);
typedef void (*proc_C)(char * param);
typedef void (*proc_IC)(int param1, char * param2);
typedef void (*proc_CC)(char * param1, char * param2);
typedef void (*proc_CCC)(char * param1, char * param2, char * param3);
typedef void (*proc_IIII)(long param1, long param2, long param3, long param4);
typedef LONG (*func__I)(void);
typedef LONG (*func_I_I)(long param);
typedef LONG (*func_C_I)(char * param);
typedef LONG (*func_II_I)(long param1, long param2);
typedef LONG (*func_IC_I)(long param1, char * param2);
typedef LONG (*func_CC_I)(char * param1, char * param2);
typedef LONG (*func_CCC_I)(char * param1, char * param2, char * param3);
typedef LONG (*func_CCI_I)(char * param1, char * param2, long param3);
typedef LONG (*func_III_I)(long param1, long param2, long param3);
typedef LONG (*func_CIII_I)(char * param1, long param2, long param3, long param4);
typedef LONG (*func_CICCCCCCCC_I)(char * param1, long param2, char * param3, char * param4, char * param5,
char * param6, char * param7, char * param8, char * param9, char * param10);
HB_FUNC( FRLOAD )
{
hb_retnl((long)(HMODULE)LoadLibrary(hb_parc(1)));
}
HB_FUNC( GETFRPROCADDRESS )
{
hb_retnl((long)(FARPROC)GetProcAddress((HMODULE)hb_parnl(1) , hb_parc(2)));
}
HB_FUNC( FRUNLOAD )
{
FreeLibrary((HMODULE)hb_parnl(1));
}
HB_FUNC( CALL_PROC_ )
{
proc_ CurProc = (proc_)hb_parnl(1);
CurProc();
}
HB_FUNC( CALL_PROC_I )
{
proc_I CurProc = (proc_I)hb_parnl(1);
CurProc(hb_parnl(2));
}
HB_FUNC( CALL_PROC_C )
{
proc_C CurProc = (proc_C)hb_parnl(1);
CurProc(hb_parc(2));
}
HB_FUNC( CALL_PROC_IC )
{
proc_IC CurProc = (proc_IC)hb_parnl(1);
CurProc(hb_parnl(2), hb_parc(3));
}
HB_FUNC( CALL_PROC_CC )
{
proc_CC CurProc = (proc_CC)hb_parnl(1);
CurProc(hb_parc(2), hb_parc(3));
}
HB_FUNC( CALL_PROC_CCC )
{
proc_CCC CurProc = (proc_CCC)hb_parnl(1);
CurProc(hb_parc(2), hb_parc(3), hb_parc(4));
}
HB_FUNC( CALL_PROC_IIII )
{
proc_IIII CurProc = (proc_IIII)hb_parnl(1);
CurProc(hb_parnl(2), hb_parnl(3), hb_parnl(4), hb_parnl(5));
}
HB_FUNC( CALL_FUNC__I )
{
func__I CurFunc = (func__I)hb_parnl(1);
hb_retnl(CurFunc());
}
HB_FUNC( CALL_FUNC_I_I )
{
func_I_I CurFunc = (func_I_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parnl(2)));
}
HB_FUNC( CALL_FUNC_C_I )
{
func_C_I CurFunc = (func_C_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parc(2)));
}
HB_FUNC( CALL_FUNC_II_I )
{
func_II_I CurFunc = (func_II_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parnl(2), hb_parnl(3)));
}
HB_FUNC( CALL_FUNC_IC_I )
{
func_IC_I CurFunc = (func_IC_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parnl(2), hb_parc(3)));
}
HB_FUNC( CALL_FUNC_CC_I )
{
func_CC_I CurFunc = (func_CC_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parc(2), hb_parc(3)));
}
HB_FUNC( CALL_FUNC_CCC_I )
{
func_CCC_I CurFunc = (func_CCC_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parc(2), hb_parc(3), hb_parc(4)));
}
HB_FUNC( CALL_FUNC_CCI_I )
{
func_CCI_I CurFunc = (func_CCI_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parc(2), hb_parc(3), hb_parnl(4)));
}
HB_FUNC( CALL_FUNC_III_I )
{
func_III_I CurFunc = (func_III_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parnl(2), hb_parnl(3), hb_parnl(4)));
}
HB_FUNC( CALL_FUNC_CIII_I )
{
func_CIII_I CurFunc = (func_CIII_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parc(2), hb_parnl(3), hb_parnl(4), hb_parnl(5)));
}
HB_FUNC( CALL_FUNC_CICCCCCCCC_I )
{
func_CICCCCCCCC_I CurFunc = (func_CICCCCCCCC_I)hb_parnl(1);
hb_retnl(CurFunc(hb_parc(2), hb_parnl(3), hb_parc(4), hb_parc(5), hb_parc(6), hb_parc(7), hb_parc(8),
hb_parc(9), hb_parc(10), hb_parc(11)));
}
USHORT TmpGetWA( AREAP area, void * ptr)
{
proc_I CurFunc = (proc_I)ptr;
CurFunc(area->uiArea);
return 0;
}
.......}
