Guardar y cargar imagen en campo blob

[Casimiro Notevi]

Puede que no sea un jpg, aunque su extensión sea jpg.

[rmora03]

Empezado por Casimiro Notevi

Puede que no sea un jpg, aunque su extensión sea jpg.

Claro yo mismo cree el archivo jpg.
Lo probé con un archivo bmp y otro jpg. Claro está que modifiqué el código para cada tipo de archivo.
No si tienes otra manera de hacerlo para intentarlo.

Saludos

[Casimiro Notevi]

Desde aquí no podemos hacer mucho más, yo comprobaría con otro jpg, vaya a ser que ese esté mal.

[GustavoCruz]

Intenta de esta manera
en el private

Código Delphi [-]
ms: TMemoryStream;

Para cargar la imagen

Código Delphi [-]
if AbreImagen.Execute then
  begin
    FotoUsuario.Picture.LoadFromFile(AbreImagen.FileName);
    ms := TMemoryStream.Create;
    try
      ms.Position := 0;
      FotoUsuario.Picture.SaveToStream(ms);
      FotoUsuario.Visible := True;
    except
      FotoUsuario.Picture := nil;
      ms.Free;
    end;
  end;

y esto para guardar

Código Delphi [-]
  
begin    
  try
    with qEjecutar do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update or insert into protable(proidentidad, protipo, ' +
        'proclave, prousuario, pronombre, prodireccion, protelefono, ' +
        'proespecialidad, prorm, firma, procc, abrevia)values(''' +
        usIdentidad.Text + ''', ''' + IntToStr(usOpciones.ItemIndex) + ''', '''
        + usConfirmar.Text + ''', ''' + usUsuario.Text + ''', ''' +
        usNombres.Text + ''', ''' + usDireccion.Text + ''', ''' +
        usTelefonos.Text + ''', ' + Codigo_ESP + ', ' + rm + ', :l1, ''' +
        usIdentidad.Text + ''', ''' + usAbreviatura.Text +
        ''')matching(proidentidad, protipo)');
      ParamByName('l1').DataType := ftGraphic;
      ParamByName('l1').LoadFromStream(ms, ftGraphic);
      ExecSQL;
      fDatos.Transaccion.CommitRetaining;

      MsgBox(Titulo, 'Datos guardados satisfactoriamente...', mtInformation,
        ['Aceptar'], 0);
      Close;
    end;
  finally
    ms.Free;
  end;

Saludos...