var
Graphics::TBitmap *pBmp;
begin
pBmp==TBitmap();
pBitmap.LoadFromFile("...");
pBmp.Width;{То что ты просил}
end;
Получить свойства изображения( размер, ширину, высоту)
Вопрос такой, как Вопрос такой, как получить свойства изображения, в частности, размер файла, ширину, высоту, открывая его через TOpenPictureDialog или просто через имя файла?
Цитата:
Originally posted by denis_orlov
Вопрос такой, как Вопрос такой, как получить свойства изображения, в частности, размер файла, ширину, высоту, открывая его через TOpenPictureDialog или просто через имя файла?
Вопрос такой, как Вопрос такой, как получить свойства изображения, в частности, размер файла, ширину, высоту, открывая его через TOpenPictureDialog или просто через имя файла?
Код:
Не самый аккуратный и быстрый вариант. (Проверь код - я с CBuilder'а переводил)
Цитата:
Originally posted by lord Kelvin
Код:
var
Graphics::TBitmap *pBmp;
begin
pBmp==TBitmap();
pBitmap.LoadFromFile("...");
Graphics::TBitmap *pBmp;
begin
pBmp==TBitmap();
pBitmap.LoadFromFile("...");
Так то ж Bitmap! А если не Bitmap?
Блин, ну я стормозил!
Всё вопрос снимается, перемудрил малость . . .:-)
Вот решение:
procedure GetVsoShtoHotel(FileName:String);
Var Pic:TPicture;
F:File;//файловая переменная
Size:integer;//размер файла изображения
begin
Pic:=TPicture.Create;
Pic.LoadFromFile(FileName);
Label2.Caption:='Ширина:'+' '+IntToStr(Pic.Width)+#13+
'Высота:'+' '+IntToStr(Pic.Height);
Pic.Free;
AssignFile(F,FileName);//спасибо ZEF
FileMode:=fmOpenRead+fmShareExclusive;
try
Reset(F,1);
Size:=FileSize(F);
finally
CloseFile(F);
Label2.Caption:= Label2.Caption+#13+ 'Размер Файла:'+' '+IntToStr(Size)+' Байт';
end;
end;
end.
Всё вопрос снимается, перемудрил малость . . .:-)
Вот решение:
procedure GetVsoShtoHotel(FileName:String);
Var Pic:TPicture;
F:File;//файловая переменная
Size:integer;//размер файла изображения
begin
Pic:=TPicture.Create;
Pic.LoadFromFile(FileName);
Label2.Caption:='Ширина:'+' '+IntToStr(Pic.Width)+#13+
'Высота:'+' '+IntToStr(Pic.Height);
Pic.Free;
AssignFile(F,FileName);//спасибо ZEF
FileMode:=fmOpenRead+fmShareExclusive;
try
Reset(F,1);
Size:=FileSize(F);
finally
CloseFile(F);
Label2.Caption:= Label2.Caption+#13+ 'Размер Файла:'+' '+IntToStr(Size)+' Байт';
end;
end;
end.