проблемы с TFileStream

[andrey4623]

У меня опять проблемы с TFileStream. Почему, когда я записываю:

var
i,int:integer;
fs:TFileStream;
Str:string[255];
ms:TMemoryStream;
int6:int64;
begin
TPicture(TrVwObject.Items.Item[i].Data).Bitmap.SaveToStream(ms);
int6 := ms.Size;
fs.Write(int6, sizeof(int6));
fs.CopyFrom(ms,0);
end

эта картинка в файл записывается. А когда я считываю

fs.Read(str, sizeof(str));

fs.Read(int6, sizeof(int6));
ms.CopyFrom(fs, 0);
int6:=ms.Size;


Pic:=TPicture.Create;
Pic.Bitmap.LoadFromStream(ms);
with Form1.TrVwObject.Items.Add(nil, str) do
Data := Pic;

то в ms ничего нет!!! А картинка "равна нулю"

[andrey4623]

Что-то ничего не получается

[Квэнди]

а кто память будет выделять ?

[andrey4623]

В смысле память выделять? под что?

[Slovinsky]

Сообщение от andrey4623

Что-то ничего не получается

А почему вы вторым параметром CopyFrom передаете 0? Этот параметр означает количество байт для копирования, начиная с позиции Position в потоке-источнике. Это во-первых. А во-вторых, почему просто не сделать SaveToFile/LoadFromFile?

[Slovinsky]

Вообще лучше расскажите в какой последовательности вы хотите сохранять в файл данные, потому что из вашего кода это не совсем ясно. Если я правильно телепатировал и формат такой:
str - 256 байт
size - 8 байт
Picture - xxx байт
то непонятно зачем такие извращения? Или у вас файле хранится несколько таких структур?

[Slovinsky]

В общем, если несколько структур, то код примерно такой:

procedure SaveDataToFileStream(Fs: TFileStream; Bitmap: TBitmap; Name: String);
var
Ms: TMemoryStream;
Size: Integer;
begin
// Пишем длину имени
Size:=Length(Str);
Fs.WriteBuffer(Size,SizeOf(Integer) );
// Пишем само имя
Fs.WriteBuffer(PChar(Name)^,Size);
// Пишем данные
Ms:=TMemoryStream.Create;
try
Bitmap.SaveToStream(Ms);
Size:=Ms.Size;
// Сначала пишем длину данных
Fs.WriteBuffer(Size,SizeOf(Integer) );
// Теперь сами данные
Ms.Seek(0,soFromBeginning);
Fs.CopyFrom(Ms,Size);
finally
Ms.Free;
end;
end;

procedure LoadDataToFileStream(Fs: TFileStream; Bitmap: TBitmap; var Name: String);
var
Ms: TMemoryStream;
Size: Integer;
begin
// Читаем длину имени
Fs.ReadBuffer(Size,SizeOf(Integer)) ;
// Читаем само имя
SetLength(Name,Size);
Fs.ReadBuffer(PChar(Name)^,Size);
// Читаем данные
Ms:=TMemoryStream.Create;
try
// Читаем длину данных
Fs.ReadBuffer(Size,SizeOf(Integer)) ;
// Сами данные
Ms.CopyFrom(Fs,Size);
// Теперь загружаем их в Bitmap
Bitmap.LoadFromStream(Ms);
finally
Ms.Free;
end;
end;

Код в среде не проверял, писал на коленке. Если опечатался - исправьте.

[Slovinsky]

Так и есть, опечатался как минимум один раз. Исправляюсь:

procedure LoadDataToFileStream(Fs: TFileStream; Bitmap: TBitmap; var Name: String);
var
Ms: TMemoryStream;
Size: Integer;
begin
// Читаем длину имени
Fs.ReadBuffer(Size,SizeOf(Integer)) ;
// Читаем само имя
SetLength(Name,Size);
Fs.ReadBuffer(PChar(Name)^,Size);
// Читаем данные
Ms:=TMemoryStream.Create;
try
// Читаем длину данных
Fs.ReadBuffer(Size,SizeOf(Integer)) ;
// Сами данные
Ms.CopyFrom(Fs,Size);
// Теперь загружаем их в Bitmap
Ms.Seek(0,soFromBeginning);
Bitmap.LoadFromStream(Ms);
finally
Ms.Free;
end;
end;

[andrey4623]

Спасибо большое! 2 недели мучился, ничего не получалось - а тут все работает! respect вам, чуваки!!!

[mihali4]

Сообщение от Slovinsky

А почему вы вторым параметром CopyFrom передаете 0? Этот параметр означает количество байт для копирования, начиная с позиции Position в потоке-источнике. Это во-первых.

If Count is 0, CopyFrom sets Source position to 0 before reading and then copies the entire contents of Source into the stream.
Это из описания метода.