Sujet Précédent Sujet Suivant

Lire une image jpg en delphi

Fermé
hodilaa - 22 juil. 2013 à 08:08
 Tatar - 22 janv. 2014 à 23:07
Bonjour,

comment lire une image sous format JPG en delphi

A voir également:

1 réponse

Réponse 1 / 1
Tatar
22 janv. 2014 à 23:07
var h : THandle;
jpg : TjpegImage;
Res : TResourceStream;
SImage : String;
begin
H := LoadLibrary('My_Images.DLL');
try
if H <> 0 then
begin
jpg := TjpegImage.Create;
try
if Edit1.Text <> '5' then
begin
SImage := 'R' + Edit1.Text;
Res := TResourceStream.Create(H, SImage, RT_RCDATA);
jpg.LoadFromStream(Res);
Image1.Picture.Bitmap.Assign(jpg);
Edit1.Text := IntToStr((StrToInt(Edit1.Text) + 1);
end;
if Edit1.Text = '5' then
Edit1.Text := '1';
Finally
jpg.Free;
end;
end
else begin
ShowMessage('DLL non Trouver !! .');
end;
Finally
FreeLibrary(H);
end;
end;
0