DLL не загружается!((

[Istergul]

Пытаюсь подгрузить к своему приложению написанною мной библиотеку dll , но она не не подгружается. не знаю почему. пробовал уже 2-мя способами - статическим и динамическим, но прога не находит библиотеку, хотя она лежит в той же папке, что и само приложение. я новичок в программировании. помогите, чем смогите, плиз)

[B_N]

А чего говорит-то?

[vitalik007]

Так код выкладывай!

[rpy3uH]

ни в коем случае код не выкладывай!!! (извиняюсь на флуд)

[vitalik007]

Сообщение от rpy3uH

ни в коем случае код не выкладывай!!! (извиняюсь на флуд)

Так как мы ему поможем без кода

[Istergul]

код простейший. просто я захотел разобраться с DLL.

{вот код библиотеки}
library ExDouble;
// my simple dll

function calc_double ( r: real ): real; stdcall;
begin
result := r * 2;
end;

exports
calc_double index 1;

end.

{вот код приложения}
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

function calc_double ( r: real ): real; stdcall; external 'ExDouble.dll';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage ( floatToStr ( calc_double ( 10.5 ) ) );
end;

end.

[rpy3uH]

попробуй так
function calc_double ( r: real ): real; export; stdcall;

[Istergul]

ох, ништяк!!!) не знаю, как тебя благодарить) здорово помог) всё оказалось элементарно, а я придурок!!

[vitalik007]

гру3иН
а ты говорил код не надо

[BOBAH13]

Я скажу что использование

exports 
calc_double index 1;

плохой тон, лучше типа

exports 
calc_double name 'calc_double';

+ еще для совместимости пишите при вызове из приложения и в самой длл у каждой експортируемой процедуре директиву stdcall;