[Yo_Asakyra]

Уже пол дня бъюсь на проблемой:
Функция возвращяет неправильные результаты вычисления и после закрытия приложения вываливается "Invalid Pointer Operation".
Причём если функцию описать в приложении, то всё работает как надо и ничего не вываливается.

Помогите разобраться с причаними
DLL код:

Код:

uses
  ShareMem
. . . . .

function ExtractFileName(FilePath: PChar; ShowExtension: byte): PChar;
var
  FNameLength, CopyLength: Word;
  FNameTrunc: PChar;
begin
  FNameLength := Length(FilePath);
  CopyLength  := FNameLength;
  case ShowExtension of
   0: begin
        while (FilePath[FNameLength] <> '\') and (FNameLength > 0) do
          Dec(FNameLength);
        if FNameLength <> 0 then
          FNameTrunc := PChar(Copy(FilePath, FNameLength + 2, CopyLength-FNameLength))
        else
          FNameTrunc := Pchar('');
      end;
   1: begin
        while (FilePath[FNameLength] <> '\') and (FNameLength > 0) do
          Dec(FNameLength);
        if FNameLength <> 0 then
          Begin
            FNameTrunc := PChar(Copy(FilePath, FNameLength + 2, CopyLength-FNameLength));
            FNameLength :=Length(FNameTrunc);
            while (FNameTrunc[FNameLength] <> '.') and (FNameLength > 0) do
              Dec(FNameLength);
            FNameTrunc := PChar(Copy(FNameTrunc, 1, FNameLength));
          End
        else
          FNameTrunc := PChar('');
      end;
   2: begin
        FNameTrunc := PChar(FilePath);
      end;
   else
     FNameTrunc := PChar('Incorrect input value in Case. Use 0 - Name+Ext; 1 - Name; 2 - full path; Only!');
  end;
  Result := FNameTrunc;
End;
. . . . 
exports
  ExtractFileName;

Эта функция находится в DLL и предназначения для отделения имени файла от его расширения. Как видно, она имеет 3 режима в зависимости от переданных параметров:
1)Отделить имя и расшир от пути;
2) отделить имя от пути и расшир;
3) собственно ничего не делать.


Вызываю из программы её таким способом:

Код:

procedure Button1.Click(Sender: TObject);
 var
  ExtractFileName : Function(FilePath: PChar; ShowExtension: byte) : PChar;  Stdcall;
  DLLInstance : THandle;
  GettedFileName : String;
begin
  OpenWordFile(FileOpen1.Dialog.FileName);
  @ExtractFileName := nil; //Очищаем адресс функции от мусора 
  DLLInstance := LoadLibrary(PChar('Main.dll')); //Подгружаем DLL к приложению
  if (DLLInstance = 0) then
    begin
      MessageDlg('Невозможно загрузить DLL', mtError, [mbOK], 0);
      Exit;
    end;
  try
    @ExtractFileName := GetProcAddress(DLLInstance, 'ExtractFileName'); //Пытаемся вызвать из DLL указанную фунцию
    if Assigned(@ExtractFileName) then
      Begin
        GettedFileName := 'Файл:' + '  ' + StrPas(ExtractFileName(Pchar(FileOpen1.Dialog.FileName), 0));
        AddTextInDB.StatusBar.Panels.Items[0].Text := GettedFileName;
      End
    else
      MessageDlg('Искомая функция не найдена!', mtError, [mbOK], 0);
  finally
    FreeLibrary(DLLInstance);
  end;
End;

Так же очень буду признателен за критику стиля написания кода и наличие\отсутствие нужных на ваш взгляд моментов.

[lmikle]

1. Непонятно, зачем вообще писать такую функцию, т.к. есть уже готовые ExtractFileName, ExtractFileExt, ChangeFileExt, etc...
2. Не вижу описание типа импортируемой функции. Возможно засада именно там, т.к. тип передачи параметров должен быть одинаковый и в dll и у типа в вызывающем модуле.
3. Не стоит использовать PChar там, где этого можно избежать. Лучше WideString. А если не из Delphi использовать не требуется, то вообще используй String.
4. Основная ошибка. Память, выделенная в dll, должна освобождаться в dll же. Даже при использовании модуля ShareMem. Т.е. либо передавай заранее выделенный буфер в функцию (фактически, процедуру), либо после отработки вызывай процедуру освобождения памяти из dll. У тебя там идет неявние выделение памяти. Кстати, от него тоже лучше избавиться.

[Yo_Asakyra]

Большое спасибо за подсказки
Я читал, что PСhar необходимо всегда использовать при работе с DLL (и в качесте возвращаемых значений функций, и в качестве аргументов строкового типа). Неужели это не так?

[angvelem]

Именно так, а вот String использовать можно, но не желательно.

[NumLock]

а какой вообще смысл выносить эту функцию в DLL? сделать ее в обычном модуле, положить в папку прописаную в library path и при потребностях подключать этот модуль в дальнейшем. меньше места займет

по проблеме:
у тебя объявляется локальная переменная FNameTrunc типа указатель на Char. ей присваиваются указатели на String. память под строки выделяется и освобождается неявно компилятором. т.е. при завершении работы функции память на которую ссылается FNameTrunc "не существует". а она же еще и возвращается!

решение:
как уже написал lmikle передавай в функцию буфер и его размер для возвращаемого значения. пример Windows API функция:

The GetClassName function retrieves the name of the class to which the specified window belongs.

int GetClassName(

HWND hWnd, // handle of window
LPTSTR lpClassName, // address of buffer for class name
int nMaxCount // size of buffer, in characters
);


Parameters

hWnd

Identifies the window and, indirectly, the class to which the window belongs.

lpClassName

Points to the buffer that is to receive the class name string.

nMaxCount

Specifies the length, in characters, of the buffer pointed to by the lpClassName parameter. The class name string is truncated if it is longer than the buffer.

Return Values

If the function succeeds, the return value is the number of characters copied to the specified buffer.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

импортируется из user32.dll и не выдает таких ошибок

[Yo_Asakyra]

Простите, вопрос снят - основная проблема устранена
Но всё-таки почему копилятор перепрыгивает инициализацию переменных?

begin //отсуда
N := 0;
FirstTmp := 0;
SecondTmp := 0;

//суда

[lmikle]

Сообщение от angvelem

Именно так, а вот String использовать можно, но не желательно.

Не совсем так. PChar остался из соображений совместимости. Более правильно, все-таки, использовать WideString.

Но всё-таки почему копилятор перепрыгивает инициализацию переменных?

А тебе компилятор предупреждений не дает на этих строках, типа значение не используется? Возможно, при оптимизации этот код удален из-за его излишности.

[NumLock]

да все честно:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  FirstTmp: Integer;
  SecondTmp: Integer;
begin
  Sleep(0);
  FirstTmp:=0;
  SecondTmp:=0;
  Tag:=FirstTmp+SecondTmp;
end;

[Yo_Asakyra]

Он действительно пишет, что эти значения переменных не используются, но всё-таки лучше всегда инициализовывать все переменные, а из-за такой вот оптимизации могут быть сбои работы программы. Как быть?

[v1s2222]

Если компилятор пишет, что переменные не используются, значит они вообще не нужны. Просто удали их из кода

[Yo_Asakyra]

Сообщение от v1s2222

Если компилятор пишет, что переменные не используются, значит они вообще не нужны. Просто удали их из кода

Не используется лишь значение "0" этих переменных, так как сами переменные в коде использованы. Поэтому и возник подобный вопрос

[angvelem]

Если переменные глобальные, то они в любом случае уже инициализированы 0.

[v1s2222]

Если дальше эти переменные используются в левой части, то их обнулять не надо.
Пример:

Код:

var  x: Integer;
begin
  x := 0; // обнулять переменную не имеет смысла
  x := y*5;
end;

Если переменные дальше используются, компилятор не стал бы выдавать данное предупреждение.

[NumLock]

Сообщение от Yo_Asakyra

из-за такой вот оптимизации могут быть сбои работы программы.

нет, не будет никаких сбоев.

[Yo_Asakyra]

^_^ Возник эстетический вопрос:
Нужно вызвать одно и то же действие с разными параметрами из разных частей программы (меню, кнопки).

Мне видится 2 подхода:
1) Создать Action в ActionList'e, назначить его этим элементам и внутри самого Action'a проводить анализ чем был вызван этот Action.
2) В каждом GUI элементе просто прописать один и тот-же код с разными параметрами.

Плюсы первого пункта в том, что нужно меньше кода.
Плюсы второго пункта в том, что все действия прозрачны и удобочитаемы.
По сути и в 1-м варианте будет всё удобочитаемо, но меня не оставляют сомнения, что что-то не так.

Прошу расписать что лучше и эстетичнее использовать в данной ситуации, и по возможности прокомментировать ваш выбор.
Спасибо