A voir également:
- Lire une image jpg en delphi
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Lire epub - Guide
- Telecharger delphi - Télécharger - Langages
- Image iso - Guide
- Lire fichier bin - Guide
1 réponse
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;
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;
