VPF::загрузка dll из ресурса - Форум программистов

USSR

Дата 4.11.2006, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.7.2006

Репутация: 1
Всего: 1

Как сделать чтобы при запуске программы в этой же директории появлялась .dll и совсем хорошо если бы при закрытии программы .dll исчезала. Я так понимаю что эту .dll нужно помещать в ресурс и от туда ее загружать... но как, не имею понятия. Помогите плз.

Поиском пользовался, но ничего не нашел 8(

З.Ы. никаких вредных прог не делаю, просто надо уместить все в 1ом exe

Это сообщение отредактировал(а) USSR - 4.11.2006, 23:49

Dude03

Дата 5.11.2006, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 257
Регистрация: 28.4.2006

Репутация: нет
Всего: 6

Тема уже неоднократно поднималась на форуме. Вроде бы даже в этом разделе форума.

USSR

Дата 5.11.2006, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.7.2006

Репутация: 1
Всего: 1

дык, нашел я 1ну тему, но там единственный ответ был "в поиск"...

Romikgy

Дата 5.11.2006, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

и правильно smile

Работа с ресурсами
Как поместить JPEG-картинку в exe-файл и потом загрузить ее?
вместо джепега засовываешь dll и при запуске ее извлекаешь из ресурса , и сохраняешь на диск, после юзаешь (имхо только динамически)
после работы приложения , можно удалить дллку , предварительно ее выгрузив из памяти
дерзай
ЗЫ
Компиляция ресурсов

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 6.11.2006, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Я встречал методику загрузки dll из ресурса прямо в память. Поскольку память своя, то думаю, что антивирусы вопить не должны. Если интересно, то могу поискать у себя smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Romikgy

Дата 6.11.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

alexeis1, ищи и мне интересно будеть посмотреть smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 6.11.2006, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Вот пока на английском http://www.joachim-bauch.de/tutorials/load..._memory.html/en
Дома точно что-то было и на русском. Как найду отпишусь smile

--------------------

Alexeis

Дата 6.11.2006, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Кстати там имеется готовый модуль для загрузки на Delphi и пример использования!

Для тех кто не нашел маленькую ссылочку внизу берите отсюда smile

http://www.dsplayer.de/open_source_project...emoryModule.zip

Это сообщение отредактировал(а) alexeis1 - 6.11.2006, 10:59

--------------------

USSR

Дата 6.11.2006, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 3.7.2006

Репутация: 1
Всего: 1

2 alexeis1

Спасибо за примерчик, но это не то что мне надо. Мне нужно чтобы dll хранилась в ресурсах моей программы, и при ее запуске эта dll из ресурсов помещалась в ту же директорию что и программа, а у тебя совсем другой пример...

Romikgy

Дата 6.11.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

USSR, я те ссылок надавал , ты их смотрел?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 6.11.2006, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Цитата(USSR @ 6.11.2006, 14:36

)

а у тебя совсем другой пример...

То что я предложил намного интересней!
Ну ладно как хочешь. Вот как ты хотел

Код


unit Main;

interface

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

type
  TTestCallstd = procedure(f_Text: PChar); stdcall;
  TTestCallcdel = procedure(f_Text: PChar); cdecl;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    m_TestCallstd: TTestCallstd;
    m_TestCallcdel: TTestCallcdel;
    m_DllHandle: Cardinal;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
{$R dll.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  Resstrm     : TResourceStream;
begin
  Resstrm     := TResourceStream.Create(HInstance, 'MYDLL',RT_RCDATA);
  Resstrm.SaveToFile(ExtractFilePath(Application.ExeName) + 'DemoDLL.dll');
  Resstrm.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  m_DllHandle := LoadLibrary('DemoDLL.dll');
  try
    if m_DllHandle = 0 then
      Abort;
    @m_TestCallstd := GetProcAddress(m_DllHandle, 'TestCallstd');
    if @m_TestCallstd = nil then
      Abort;
    @m_TestCallcdel := GetProcAddress(m_DllHandle, 'TestCallcdel');
    if @m_TestCallcdel = nil then
      Abort;
    m_TestCallstd('This is a Dll File call!');
    m_TestCallcdel('This is a Dll File call!');
  except
    Showmessage('An error occoured while loading the dll');
  end;
  if m_DllHandle <> 0 then
    FreeLibrary(m_DllHandle)
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DeleteFile(ExtractFilePath(Application.ExeName) + 'DemoDLL.dll');
end;

end.

Для работы необходимо скомпелировать ресурс с Dll кой (это делает батник)
После этого можно компелировать весь проект.

p.s. Если надо сменить имя dll-ки, то изменения надо произвести также и в Dll.rc - это описание ресурса, по которому и создается res файл.

В прикреплении есть все необходимое.

Это сообщение отредактировал(а) alexeis1 - 6.11.2006, 16:56

Присоединённый файл ( Кол-во скачиваний: 18 )

new.zip 9,54 Kb

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »