Устранение Проблемы с Получением Физического Пути к DLL в Delphi 2007 на Windows Server 2008
При разработке CGI DLL в среде Delphi 2007 для Windows Server 2008 может возникнуть проблема с получением физического пути к DLL. Обычно для этого используются функции GetModuleFileName или GetModuleName, но на сервере они возвращают путь с префиксом \\?\, который выглядит как сетевой путь. В данной статье мы рассмотрим, как можно решить данную проблему.
Проблема
При использовании функций GetModuleFileName или GetModuleName в CGI DLL, созданной в Delphi 2007 и развернутой на Windows Server 2008, возвращается путь с префиксом \\?\, который не соответствует физическому пути на диске. Например:
\\?\C:\my\correct\path
Первые четыре символа пути выглядят как сетевой путь, и возникает вопрос, как их исключить.
Контекст
В документации Microsoft указано, что максимальная длина пути в Windows API ограничена значением MAX_PATH, которое равно 260 символам. Однако, для длинных путей можно использовать Unicode версии функций Windows API, которые позволяют использовать путь длиной до 32,767 символов. Для этого необходимо использовать префикс \\?\. Также указано, что при использовании ANSI версий функций Windows API префикс \\?\ не валиден.
Подтвержденный ответ
Для работы с длинными путями следует использовать Unicode версии функций Windows API. В данном случае, если вы получаете путь с префиксом \\?\, нет необходимости его удалять, так как он является валидным. Просто используйте его как есть в Unicode контексте.
Альтернативный ответ
В комментариях к вопросу было отмечено, что использование функции SafeLoadLibrary вместо LoadLibrary помогло избежать проблемы с сетевым путем. Это связано с тем, что SafeLoadLibrary внутри себя использует LoadLibrary с параметром типа PChar, что позволяет корректно работать с путями.
Пример кода на Object Pascal
uses
System.SysUtils;
function GetDllPath(const ADllName: TCharDynArray): TCharDynArray;
var
BufferSize: LongInt;
begin
BufferSize := GetModuleFileName(0, nil, 0);
SetLength(Result, BufferSize);
GetModuleFileName(0, PChar(Result), BufferSize);
// Для длинных путей комментарий можно разблокировать и использовать следующий код:
// Result := Copy(Result, 4); // Удаляем префикс \\?\ если это необходимо
end;
Выводы
Используйте Unicode версии функций Windows API для работы с длинными путями.
Префикс \\?\ не требует удаления, если вы работаете в Unicode контексте.
В некоторых случаях использование SafeLoadLibrary может быть предпочтительнее LoadLibrary для избежания проблем с путями.
Следуя этим рекомендациям, вы сможете устранить проблему с получением физического пути к DLL в среде Windows Server 2008.
Описание контекста: Разработчики сталкиваются с проблемой получения физического пути к DLL в Delphi 2007 на Windows Server 2008, когда функции `GetModuleFileName` или `GetModuleName` возвращают путь с префиксом `\\?\`, что может быть неверно интерпретиро
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал