Reducir resolucion de imagen

[Casimiro Notevi]

También puedes guardar la imagen en un directorio, y en la BD solamente el enlace a la misma.

[giantonti1801]

Empezado por Casimiro Notevi

También puedes guardar la imagen en un directorio, y en la BD solamente el enlace a la misma.

es una muy buena idea solo que mi servidor esta en un vps solo tengo que investigar como guardar la imagen a en una carpeta y a su vez lidiar con los permisos y solucionado eso tengo que ver como consigo la sentencia para guardarlo y llamarlo desde la aplicacion, si alguien tiene alguna idea o ya a pasado por eso sera bien venidas sus sugerencias

[Casimiro Notevi]

Eso es sencillo, hay diversas formas, por ejemplo, llamas a un script php en el servidor pasándole la imagen que quieres subir.

Código PHP:

<?php
  // Recogemos el archivo enviado por el formulario
  $filefirma = $_FILES['filefirma']['name'];
  $temp = $_FILES['filefirma']['tmp_name'];   
  // parámetro del subdirectorio de firmas, debe terminar con la barra /
  $subdir = trim($_REQUEST['subdir']);  
  // y guardamos la firma.  
  move_uploaded_file($temp, $subdir . $filefirma);  
?>

[Casimiro Notevi]

Y desde tu programa delphi, algo así como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LHTTP: TIdHTTP;
  LIdMultipartFormData: TIdMultipartFormDataStream;
  LResponse: TMemoryStream;
  LEncoding: TEncoding;
begin
  LHTTP := TIdHTTP.Create;
  try
    LIdMultipartFormData := TIdMultipartFormDataStream.Create;
    try
      LIdMultipartFormData.AddFile('file', 'C:\ruta\a\tu\imagen.jpg', 'image/jpeg');
      LResponse := TMemoryStream.Create;
      try
        LHTTP.Post('http://tu-hosting.com/upload.php', LIdMultipartFormData, LResponse, LEncoding);
      finally
        LResponse.Free;
      end;
    finally
      LIdMultipartFormData.Free;
    end;
  finally
    LHTTP.Free;
  end;
end;