Копия файла

← →
don_dampster (2003-01-15 15:44) [0]

Копирую файл так:
... var f1,f2:text; s:string; ... begin assignfile (f1,Edit1.Text); assignfile (f2,Edit2.Text); reset (f1); rewrite (f2); repeat readln (f1,s); writeln (f2,s); until eof(f1); closefile (f1); closefile (f2); end; ...
Но файл полносью не копируется. Помогите как, что? Заранее благодарен.

← →
MBo (2003-01-15 15:47) [1]

1)
while not eof(f) do begin
...
end;
2) Да и вообще CopyFile

← →
gsu (2003-01-15 15:48) [2]

>> mbo
опередил на сек, только хотел добавить, точь в точь, весело (-:|~

← →
don_dampster (2003-01-15 16:05) [3]

1) С циклом while копирует так же, не до конца.
2) Задачка у меня такая, чтобы как текст копировать.

← →
Reindeer Moss Eater (2003-01-15 16:06) [4]

А файл небось двоичный

← →
don_dampster (2003-01-15 16:10) [5]

Reindeer Moss Eater, тогда как с двоичными делать?

← →
gsu (2003-01-15 16:12) [6]

ха-ха, Reindeer Moss Eater, молодец

← →
Reindeer Moss Eater (2003-01-15 16:12) [7]

Чем CopyFile не устраивает?

← →
gsu (2003-01-15 16:15) [8]

Возми TFileStream - удобнее
ReadBuffer, WriteBuffer, хоть без while, хоть с ним

← →
don_dampster (2003-01-15 16:16) [9]

Надо несколько файлов закидывать в один. Ну и потом их от тудова вынимать

← →
Anatoly Podgoretsky (2003-01-15 16:18) [10]

Как текст, никак

← →
don_dampster (2003-01-15 16:18) [11]

Если можно по подробнее. Я не долго работаю на Delphi так что я ещё нуль в этом.

← →
gsu (2003-01-15 16:20) [12]

Так организуй сначала заголовок файла, в котором размеры и др. файлов, а потом сами файлы

← →
don_dampster (2003-01-15 16:22) [13]

Что-то я не понимаю!

← →
RWolf (2003-01-15 16:40) [14]

пример склеивания 2 файлов file1 и file2 в file_res
(ошибки не обрабатываются)
var s1,s2,d:TFileStream; ns1,ns2:longint; f:file of byte; //неважно p:pointer; ... d:=TFileStream.Create("file_res",fmCreate); assignfile(f,"file1");ns1:=filesize(f);closefile(f); s1:=TFileStream.Create("file1",fmOpenRead); p:=allocmem(ns1); s1.read(p,ns1); s1.free; d.write(p,ns1); freemem(p); assignfile(f,"file2");ns2:=filesize(f);closefile(f); s2:=TFileStream.Create("file2",fmOpenRead); p:=allocmem(ns2); s1.read(p,ns2); s1.free; d.write(p,ns2); freemem(p); d.free;

← →
Anatoly Podgoretsky (2003-01-15 16:45) [15]

Не обязательно понимать, главное понять, что писать двоичные файлы как текст нельзя.
Или отказывайся от своего дикого требования "2) Задачка у меня такая, чтобы как текст копировать." или никак

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