|
Сообщение от Cyan
Вот так:
Library Имя_Библиотеки;
Uses SysUtils, Classes;
Function Имя_Функции1(Параметр1:Тип1, Параметр2:Тип2, ... ):Тип; StdCall;
Begin
Result := Возвращаемый_Результат;
End;
Function Имя_Функции2(Параметр1:Тип1, Параметр2:Тип2, ... ); StdCall;
Begin
End;
Exports
Имя_Функции1, Имя_Функции2, ...;
Begin
End.
И вместо типа String юзай тип PChar. |
В Delphi 7 пишу
library DLL3;
uses
SysUtils,
Classes;
{$R *.res}
Function probe(a:integer; b:integer ):integer; StdCall;
Begin
Result := a+b;
End;
Function probe2(a:real; b:real ):real; StdCall;
Begin
Result := a+b;
End;
Exports
probe,probe2;
Begin
End.
перезапускаю Блиц - пишу :
Print Dll3probe (5,2)
Print Dll3probe2 (3.2,2.1)
WaitKey
ожидаю получить : 7 и 5.3
получаю : 7 и 3.6
С целым типом все ок.
А с вещественным не ок. понимаю что дело в предсавлении чисел - а что делать не понимаю!!!