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

Вниз

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

 
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]

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


 
Palladin ©   (2004-05-12 23:50) [5]

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


 
Германн ©   (2004-05-13 01:48) [6]

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

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



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

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

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1084785439
Саша
2004-05-17 13:17
2004.05.30
StringGrid


1-1084886026
Dina
2004-05-18 17:13
2004.05.30
RecNo записи


11-1073898845
avakss
2004-01-12 12:14
2004.05.30
QueryEndSession


9-1074659199
NZed
2004-01-21 07:26
2004.05.30
Овцы и Волк


7-1082788374
Hkr
2004-04-24 10:32
2004.05.30
Скрыть из ALT-Tab