VPF::DLL, Модуль System - Форум программистов

GuManOiD

Дата 4.10.2006, 17:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Пишу dll, в ней требуется использовать модуль system (вообще я слышал что его даж в uses писать не нужно...),
ну так, код:

mydll.dpr:

Код


library tfilter;

uses
  SysUtils,
  Classes,
  mydllunit in 'mydllunit.pas'; 

{$R *.res}

begin
end.

mydllunit.pas:

Код


unit mydllunit;

interface

uses
// System = Indentifier redeclared 'System'
  Classes;

var
  ExLrFile : TFileStream;

procedure mydllunit_DLLProc (Reason : Integer);

function mydllunit_FilterString (var FStr : PChar) : Integer;

function mydllunit_FastFilterString (var FStr : PChar) : Integer;

implementation

// uses System = Indentifier redeclared 'System'

procedure mydllunit_DLLProc (Reason : Integer);
begin
  case Reason of
    DLL_PROCESS_ATTACH :  begin   //говорит что Идентификатор неизвестен (необьявлен), находится в модуле System
                          end;

    DLL_PROCESS_DETACH :  begin
                          end;
  end;
end;

function mydllunit_FilterString (var FStr : PChar) : Integer;
begin
  Result := 0;     
end;

function mydllunit_FastFilterString (var FStr : PChar) : Integer;
begin
  Result := 0;        
end;

end.

Вставляю System в Uses и компилятор ругаетсчя на то что я уже где то System обьявил (как переменную)

Indentifier redeclared 'System'

Это сообщение отредактировал(а) GuManOiD - 4.10.2006, 18:04

Snowy

Дата 4.10.2006, 18:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

System - подразумевается по умолчанию. Его писать нельзя - он уже условно прописан.

Твоё решение:

Код


  uses Windows;

Добавлено @ 18:17

Цитата(GuManOiD @ 4.10.2006, 17:56

)

DLL_PROCESS_ATTACH : begin //говорит что Идентификатор неизвестен (необьявлен), находится в модуле System

Точнее в SysInit.
Да, есть там такая константа.
Но она в секции реализации. Поэтому её не видно.
А для всех остальных эта константа прописана в модуле Windows.

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