|
ok!! gracias por tu tiempo.
en el botón tengo el siguiente código:
VModificarFerreteria.foto.Show;
ok:=false;
ok:=VModificarFerreteria.abrirfoto.Execute;
if (not ok)then
raise EErrorAbrirFoto.newInstance
else
VModificarFerreteria.foto.Picture.LoadFromFile(VModificarFerreteria.abrirfoto.FileName);
except
on EErrorAbrirFoto do
showMessage('Error al abrir la foto');
/* la foto se carga sin problemas en el TImage */
en el evento onclose del topenpicture dialog tengo el siguiente codigo, donde abrirfoto es el tdialog. se supone que ruta es lo que yo quiero almacenar en la base de datos en un campo string.
ruta:=vmodificarferreteria.abrirfoto.FileName;
showmessage(ruta);
saludos!!
y el showmessage me muestra codigo basura.
|