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

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

При записи в файл через TFileStream и TWriter в файл попадает мусор [D3, 2000]

TFileStream ©   (2008-01-26 22:13:00) 

При записи в файл через TFileStream и TWriter в файл попадает мусор

[code]
procedure Load;
var
 fs:TFileStream;
 tw:TWriter;
 s:string;
 i:word;
begin
 s:='';
 fs:=TFileStream.Create('table.txt',fmCreate or fmOpenWrite);
 tw:=TWriter.Create (fs, 1);
  try
   tw.WriteListBegin;
   tw.WriteChar('B');
   tw.WriteListEnd;
  finally
   tw.free;
   fs.free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Load;
end;
[/code]

Вместо одного байта файл содержит пять, вот пример (in hex):
01 01 01 42 00

В чём тут дело?

---

TFileStream   (2008-01-27 12:00:00) [1]

>Кстати, записывать данные в файл в процедуре под название Load - это мягко говоря спорное решение ;-)

Я привёл только фрагмент процедуры.

Спасибо, вопрос решён.

---

Германн   (2008-01-27 00:52:00) [2]

> Jack128_   (27.01.08 00:44) [4]
>
> Кстати, записывать данные в файл в процедуре под название
> Load - это мягко говоря спорное решение ;-)
>

Да. Лучше переименовать в UpLoad :)

---

Jack128_   (2008-01-27 00:44:00) [3]

Кстати, записывать данные в файл в процедуре под название Load - это мягко говоря спорное решение ;-)

---

jack18_   (2008-01-27 00:42:00) [4]

> То всё равно там


потому что райтер, как я понимаю еще и сигнатуру в поток пишет.
кажись от использования райтера и просто через поток пиши:


procedure Stream_WriteChar(Stream: Tstream; Ch: Char);
begin
 Stream.WriteBuffer(Ch, SizeOf(Ch))
end;

fs:=TFileStream.Create('table.txt',fmCreate or fmOpenWrite);
try
  Stream_WriteChar(fs, 'B' );
finally
 fs.free;
end;



---

TFileStream   (2008-01-26 23:48:00) [5]

Да, это понятно, но если вот так сделать:

try
  tw.WriteChar('B');
finally
  tw.free;
  fs.free;
end;


То всё равно там
06 01 42

А нужно что бы только один символ туда записался.

---

jack18_   (2008-01-26 23:30:00) [6]

> Вместо одного байта файл содержит пять

а с чего ты взял, что он должен соджержать 1 байт??
По твоему эти три строчки
>   tw.WriteListBegin;    tw.WriteChar('B');    tw.WriteListEnd;

один байт что ли запишут??? Ну так ты глубоко ошибаешся.

---

Наверх