Как лучше включать режим лога?

[Alex Cones]

Может несколько странный вопрос, но как лучше сделать включение\отключение логов?

- Через параметры запуска:
+ Просто.
- Если логи не предназначены для пользователя - ...

- Через dll:
+ Включение\отключение = копирование dll в папку с прогой.
+ Чтобы включить логи нужна dll - юзер не пройдет.
- Хлопотно файл туда\сюда гонять

- Есть альтернатива?

[raxp]

первое, не каждый юзер вообще про это слышал, а ежели продвинутый, что ему эти логи дадут?

[Alex Cones]

Ну например структуру программы.

[raxp]

конкурентов боишся? а каким тогда образом планировал dll распространять?

[Alex Cones]

Никаким. Только у меня и альфа-тестировщков.

[raxp]

тогда dll.

[Alex Cones]

Пля! Ну как у меня могло вышибить, что лазарь не могет dll корректно подключать! Пля... Придется искать дополнительные пути. Пока поставил так:

Procedure CheckLog;
  Begin
   If FileExists('Finder.log') Then LogMode := TRUE;
  End;

[raxp]

подожди, лазаря под рукой нет... что там у него некорректно, ты как подключаешь?

[Alex Cones]

Подключаю так:

Type
  TPrepareLog = Procedure;
  TLogS       = Procedure(Mesg : ShortString);
  TLogN       = Procedure(Numb : Integer);
  TLogSN      = Procedure(Mesg : ShortString; Numb : Integer);
  TLogSB      = Procedure(Mesg : ShortString; B : Boolean);
  TCloseLog   = Procedure;

 Var
  CurDir       : String;

  LogMode    : Boolean = FALSE;
  LogDLL     : THandle;
  PrepareLog : TPrepareLog;
  LogS       : TLogS;
  LogN       : TLogN;
  LogSN      : TLogSN;
  LogSB      : TLogSB;
  CloseLog   : TCloseLog;

 Procedure GetCurrentDir;

 Implementation

 Procedure LoadLogDLL;
  Begin
   LogDLL := LoadLibrary(PChar('Log.dll'));
   If LogDLL >= 32 Then
    Begin
     @PrepareLog  := GetProcAddress(LogDLL, 'PrepareLog');
     @LogS       := GetProcAddress(LogDLL, 'LogS');
     @LogN       := GetProcAddress(LogDLL, 'LogN');
     @LogSN      := GetProcAddress(LogDLL, 'LogSN');
     @LogSB      := GetProcAddress(LogDLL, 'LogSB');
     @CloseLog   := GetProcAddress(LogDLL, 'CloseLog');
     If Assigned(@PrepareLog) And
        Assigned(@LogS)       And
        Assigned(@LogN)       And
        Assigned(@LogSN)      And
        Assigned(@LogSB)      And
        Assigned(@CloseLog)   Then LogMode := TRUE;
    End;
  End;

Дельфи компилит и работает нормально, после проставления mode delphi лазарь тоже компилит нормально. Но вот при запуске выдает SIGSEGV (AV)

[raxp]

попробуй описать секцию так...

Procedure LogSN(Mesg : ShortString; Numb : Integer); stdcall;
Procedure LogN(Numb : Integer); stdcall;
... и так далее

LogDLL: THandle;

Добавлено
а в заголовке либы {mode какой стоит?} ...тут нужно следовать ее соглашениям вызова