VPF::Выполнить основной код dll - Форум программистов

grofast

Дата 30.11.2015, 14:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день.

Суть вопроса в следующем.
У меня есть DLL в которую я добавил всего одну строку кода
"ShowMessage('Test');"
В основной код выполнения dll

Код


library Project1;

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

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows,
  Winapi.Messages,
  System.Variants,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs;

{$R *.res}

begin

ShowMessage('Test');


end.

Хочется из экзешника выполнить этот код в dll (не меняя саму dll)

Вот код нажатия кнопки из экзешника.

Код


procedure TForm1.Button1Click(Sender: TObject);
Var S:String;

hDLLInst: THandle;
h: Cardinal;
P:Boolean;
ImyaObekta:PWideChar;
Vz:Long;
VzBool:Boolean;
P1:Pointer;
begin


h := LoadLibrary('C:\Users\Programmist\Desktop\Project1.dll');
//h := LoadLibrary('C:\Users\Programmist\Desktop\Project1.dll');
//FreeLibrary(h);

 if (h <= 0) then
 Begin
  ShowMessage('Не удалось загрузить библиотеку');
 End;


  //@a := nil;

  //P1:= GetProcAddress(h,'DllProcEx');


end;

НО ГЛАВНЫЙ КОД DLL НЕ ВЫПОЛНЯЕТСЯ.

LoadLibrary возвращает handle библиотеки.
И функции вызываются через GetProcAddress(h,'ИмяФункции'); Если их дописать , даже messageBox из функций вызывается.
Но выполнить главный код dll без доп объявлений не получается.

Я подключил эту dll в 1с из нее все работает.При подключении внешней компоненты окошко MesssageBox появляется.

Я прочитал множество форумов везде пишут два варианта.
1.Это сделать нельзя.(но в 1с это работает)
2.Переписать dll (но так я и сам могу)

Подскажите плиз кто нибудь как выполнить главный код dll без изменения моего примера dll.
Спасибо.

Добавлено через 1 минуту и 7 секунд
Забыл дописать. Delphi XE10 ,Windows 10.

grofast

Дата 30.11.2015, 16:27 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Всем спасибо разобрался.

ZBugz

Дата 1.12.2015, 07:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 631
Регистрация: 15.2.2006
Где: Москва

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

Ну напши, что и как разобрался smile

Poseidon

Дата 2.12.2015, 15:26 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(ZBugz @ 1.12.2015, 07:22

)

Ну напши, что и как разобрался

Скорее всего просто заменил ShowMessage на что-то другое. С ShowMessage из dll всегда были косяки в Delphi.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

kami

Дата 10.12.2015, 19:16 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата(Poseidon @ 2.12.2015, 15:26

)

С ShowMessage из dll всегда были косяки в Delphi.

Делфи тут ни при чем. Нечего пытаться использовать в dllmain то, что там использовать нельзя.

b8195108

Дата 11.12.2015, 12:41 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Эта ссылка здесь больше подходит
smile

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