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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2012, 14:32   #1
demigod82
Пользователь
 
Регистрация: 16.01.2012
Сообщений: 35
По умолчанию DLL в делфи

Я делал программу с dll по книге Библия Delphi в Delphi 7. Пытаюсь провести компиляцию, но мне указывают на ошибку. В конце кода, где begin end. Ошибка ',' or ';' expected but 'begin' found. Я абсолютно не понимаю, в чём тут ошибка, во всех статьях на эту тему, ни слова насчёт этой ситуации.
demigod82 вне форума Ответить с цитированием
Старый 17.02.2012, 14:56   #2
MeTeOpA
Форумчанин
 
Аватар для MeTeOpA
 
Регистрация: 17.02.2010
Сообщений: 194
По умолчанию

Если я правильно вас понял то вы где то не закрыли begin.

попробуйте в конце вместо end. поставить

end;
end.
MeTeOpA вне форума Ответить с цитированием
Старый 17.02.2012, 15:59   #3
demigod82
Пользователь
 
Регистрация: 16.01.2012
Сообщений: 35
По умолчанию

Я так уже пробовал. Ведь в конце dll создаётся пустое тело состоящее только из begin и end. И обычно его оставляют без изменений, и вдруг delphi на него ругается. Код точь в точь как в примере. Вот сам код:
Код:
library Project2;

{ 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
  SysUtils,
  Classes;
function Summ(X, Y: Integer): Integer; StdCall;
begin
 Result:=X + Y;
end;

exports Summ
{$R *.res}
begin// в этой строчке указывает на ошибку, которой по идее нет.
end.

Последний раз редактировалось demigod82; 17.02.2012 в 16:05.
demigod82 вне форума Ответить с цитированием
Старый 17.02.2012, 16:30   #4
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

после Summ поставьте точку с запятой
_Engine_ вне форума Ответить с цитированием
Старый 17.02.2012, 18:00   #5
demigod82
Пользователь
 
Регистрация: 16.01.2012
Сообщений: 35
По умолчанию

Спасибо! Похоже у меня опечатки в pdf файле.
demigod82 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передать wchar_t* из Си dll в Делфи приложение. spamer Общие вопросы C/C++ 9 27.01.2012 01:04
Добавление DLL в импорт чужого exe файла средствами делфи Crystallon Общие вопросы Delphi 3 03.08.2011 11:48
dll и делфи Pein95 Общие вопросы Delphi 5 26.12.2010 08:28
Вынос компонентов программы (которые делфи всталяет в каждую программу) из проги в dll GanGSISoft Общие вопросы Delphi 17 02.07.2009 17:24
Подключение DLL в Делфи Denis_Gul Помощь студентам 3 19.11.2008 11:12