Текущий архив: 2007.08.26;
Скачать: CL | DM;

Вниз

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

← →
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

---

← →
Kolan ©   (2007-08-06 12:29) [6]

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

Кода небыло.


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

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

---

← →
Anatoly Podgoretsky ©   (2007-08-06 12:37) [7]

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

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

---

← →
Kolan ©   (2007-08-06 12:42) [8]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.08.26;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.023 c