Скачать: CL | DM;

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

← →
TFileStream   (2008-01-26 22:13) [0]

При записи в файл через 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

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

---

← →
jack18_   (2008-01-26 23:30) [1]

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

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

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

---

← →
TFileStream   (2008-01-26 23:48) [2]

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

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


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

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

---

← →
jack18_   (2008-01-27 00:42) [3]

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


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


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;



---

← →
Jack128_   (2008-01-27 00:44) [4]

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

---

← →
Германн ©   (2008-01-27 00:52) [5]

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

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

---

← →
TFileStream   (2008-01-27 12:00) [6]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c