загрузка изображения в имейдж

[Volkogriz]

Добра всем!!!
Немогу получить изоброжение с длл(

Вот код длл:

procedure LoadTGAImage(hResInst: HInst;Image:TImage; const ImageName,ResName: PChar);
var
  Stream: TStream;
  TGA:TBitmapEx;
begin
  Stream:= TResourceStream.Create(hResInst,ImageName,ResName);
  try
    TGA:=TBitmapEx.Create;
    try
      TGA.LoadFromStream(Stream);
      Image.Picture.Assign(TGA);
      Image.Parent.DoubleBuffered := True;
    finally
      FreeAndNil(TGA)
    end;
  finally
    FreeAndNil(Stream)
  end;
end;   exports  LoadTGAImage;

Приложение:

procedure LoadTGAImage(hResInst: HInst;Image:TImage; const ImageName,ResName: PChar);
external 'Recollection.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
Imag: THandle;
begin
Imag:= LoadLibrary(PChar(extractfilepath(Application.ExeName)+'dllImLoad.dll'));
LoadTGAImage(Imag,Image1, 'Имя ресунка','Имя ресурса');
end;

Получаю ошибку:

conot assign a TJPGimage to a TPicture

Error.png
pas TGAReader.txt
Помогите пожалуйста исправить
Заранее благодарен!
С уважением!

[macomics]

Проверьте. Ваши TGA грузятся только, через LoadFromFile, а вы вызываете LoadFromStream

Но чтобы не выискивать ошибки в коде, достаточно подключить к проекту dll исполнителя (проект где используется dll) и отлаживать код в dll как и в обычном exe файле.

Не могу сказать как т.к. не знаю где это в Delphi версии старше 7, но в 7 версии это было тут

[Volkogriz]

Спасибо за ответ!!!
Тоже самое с jpg.
Если процедура в приложении то всё работает на ура, помещаю в длл_ку
не может назначить где показывать
Пишу на Embarcadero RAD Studio 11

[macomics]

Скорее всего проблема в менеджере памяти, как и со строками. Алгоритмы используют стандартный Delphi GetMem.

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

{ Важное примечание об управлении памятью DLL: ShareMem должен быть
первым модулем в предложении USES вашей библиотеки и (выберите
Project-View Source) USES вашего проекта предложение, если ваша библиотека DLL экспортирует и процедуры или
функции, которые передают строки в качестве параметров или результатов функции. Это
относится ко всем строкам, передаваемым в вашу библиотеку DLL и из нее - даже к тем, которые
вложены в записи и классы. ShareMem - это интерфейсный модуль для
BORLNDMM.DLL диспетчер общей памяти, который должен быть развернут вместе
с вашей библиотекой DLL. Чтобы избежать использования BORLNDMM.DLL , передавать строковую информацию
используя параметры PChar или ShortString. }

Вот это предупреждение вы так же опять игнорируете.

Допишите в вашей программе в USES ShareMem, ... остальные модули
И тоже самое в DLL

[Volkogriz]

Нечиво не выходит(

[macomics]

Попробуйте передавать в библиотеку вместо графического буфера не визуальный компонент (окно) TImage, а буферный TBitmap, а Image1.Picture.Assign(bmp) делать уже в основном приложении.

[Volkogriz]

Честно с этого и начинал!)
Спасибо всем за участие!!!
Вопрос решился изменением строчьки в DLL:

Image.Picture.Assign(TGA);

не эту))

Image.Picture.Graphic:=TGA;