Советы по Delphi


           

Пример TWriter/TReader


Вот что вы должны cделать для того, чтобы с помощью TWriter/TReader записать строку в поток. До сих пор для простоты я использую TMemoryStream.

Ключевыми являются вызовы Read/WriteListBegin и Read/WriteListEnd. Без них вы получите исключение.

    procedure TForm1.Button1Click(Sender: TObject);
var sWrite,sRead : string[25];
MyStream : TMemoryStream; MyWriter : TWriter; MyReader : TReader; begin
MyStream := TMemoryStream.Create; MyStream.SetSize(4096); MyWriter := TWriter.Create(MyStream,4096); sWrite := 'sWriteContents';
MyWriter.WriteListBegin; MyWriter.WriteString(sWrite); MyWriter.WriteListEnd; MyWriter.free;
MyStream.Seek(0,0);
MyReader := TReader.Create(MyStream,4096); MyReader.ReadListBegin; sRead := MyReader.ReadString; MyReader.ReadListEnd; MyReader.free;
Label1.Caption := sRead; MyStream.free; end;

[000645]



Содержание





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий