Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Как сохранить переменные типа TBitmap и String в одном файле   Найти похожие ветки 

 
msalex ©   (2002-07-28 17:26) [0]

Как сохранить переменные типа TBitmap и String в одном файле?

Например я делаю так,


type
TMyVar = packed record
Image: TBitmap;
Caption: string[32];
end;

var
MyVar: TMyVar;

...

procedure SaveMap(FileName:string);
var
zFile:File;
WriteCount:integer;
begin
AssignFile(zFile,FileName);
Rewrite(MyVar, 1);
BlockWrite(zFile, MyVar, sizeof(MyVar), WriteCount);
CloseFile((zFile);


а оно не сохраняется.


 
Юрий Зотов ©   (2002-07-28 17:43) [1]

А размер файла всегда 37 байт. Хоть большая картинка, хоть маленькая. Так?

Потому что Вы пишете не картинку, а адрес компонента. Который действителен только для текущего сеанса только этой программы.

Выход такой. Никаких TMyVar не нужно. Создаете TFileStream. Сначала пишете в него строку (можно просто string, ограничивать длину не обязательно). Потом в него же, НЕ МЕНЯЯ ПОЗИЦИИ дописываете САМУ картинку (посмотрите, как это сделано в методе TBitmap.SaveToStream).

Читаете в том же порядке.


 
msalex ©   (2002-07-29 23:11) [2]

Почему у меня не получается выгрузить файл из потока процедурой
free.

procedure TForm1.Button1Click(Sender: TObject);
var
ZStm:TStream;
FileName: string[255];
Bitmap: TBitmap;
begin
try
ZStm:= TFileStream.Create("C:\test.bmp",fmOpenWrite,fmShareDenyWrite);
FileName:="Component";
Bitmap:= TBitmap.Create;
Bitmap.LoadFromFile("C:\Alex\bitmap.bmp");
Bitmap.SaveToStream(Zstm);
ZStm.WriteBuffer(FileName,sizeof(FileName));
FileName:="world";
ZStm.WriteBuffer(FileName,sizeof(FileName));
//ZStm.CopyFrom(MStm,MStm.Size);
except
Bitmap.Free;
ZStm.Free;
end;
end;


 
Юрий Зотов ©   (2002-07-30 00:57) [3]

Наверное, потому, что Free стоит в блоке except.
Нет exception - нет и Free. Все логично.

Вероятно, Вы хотели написать finally, а не except?
:о)



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

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-35255
kull
2002-07-29 11:01
2002.08.12
Мультиязыковость. Что кто посоветует?


1-35241
Kosmach
2002-07-31 06:55
2002.08.12
ProgressBar


3-35195
Chemist
2002-07-20 21:30
2002.08.12
Помогите с bitmap-ами в базе!!!


1-35353
Explorer
2002-07-30 07:31
2002.08.12
FastReport: нужен ваш совет


4-35510
Poirot
2002-06-04 20:11
2002.08.12
Элементы диалогов (см res файл)