geopaddll.cpp

一个开源的基于WindowsCE的GIS系统。

/************************************************************
//
//		Copyright (C) 2002, Geo Soft 
//		All rights reserved
//		mail: [e-mail]
//		web:  www.geosoftindia.com
//		Khunti Popat
//
************************************************************/

#include "stdafx.h"
#include "GeoPADDll.h"

CGeoPADCtrl::CGeoPADCtrl() 
{
	hInstasnce = LoadLibrary(TEXT("GeoSoft.dll"));
}

void CGeoPADCtrl::AboutGeoPAD() 
{
	void (PASCAL *fun)();
	(FARPROC&)fun = GetProcAddress(hInstasnce,_T("AboutGeoPAD"));
	if(fun)
		fun();
}
bool CGeoPADCtrl::GeoPAD1(BSTR filePath) 
{
	bool (PASCAL *fun1)(BSTR FilePath);
	(FARPROC&)fun1 = GetProcAddress(hInstasnce,_T("GeoPAD1"));
	if(fun1)
		return fun1(filePath);
	return false;
}
bool CGeoPADCtrl::GeoPAD2() 
{
	bool (PASCAL *fun2)();
	(FARPROC&)fun2 = GetProcAddress(hInstasnce,_T("GeoPAD2"));
	if(fun2)
		return fun2();
	return false;
}
bool CGeoPADCtrl::GeoPAD3(BSTR filePath) 
{
	bool (PASCAL *fun3)(BSTR filePath);
	(FARPROC&)fun3 = GetProcAddress(hInstasnce,_T("GeoPAD3"));
	if(fun3)
		return fun3(filePath);
	return false;
}
bool CGeoPADCtrl::GeoPAD4() 
{
	bool (PASCAL *fun4)();
	(FARPROC&)fun4 = GetProcAddress(hInstasnce,_T("GeoPAD4"));
	if(fun4)
		return fun4();
	return false;
}
bool CGeoPADCtrl::GeoPAD5() 
{
	bool (PASCAL *fun5)();
	(FARPROC&)fun5 = GetProcAddress(hInstasnce,_T("GeoPAD5"));
	if(fun5)
		return fun5();
	return false;
}
bool CGeoPADCtrl::GeoPAD6(BSTR projectPath) 
{
	bool (PASCAL *fun6)(BSTR path);
	(FARPROC&)fun6 = GetProcAddress(hInstasnce,_T("GeoPAD6"));
	if(fun6)
		return fun6(projectPath);
	return false;
}
bool CGeoPADCtrl::GeoPAD7(BSTR projectPath) 
{
	bool (PASCAL *fun7)(BSTR path);
	(FARPROC&)fun7 = GetProcAddress(hInstasnce,_T("GeoPAD7"));
	if(fun7)
		return fun7(projectPath);
	return false;
}
bool CGeoPADCtrl::GeoPAD8() 
{
	
	bool (PASCAL *fun8)();
	(FARPROC&)fun8 = GetProcAddress(hInstasnce,_T("GeoPAD8"));
	if(fun8)
		return fun8();

	return false;
}

bool CGeoPADCtrl::GeoPAD9(BSTR legendPath) 
{
	
	bool (PASCAL *fun9)(BSTR legendPath);
	(FARPROC&)fun9 = GetProcAddress(hInstasnce,_T("GeoPAD9"));
	if(fun9)
		return fun9(legendPath);
	return false;
}

bool CGeoPADCtrl::GeoPAD10() 
{
	
	bool (PASCAL *fun10)();
	(FARPROC&)fun10 = GetProcAddress(hInstasnce,_T("GeoPAD10"));
	if(fun10)
		return fun10();
	return false;
}

bool CGeoPADCtrl::GeoPAD12(HDC hDC) 
{
	
	bool (PASCAL *fun12)(HDC hDC);
	(FARPROC&)fun12 = GetProcAddress(hInstasnce,_T("GeoPAD12"));
	if(fun12)
		return fun12(hDC);

	return false;
}

bool CGeoPADCtrl::GeoPAD13(HDC hDC, int button, int type, int x, int y) 
{
	
	bool (PASCAL *fun13)(HDC hDC, int button, int type, int x, int y);
	(FARPROC&)fun13 = GetProcAddress(hInstasnce,_T("GeoPAD13"));
	if(fun13)
		return fun13(hDC,button,type,x,y);

	return false;
}

bool CGeoPADCtrl::GeoPAD14(int cursor) 
{
	
	bool (PASCAL *fun14)(int cursor);
	(FARPROC&)fun14 = GetProcAddress(hInstasnce,_T("GeoPAD14"));
	if(fun14)
		return fun14(cursor);

	return false;
}

bool CGeoPADCtrl::GeoPAD15(int hDC, int xMin, int yMin, int xMax, int yMax) 
{
	
	bool (PASCAL *fun15)(int hDC,int left, int top, int right, int bottom);
	(FARPROC&)fun15 = GetProcAddress(hInstasnce,_T("GeoPAD15"));
	if(fun15)
		return fun15(hDC,xMin,yMin,xMax,yMax);

	return false;
}

bool CGeoPADCtrl::GeoPAD16(int zooming) 
{
	
	bool (PASCAL *fun16)(int zoom);
	(FARPROC&)fun16 = GetProcAddress(hInstasnce,_T("GeoPAD16"));
	if(fun16)
		return fun16(zooming);

	return false;
}

bool CGeoPADCtrl::GeoPAD17(int entityNumber) 
{
	
	bool (PASCAL *fun17)(int entityNumber);
	(FARPROC&)fun17 = GetProcAddress(hInstasnce,_T("GeoPAD17"));
	if(fun17)
		return fun17(entityNumber);

	return false;
}

bool CGeoPADCtrl::GeoPAD18(int layerNumber) 
{
	
	bool (PASCAL *fun18)(int layerNumber);
	(FARPROC&)fun18 = GetProcAddress(hInstasnce,_T("GeoPAD18"));
	if(fun18)
		return fun18(layerNumber);

	return false;
}

bool CGeoPADCtrl::GeoPAD19() 
{
	
	bool (PASCAL *fun19)();
	(FARPROC&)fun19 = GetProcAddress(hInstasnce,_T("GeoPAD19"));
	if(fun19)
		return fun19();

	return false;
}

bool CGeoPADCtrl::GeoPAD20() 
{
	
	bool (PASCAL *fun20)();
	(FARPROC&)fun20 = GetProcAddress(hInstasnce,_T("GeoPAD20"));
	if(fun20)
		return fun20();

	return false;
}

bool CGeoPADCtrl::GeoPAD21() 
{
	
	bool (PASCAL *fun21)();
	(FARPROC&)fun21 = GetProcAddress(hInstasnce,_T("GeoPAD21"));
	if(fun21)
		return fun21();

	return false;
}

int CGeoPADCtrl::GeoPAD22(int x, int y) 
{
	
	int (PASCAL *fun22)(int x, int y);
	(FARPROC&)fun22 = GetProcAddress(hInstasnce,_T("GeoPAD22"));
	if(fun22)
		return fun22(x,y);

	return -1;
}

BSTR CGeoPADCtrl::GeoPAD23() 
{
	
	BSTR (PASCAL *fun23)();
	(FARPROC&)fun23 = GetProcAddress(hInstasnce,_T("GeoPAD23"));
	if(fun23)
		return fun23();

	return NULL;
}

BSTR CGeoPADCtrl::GeoPAD24() 
{
	
	BSTR (PASCAL *fun24)();
	(FARPROC&)fun24 = GetProcAddress(hInstasnce,_T("GeoPAD24"));
	if(fun24)
		return fun24();

	return NULL;
}

double CGeoPADCtrl::GeoPAD25(int x) 
{
	
	double (PASCAL *fun25)(int x);
	(FARPROC&)fun25 = GetProcAddress(hInstasnce,_T("GeoPAD25"));
	if(fun25)
		return fun25(x);

	return 0.0;
}

double CGeoPADCtrl::GeoPAD26(int y) 
{
	
	double (PASCAL *fun26)(int y);
	(FARPROC&)fun26 = GetProcAddress(hInstasnce,_T("GeoPAD26"));
	if(fun26)
		return fun26(y);

	return 0.0;
}

BSTR CGeoPADCtrl::GeoPAD27(int x, int y) 
{
	CString strResult;
	
	BSTR (PASCAL *fun27)(int x,int y);
	(FARPROC&)fun27 = GetProcAddress(hInstasnce,_T("GeoPAD27"));
	if(fun27)
		strResult = fun27(x,y);

	return strResult.AllocSysString();
}

BSTR CGeoPADCtrl::GeoPAD28(int x, int y) 
{
	CString strResult;
	
	BSTR (PASCAL *fun28)(int x,int y);
	(FARPROC&)fun28 = GetProcAddress(hInstasnce,_T("GeoPAD28"));
	if(fun28)
		strResult = fun28(x,y);

	return strResult.AllocSysString();
}

bool CGeoPADCtrl::GeoPAD29(int layerNumber) 
{
	
	bool (PASCAL *fun29)(int layerNumber);
	(FARPROC&)fun29 = GetProcAddress(hInstasnce,_T("GeoPAD29"));
	if(fun29)
		return fun29(layerNumber);

	return false;
}

int CGeoPADCtrl::GeoPAD30() 
{
	
	int (PASCAL *fun30)();
	(FARPROC&)fun30 = GetProcAddress(hInstasnce,_T("GeoPAD30"));
	if(fun30)
		return fun30();

	return 0;
}

bool CGeoPADCtrl::GeoPAD31(int layerNumber, int layerSeq) 
{
	
	bool (PASCAL *fun31)(int num,int se);
	(FARPROC&)fun31 = GetProcAddress(hInstasnce,_T("GeoPAD31"));
	if(fun31)
		return fun31(layerNumber,layerSeq);

	return false;
}

int CGeoPADCtrl::GeoPAD32(int layerNumber) 
{
	
	int (PASCAL *fun32)(int layerNumber);
	(FARPROC&)fun32 = GetProcAddress(hInstasnce,_T("GeoPAD32"));
	if(fun32)
		return fun32(layerNumber);

	return 0;
}

bool CGeoPADCtrl::GeoPAD33(BSTR findStr,bool mw,bool mc) 
{
	bool (PASCAL *fun33)(BSTR findStr,bool mw,bool mc);
	(FARPROC&)fun33 = GetProcAddress(hInstasnce,_T("GeoPAD33"));
	if(fun33)
		return fun33(findStr,mw,mc);
	return false;
}

bool CGeoPADCtrl::GeoPAD34(int hDC) 
{
	
	bool (PASCAL *fun34)(int hDC);
	(FARPROC&)fun34 = GetProcAddress(hInstasnce,_T("GeoPAD34"));
	if(fun34)
		return fun34(hDC);

	return false;
}

bool CGeoPADCtrl::GeoPAD35() 
{
	
	bool (PASCAL *fun35)();
	(FARPROC&)fun35 = GetProcAddress(hInstasnce,_T("GeoPAD35"));
	if(fun35)
		return fun35();

	return false;
}

BSTR CGeoPADCtrl::GeoPAD36() 
{
	CString strResult;
	
	char * (PASCAL *fun36)();
	(FARPROC&)fun36 = GetProcAddress(hInstasnce,_T("GeoPAD36"));
	if(fun36)
		strResult = fun36();

	return strResult.AllocSysString();
}

bool CGeoPADCtrl::GeoPAD37(int entityNumber) 
{
	
	bool (PASCAL *fun37)(int entityNumber);
	(FARPROC&)fun37 = GetProcAddress(hInstasnce,_T("GeoPAD37"));
	if(fun37)
		return fun37(entityNumber);

	return false;
}

int CGeoPADCtrl::GeoPAD38() 
{
	bool (PASCAL *fun38)();
	(FARPROC&)fun38 = GetProcAddress(hInstasnce,_T("GeoPAD38"));
	if(fun38)
		return fun38();

	return 0;
}


bool CGeoPADCtrl::GeoPAD39(int x, int y) 
{
	
	bool (PASCAL *fun39)(int x,int y);
	(FARPROC&)fun39 = GetProcAddress(hInstasnce,_T("GeoPAD39"));
	if(fun39)
		return fun39(x,y);

	return false;
}

bool CGeoPADCtrl::GeoPAD41(BSTR query) 
{
	
	bool (PASCAL *fun41)(BSTR query);
	(FARPROC&)fun41 = GetProcAddress(hInstasnce,_T("GeoPAD41"));
	if(fun41)
		return fun41(query);

	return false;
}

BSTR CGeoPADCtrl::GeoPAD42() 
{
	CString strResult;
	
	char * (PASCAL *fun42)();
	(FARPROC&)fun42 = GetProcAddress(hInstasnce,_T("GeoPAD42"));
	if(fun42)
		strResult = fun42();

	return strResult.AllocSysString();
}

BSTR CGeoPADCtrl::GeoPAD43() 
{
	CString strResult;
	
	char * (PASCAL *fun43)();
	(FARPROC&)fun43 = GetProcAddress(hInstasnce,_T("GeoPAD43"));
	if(fun43)
		strResult = fun43();

	return strResult.AllocSysString();
}

BSTR CGeoPADCtrl::GeoPAD44() 
{
	CString strResult;
	
	char * (PASCAL *fun44)();
	(FARPROC&)fun44 = GetProcAddress(hInstasnce,_T("GeoPAD44"));
	if(fun44)
		strResult = fun44();

	return strResult.AllocSysString();
}

BSTR CGeoPADCtrl::GeoPAD45() 
{
	CString strResult;
	
	char * (PASCAL *fun45)();
	(FARPROC&)fun45 = GetProcAddress(hInstasnce,_T("GeoPAD45"));
	if(fun45)
		strResult = fun45();

	return strResult.AllocSysString();
}

BSTR CGeoPADCtrl::GeoPAD46(int layerNumber) 
{
	CString strResult;
	
	char * (PASCAL *fun46)(int layerNumber);
	(FARPROC&)fun46 = GetProcAddress(hInstasnce,_T("GeoPAD46"));
	if(fun46)
		strResult = fun46(layerNumber);

	return strResult.AllocSysString();
}


bool CGeoPADCtrl::GeoPAD47(int panNumber) 
{
	
	bool (PASCAL *fun47)(int panNumber);
	(FARPROC&)fun47 = GetProcAddress(hInstasnce,_T("GeoPAD47"));
	if(fun47)
		return fun47(panNumber);

	return false;
}

int CGeoPADCtrl::GeoPAD48() 
{
	
	int (PASCAL *fun48)();
	(FARPROC&)fun48 = GetProcAddress(hInstasnce,_T("GeoPAD48"));
	if(fun48)
		return fun48();

	return 0;
}

int CGeoPADCtrl::GeoPAD49() 
{
	
	bool (PASCAL *fun49)();
	(FARPROC&)fun49 = GetProcAddress(hInstasnce,_T("GeoPAD49"));
	if(fun49)
		return fun49();

	return 0;
}

long CGeoPADCtrl::GeoPAD50(int layerNumber) 
{
	
	long (PASCAL *fun50)(int layerNumber);
	(FARPROC&)fun50 = GetProcAddress(hInstasnce,_T("GeoPAD50"));
	if(fun50)
		return fun50(layerNumber);

	return 0;
}

int CGeoPADCtrl::GeoPAD51(int layerNumber) 
{
	
	int (PASCAL *fun51)(int layerNumber);
	(FARPROC&)fun51 = GetProcAddress(hInstasnce,_T("GeoPAD51"));
	if(fun51)
		return fun51(layerNumber);
	return 0;
}

bool CGeoPADCtrl::GeoPAD52(int layerNumber, bool onoff) 
{
	
	bool (PASCAL *fun52)(int file, bool onoff);
	(FARPROC&)fun52 = GetProcAddress(hInstasnce,_T("GeoPAD52"));
	if(fun52)
		return fun52(layerNumber, onoff);

	return false;
}