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

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

Чтение / запись. [WinXP]

Galiaf ©   (2005-08-21 12:10:00) 

Вот я беру exe-шник читаю его, потом записываю туда-же всё прочитанное, получаю файл который весит более 2 гигобайтов хотя он весил 300 kb.

procedure TForm1.Button1Click(Sender: TObject);
var
 r: array of Char;
begin
 f:=tfilestream.Create('e:\1.exe',fmopenread);
 ii:=f.Seek(0, soFromEnd);
 setlength(r,ii);
 progressbar1.Max:=ii;
 for i:=0 to ii do
   begin
     f.Read(r[i],i);
     progressbar1.Position:=i;
   end;
 f.Free;
 f:=tfilestream.Create('e:\1.exe', fmopenwrite);
 for i:=0 to ii do
   begin
     f.Write(r[i],i);
     progressbar1.Position:=i;
   end;
 f.Free;
end;

Что я опять начудил???
Может char это не то для чтения файлов, но что тогда?

---

begin...end   (2005-08-21 12:51:00) [1]

> Galiaf   (21.08.05 12:40) [2]

Я бы сделал примерно так:

var
 R: array of Byte;

чтение:

begin
 with TFileStream.Create('e:\1.exe', fmOpenRead) do
   try
     SetLength(R, Size);
     Read(R[0], Length(R))
   finally
     Free
   end
end

запись:

begin
 with TFileStream.Create('e:\1.exe', fmOpenWrite) do
   try
     Write(R[0], Length(R))
   finally
     Free
   end
end

---

Galiaf   (2005-08-21 12:40:00) [2]

Заполнить весь массив содержимым файла?
f.read(r,TStream.Size);
так что ли, хотя я думаю что TStream.Size я использовал неправильно, напишите пожалуйста как правильно читать целеком и записывать. Возможно f.size но я неуверен.

---

begin...end   (2005-08-21 12:20:00) [3]

> Galiaf   (21.08.05 12:10)

> ii:=f.Seek(0, soFromEnd)
> ...
> f.Read(r[i],i)

Во-первых, после выполнения первой из этих строк позиция внутри файла сместится в его конец. Поэтому при последующем вызове Read не будет читаться ничего. Для получения размера файла используйте свойство TStream.Size.

Во-вторых, второй параметр в Read означает количество байт, которые нужно прочитать. В данном случае оно должно быть равно единице, поскольку каждый раз читается один байт. Однако непонятно, зачем читать по одному байту, когда можно сразу заполнить весь массив содержимым файла.

> f.Write(r[i],i)

В-третьих, в цикле при записи количество записываемых байт тоже почему-то постоянно увеличивается.

---

Наверх