Проблемы с записью структуры в файл

← →
WandR (2005-11-18 13:17) [0]

Такая проблема, есть структура TFileSection. Нужно засунуть ее в TMemoryStream произвести с ней кое какие манипуляции и записать в файл. В файл обезательно нужно записывать используя TFileStream и функцию WriteBuffer.

Но возникает такая проблема, я записываю структуру в TMemoryStream:
TempStream.WriteBuffer(Dir, SizeOf(TFileSection));
потом записываю в файл:
FStream.WriteBuffer(TempStream, TempStream.Size);
Но данные записанные в файл не соответствуют данным из структуры. Как я понимаю это связано с несовпадением типов…
Пробовал записывать так:
FStream.WriteBuffer(TFileStream (TempStream), TempStream.Size);
Не помогает=(
Подскажите что можно сделать?? Исходный код см ниже.

TFileSection = record
FileName: array[0..119] of char;
FilePos: integer;
FileLength: integer;
end;

/////////////////////////////////////////

File: TFileSection;
FStream:TFileStream;
TempStream: TMemoryStream;

/////////////////////////////////////////

//Заполняем структуру File...

TempStream:=TMemoryStream.Create;
TempStream.WriteBuffer(Dir, SizeOf(TFileSection));

FStream := TFileStream.Create("file.txt", fmOpenReadWrite or fmShareDenyWrite);
FStream.WriteBuffer(TempStream, TempStream.Size);

FStream.Free;
TempStream.Free;

← →
Antonn © (2005-11-18 13:26) [1]

м/у стримами нужно выполнять stream.copy()

← →
Digitman © (2005-11-18 13:32) [2]

> FStream.WriteBuffer(TempStream, TempStream.Size);

лажа - здесь.

← →
WandR (2005-11-18 15:21) [3]

Понятное дело что там=)
Antonn спасибо, я проглядел эту функцию=(

Проблемы с записью структуры в файл Найти похожие ветки