VPF::Delphi and Visual C++ - Форум программистов

ASGDeveloper

Дата 15.11.2007, 17:15 (ссылка)

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

Загрузка ...

developer

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

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

И так, есть dll-ка написанная на дельфях:

Код


library test;

uses
  Windows;

{$R *.res}

function Sum(A, B: Integer): Integer; stdcall; export;
begin
  Result := A + B;
end;

procedure Hello; stdcall; export;
begin
  MessageBox(0, 'Hello World', 'Test Application', MB_ICONASTERISK);
end;

exports Sum, Hello;

begin
end.

Может ли приложение написаное в Visual C++ 6.0 вызвать методы Sum и Hello из такой библиотеки? И если может то как? (если можно, то хотелось бы кусочек кода).

Alexeis

Дата 15.11.2007, 17:29 (ссылка)

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

Загрузка ...

Амеба

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

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

ASGDeveloper, может, но только динамической линковкой (при помощи LoadLibrary), для статической ему нужен еще lib файл с секцией импорта, а его делфя не генерит.

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

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

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

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

ASGDeveloper

Дата 15.11.2007, 19:22 (ссылка)

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

Загрузка ...

developer

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

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

Цитата(Alexeis @ 15.11.2007, 17:29

)

но только динамической линковкой

Вот именно кусочек кода для такого варианта меня и интересует. Наверное основная трабла в переводе типов дельфы в сишный код. Потому что (как я думаю) общий принцип работы тот же что и в дельфе:

Код


h = LoadLibrary('test.dll')
proc = getProcAddress(h, 'Sum')
proc(1, 2)

Alexeis

Дата 15.11.2007, 19:27 (ссылка)

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

Загрузка ...

Амеба

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

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

У сишников в разделе поищи. Там я несколько тем видел. Директивы там идут хитрые при объяве прототипов функций.

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

ASGDeveloper

Дата 15.11.2007, 19:50 (ссылка)

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

Загрузка ...

developer

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

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

Код


typedef int (*Sum)(int a, b)

Так?

Alexeis

Дата 15.11.2007, 21:06 (ссылка)

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

Загрузка ...

Амеба

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

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

Ааа вот вспомнил! В C++ по умолчанию параметры передаются как cdecl, а у тебя в Dll они stdcall

Добавлено через 2 минуты и 29 секунд

Код


  typedef int WINAPI (*Sum)(int a, b)

Думаю вот так будет верно. WINAPI - это тоже что и stdcall

Добавлено через 5 минут и 35 секунд

Код


 typedef int WINAPI (__stdcall *Sum)(int a, b)

Вот так еще можно.

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

ASGDeveloper

Дата 15.11.2007, 22:26 (ссылка)

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

Загрузка ...

developer

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

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

Цитата(Alexeis @ 15.11.2007, 21:06

)

от так еще можно.

Сишники тут подсказывают, говорят нужно так:

Код


typedef int (__stdcall *Sum)(int a, int b)

Alexeis

Дата 16.11.2007, 01:12 (ссылка)

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

Загрузка ...

Амеба

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

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

ASGDeveloper, точно! я и не заметил, что ты параметры через запятую указал. Все верно.

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

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