Redimensionar imagenes y enviar

[Cecilio]

Hola de nuevo.

Veréis, necesito un programa para los que tenemos web que redimensione una carpeta de imágnes y las envíe por FTP a un servidor.

No se si hay algo en el mercado, he mirado por encima y no he visto nada que haga las dos cosas.

Así que me voy a poner manos a la obra y lo intentaré crear con Delphi, pero no se muy bien como va lo de las imagenes y menos redimensionar.

Os pido ayuda en los siguientes puntos:

• Si hay un programa que haga las dos cosas y sea gratis, ¿ me podeis pasar info ?
• ¿ como se redimensiona manteniendo proporciones ?
• La idea es que sea en lote, es decir una carpeta.

gracias de antemano.

[Jab]

Hola, para redimensionar las imágenes parte de este código

// ----- Code Starts Here ----- 

program Project1; 

{$APPTYPE CONSOLE} 

uses 
  Classes, Windows, SysUtils, Dialogs, JPEG, Graphics; 

const 
        SizePct : integer = 50; { The new image will have 50% of the original } 

var 
        OpenDlg : TOpenDialog; 
        SaveDlg : TSaveDialog; 
        oJPG    : TJPEGImage; 
        oBmp    : TBitmap; 


begin 
        OpenDlg := TOpenDialog.Create(nil); 
        SaveDlg := TSaveDialog.Create(nil); 

        if (OpenDlg.Execute) then 
        begin 
                try 
                  begin 
                        oJPG := TJPEGImage.Create; 
                        oJPG.LoadFromFile(OpenDlg.FileName); 
                  end 
                except 
                        MessageBox( 
                                0, 
                                PChar('Error while trying to open ' + 
                                OpenDlg.FileName + 
                                '.'), 
                                PChar('Error'), 
                                MB_OK or MB_ICONERROR 
                        ); 
                        exit; 
                end; 

                oBmp := TBitmap.Create; 
                oBmp.Width := Round(oJPG.Width * SizePct / 100); 
                oBmp.Height := Round(oJPG.Height * SizePct / 100); 
                oBmp.Canvas.StretchDraw( 
                        Rect(0, 0, oBmp.Width - 1, oBmp.Height - 1), 
                        oJPG 
                ); 

                oJPG.Assign(oBmp); 
                oJPG.Compress; 

                if (SaveDlg.Execute) then 
                begin 
                        oJPG.SaveToFile(SaveDlg.FileName); 
                end; 

                oBmp.Free; 
                oJPG.Free; 
        end; 

        OpenDlg.Free; 
        SaveDlg.Free; 

end.

Vas grabando las imágenes en ese directorio y cuando termines, para enviar puedes usar el componente de FTP existente en Delphi o las Indy.
¡¡Suerte y saludos!!