Проверка пути в DLL

← →
Grant (2008-05-05 16:27) [0]

Всем привет. Есть приложение которое использует функцию из Dll.
В этой функции всего одна проверка:
if DirectoryExists("C:\Projects\Antonф\") then
ShowMessage("True")
Такой каталог реально существует. Но функция все равно возвращает False. Переименовываю каталог, убираю русскую букву ф - функция возвращает True. Если эту проверку делать не в Dll то и срусской буквой и без функция работает правильно. Где ошибка? Заранее спасибо.

← →
Grant (2008-05-05 16:43) [1]

Только что попробовал вместо DirectoryExists функцию CreateDir, так путь с русскими буквами создался не правильный, то есть русские буквы в пути в какой-то другой кодировке. Что делать?

← →
Palladin © (2008-05-05 16:44) [2]

приложение консольное?

← →
Grant (2008-05-05 16:46) [3]

Нет, не консольное. Зашифрованые русские буквы в DOS кодировке.

← →
Palladin © (2008-05-05 16:47) [4]

эээ.... что значит "Зашифрованные русские буквы в DOS кодировке" ? зачем они у тебя в "DOS кодировке" "зашифрованны"?

← →
Grant (2008-05-05 16:53) [5]

Объясняю: пишу в DLL функцию - CreateDir("C:\Projects\Antonф\");
А каталог создается - C:\Projects\AntonЇ\ То есть последняя русская буква зашифрована. Если єту функцию віполнить из exe то буква не шибруется.

← →
Palladin © (2008-05-05 17:00) [6]

а я пишу - у меня с буквой ф создается...

← →
Grant (2008-05-05 17:02) [7]

Из DLL?

← →
Palladin © (2008-05-05 17:03) [8]

Из DLL

← →
Grant (2008-05-05 17:05) [9]

Ок спасибо, буду разбираться.

← →
Игорь Шевченко © (2008-05-05 17:08) [10]

у консольных приложений другая локаль.

← →
Grant (2008-05-05 17:10) [11]

Это не консольное приложение.

← →
Игорь Шевченко © (2008-05-05 17:11) [12]

> Если эту проверку делать не в Dll то и срусской буквой и
> без функция работает правильно.

А проверка делается в каком приложении ?

← →
Grant (2008-05-05 17:13) [13]

В dll

← →
Grant (2008-05-05 17:14) [14]

Если в простом exe то нормально, если в dll то все в дос кодировке.

> Grant (05.05.08 17:13) [13]

работы с LCID ведутся? какая по умолчанию кодировка для не Unicode? Windows локализированная или переведенная? Что за версия?

← →
Grant (2008-05-05 17:22) [16]

1) Не ведутся
2) Русский
3) XP Proffesional Service Pack 2 Русская

DLL

library dll001;Uses SysUtils;Procedure cdd;Begin CreateDir("c:\testф\");End;exports cdd;end.

Project

Uses Windows;var h:THandle; p:Procedure; begin h:=LoadLibrary("dll001.dll"); @p:=GetProcAddress(h,"cdd"); p; FreeLibrary(h);end.

проверь...

unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; function PathCheck: Boolean; external "PathCheckDll.dll" name "MyPathCheck"; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if DirectoryExists("C:\Projectsф") then ShowMessage("true") else ShowMessage("false"); end; procedure TForm1.Button2Click(Sender: TObject); begin if PathCheck then ShowMessage("true") else ShowMessage("false"); end; end.

library PathCheckDll; uses SysUtils, Classes; {$R *.res} function MyPathCheck: Boolean; begin Result := DirectoryExists("C:\Projectsф"); end; exports MyPathCheck; begin end.

← →
Grant (2008-05-05 17:54) [19]

Оба примера работают правильно. Спасибо за помощь. Буду дальше разбираться.

Проверка пути в DLL Найти похожие ветки