Discussion :

[coucoucmoi]

Bonjour,
J'ai deux images .bmp et je voudrais les mettre en une seule image ...
Comment pourrais-je faire ?

Merci

[petitcoucou31]

salut,

par exemple comme ceci , on charge deux images dans des bitmaps et ont les redessinent dans le canvas de la form.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button1Click(Sender: TObject);
var Img1,Img2 :TBitMap;
begin
  img1 :=TBitmap.Create;
  img2 :=TBitmap.Create;
  img1.LoadFromFile('image1.bmp');
  img2.LoadFromFile('image1.bmp');
  //1er image
  Form1.Canvas.Draw(0,0,img1);
  //2eme image a droite de la 1er
  Form1.Canvas.Draw(img1.Width,0,img2);
  img1.Free;
  img2.Free;
end;

voir aussi CopyRect , brushcopy...

[Aka Guymelef]

Bonjour,

presque la même chose que petitcoucou31 mais cette fois pour créer une image finale qui contient l'ajout côte à côte de deux images :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
var
 BmpSource1, BmpSource2, BmpFinal: TBitmap;
begin
  BmpSource1 := TBitmap.Create;
  try 
   BmpSource2 := TBitmap.Create;
   try
    // charger les deux fichiers sources
    BmpSource1.LoadFromFile( 'C:\img1.bmp' );
    BmpSource2.LoadFromFile( 'C:\img2.bmp' );
 
    BmpFinal := TBitmap.Create;
    try
     // calculer la largeur finale de l'image
     BmpFinal.Width := BmpSource1.Width + BmpSource2.Width;
     // prendre la hauteur la plus grande des deux images pour l'image finale
     BmpFinal.Height := BmpSource1.Height;
     if BmpSource1.Height < BmpSource2.Height then
      BmpFinal.Height := BmpSource2.Height;
 
     // copier les deux images côté à côte sur un plan horizontal
     BmpFinal.Canvas.Draw( 0, 0, BmpSource1 );
     BmpFinal.Canvas.Draw( BmpSource1.Width, 0, BmpSource2 );
 
     // sauvegarder le fichier final
     BmpFinal.SaveToFile( 'C:\img_fin.bmp' );
 
    finally  
     BmpFinal.Free;
    end;
 
   finally  
    BmpSource2.Free;
   end;
 
  finally
   BmpSource1.Free;
  end;
end;

[coucoucmoi]

Nickel, c'est exactement ce que je voulais.
Je les met dessus-dessous (là c'est facile, tout est fait )

Merci beaucoup