debugmain.cpp

看门狗接口

#include <vcl.h>
#include "Win32Dll.h"
#pragma hdrstop

#include "DebugMain.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
/*
typedef struct _QA_DLL_PARA
	{
		BYTE	Command;
		BYTE	DogCascade;
		BYTE	OperationNo;
		WORD	DogAddr1;
		WORD	DogAddr2;
		WORD	DogBytes;
		DWORD	DogPassword;
		DWORD	DogResult;
		BYTE	DogData[200];
	}QA_DLL_PARA, * PQA_DLL_PARA;
*/
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	char szData[200];
	HINSTANCE hInst;
	hInst = LoadLibrary("Support.DLL");
	long __stdcall (*ReadDog)(long,int,int,int,char*) = (long (__stdcall*)(long,int,int,int,char*))GetProcAddress(hInst,"ReadDog");
	int iRet = ReadDog(0,0,0,4,szData);
	FreeLibrary(hInst);

	if(iRet == 0)
	{	//for(int i=0;i<4;i++)	szData += AnsiString(char(dogPara.DogData[i]));
		Edit1->Text = szData;
	}
	else
		Edit1->Text = "Error :" + AnsiString(iRet);
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
	QA_DLL_PARA dogPara;
	AnsiString szData;
	dogPara.Command = 2;
	dogPara.DogPassword = 0;
	dogPara.DogCascade = 0;
	dogPara.DogBytes = 4;
	dogPara.DogAddr1 = 0;
	HINSTANCE hInst;
	hInst = LoadLibrary("Win32Dll.DLL");
	long __stdcall (*GS_QADog)(PQA_DLL_PARA) = (long (__stdcall*)(PQA_DLL_PARA))GetProcAddress(hInst,"GS_QADog");
	int iRet = GS_QADog(&dogPara);
	FreeLibrary(hInst);
	Edit1->Text = iRet;

	if(iRet == 0)
	{	for(int i=0;i<4;i++)	szData += AnsiString(char(dogPara.DogData[i]));
		Edit1->Text = szData;
	}
	return;

/*
	QA_DLL_PARA dogPara;
	dogPara.Command = 2;
	dogPara.DogPassword = 0;//aiPwd;
	dogPara.DogCascade = 0;//aiCasCade;
	dogPara.DogAddr1 = 1;//aiReadAddr1;
	dogPara.DogBytes = 3;//aiReadBytes;

	HINSTANCE hInst;
	hInst = LoadLibrary("Win32Dll.DLL");
	long __stdcall (*GS_QADog)(PQA_DLL_PARA) = (long (__stdcall*)(PQA_DLL_PARA))GetProcAddress(hInst,"GS_QADog");
	int iRet = GS_QADog(&dogPara);
	FreeLibrary(hInst);
	char pBuff[200];
	if(iRet == 0)
	{	memcpy(pBuff,dogPara.DogData,4);
		Edit1->Text = pBuff;
	}
	else
		Edit1->Text = "Error Code: " + IntToStr(iRet);
*/
}