HSPTV!掲示板

Delphi 6でDLL作ったのですが
それをHSPで呼び出すとおかしくなるのです

この件別のところで質問してもよいのですが、
HSPでの呼び出し時の問題なのでここで質問させていただきます。

まず
Delphiのプロジェクトに入力した内容を書きます

-------------Himath.dpr-----------------------
library HiMath;


uses
SysUtils,
Classes;
{$R *.res}


function factorial (n:Integer):integer;stdcall;
//nは整数、nが-1以下の場合-1が返る
var
buf,buf1,buf2 :integer;

begin
if n=0 then factorial:=1 else
begin
if n<0 then factorial:=-1 else
begin
buf:=n;
buf2:=1;
repeat
buf1:=buf-1;
if buf1=0 then buf1:=1;
buf2:=buf2*buf*buf1;
buf:=buf-2 ;
factorial:=buf2;
//txt:=floattotext(buf2);
until buf<=0;

end;
end;

end;

exports
factorial;
begin
end.
-----------------------------------------------
この命令 階乗を計算するものです

そこでhsp上で

#uselib "HiMath.dll"
#cfunc factorial "factorial" int

と呼び出して

print factorial(13)

としたら間違った値が出るのです どうにかなりませんか？ ------------------------------------------------------------------------------ そこで同機能のものをHSPでモジュール化してみたら以下になります

#module
#defcfunc factorial int n //階乗
if n==0{
nb=1
}else:if n<0{
	nb=-1
}else{
   buf=n
     buf2=1.0
 do
        buf1=buf-1
            if buf1=0:buf1=1
        buf2=buf2*buf*buf1
          buf=buf-2 
          nb=buf2
 until(buf<=0)
}

return nb
#global

で

print factorial(13)

としたら正しい答えが出ます


とにかくDLLから呼び出したとき正しい答えにしたいのです

俺はDelphiについてはあまり詳しくはないが、
定義したfactorial関数はDelphi上で実行しても正しい値にならないのか？

計算結果がIntegerの範囲を超えるのでDoubleで返さないとダメです。
HSPでDouble型の戻り値を受け取るにはちょっと工夫が要ります。

＜方法1＞
HSP側の実数型の変数のポインタを渡し、DLL側でそこに結果を代入する方法

DLL側

library Project1;

uses
  Windows;

{$R *.res}

procedure factorial(n: Integer; pret: PDouble); stdcall;
var
  i: Integer;
  r: Double;
begin
  r := 1;
  for i := 1 to n do begin
    r := r * i;
  end;
  MoveMemory(pret, @r, SizeOf(Double));
end;

exports
  factorial;

end.

HSP側

#uselib "Project1.dll"
#func factorial "factorial" sptr, sptr

ret = 0.0
factorial 13, varptr(ret)
mes ret

------------------------------------------------------------------------------

＜方法2＞
裏技的になりますが、Double型の戻り値を取得するのにYOYOさんの方法を使わせてもらった方法です

DLL側

library Project1;

{$R *.res}

function factorial(n: Integer): Double; stdcall;
var
  i: Integer;
begin
  Result := 1;
  for i := 1 to n do begin
    Result := Result * i;
  end;
end;

exports
  factorial;

end.

HSP側

#uselib "Project1.dll"
#func factorial "factorial" sptr

#module
	#uselib "kernel32.dll"
	#func VirtualProtect "VirtualProtect" int, int, int, int
#deffunc getdouble
	if code == 0 {
		code=$0424448b,$04c218dd,$00000000
		VirtualProtect varptr(code), length(code)*4, $40, varptr(res)
		fret=0.0
	}
	prm = varptr(fret)
	res = callfunc(prm, varptr(code), 1)
	return fret
#global	

factorial 13
getdouble
mes refdval

--------------------

以下YOYOさんの書き込み

YOYO
 
 2007/7/27(Fri) 01:28:25|NO.9784

整数と小数では返り値を渡す仕組みが異なるのでプラグインかマシン語で取り出す仕組みが必要です。
強引ですが、関数の返した小数を取り出すモジュールを作ってみました。
関数が返す少数はdoubleとfloatどちらでも大丈夫です。


#module
	#uselib "kernel32.dll"
	#func VirtualProtect "VirtualProtect" int, int, int, int
#deffunc getdouble
	if code == 0 {
		code=$0424448b,$04c218dd,$00000000
		VirtualProtect varptr(code), length(code)*4, $40, varptr(res)
		fret=0.0
	}
	prm = varptr(fret)
	res = callfunc(prm, varptr(code), 1)
	return fret
#global	


BASS_ChannelBytes2Seconds　handle,pos
getdouble //getdoubleは小数を返す命令の直後に呼び出してください。
mes refdval

2人とも回答ありがとうございました