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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2011, 00:37   #1
DENISLED
 
Регистрация: 02.04.2011
Сообщений: 6
Радость Подключение DLL в DELPHI

Здравствуйте, такая проблема, вот есть такой интерфейс на с++, мне нужно сделать тоже только на Дельфи, подскажите в каком направлении капать, если подкините пример буду вообще безумно счаслив

#include "stdafx.h"
typedef int (__cdecl *MYPROC)(void); //объявление типа функции

int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR lpCmdLine,
int nCmdShow)

{
HMODULE dll = LoadLibrary(L"bmp.dll"); //загружаем библиотеку
MYPROC Run=(MYPROC)GetProcAddress(dll,(LPC STR)1); //получение функции по ординалу
Run(); //запуск функции из библиотеки
FreeLibrary(dll); //выгрузка библиотеки
return 0;
}
DENISLED вне форума Ответить с цитированием
Старый 16.04.2011, 00:40   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Использование и создание DLL в Delphi

Код:
var
  LibHandle: THandle = 0;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // загрузка библиотеки
  LibHandle:= LoadLibrary('mylib.dll');
  if LibHandle< 1 then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    exit;
  end
  else
  begin
    // библиотека загружена успешно
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // выгрузка библиотеки
  if LibHandle> 0 then
    if not FreeLibrary(LibHandle) then
      ShowMessage(SysErrorMessage(GetLastError));
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 16.04.2011 в 00:43.
Mad_Cat вне форума Ответить с цитированием
Старый 16.04.2011, 00:41   #3
DENISLED
 
Регистрация: 02.04.2011
Сообщений: 6
По умолчанию

Да эта статья везде только и валяется и както ничего мне не говорит
DENISLED вне форума Ответить с цитированием
Старый 16.04.2011, 01:58   #4
DENISLED
 
Регистрация: 02.04.2011
Сообщений: 6
По умолчанию

Ладно, очень медленно, но въезжаю
непонятно только как объявить функцию
т.е. как преобразовать вот эту строку
typedef int (__cdecl *MYPROC)(LPWSTR);
DENISLED вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подключение dll в Delphi Sheva_ Помощь студентам 4 15.11.2010 13:48
Подключение DLL к программе Mixim Общие вопросы C/C++ 3 30.04.2010 15:28
Подключение DLL Ninetta Общие вопросы .NET 3 01.04.2010 01:06
Подключение DLL __Demon__ C++ Builder 2 09.12.2009 00:29
Подключение DLL 5naip Помощь студентам 9 27.10.2007 20:55