Delphi - [решено] Динамическое подключение DLL

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

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

С уважением, ваш призрачный админ, BigMac...

Delphi - [решено] Динамическое подключение DLL

navuhodonosor

Новый участник

Сообщения: 35
Благодарности: 5

Конфигурация

Профиль | Отправить PM | Цитировать

Изменения

Автор: navuhodonosor
Дата: 20-03-2013
Описание: tag code - #

Доброго времени суток!

Не могу разобраться, как проиходит возврат результата из процедуры в динамической бибилиотеке.
У меня в программе вызов библиотеки происходит успешно, вызов процедуры происходит успешно, занчение в процедуру передается, а вот получить данные из нее не выходит (возникает access violation at...).

Вот код библиотеки:

Код:

library mydll;
uses
  System.SysUtils,
  System.Classes;
{$R *.res}
procedure showing(var s:string); stdcall;
begin
  s:=s+'Procedure';
  writeln(s);
end;
exports showing index 1 ;
begin
end.

Вот код вызывающей программы:

Код:

uses
  System.SysUtils, Winapi.Windows, Winapi.Messages;
type
  trever=procedure (var s:string); stdcall;
var
   rever:trever;
   libhandle:THandle;
   str,str2:string;
begin
  str:='Stroka ';
  @rever:=nil;
  Libhandle:=LoadLibrary('mydll.dll');
  if libhandle>=32 then
   begin
     writeln('Library is load');
     @rever:=Getprocaddress(libhandle,pchar(longint(1)));
   end;
  if @rever<>nil then
   begin
     writeln('Function procedure is load');
     rever(str);
   end;
  freelibrary(libhandle);
  writeln(str);
  readln;
end.

Отправлено: 13:06, 20-03-2013

Delirium

Ветеран

Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать

XPEHOMETP, это не немного, это совсем не в тему

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)

Отправлено: 10:34, 26-03-2013 | #11

Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

navuhodonosor

Новый участник

Сообщения: 35
Благодарности: 5

Профиль | Отправить PM | Цитировать

AlexVol,
Спасибо ещё раз, вот ресурс, который ты мне посоветовал прям в тему, особенно про плагины...

P.S. Вообщем сейчас dll с freemem пишу, значит плагины тоже с делфи писать будут

Отправлено: 17:02, 29-03-2013 | #12