| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Копирование самого себя... [D5, D6, Win95/98, Win2k]

KPV-10k ©   (2002-04-25 22:27:00) 

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

---

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

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

---

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

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

---

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

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

---

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

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;

---

zmy   (2002-04-26 06:26:00) [5]

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;

---

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

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

---

Наверх