Посылаем адресс компонента в dll

[Altera]

Привет всем!
Пишу вот так:
EXE

...
testing: procedure(p: pointer); stdCall;
...
hand := loadLibrary(pChar(extractFilePath(application.ExeName)+'dll\dll.dll'));
@testing := getProcAddress(hand, 'loadingImage');
...
testing(@image1);

DLL
...
procedure loadingImage(p: Pointer); stdCall;
begin
tImage(p^).picture.loadFromFile('d: \documents\atom.bmp');
end;
...
exports loadingImage;
...
Но не получаеться. Надеюсь, из кода ясно, что я хочу провирныть?
Как мне это сделать? Спасибо заранее!

[MusicMan]

А с экспортом ничё не напутал. Смутно помнится нуно экспортировать
либо по индексу, либо по имени... А хотя чёрт его знает, надо в литер рожу сунуть...

ЗЫ : если чё не понял или пропустил... Сори... не спал 3 суток

[Altera]

Модераторы! Удалите пожалуйста эту тему, если можно, без штрафа
Случайно 2 создал...

[MusicMan]

Ну у тебя и амбиций... Никакой вежливости... Обматерить бы!!!

[Altera]

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

Ну у тебя и амбиций... Никакой вежливости... Обматерить бы!!!

Что ты имеешь ввиду?

[MusicMan]

Прежде чем хелпить модераторов мог бы ради приличия
чё нибудь чирикнуть. Знаешь какого мне... чувствую себя полным...

[Altera]

Сорри....
Там дело не в экспорте...

[MusicMan]

Закрыли тему...

[Altera]

Как закрыли? А на вопрос та мы не ответили....
http://programmersforum.ru/showthread.php?t=17994

[alexBlack]

Интересный эффект.

Сначала о причине. В Graphics описана переменная FileFormats, которая используется в LoadFromFile и создается только в TPicture.Create. А т.к. в dll мы TPicture не создаем, она = nil - отсюда ошибка.

Теперь решение. В секции инициализации создаем TPicture и сразу уничтожаем и все работает.

library dll;
...
var P2:TPicture;
begin
   P2 := TPicture.Create;
   P2.free;
end.

PS Думаю не надо напоминать о ShareMem.