Главная страница
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.031 c
7-1082701455
Igor_
2004-04-23 10:24
2004.05.30
Чтение LPT


4-1081364941
Дубинин Алексей
2004-04-07 23:09
2004.05.30
Как уменьшить количество ОЗУ занимаемой программой


1-1084879696
sachem
2004-05-18 15:28
2004.05.30
Как перевести символьное шестнадцатеричное число в целое?


8-1080054213
Pa5ha
2004-03-23 18:03
2004.05.30
IndexedBuffer


1-1084878629
FireMan_Alexey
2004-05-18 15:10
2004.05.30
TForm