Ayuda a no subir imagen con mas de 500 K en un TcxDBImage

[ecfisa]

Empezado por Javier13

Aquí solo estoy subiendo la imagen en el TcxDBImage

pdDoc.InitialDir := GetCurrentdir();
pdDoc.Execute;
try
edDocumento.Picture.LoadFromFile(pdDoc.FileName);
except
end;

Y quiero que antes de que la suba si pesa la imagen más de 500 k le harroje un mensaje para que escoja una que pese menos es todo.
(Calcular el tamaño para restringir movorack)

Entonces, tomando en cuenta cualquiera de los enlaces que acertadamente te puso Casimiro, solo deberas averiguar el tamaño del archivo cuyo nombre se encuentra en: pdDoc.FileName

Saludos

[Javier13]

Estoy usando la funtion FileSize

Código Delphi [-]
function FileSize(const aFilename: String): Int64;
var
  info: TWin32FileAttributeData;
begin
  result := -1;

  if NOT GetFileAttributesEx(PWideChar(aFileName), GetFileExInfoStandard, @info) then
    EXIT;

  result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
end;

Aquí subo el archivo y mando mandar la function

Código Delphi [-]
procedure TForm_Empleados.btnImportarClick(Sender: TObject);
var
  Peso : Int64;
begin
  inherited;
  pdDoc.InitialDir := GetCurrentdir();
  pdDoc.Execute;
  try
    edDocumento.Picture.LoadFromFile(pdDoc.FileName);
  except
  end;
  Peso:=FileSize(pdDoc.FileName);
end;

pero me marca error incompatible types no se si me puedas ayudar a corregir el código

[[movorack]]

Javier13, en el editor del foro hay un botón con el ícono de Delphi. Ese te ayuda a mostrar el código de la forma correcta.

Acá te dejo un ejemplo. La validación la hago antes de cargar la imagen.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  function FileSize(const aFilename: String): Int64;
    var
      info: TWin32FileAttributeData;
  begin
    result := -1;

    if not GetFileAttributesEx(PWideChar(aFileName), GetFileExInfoStandard, @info) then
      Exit;

    result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
  end;
  var
    Dlg : TOpenDialog;
begin
  Dlg := TOpenDialog.Create(Self);
  try
    Dlg.Title := 'Cargar imágen';
    Dlg.Filter := 'Archivos BMP|*.bmp';
    if Dlg.Execute then
    begin
      if FileSize(Dlg.FileName) > 524288 then
      begin
        MessageBox(0, 'El tamaño del archivo debe ser menor a 512 Kb',
          PChar(Self.Caption), MB_ICONSTOP or MB_OK);
        Exit;
      end;

      Image1.Picture.Bitmap.LoadFromFile(Dlg.FileName);
    end;
  finally
    FreeAndNil(Dlg)
  end;
end;

La prueba es en Delphi XE4

[Javier13]

Muchas gracias funciono a la perfección
Saludos.