Версия для печати темы

Автор: Unconnected 20.09.2008 23:58

Нужно открыть картинку формата .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 21.09.2008 13:13

Честно говоря, с Делфями знаком слабо, но из общих соображений примерно так:

begin
bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile('MyFile.jpg');

Автор: Unconnected 21.09.2008 13:42

andriano ,спасибо,помог!