Subject: | DLL don't work (Delphi 10.3 Community Edition) 2 P9
| Date: | Sun, 2 Jun 2019 10:41:02 +0200
| From: | =?UTF-8?Q?G=c3=bcnter?= <info@NoSpam-mk-news.com>
| Newsgroups: | pnews.paradox-programming
|
try to export a dll from Delphi 10.3 Community Edition to Paradox9:
Embarcaderos "RAD STUDIO DX Delphi 10.3 Community Edition" has no
restrictions for testing all functions, and i tested some variations in
the dll, directives and other small things, but it do not work.
any suggestions?
(working on winX64, but dll only for Win32 compiled)
Günter
P9.code:
var
ali longint
endvar
uses "U:\\Projekte\\20190601\\Win32\\Debug\\beepDLL.dll"
MinXY(x longint,y longint)longint
MaxXY(x longint,y longint)longint
enduses
method pushButton(var eventInfo Event)
ali=MinXY(3,5)
ali.view("MinXY")
endMethod
result:N/A
Delphi.code:
library beepDLL;
uses
System.SysUtils,
System.Classes,
Winapi.Windows;
{$R *.res}
{$ALIGN 4}
{$MINENUMSIZE 4}
{$WEAKPACKAGEUNIT}
function MinXY(X, Y: Integer): Integer; Stdcall;
begin
if X < Y then MinXY := X else MinXY := Y;
end;
function MaxXY(X, Y: Integer): Integer; Stdcall;
begin
if X > Y then MaxXY := X else MaxXY := Y;
end;
exports
MinXY index 1,
MaxXY index 2;
begin
end.
|