A voir également:
- Image delphi
- Delphi 7 - Télécharger - Langages
- Légende image word - Guide
- Reduire taille image - Guide
- Image iso - Guide
- Acronis true image gratuit - Télécharger - Sauvegarde
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;
