Guardar imagen de un timage con direccion IP

[choclito1]

Buenos días amigos del foro.
Comentarles que busque en la web y en el foro mi duda y no encontre nada, El problema que tengo es el siguiente estoy haciendo un sistema en delphi xe2, firebird 2.5, tengo una timage y quisiera guardar la imagen del timage en el servidor
El codigo que me ayudo del foro es el siguiente:

Código Delphi [-]
 Image1.Picture.SaveToFile('C:\Sistema\Imagen.bmp');

y lo cambie por este:

Código Delphi [-]
 Image1.Picture.SaveToFile(Server+'C:\Sistema\Imagen.bmp');

pero cuando ejecuto mi aplicacion me da error
en mi base de datos tengo solo la ruta de las imagenes , y quisiera que una imagen que este en un timage se guarde el archivo de la imagen en el servidor
Muchas gracias amigos por la ayuda que me brinden

[aposi]

prueba con la ruta de red \\servidor\c\sistema\imagen.bmp

Código Delphi [-]
 Image1.Picture.SaveToFile(Server+'\C\Sistema\Imagen.bmp');

[Casimiro Notevi]

Empezado por choclito1

cuando ejecuto mi aplicacion me da error

Desde aquí no alcanzamos a ver tu pantalla para leer el error.

[choclito1]

Mil disculpas con la ayuda brindada modifique el codigo por:

Código Delphi [-]
 Image1.Picture.SaveToFile(\\f_usuario.server\c\SISGESS\Documentos\'FOTO'+'nombre.text'+.jpg);

pero ahora me da el siguiente error cuando hago clic en guardar el registro:
Cannot create file "\\PC-Server\C\SISGESS\Imagenes\Documentos\FOTOABC.jpg".
No se encuentra el nombre de red especificado.


Muchas gracias por la ayuda brindada amigos del foro

[Casimiro Notevi]

Normal, las cadenas de texto van entre comillas:

Código Delphi [-]
'\\'+f_usuario.server+'c:\sisgess\documentos\foto'+nombre.text+'.jpg'

Empezado por choclito1

Mil disculpas con la ayuda brindada modifique el codigo por:
Código Delphi [-] Image1.Picture.SaveToFile(\\f_usuario.server\c\SISGESS\Documentos\'FOTO'+'nombre.text'+.jpg);


pero ahora me da el siguiente error cuando hago clic en guardar el registro:
Cannot create file "\\PC-Server\C\SISGESS\Imagenes\Documentos\FOTOABC.jpg".
No se encuentra el nombre de red especificado.


Muchas gracias por la ayuda brindada amigos del foro

[choclito1]

Buenos días amigos del foro, gracias a las sugerencias realice los cambios y el código que tengo es este:

Código Delphi [-]
ruta:=Image1.Picture.SaveToFile(\\f_usuario.server\c\SISGESS\Documentos\'FOTO'+nombre.text+'.jpg');
  if FileExists(ruta) then
      deletefile(ruta);
     Image1.Picture.SaveToFile(ruta);
     ibq_pac_ext.FieldByName('ruta_foto_ingreso').AsString:=ruta;

Pero cuando ejecuto el sistema y quiero añadir o modificar a los usuarios me muestra el siguiente mensaje de error:

Cannot create file "\\PC-Server\C\SISGESS\Imagenes\Documentos\FOTOABC.jpg".
No se encuentra el nombre de red especificado.

Para que se entienda mi problema, les comento que lo que me pidieron es que el usuario registre los datos de los pacientes y también pueda seleccionar una foto, pero en la base de datos se guarde solo la ruta donde se encuentre la foto y también guardar la foto en el servidor
pero no me deja guardar el registro, cual seria el error??
Como lo voy a guardar en el servidor, tendría que cambiar los permisos de la carpeta PC-Server\C\SISGESS\Imagenes\Documentos\, es necesario compartir esa carpeta???
Amigos del foro esperare sus opiniones por favor, muchas gracias por los mensajes o sugerencias que me brinden

[ecfisa]

Hola choclito1.

Sería muy útil que nos escribieras exáctamente un ejemplo del texto que deseas obtener.

Pero primero repasemos la línea de tu código:

Código Delphi [-]
ruta:=Image1.Picture.SaveToFile(\\f_usuario.server\c\SISGESS\Documentos\'FOTO'+nombre.text+'.jpg');

1. Falta encerrar el primer texto entre comillas simples (').
2. Falta el separador de ruta (\) al finalizar la primer cadena.
3. Falta el signo de adición (+) que concatena la primera parte de la cadena con "nombre.text".

Fijate si de este modo te resulta mas simple:

Código Delphi [-]
ruta := Image1.Picture.SaveToFile(Format('\\f_usuario.server\c\SISGESS\Documentos\FOTO\%s.JPG',[nombre.text]));

Todo eso suponiendo que ese es el formato de salida que deseas obtener ...


Saludos

[choclito1]

Muchas gracias ecfisa por responder al post.
Te comento, q tengo un sistema en una institucion medica, para la gestion de pacientes, me pidieron que los usuarios que tienen acceso a la ventana de gestion de pacientes puedan seleccionar la foto de los pacientes pero en el servidor y no asi en sus computadoras.
En principio yo guardaba solo la dirección(ruta) de las fotos en mi base de datos (las fotos estaban en las maquinas clientes) y solo trabajaba con el path de las fotos, pero ahora se quiere que las fotos esten tambien en el servidor pero que no dentro de la BD sino por separado
el acceso a la base de datos por parte de los usuarios por medio del cliente es via TCP/IP
¿Tendria que cambiar atributos de la carpeta en el servidor para que se pueda guardar los fotos en el servidor? ¿Que seguridad tendria para que solo los usuarios del sistema puedan acceder a las fotos por medio del sistema?
En la base de datos solo guardo el path de las fotos
Vi en los post del foro que varios usuarios no recomiendan que se guarde las imagenes en la base de datos porque eso hace que cresca (en megas) la BD
Trabajo con Delphi xe2, firebird y componentes IB para conectarse a la BD
¿Cual seria la sugerencia que me brinden amigos?
Espero me hayas podido entender el problema, gracias por leer el post