Главная страница
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.03 c
8-1079203171
r00t
2004-03-13 21:39
2004.05.30
Редактирование wav


4-1082097782
Zyb
2004-04-16 10:43
2004.05.30
Минимизация окна


4-1082381434
S_S_S
2004-04-19 17:30
2004.05.30
Как переместить системные кнопки управления окном


8-1079464399
ИМХО
2004-03-16 22:13
2004.05.30
Картинки, резолюции: кто может объяснить?


1-1084741869
Mishenka
2004-05-17 01:11
2004.05.30
Удаление списка?