![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
Unconnected |
![]() ![]()
Сообщение
#1
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Нужно открыть картинку формата .jpg на форму.Пытался использовать модуль jpeg вот так:
uses Jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
JpegIm: TJpegImage;
bm: TBitMap;
begin
if OpenDialog1.Execute = false then Exit;
bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile(OpenDialog1.FileName);
bm.Assign(JpegIm);
Form1.Canvas.Draw(0, 0, bm);
bm.Destroy;
JpegIm.Destroy;
end;
При этом перед открытием картинки показывается диалог,где её нужно выбрать.А мне нужно сразу выводить заранее заданный файл. Ещё было бы неплохо запаковать его в файл с ресурсами ![]() P.S. В Delphi я новичок,многого ещё не знаю... ![]() -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
andriano |
![]()
Сообщение
#2
|
Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 168 Пол: Мужской Реальное имя: Сергей Андрианов Репутация: ![]() ![]() ![]() |
Честно говоря, с Делфями знаком слабо, но из общих соображений примерно так:
begin
bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile('MyFile.jpg');
|
Unconnected |
![]()
Сообщение
#3
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
andriano ,спасибо,помог!
-------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 22:08 |