[lx09x]

Здравствуйте.
пишу на Delphi 7 (вынужден. перейти на другую не могу)


пытаюсь переименовать файл:

Код:

1 2	if renamefile(fname1,fname2)  then  ShowMessage('Файл успешно переименован!')                               else  ShowMessage('Ошибка! Вот ее код: '+IntToStr(GetLastError));

появляется код ошибки: 123.

Все от того, что в имени файла есть юникод символы (национальные буквы которых нет в ASCII).
когда читаю их в проге вместо этих букв показывает "?".


Почитал, что в этом случае нужно
использовать для манипуляций с файлами WinAPI функции с постфиксом W (unicode)
т.к. в Delphi 7 используются вызовы WinAPI функций с постфиксом A - для ANSI.
Также нельзя использовать обычный FindFirst, т.к. он имя файла тоже в ANSI отдает.
нужно использовать FindFirstFileW() из WinAPI.


в итоге написал следующее:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var H: THandle;     D: TWIN32FindDataW;     StrDir,FileName,NewFileName: widestring;     aDir: string; begin   aDir:='D:\BagName';                            // в этой папке лежит единственный файл с юникод-символом в имени.     StrDir := IncludeTrailingBackslash(aDir);      // просто добавляем "\" если нужно      H:= FindFirstFileW(pwidechar(StrDir+'*.*'),D);   repeat    if (H<>INVALID_HANDLE_VALUE) and (D.cFileName <> widestring('.')) and(D.cFileName<>widestring('..')) then     begin       FileName:=d.cFileName;                     // тут уже должно быть Исходное имя в Юникоде, ведь используется TWIN32FindDataW        NewFileName:=aDir+'test.mp3';              // переименовать нужно просто в test.mp3         if MoveFileW(PWideChar(FileName),PWideChar(NewFileName)) then begin         ShowMessage('Файл перемещен!')       end else begin         ShowMessage('Ошибка: '+IntToStr(GetLastError)+'   '+SysErrorMessage(GetLastError));       end;     end;   until not FindNextFileW(H,D);   Windows.FindClose(H);

Результат выполнения ---> "ошибка 2: Не удается найти указанный файл!"
а все потому, что не смотря на все манипуляции --- имя файла в d.cFileName - все равно почему-то в ANSI -- т.е. юникод символ заменен на "?"

что же не так?
Как же все-таки переименовать этот файл? всю голову уже сломал(
Помогите, кто сможет.

[lx09x]

Неужели никто ничего не знает? Даже мыслей никаких на этот счет нет?..
или в этом разделе (а может и форуме) нет компетентных людей, тут отвечают только на вопросы типа - как поменять цвет метки?..

[dr. F.I.N.]

Вы переименовываете файл с указанием только его имени, без указания пути до фала. Поэтому найти его функция и не может.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

... repeat    if (H<>INVALID_HANDLE_VALUE) and (D.cFileName <> widestring('.')) and(D.cFileName<>widestring('..')) then     begin       NewFileName:= StrDir+'test.txt';       if MoveFileW(PWideChar(StrDir + d.cFileName), PWideChar(NewFileName)) then begin         ShowMessage('OK!')       end else begin         ShowMessage('Error: '+ GetLastError+ d.cFileName+ '   '+SysErrorMessage(GetLastError));       end;     end;   until not FindNextFileW(H,D); ...

[lx09x]

Сообщение от dr. F.I.N.

Вы переименовываете файл с указанием только его имени, без указания пути до фала. Поэтому найти его функция и не может.

Спасибо Вам, добрый человек!
Все так! Вопрос решен! Тема закрыта.

p.s. целые сутки убил из-за своей невнимательности... ((