SHFileOperation иногда ругается &laquo;Не могу скопировть&raquo;

← →
Kolan © (2007-08-06 11:03) [0]

Здравствуйте,
копирую так:

procedure TDBDirManager.CopyDirectoryTree(AHandle: THandle; AFromDir, AToDir: string); var SHFileOpStruct: TSHFileOpStruct; begin with SHFileOpStruct do begin Wnd := AHandle; wFunc := FO_COPY; pFrom := PChar(AFromDir); pTo := PChar(AToDir); fFlags := FOF_NOCONFIRMATION; fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := nil; end; SHFileOperation(SHFileOpStruct); end;

{Код взять из Тейкстры и Пачеко}

Дык вот иногда(не могу понять закономерность) ругается «Не удаётся скопировать файл. Не удаётся произвести чтение из файла или с диска.»
В ручную все копируется&#133

← →
Kolan © (2007-08-06 11:12) [1]

Например:
AFromDir: "D:\MyWork\TariffProject 0.1\SoftWare\Binary\DBRepository\02_08_2007 16-43-59\stactar.dbf" AToDir: "D:\MyWork\TariffProject 0.1\SoftWare\Binary\DB\"

Неработает.

← →
Kolan © (2007-08-06 11:54) [2]

Мож я что не так списал из книжки, или там опшибка?

← →
Anatoly Podgoretsky © (2007-08-06 12:14) [3]

> Kolan (06.08.2007 11:03:00) [0]

pFrom := PChar(AFromDir + #0);
pTo := PChar(AToDir + #0);

← →
Kolan © (2007-08-06 12:19) [4]

>
> pFrom := PChar(AFromDir + #0);
> pTo := PChar(AToDir + #0);

Благодарю. Именно в этом и была проблемма.
:)

← →
Anatoly Podgoretsky © (2007-08-06 12:21) [5]

Не в этом, а в не читании документации, все это описано в справке.
И ошибку наверно получал 1026

> И ошибку наверно получал 1026

Кода небыло.

> Не в этом, а в не читании документации, все это описано
> в справке.

Я как бы тупо скопировал из книги
Delphi 5 Руководство разработчика, том 1 стр. 554

> Kolan (06.08.2007 12:29:06) [6]

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

> Так тоже пример и откуда ты знаешь в каком виде передавались
> параметры, может они уже включали пустую строку.

Да не я согласен что сам дурак&#133 :)

SHFileOperation иногда ругается &amp;laquo;Не могу скопировть&amp;raquo; Найти похожие ветки

SHFileOperation иногда ругается «Не могу скопировть» Найти похожие ветки