TSream из DLL в программу.

[Eminem]

Здравствуйте.
Есть DLL и в ней картинки, звуки, файлы.

Нужно в приложение загрузить определённые данные.

Например указываю имя картинки в ресурсах DLL ('BG_0'), эти данные через функцию отправляю в DLL, а в качестве результата должен быть ресурс, т.е. картинка.
Которую через TMemoryStream или через LoadFromStream загрузить куда нужно.

Сразу говорю, что в приложении не могу использовать ресурсы, как бы я этого ни хотел, но прога должна быть не большого размера. А DLL-ки наверно будут более 50Мб

Я пробовал TSream, TMemorySream передавать, всегда выдаёт ошибку доступа к памяти.

Подскажите как правильно передать данные.


Код DLL

library ImageModul;

uses
  SysUtils, ExtCtrls,
  Classes;

{$R *.res}
{$R Resource.res}



Function GetImage(Name:Pchar):TMemoryStream;
var
 rs:TResourceStream;
begin
rs:=TResourceStream.Create(Hinstance, Name, Pchar('OTHER'));
Result:=TMemoryStream.Create;
rs.SaveToStream(Result);
//Result.SaveToFile('c:\12.png');
end;


Exports
 GetImage name 'GetImage';


end.

Код в приложении, 2 варианта.

Var
 Function GetImage(Name:Pchar):TMemoryStream;
 stdcall; external 'D:\ImageModul.dll';  //для второго способа

...

// функция для загрузки, 1-й способ
function CallDLLStr_PNG(WayDll,NameFunc:String; Name:Pchar):TMemoryStream;
var
 DLLHandle: THandle;
 Info: TDLLStr_PNG;
begin
result:=TMemoryStream.Create;
 try
  DLLHandle := loadLibrary (pchar(WayDll));
   if DLLHandle <> 0 then
    begin
     @Info := getProcAddress ( DLLHandle, pchar(NameFunc) );
     if addr ( Info ) <> nil then
      begin
       result:=Info(Name);
      end
     else
      result:=nil;
    end
   else
    result:=nil;
 finally
  freeLibrary (DLLHandle);
 end;
end;

//Первый способ
procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
ms:=CallDLLStr_PNG('D:\ImageModul.dll', 'GetImage', 'BG_0');
Image1.Picture.Graphic.LoadFromStream(ms);
ms.Free;
end;

//Второй способ
procedure TForm1.Button2Click(Sender: TObject);
var ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
ms:=GetImage('BG_0');
Image1.Picture.Graphic.LoadFromStream(ms);
ms.Free;
end;

P.S. Работа с PNG-графикой реализована.
обратите внимание на строку в DLL Result.SaveToFile('c:\12.png'); Картинка сохраняется.

[evg_m]

1. функции в DLL и основной программе должны иметь идентичные описания (включая stdcall и прочие модфикаторы).

 Function GetImage(Name:Pchar):TMemoryStream;
 stdcall; external 'D:\ImageModul.dll';  //для второго способа

Function GetImage(Name:Pchar):TMemoryStream;
Exports
 GetImage name 'GetImage';

2. комментарий про sharemem в заголовочном файле DLL читал? или удалил сразу не читая.

3. зачем нужна небольшая программа если рядом с ней будет лежать огромный файл ресурсов. К тому же использующая раннее связывание (external 'D:\ImageModul.dll') , так что программа без файла ресурсов не запустится.

[Eminem]

да вроде читал, но .... как-то глухо, там не сказано как вызовы делать.
stdcall; дописал в DLL-ке, но ошибка сохранилась.

external я использовал для расширения, вдруг загрузится.

P.S. так то если нет файла ресурсов, то прога Обязана не запускаться, там даже есть защита по Хэш, если DLL изменится прога уже должна начать паниковать.

[evg_m]

да вроде читал, но .... как-то глухо, там не сказано как вызовы делать.

там сказано где и когда ее(sharemem) надо подключать (uses). и прочие требование к переносимости программы использующих данных механизм.

вопрос об уменьшении веса программы при раздувании сопутствующих обязательных файлов(DLL) отается открытым. Ведь общий(суммарный) объем никуда не делся.
фа

[Пепел Феникса]

2. комментарий про sharemem в заголовочном файле DLL читал? или удалил сразу не читая.

это касется передачи string из программы в ДЛЛ и наоборот.

ТС, может проще в самой программе грузить эти ресурсы из ДЛЛ, чем писать экспортные велосипеды?

[Eminem]

Может и проще, задумка была грузить по функции, но я же не смогу запретить использование этих рес-в (в ДЛЛ) стандартным Виндусовским путём другими пользователями.

[Пепел Феникса]

ну начнем с того что у вас все равно есть ресурсы, так что разница?

[Eminem]

ну да
А как из длл-ки загрузить ресурс... я такое еще не пактиковал.
обычно всё из памяти брал.

[Аватар]

В такой ситации, когда огромный ресурс и требования на размеры exe наверно нужно создать своими средствами файл для хранения картинок и прочего , а в основной программе модуль для поиска по ключу информации в этом файле и считывания ее. Возможно где-то в природе и компоненты нарисованы для этого

[Пепел Феникса]

var
 DLLHandle: THandle;
 rs:TResourceStream;
begin
DLLHandle:=LoadLibrary('MyDLL.dll');//если в ДЛЛ не будет кода как такового, то вполне можно использовать LoadLibraryEx с флагом LOAD_LIBRARY_AS_DATAFILE
rs:=TResourceStream.Create(DLLHandle, Name, Pchar('OTHER'));
//используем ресурс
rs.Free;
FreeLibrary(DLLHandle);
end;