Intenta de esta manera
en el private
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...