| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 591 人关注过本帖
标题:如何将下列visualc++转化为delphi语言
只看楼主 加入收藏
cslbx
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-8-29
收藏
 问题点数:0 回复次数:0 
如何将下列visualc++转化为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;

}

搜索更多相关主题的帖子: delphi visualc 语言 
2006-08-29 17:14
快速回复:如何将下列visualc++转化为delphi语言
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021038 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved