Ошибка при загрузке dll

[nikmay]

Ситуация следующая:
Delphi 2009.
Есть библиотека dll и приложение ее использующее.
Приложение нормально работает и компилирется, но
если объявить использование какой-ть функции (процедуры) из dll то компиляция останавливается и появляется сообщение об ошибке...


Подскажите, что это такое??? Это глюк Delphi?

[JTG]

[telepat_mode]Наверное у тебя в коде какая-то ошибка[/telepat_mode]

[nikmay]

В коде???
да там и ошибки сделать негде!
Даже если функция из dll пустая, ничего не делающая, все равно ошибка вылезает, стоит только библиотеку объявить в самой программе.
Нет объявлениЯ - нет и ошибки, есть объявление - есть ошибка!!!

[Stilet]

и появляется сообщение об ошибке

Где? не вижу текста ошибки.

[nikmay]

Вот скрин-шот...
и текст ошибки...

[JTG]

Так ошибка при компиляции или при запуске?

Вот это при создании библиотеки видел?

{ 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. }

[Stilet]

В таком случае нужно ковыряться в коде.

[nikmay]

Да про ShareMem читал не раз.
Но проблемы появляются, даже если процедура из dll пустая и безо всяких параметров.

Так ошибка при компиляции или при запуске?

При попытке запуска! вот так правильнее...

[nikmay]

library Project2;

uses
  SysUtils,
  Classes;

{$R *.res}

procedure Proc1; export; stdcall;
begin
      // Пустая процедура
end;


exports  Proc1;

begin

end.

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

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


  procedure Proc1; stdcall; external 'Project2.dll';

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Proc1;
end;

end.

[Stilet]

nikmay

Проверил на D2001. Все работает как часы.