Скачать: CL | DM;

TjpegImage   Найти похожие ветки 

← →
aaZ ©   (2002-12-07 17:04) [0]

Привет всем!
Такой вопрос, а можно ли записать картинку типа 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;
В итоге полученный файл по размеру меньше, чем файл с картинкой... Что получается, что нельзя?

---

← →
aaZ ©   (2002-12-07 17:14) [1]

Привет всем!
Такой вопрос, а можно ли записать картинку типа 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;
В итоге полученный файл по размеру меньше, чем файл с картинкой... Что получается, что нельзя?

---

← →
Snap ©   (2002-12-07 17:30) [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

---

← →
MBo ©   (2002-12-08 14:31) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c