delphi 转 bcb - C++ Builder / 基础类

function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //读取日期时

bcb调用delphi 的dll这句在bcb中如何转化。

---

应该是C/C++ code:
int __stdcall ReadTime(int intDevno, char *strGet);

---

C/C++ code:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
int (__stdcall *ReadTime)(int intDevno,char strGet);
HINSTANCE hInst=::LoadLibrary( "ast.dll ");
if(!hInst)
{
ShowMessage( "Failed to load library ");
return;
}
else
{
ReadTime= (int(__stdcall*)(int intDevno,char strGet))GetProcAddress(hInst, "ReadTime ");
if(!ReadTime)
{
ShowMessage( "Failed to locate the function you specified ");
}
else
{
ReadTime(10,'a');
}
FreeLibrary(hInst);
}

}

---

引用

C/C++ code

void __fastcall TForm1::FormCreate(TObject *Sender)
{
int (__stdcall *ReadTime)(int intDevno,char strGet);
HINSTANCE hInst=::LoadLibrary( "ast.dll ");
if(!hInst)
……
<