Проблемма со структурой !!!

← →
ZeroRAiN (2004-05-10 22:56) [0]

Народ please help не могу сохранить структуру, вернее не хочет сохраняться картинка, может кто знает !!!
PRecord=^TRecord;
TRecord=record
Name:string[255];
buffer:pointer;
end;
procedure Save;
var
rec : PRecord;
fs : TFileStream;
ms : TMemoryStream;
list : TList;
size : Longint;
jpeg : TJpegImage;
begin
fs:=TFileStream.Create("555.dat", fmCreate);
ms:=TMemoryStream.Create;
list:=TList.Create;
jpeg:=TJPEGImage.Create;
rec:=new (PRecord);
if OpenPictureDialog1.Execute then
jpeg.LoadFromFile(OpenPictureDialog1.FileName);
rect.Name:="Hellow word !!!";
jpeg.SaveToStream (ms);
rec.buffer:=ms.memory;
size:=ms.size;
list.Add(rec);
fs.Write( PRecord(list[0]^), sizeof (TRecord));
fs.Free;
list.Free;
jpeg.Free;
end;
P.S Если я вставить за место fs.Write( PRecord(list[0]^), sizeof (TRecord)) -
fs.Write(rec.buffer^,size)
fs.Write(rec.name,sizeof(rec.name)) то все сохраниться просто мне нужно сохранить это все в виде структуры

← →
Palladin © (2004-05-10 23:16) [1]

рано тебе такими вещами заниматся

← →
ZeroRAiN (2004-05-11 22:24) [2]

Не тебе судить!!!

← →
Fay © (2004-05-11 22:44) [3]

>> не хочет сохраняться картинка
А почему это она должна захотеть? Вы же сами ей этого не желаете.

← →
Mim1 © (2004-05-12 01:09) [4]

Дело в том что что юыльшенство проблемм вы создаете себе сами, вместо того что бы наполнить файл нужными даннами вы пытаетесь завести некую структуру, которую потом сохраняете. Так что как уже здесь заметили каша в голове ведет к каше в коде.

:) ах ну так не мне судить..
ну в таком случае: не судить вам как это все таки реализуется...

2 ZeroRAiN (10.05.04 22:56)
> buffer:pointer; - совершенно бессмыленен для такого использования. Адреса любых структур - виртуальные. И имеют смысл только в рамках того процесса, который их создал.

2 Mim1 © (12.05.04 01:09) [4]
>Дело в том что что юыльшенство...
Спасибо! Напомнил мне одну из любимых книг моего детства - "Республику ШКИД". Это там Купа Купыч сделал подпись к рисунку - "Юлыстрация к трогедии Борис Гадунв" :-)

Проблемма со структурой !!! Найти похожие ветки