Копирование файлов

← →
Diller (2005-09-01 08:59) [0]

Доброго времени суток! Прошу помочь с одной проблемой:
Мне нужно сделать программу одной из функций которой будет синхронизация файлов в различных папках. Во время рботы сттолкнулся с тем, что в Delphi отсутсвует процедура копирования файлов, а в ShellApi процедура CopyFile отказывается работать с String. Если сможете помочь - буду очень благодарен.

← →
Goga (2005-09-01 09:08) [1]

Windows function WindowsCopyFile(FromFile, ToDir : string) : boolean; var F : TShFileOpStruct; begin F.Wnd := 0; F.wFunc := FO_COPY; FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile); ToDir:=ToDir+#0; F.pTo:=pchar(ToDir); F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION; result:=ShFileOperation(F) = 0; end; поток Procedure FileCopy(Const SourceFileName, TargetFileName: String); Var S,T : TFileStream; Begin S := TFileStream.Create(sourcefilename, fmOpenRead ); try T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate); try T.CopyFrom(S, S.Size ) ; FileSetDate(T.Handle, FileGetDate(S.Handle)); finally T.Free; end; finally S.Free; end; end; String --> PChar Var S: String; P: PChar; P:=PChar(S);

← →
Digitman © (2005-09-01 09:10) [2]

> в Delphi отсутсвует процедура копирования файлов

чтой-то вдруг ?
та самая CopyFile - она ж не на Луне, она - в Делфи !

> процедура CopyFile отказывается работать с String

это не процедура, а функция.

MyBoolResult := CopyFile(PChar(MyStringVariable), ...);

← →
alex_*** (2005-09-01 09:12) [3]

ого... лихо. А просто вызвать CopyFile(PChar(src), PChar(dest), true) ?

> синхронизация файлов в различных папках
> Win2k, WinXP
Может стоит подумать о HardLink"ах на NTFS"е

С уважением.

← →
parashutist (2005-09-14 11:54) [5]

Удалено модератором
Примечание: Задай вопрос в своей ветке

Копирование файлов Найти похожие ветки