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

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

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