Lut tout le monde ?
ca va bien ?
Alors voilà moi j'ai un ptit problème qui m'embête beaucoup :/ c'est pour cela que je fais appel à votre aide !
J'ai déja essayé mais ce que je fais ne marche pas...
Donc pour redimensionner une image j'ai recup un code assez complexe:
Uses JPeg,Resample,ShellApi;
Const Coeff = 80;
procedure TForm1.Button1Click(Sender: TObject);
Var jpg :TJpegImage;
Bmp, Bmp2 :TBitMap;
Begin
// Sélection de l'image
If Not Ouvrir.Execute Then Exit;
// Sélection du nom de destination
If Not Sauver.Execute Then Exit;
// Création des variables temporaires
Jpg := TJpegImage.Create;
Bmp := TBitMap .Create;
Bmp2 := TBitMap .Create;
Try
// Lecture de l'image
Jpg.LoadFromFile(Ouvrir.FileName);
// Le BitMap est adpapté à la taille voulue
// Convertion du jpg en Bmp
Bmp2.Width := Jpg.Width ;
Bmp2.Height := Jpg.Height ;
Bmp2.PixelFormat:=pf24bit;
bmp2.Canvas.Draw(0,0,jpg);
// On prépare le bmp cible
Bmp.Width := Jpg.Width * coeff Div 100;
Bmp.Height := Jpg.Height * coeff Div 100;
Bmp.PixelFormat:=pf24bit;
//stretch
ImgStretch(Bmp2, Bmp,ResampleFilters[5].Filter, ResampleFilters[5].Width);
//convertion en jpg et enregistrement
Jpg.Assign(Bmp);
Jpg.SaveToFile(Sauver.FileName);
Finally
// libération des ressources
Jpg .Free;
Bmp .Free;
Bmp2.Free;
End;
End;
Voilou. Alors le truc c'est que tout ca se passe à parir de l'ouverture d'un fichier sur le disque dur, puis son enregistrement, alors que moi je voudrais le faire avec les Timages qu'il y a sur ma form ...
J'ai vraiment besoin d'aide svp.
Merci d'avance à tous !!! :)