Hi,各位先進大家好:
有一個問題請教,小弟想用Delphi call 別人作的 DLL 檔案,
在編譯成Release的版本時就會發生奇怪的現象(如無端結束或記憶體存取異常),如果編譯成Debug的版本就正常,
故小弟直接作了一份測試程式,結果也是一樣,
以下是小弟的程式,
呼叫SetIP時確實有顥示 MessageBox兩次,表示呼叫是確實有動作,但返回後出了什麼狀況....?
請各位先進不吝指導,謝謝!
C 部份:
// TestDLL.cpp : 定義 DLL 應用程式的匯出函式。
//
#include "stdafx.h"
#define TestDLL extern "C" __declspec(dllexport)
TestDLL BOOL SetIP(int Port, char* IP)
{
MessageBoxA(0, (char*) IP, "AAAA", 0);
return true;
}

Delphi部份
procedure TForm1.Button1Click(Sender: TObject);
var
IP: AnsiString;
Success: Boolean;
begin
IP := AnsiString('10.1.1.1');
Success := SetIP(80, PAnsiChar(IP));
Success := SetIP(80, PAnsiChar(IP));
end;

附加檔案：5a02a39a703a0_CallDLL.zip

Hi,各位先進大家好:
已經找到問題了,
是c 編譯選項的差異, 其預設是 __cdecl,
所以在 Delphi 中調用必須將 stdcall 改為 cdecl,
只是不解為何 Debug mode 不會有問題?
另,如果 c 編譯選項改為 __stdcall, Delphi 也是 stdcall,
卻會找不到該 function,怪怪的
謝謝!