Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Вниз
Копирование файлов Найти похожие ветки
← →
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) ?
← →
wal © (2005-09-01 10:01) [4]
> синхронизация файлов в различных папках
> Win2k, WinXP
Может стоит подумать о HardLink"ах на NTFS"е
С уважением.
← →
parashutist (2005-09-14 11:54) [5]Удалено модератором
Примечание: Задай вопрос в своей ветке
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
