小弟在練習使用delphi呼叫dll時遇到一問題..
以下我把它簡化，如下...

dll部分的code:
[code cpp]
extern "C" _declspec(dllexport) void FF(float *i)
{
i[0]=(float)1.1;
i[1]=(float)2.1;
}
[/code]

delphi部分:
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
type
TDllFunction = Function(Src:array of single):single;stdcall;
ary = array of single;
var
Hmydll: HWND;
mydllfun1:TDllFunction;
corr:ary;
i:integer;
begin
SetLength(corr, 2);
Hmydll := LoadLibrary('AddDll.dll'); {load DLL}
if Hmydll > 0 then
try
mydllfun1 := GetProcAddress(Hmydll, PChar('FF'));
if @mydllfun1 <> nil then begin
mydllfun1(corr); // <-用debug下，有看到corr陣列有2個值(1.1000000238, 2.0999999046)
for i:=0 to 1 do begin
Memo1.Lines.Add(Format('%f', [corr[i]]));
end;
end
else
ShowMessage('FF函數沒有找到');
finally
FreeLibrary(Hmydll); {釋放DLL}
end
else
ShowMessage('dll沒有找到');
end;
[/code]

執行到第19行時，會出現invalid floating point operation...
我有試過將dll與delphi的陣列改成整數型態，可以正常顯示..
但如果是浮點數情況就出現這種情況，所以想請教各位前輩。

------
hello!!

編輯記錄

小弟後來又把問題簡化..試著不使用dll

[code delphi]
function fact(var n:array of single) : single;
begin
n[0] := 1.1;
n[1] := 2.2;
end;

procedure TForm1.Button1Click(Sender: TObject);
type
ary = array of single;
var
j:integer;
a:ary;
begin
SetLength(a, 2);
fact(a);
for j := 0 to 1 do
Memo1.Lines.Add(Format('%.9f', [a[j]]));
end;
[/code]

結果執行正常..
不曉得為什麼載入dll，執行時就會出現invalid floating point operation...

------
hello!!

編輯記錄

不知道有沒有前輩可以指點一下..

之後又用C#環境下載入那DLL，可以正常顯示DLL function的陣列回傳值
而在delphi環境下，這個BUG我始終不知道錯在哪

------
hello!!

編輯記錄

 原來錯在function和procedure的不同
dll的函式沒有回傳值, 而我卻用function...後來改成procedure即正常!

[code delphi]
TDllFunction = procedure(Src:array of Single);cdecl;
[/code]


補充書上的說明:函式(function)是一種執行完畢後會傳回一個值的副程式;而程序(procedure)則不會,它沒有回傳值.

------
hello!!

編輯記錄