回 帖 发 新 帖 刷新版面

主题:求助如何将下列语言变为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;
    
}

回复列表 (共1个回复)

沙发

学好C++再学好DELPHI就可以了

我来回复

您尚未登录,请登录后再回复。点此登录或注册