Rechantillonage d'une image

Télécharger le projet
Commenter

Description

Voici comment rechantilloner simplement une image en Delphi.
Cet exemple rechantillone une image de façon à perdre le moins d'informations possibles.

Executer l'exemple : choisir une image , entrer la résolution et cliquer sur rechantilloner , et voici le resultat.

Vous avez la possibilité de modifier la source afin de sauvegarder l'image réduite.

Source / Exemple : 


Procedure setpixel_i(x,y : word;r,g,b : byte);   stdcall;
var lp : longword;
begin

       fprincipe.imagedest.canvas.pixels[x,y] := rgb2quad(r,g,b);;

end;

procedure getpixel_i(x,y : word;var r,g,b : byte);  stdcall;

begin
     quad2rgb(fprincipe.imagesource.canvas.pixels[x,y],r,g,b);
end;

function min(a,b : word) : word; begin if b < a then min := a else min := b; end;

procedure Tfprincipe.selectsource(Sender: TObject);
begin
     if optsource.checked then begin
        imagesource.show;
        imagedest.hide;
        fprincipe.width := min(512,imagesource.width+64);
        fprincipe.height := min(128,imagesource.height+100);

     end;
     if optdest.checked then begin
        imagesource.hide;
        imagedest.show;
        fprincipe.width := min(512,imagedest.width+64);
        fprincipe.height := min(128,imagedest.height+100);
     end;
end;

procedure Tfprincipe.FormActivate(Sender: TObject);
var jpg : Tjpegimage;
begin
     if openpicturedialog1.Execute then begin
        jpg := Tjpegimage.create;
        jpg.loadfromfile(openpicturedialog1.filename);
        imagesource.width := jpg.width;
        imagesource.height := jpg.height;
        imagesource.canvas.pixels[jpg.width,jpg.height] := clred;
        imagesource.canvas.draw(0,0,jpg);
        selectsource(sender);
        spin_x.value := jpg.width;
        spin_y.Value := jpg.height;
        jpg.destroy;

     end else application.terminate;
end;

procedure Tfprincipe.boperationClick(Sender: TObject);
var resx,resy : word;
begin
     resx := spin_x.value;
     resy := spin_y.value;
     imagedest.picture := nil;
     imagedest.width := resx;
     imagedest.height := resy;
     imagedest.canvas.pixels[resx,resy] := clred;
     _resize(@getpixel_i,@setpixel_i,imagesource.Width,imagesource.height,resx,resy);
     optdest.checked := true;
     optdest.enabled := true;
     selectsource(sender);

end;
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_sivaller)