Jpeg

← →
Adil Aliev (2003-06-26 15:50) [0]

Как открыть Jpeg в Image.
Делал так :

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
jp:TGraphic;
begin

jp.LoadFromFile("D:\new.jpg);
image1.Picture.Graphic:=jp;

end;

Но покозывает ошибку.
Потом пробовал так:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
jp:TJpegImage;
strem:TStream;
begin
jp.LoadFromFile("D:\new.jpg);
jp.SaveToStream(strem);

image1.Picture.Graphic.LoadFromStream(strem);

end;

Тоже самое покозывает ошибку.
Что делать?

← →
Skier © (2003-06-26 15:54) [1]

>Adil Aliev (26.06.03 15:50)
- А экземпляры классов создавать не пробовал ?! (1-е грабли)
- strem:TStream; (чую здесь будут и 2-е грабли)

← →
sunwheel © (2003-06-26 15:59) [2]

image1.Picture.LoadFromFile

← →
Adil Aliev (2003-06-26 16:05) [3]

Спасибо все работал.А как открыть gif?

Найти модуль описывающий работу с форматом Gig, например RXgif из RXLib. Подключить модуль к проекту и работать как с jpeg.

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