библиотека в Делфи))

[Ti_pain)]

создаю свою ДЛЛ но когда наживаю Ctrl+F9 выбивает ошибочку

[Error] MyDLL.dpr(43): Declaration expected but identifier 'Factorial' found

когда в ДЛЛ 1 функция все норм(( когда добавил Factorial вот такой парадокс получился))


текст:

library MyDLL;
{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes;
type Tmasiv=array[1..1000] of real;
{$R *.res}

function SqrtSymSqr(a:Tmasiv;n:integer):real; stdcall;
var sym:real; i:integer;
begin
      sym:=0;
      for i:=1 to n do
       sym:=sym+sqr(a[i]);
       Sym:=sqrt(sym);
      SqrtSymSqr:=sym;
end;

function Factorial(k:integer):LongInt; stdcall;
var F:LongInt; j:integer;
begin
F:=1;
if (k<>0) and (k<>1) then
 for j:=1 to k do
  F:=F*j;
Factorial:=F;
end;

exports
SqrtSymSqr;
Factorial;

begin
end.

[mihali4]

Что за чудо:

Factorial:=F;

Про Result не слыхали?

З.Ы. Аналогично и в function SqrtSymSqr...

[Ti_pain)]

Чет не понял?

когда не было 2 функции было все Ок, и при таком коде...

[Пепел Феникса]

Что за чудо:

старый синтаксис...там можно писать

exports
SqrtSymSqr,
Factorial;

тут была ошибка.

[AlexanderKs]

В разделе exports процедуры и функции перечисляются через ",":

exports
  SqrtSymSqr,
  Factorial;

Хм. С exports разобрались. Опоздал маленько с ответом)

[Ti_pain)]

AlexanderKs

Ух.... Спасибки большое) так тупануть... главное в дальнейшем не делать таких ошибок))

[Ti_pain)]

У меня появился ище один вопросик((

одна функция в ДЛЛ использует модуль Math(мне кажется из-за етого глюк) - откомпелировалась норм!!
потом в додатке(бычном) все функ кроме етой работают, а ето неа((

код ДЛЛ:

uses
  SysUtils,Classes,Math;

type Tmasiv=array[1..1000] of real;
var i:integer;
{$R *.res}

function SerGeometr(a:Tmasiv; n:integer):real;
var m:real;
begin
m:=1;
 for i:=1 to n do
  m:=m*a[i];
  m:=Power(m,(1/n));
  SerGeometr:=m;
end;

код додатка:

function SerGeometr(a:Tmasiv; n:integer):real; stdcall;
var
  ..........
   a:Tmasiv; n:integer;  r:real;
implementation
       function SerGeometr; external 'MyDLL.dll';
  ...............
procedure TForm1.Button1Click(Sender: TObject);
begin

a[1]:=1;
n:=1;
r:=SerGeometr(a,n);
end;
............

[Пепел Феникса]

в ДЛЛ у вас stdcall есть?

function SerGeometr(a:Tmasiv; n:integer):real;

а из основной проги почему то как stdcall вызываете.

function SerGeometr(a:Tmasiv; n:integer):real; stdcall;

почитайте в вики Соглашение вызовов