Re: Type 61

[Rauch-Muenster@xxxxxxxxxxx (Dr. Karl-Christian Rauch)]

Hallo,

please have a look to the very detailed book:
Delphi 2, Das Buch by tewi Verlag GmbH
Your questions will be answered within chapter 5.

Regards to Berlin
Karl-Christian Rauch

----- Original Message -----
From: "Herr von Grabe" <vgrabe@michael-lange.de>
To: <trnsys@relay.doit.wisc.edu>
Sent: Tuesday, May 06, 2003 9:35 AM
Subject: Type 61


> Hallo!
>
> I have the following problem:
>
> I am trying to use the type 61 dll routine.The simple example Extdll.dll
routine runs but my own Delphi source code seems not to work. I have tried
the following source code (which seems to be going around here):
>
> library EXTDLLP;
>
> {$R *.RES}
> {$D+; L+}
>
>
> uses
>   SysUtils,
>   Classes;
>
> type
> chr280 = array[0..280] of char;
> realarray100 = array[1..100] of single;
> realarray4 = array[1..4] of single;
> doublearray100 = array[1..100] of double;
> intarray15 = array[1..15] of integer;
>
> procedure EXTDLL (var Spass:chr280; var SArrayPass:realarray100; var
SimArray:realarray4;
> var XIn:doublearray100; XOut:doublearray100; var T, DTDT:realarray100;
> var Par:realarray100; var Info:intarray15; var
ICtrl:intarray15);export;stdcall;
>
> begin
> XOut[1] := XIn[1] * XIn[2];
> SPass := 'Gruß aus der externen DLL!';
> end;
>
> exports
> EXTDLL;
>
> begin
> end.
>
>
> It does not work, and I think this is because it is not an Extdll.dll file
created but an EXTDLLP.dll file. That is not exactly the required name for
the file. So I tried the following:
>
> library EXTDLL;
>
> {$R *.RES}
> {$D+; L+}
>
>
> uses
>   SysUtils,
>   Classes;
>
> type
> chr280 = array[0..80] of char;
> realarray100 = array[1..100] of single;
> realarray4 = array[1..4] of single;
> doublearray100 = array[1..100] of double;
> intarray15 = array[1..15] of integer;
>
> procedure EXTDLLU (var Spass:chr280; var SArrayPass:realarray100; var
SimArray:realarray4;
> var XIn:doublearray100; XOut:doublearray100; var T, DTDT:realarray100;
> var Par:realarray100; var Info:intarray15; var
ICtrl:intarray15);export;stdcall;
>
> begin
> XOut[1] := XIn[1] * XIn[2];
> SPass := 'Gruß aus der externen DLL!';
> end;
>
> exports
> EXTDLLU name 'EXTDLL';
> begin
> end.
>
>
> That is not working either! Is there anything wrong and I am just too
blind to see?? What about the extdll.lib file? If it is deleted even the
original example does not work anymore! Do I have to change this file as
well??
>
>
> Hoping for help,
>
> Joern
>
> -------------------------------------------------
> Dipl.- Ing. M.Sc. Jörn von Grabe
>
> Michael Lange
> Beratender Ingenieur VBI
> Wilmersdorfer Straße 145-146
> 10585 Berlin
>
> Telefon: +49 (30) 347998-0
> Telefax: +49 (30) 347998-33
> E-Mail: vGrabe@michael-lange.de
> Internet: www.michael-lange.de
> -------------------------------------------------
>