Ошибка при создании библиотеки DLL!!!

[$T@LKER]

Вот код в библиотеке:

function data(dat : tdatetime) : string;
begin
dat := now;
result := datetostr(dat);
end;

exports data;

Вот в программе где подключаю

unit Unit1;

interface

function data(dat : tdatetime) : string;
external 'project2.dll';


uses

Ошибка:

Declaration expected but 'USES' found

В чём дело??? Я тока начинаю учиться создавать эти библиотеки и тут на те вам!!! Первые грабли!!!

[BOBAH13]

interface

function data(dat : tdatetime) : string;
external 'project2.dll';

uses

Меняем местами, uses идет сразу после interface.
1. Ошибка сразу описывает где проблема.
2. Пора изучать синтаксис, правила delphi

[raxp]

1- stdcall; external
2- если вы используете string в dll, то в uses sharemem;
3- лучше тип pchar используйте

[$T@LKER]

Спасибо!
А можете подсказать как из DLL получить доступ скаэем к главной форме программы для отключения тех или иных компонентов!!!???

[raxp]

...через сообщения, пример обмена сообщениями есть в блоге/

[$T@LKER]

Ещё вопросик! Я тут заметил одну особенность - если подключенная библиотека в розделе интерфейс небудет лежать возле ексешника то програмка не запускаеться!!!! Это нормально!!!???

[spamer]

Ну это естественно - вы в программе написали, что библиотека есть, а на самом деле ее нету - вот вам и не запускается.
з.ы. лучше загружайте библиотеки динамически - намного...красивее =)

з.з.ы

...через сообщения, пример обмена сообщениями есть в блоге/

кстати, можно ссылку на статью, а то просмотрел весь блог - не нашел (((

[$T@LKER]

з.ы. лучше загружайте библиотеки динамически - намного...красивее =)

А подскажите как?! При OnCreate?!

Ещё вопрос - у меня в библиотеке когда допустим 1 функция

function arenda() : byte;
begin
arenda := 1;
end;

то работает норсально!

А когда вот 2 например

function arenda() : byte;
begin
arenda := 1;
end;


function test() : byte;
begin
test := 1;
end;

То выдаёт такую вот ошибку!!!

Unsatisfied forward or external declaration

Типа плохое описание функции или типа того!!! Но они ведь одинаково описаны!!! В чём же тогда дело!!!???

[spamer]

Так не могу сказать точно, но скорее всего - в dll описано 2 функции, а экспортируете вы всего лишь одну из них, но в программе написали, что вторую функцию также хотите экспортировать...

p.s. кстати, почитайте от эту статью ==> Линк - расписано все понятно =)

[$T@LKER]

Так не могу сказать точно, но скорее всего - в dll описано 2 функции, а экспортируете вы всего лишь одну из них, но в программе написали, что вторую функцию также хотите экспортировать...

Экспортирую обе

exports arenda, test;

Потом подключаю

function arenda() : byte;
function test() : byte;
external 'project2.dll';

???