Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SHFileOperation не работает 
V
    Опции темы
Antony41
Дата 12.5.2009, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1
Привет!
Вот обычная фун-я перемещения файла в корзину.

Код

function FRecycle(const FileName: string; Wnd: HWND = 0): Boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), 0);
  if Wnd = 0 then
    Wnd := Application.Handle;
  FileOp.Wnd := Wnd;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PAnsiChar(FileName);
  FileOp.fFlags :=
//флаги определяющие параметры операции.
     FOF_ALLOWUNDO //сохраняет информацию о возможной отмене операции.
  or FOF_FILESONLY //выполняет операцию только для файлов, если задана маска файлов.
  or FOF_NOCONFIRMATION //отвечает "Да для всех" на все вопросы.
  or FOF_NOERRORUI //Не отображает пользовательский интерфейс при ошибке.
  or FOF_SILENT; //не показывает прогресс бар отображающий ход операции.

  //or FOF_MULTIDESTFILES //указывает, что pTo описывает несколько файлов (по одному на каждый файл источника) вместо одного каталога, куда должны быть помещены исходные файлы.
  //FOF_NOCONFIRMMKDIR //не требует подтверждения создания нового каталога.
  //or FOF_NO_CONNECTED_ELEMENTS //С версии 5.0. Не перемещает связанные файлы как группу. Только перемещает указанные файлы
  //or FOF_NOCOPYSECURITYATTRIBS //С версии 4.71. Не копирует атрибуты безопасности файла.
  //FOF_NORECURSION //Не поддерживает рекурсивные операции в подкаталогах, работает только в локальном каталоге.
  //FOF_RENAMEONCOLLISION //присваивает файлу новое имя при операциях копирования, перемещения или переименования, если файл с указанным именем уже существует.
  //or FOF_SIMPLEPROGRESS; //отображает окно прогресс бара, но не показывает имен файлов.
  //FOF_WANTMAPPINGHANDLE {Определяет использование поля hNameMappings . Хендл объекта должен быть освобожден функцией SHFreeNameMappings . Она объявлена в ShellApi как процедура
  //SHFreeNameMappings(hNameMappings: THandle);}

  Result := (SHFileOperation(FileOp) = 0) and (not
    FileOp.fAnyOperationsAborted);
end;




Категорически отказывается удалить файл 
C:\Стас Михайлов\06 S. Mihailov - Luchshie pesni (2007)\02 Mama.mp3

Стоит его только переименовать
C:\Стас Михайлов\06 S. Mihailov - Luchshie pesni (2007)\02 Mama1.mp3
и всё встаёт на своё место.
Переименовываю обратно и снова нифига не работает smile

Файл не занят ни какими процессами и стандартным методом удаляется (через explorer), хотя и тут функция ShellAPI

Аттрибуты тоже сняты. Что же это может быть? smile 
зы длина строки и размер файла значения не меняют.

M
Rrader		Antony41, название темы должно кратко отражать ее суть. "Странная ошибка" - это не дело, у такой темы 100% в будущем будет странная судьба :)


Это сообщение отредактировал(а) Rrader - 13.5.2009, 12:06
PM MAIL   Вверх
Mechanic
Дата 12.5.2009, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 1
Всего: 7
Попробуй ноль в конце имени добавить

Код

FileOp.pFrom := PAnsiChar(FileName+#0);
 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
kami
Дата 12.5.2009, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Цитата(Antony41 @  12.5.2009,  21:37 Найти цитируемый пост)
Категорически отказывается удалить файл 

Вообще-то все функции возвращают код ошибки, если что-то отказываются делать.
Код возвращается либо в результате ф-и, либо доступен через GetLastError.
Что означает код ошибки можно посмотреть в MSDN

В данном случае коды ошибок имеются на странице SHFileOperation

Узнаете что за ошибка - можно будет ее устранять.
PM MAIL WWW   Вверх
Keeper89
Дата 12.5.2009, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Попробуйте заменить PAnsiChar на PChar.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
kami
Дата 12.5.2009, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Цитата(Keeper89 @  12.5.2009,  23:03 Найти цитируемый пост)
Попробуйте заменить PAnsiChar на PChar.

Это почему?
SHFileOperation доступна и в Ansi и в Unicode версиях.
Какая из них задействуется по умолчанию - дело версии Delphi, о которой тут ни слова не было.
Вроде, D2009 только задействовало Unicode по умолчанию?
В любом случае - если PChar=PAnsiChar, то и SHFileOperation=SHFileOperationA по умолчанию.

Добавлено через 1 минуту и 14 секунд
А если SHFileOperation=SHFileOperationW,
то PChar=PWideChar.
Так что явное приведение к Ansi тут может быть лишним.
PM MAIL WWW   Вверх
Akella
Дата 12.5.2009, 23:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: нет
Всего: 329
Цитата(kami @  12.5.2009,  22:52 Найти цитируемый пост)
Что означает код ошибки можно посмотреть в MSDN

или у нас на форуме
http://forum.vingrad.ru/index.php?showtopi...t&p=1733249
PM MAIL   Вверх
Keeper89
Дата 12.5.2009, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
У меня в D2007 работают оба варианта (PAnsiChar и PChar, хотя все-таки это разные вещи). Надо смотреть либо код ошибки, либо есть особенности в конкретной версии Delphi.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
kami
Дата 13.5.2009, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Цитата(Keeper89 @  12.5.2009,  23:50 Найти цитируемый пост)
хотя все-таки это разные вещи.

Это разные вещи для D2009, поскольку там PChar=PWideChar.
Во всех предыдущих PChar=PAnsiChar, см. Character pointers в хелпе Delphi.
Цитата(Keeper89 @  12.5.2009,  23:50 Найти цитируемый пост)
У меня в D2007 работают оба варианта (PAnsiChar и PChar

Само собой, т.к. там вызывается Ansi версия SHFileOperation и PChar=PAnsiChar. Т.о. в итоге вызывается одна и та же ф-я с одними и теми же параметрами.

За сим умолкаю и прошу прощения за отклонение от темы ветки.

Это сообщение отредактировал(а) kami - 13.5.2009, 00:06
PM MAIL WWW   Вверх
Mechanic
Дата 13.5.2009, 07:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 1
Всего: 7
В самом деле, некоторые функи из этой оперы требуют дополнительного нуля после имени файла (см пост № 2).
Этот нуль призван ограничивать список имен, если таковое не одно. Но если даже оно одно, то нуль этот не помешает.

Just try. ;-)
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
CodeMonkey
Дата 13.5.2009, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
MSDN:
Цитата
SHFILEOPSTRUCT Structure
...
pFrom
  Note: This string must be double-null terminated.



--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Antony41
Дата 13.5.2009, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1
Цитата(Keeper89 @  12.5.2009,  23:03 Найти цитируемый пост)
Попробуйте заменить PAnsiChar на PChar.


Пробовал не помогает

Цитата(kami @  12.5.2009,  23:25 Найти цитируемый пост)
дело версии Delphi, о которой тут ни слова не было

Delphi 7 Studio

Цитата(kami @  12.5.2009,  22:52 Найти цитируемый пост)
Вообще-то все функции возвращают код ошибки, если что-то отказываются делать.

Ошибка: Не удаётся удалить файл. Не удаётся произвести чтение из файла или с диска.

Цитата(Mechanic @  13.5.2009,  07:34 Найти цитируемый пост)
если таковое не одно. Но если даже оно одно, то нуль этот не помешает.

Файл один. 
помогло, но всё таки странно почему...
Может ноль следует добавить и в функцию DeleteFile? входящую в комплект SysUtils?
PM MAIL   Вверх
CodeMonkey
Дата 13.5.2009, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Цитата
помогло, но всё таки странно почему...

Да потому что в документации так написано.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Antony41
Дата 13.5.2009, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1
Цитата(CodeMonkey @  13.5.2009,  09:13 Найти цитируемый пост)
SHFILEOPSTRUCT Structure...pFrom  Note: This string must be double-null terminated.

вот блин точно... для DeleteFile нужно применять #0?
PM MAIL   Вверх
CodeMonkey
Дата 13.5.2009, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 16
Всего: 89
Нет, конечно же.

Подсказка: функция SHFileOperation работает с кучей файлов, вот почему ей нужен двойной разделитель, т.к. группа файлов задаётся так: 'файл1'#0'файл2'#0'файл3'#0#0.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
MetalFan
Дата 13.5.2009, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128
Цитата(Antony41 @  13.5.2009,  15:24 Найти цитируемый пост)
для DeleteFile нужно применять #0? 

во выразился... куда применять? зачем?)

Это сообщение отредактировал(а) MetalFan - 13.5.2009, 16:19


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0775 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.