主题:求助如何将下列语言变为delphi语言?
#include "windows.h"
#include "iostream.h"
typedef void (_stdcall *MYDLLFUNC )(char *i,char *j,char *k);
int main()
{
HMODULE hDll=::LoadLibrary ("MIClient.dll");
if(hDll)
{
MYDLLFUNC myDllFunc=(MYDLLFUNC)::GetProcAddress (hDll,"Request");
if (myDllFunc)
{
char *lpRetPara;
lpRetPara = new char[];
char iRetValue[ ]= {"Error_MIClientIntf_Error"};
delete [] lpRetPara;
char *EntPara[] = {"MethodName=Initialize\r\nCom=1\r\nSvrName=oem-micro\r\nConnectType=1\r\n"};
myDllFunc(*EntPara,lpRetPara,iRetValue);
if (lpRetPara){
char *EntPara[] = {"MethodName=GetCardInfo\r\nReadType= 9\r\nReadSheetno=0\r\n"};
myDllFunc(*EntPara,lpRetPara,iRetValue);
cout<<lpRetPara;
};
};
::FreeLibrary (hDll);
}
return 0;
}
#include "iostream.h"
typedef void (_stdcall *MYDLLFUNC )(char *i,char *j,char *k);
int main()
{
HMODULE hDll=::LoadLibrary ("MIClient.dll");
if(hDll)
{
MYDLLFUNC myDllFunc=(MYDLLFUNC)::GetProcAddress (hDll,"Request");
if (myDllFunc)
{
char *lpRetPara;
lpRetPara = new char[];
char iRetValue[ ]= {"Error_MIClientIntf_Error"};
delete [] lpRetPara;
char *EntPara[] = {"MethodName=Initialize\r\nCom=1\r\nSvrName=oem-micro\r\nConnectType=1\r\n"};
myDllFunc(*EntPara,lpRetPara,iRetValue);
if (lpRetPara){
char *EntPara[] = {"MethodName=GetCardInfo\r\nReadType= 9\r\nReadSheetno=0\r\n"};
myDllFunc(*EntPara,lpRetPara,iRetValue);
cout<<lpRetPara;
};
};
::FreeLibrary (hDll);
}
return 0;
}