Crear un JPG uniendo varios mas pequeños de igual tamaño uno al lado del otro

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 471

Se le pasa el contenido de una lista de cadenas, por ejemplo las lines de un memo

//  GrabarJPG('resultado.jpg',sumar_jpg_de_lado(memo1.lines));
function sumar_jpg_de_lado(nombres : tstrings) : TBitmap;
var
b : array [0..10] of tbitmap;  // limite de JPGs laterales, subir si hace falta
c,x,y,i,j,k : integer;
begin
        c:=nombres.count;
        for i:=0 to c-1 do b[i]:=LeerJPG(nombres[i]);
        //  ATENCION: Es para n JPGs de dimesiones identicas
        x:=b[0].width;
        y:=b[0].height;
        result:=CrearBitmap(x*c,y);
        for i:=0 to x-1 do
        for j:=0 to y-1 do
        for k:=0 to c-1 do
        result.canvas.Pixels[i+k*x,j]:=b[k].canvas.pixels[i,j];
end;

A partir de esto, crear combinaciones de JPGs en cualquier direccion os deberia resultar trivial.

Las funciones LeerJPG y CrearBitmap las podeis encontrar en esta misma web.

No olvideis añadir jpeg al uses de la unidad en que useis este procedimiento.