Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.045 c
15-1185284193
tesseract
2007-07-24 17:36
2007.08.26
Я таки вернулся


15-1185480586
Knight
2007-07-27 00:09
2007.08.26
Кто-нить может дать советы по настройке...


1-1181824064
INJCAL
2007-06-14 16:27
2007.08.26
CRC32


15-1185894733
ЮТК
2007-07-31 19:12
2007.08.26
О ЮТК


2-1185659944
lookin
2007-07-29 01:59
2007.08.26
Забыл (или не знал?) - как убрать моргание TImage при перерисовке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский