倾家荡产，只为解决这个问题，vc与delphi的翻译------------在线等答

Question

int InitCom(void);
int ReceiveFile(void);
int GetCardValue(int num , int* cardvalue);
int GetAddValue(int num , int* addvalue);
void GetCardnum(int num , char* pcardnum);
void GetCardTime(int num , char* ptime);
麻烦各位讲这段代码（用vc编的）翻译成delphi的，谢谢了。
还有delphi可以直接调用vc的dll吗？举个例子。

Answer 1

function InitCom:Integer;
function ReceiveFile:Integer;
function GetCardValue (num:Integer;var cardvalue:Integer):Integer;
可以调用VC的DLL但是DLL中的应该是函数而通常不能C＋＋的类

Answer 2

function InitCom:integer;
function  ReceiveFile:integer;
function GetCardValue(num:integer ;cardvalue:pinteger);
function GetAddValue(num:integer ;addvalue:pinteger);
procedure GetCardnum(num:integer ; pcardnum:pchar);
procedure  GetCardTime(num:integer; ptime:pchar);
example:
http://expert.csdn.net/Expert/topic/2146/2146387.xml?temp=.9567224
http://expert.csdn.net/Expert/topic/2134/2134689.xml?temp=.7764246