Форум: "Media";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Media";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c