function test_01(in_code, in_mdt, in_odt: String; var out_order: variant): integer; StdCall; external 'FirstDll.dll';
procedure TForm2.Button3Click(Sender: TObject);
var
iRet : integer;
pVar : variant;
begin
iRet := AcptList_SP(edit1.Text, edit2.Text, edit3.Text, pVar);
end;
end.
이런식으로 했더니 Invalid argument. 에러가 납니다...
아무래도 variant를 잘못 넣어준거같은데..
어찌넣어줘야하나요?
|