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

Вниз

Копирование самого себя...   Найти похожие ветки 

 
KPV-10k   (2002-04-25 22:27) [0]

Не могу справиться с проблемой: хочу скопировать запущенный файл в другой, но никак не получается. Подскажите как это можно сделать. Плиз...


 
Doom   (2002-04-25 23:06) [1]

А как ты делаешь?


 
zmy   (2002-04-26 06:26) [2]

function CopyFile( InFile,OutFile: String; From,Count: Longint ): Longint;
var InFS,OutFS: TFileStream;
begin
if not FileExists(InFile) then begin
Result := -1;
Exit;
end;
InFS := TFileStream.Create( InFile, fmShareDenyNone );
OutFS := TFileStream.Create( OutFile, fmCreate );
InFS.Seek( From, soFromBeginning );
Result := OutFS.CopyFrom( InFS, Count );
InFS.Free;
OutFS.Free;
end;


 
Anatoly Podgoretsky   (2002-04-26 13:09) [3]

Procedure FileCopy( Const src, dst: String );
Var
S,T: TFileStream;
Begin
S := TFileStream.Create(src, fmOpenRead);
try
T := TFileStream.Create(dst, fmCreate);
try
T.CopyFrom(S, S.Size) ;
FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
T.Free;
end;
finally
S.Free;
end;
End;


 
cok   (2002-04-26 20:28) [4]

А можно паскалевскими методами
assign(f,paramstr(0)); {это как раз то самое...}
reset(f);
...{копируешь куда надо}
close(f);
...


 
Doom   (2002-04-26 20:39) [5]

А что-через API CopyFile не работает?


 
n\a   (2002-05-01 22:05) [6]

TMemoryStream - чтобы не возникало ошибок....



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

Форум: "Система";
Текущий архив: 2002.07.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
7-70933
AndreyS
2002-04-27 14:30
2002.07.22
Драйвер на Делфи.


3-70636
Explorer
2002-07-01 13:00
2002.07.22
try...except при коннекции


3-70600
maxi
2002-06-29 14:44
2002.07.22
TOracleDataSet из DOA жрет память и не отдает. Как исправить ?


1-70820
newUser
2002-07-10 18:13
2002.07.22
сделать чтобы кнопка исчезала


14-70911
copyr25
2002-06-26 04:52
2002.07.22
Так скучно ночью! Я же знаю, многие





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский