請教各位前輩一個笨問題。 BCB6要如何才能正確呼叫Delphi7所使用的dll呢    用Delphi寫了一個測試用dll，然後讓BCB去呼叫執行， 結果發生Access Violation的訊息，請問、我是哪裡做錯了呢？    拜託大家        BCB ddl Source Code如下： ================================ void __fastcall TForm1::Button1Click(TObject *Sender) { bool(__stdcall *bAP_SCUpLoad)(TStringList *AStrList); HINSTANCE dll = LoadLibrary("TFMUPL.dll"); (FARPROC &)bAP_SCUpLoad = GetProcAddress(dll,"bAP_SCUpLoad"); if (bAP_SCUpLoad == NULL) { ShowMessage("找不到位址"); FreeLibrary(dll); } TStringList *TempList = new TStringList; // declare the list try{ TempList->Add("Test1"); TempList->Add("Test2"); TempList->Add("Test3"); bool bExist = bAP_SCUpLoad(TempList); if (bExist == True) { ShowMessage("傳入資料"); } else { ShowMessage("ERROR"); } } __finally{ delete TempList; // destroy the list object } FreeLibrary(dll); } ================================ Delphi ddl Source Code如下： //------------------ // TFMUPL內容 //------------------ ============================= library TFMUPL; uses SysUtils, Classes, UITest1 in 'UITest1.pas'; exports bAP_SCUpLoad; begin end. ============================= //------------------ // UITest1內容 //------------------ ============================= unit UITest1; interface uses SysUtils,Classes; function bAP_SCUpLoad(uList:TStringList):Boolean; implementation function bAP_SCUpLoad(uList:TStringList):Boolean; begin Result := (uList.Count > 0); end; end. ============================= 發表人 - Lily 於 2004/03/31 21:24:36

結論是我太呆了， 經高人指點，是因為一開始就宣告錯了。 應該要宣告成 stdcall;    function bAP_SCUpLoad(uList:TStringList):Boolean;stdcall; 這樣就可以了。