Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2018, 16:01   #11
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Цитата:
Если не затруднит - распишите пошагово, как для аутиста.
Имеем под рукой ExePE Info утилиту, толкаем туда DLL, узнаем на чем оно написано,
тыкам кнопку PE, далее Export - смотрим имена экспортируемых функций.

Далее пишем динамическую обвязку вокруг dll, т.е. грузим все через LoadLibrary, GetProcAddress, ну и переводим в паскаль SFmpqapi.h где описаны функции и типы данных используемые в библиотеке.

Версию библиотеки у меня читает:
Код:
type
  TMpqGetVersionProc = function():Extended; stdcall;

var
  hLib: THANDLE;
  hProc:TMpqGetVersionProc;
  ver: Extended;
begin
  ver := 0.0;
  if not FileExists('SFmpq.dll') then
  begin
    WriteLn('Library "SFmpq.dll" not found.');
  end else
  begin
    hLib := LoadLibrary('SFmpq.dll');
    try
      if (hLib <> 0) then
      begin
        @hProc := GetProcAddress(hLib, 'MpqGetVersion');
        if (@hProc <> nil) then
        begin
           ver := hProc();
           WriteLn('SFmpq.dll version: '+FloatToStr(ver)+' (Value = 0.0 IS INVALID VALUE)');
        end else
        begin
          WriteLn('Export function "MpqGetVersion" not found.');
        end;
      end
      else
      begin
        WriteLn('Could not load library. Error code: ' + IntToStr(GetLastError));
      end;
    finally
      CloseHandle(hLib);
    end;
  end;
  ReadLn;
end.

Последний раз редактировалось Человек_Борща; 16.06.2018 в 16:25.
Человек_Борща вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как подключить .dll файл к проекту free6878 Помощь студентам 0 03.07.2011 14:33
VC++. Подключить DLL к проекту. TwiX Visual C++ 5 20.06.2011 01:46
Как подключить lib файл к проекту в C++ Builder Hacker_ Общие вопросы C/C++ 0 28.10.2009 12:41
Как подключить к проекту модуль ras.pas Михаил Юрьевич Общие вопросы Delphi 3 14.03.2009 15:45
с помощью чего лучше подключить бд к проекту? Алёна БД в Delphi 2 10.01.2008 20:01