| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TjpegImage [D6, Win2k]

aaZ ©   (2002-12-07 17:04:00) 

Привет всем!
Такой вопрос, а можно ли записать картинку типа TjpegImage в типизированный файл?

Type
Pupil=record
name:string[25];
mark:integer;
photo:TjpegImage;
end;

Var
v1:pupil;
f1:file of pupil;
foto:TjpegImage;

Begin
foto:=Tjpegimage.create;
foto.LoadFromFile("c:\1.jpg");


assignfile(f1,"c:\dostup.dtt");
rewrite(f1);
v1.name:="anton";
v1.mark:=10;
v1.photo:=foto;
closefile(f1);
end;
В итоге полученный файл по размеру меньше, чем файл с картинкой... Что получается, что нельзя?

---

MBo   (2002-12-08 14:31:00) [1]

в типизированный - нельзя

---

Snap   (2002-12-07 17:30:00) [2]

program test;
var
f:file;
type
g= твой рекорд
var
h:g;
begin

{тут должна быть процедура зополняющая твой рекорд нужными данными}
assign(f,"hgjhgj.tmp");
rewrite(f,1);
blockwrite(f,h,sizeof(g));
close(f);
end.


если пишется вся эта фигня в Дельфи то вместо assign close
надо писать assignfile closefile

---

aaZ   (2002-12-07 17:14:00) [3]

Привет всем!
Такой вопрос, а можно ли записать картинку типа TjpegImage в типизированный файл?

Type
Pupil=record
name:string[25];
mark:integer;
photo:TjpegImage;
end;

Var
v1:pupil;
f1:file of pupil;
foto:TjpegImage;

Begin
foto:=Tjpegimage.create;
foto.LoadFromFile("c:\1.jpg");


assignfile(f1,"c:\dostup.dtt");
rewrite(f1);
v1.name:="anton";
v1.mark:=10;
v1.photo:=foto;
write(f1,v1);
closefile(f1);
end;
В итоге полученный файл по размеру меньше, чем файл с картинкой... Что получается, что нельзя?

---

Наверх