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)
¡­¡­
<