Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-07-2005
JODELSA JODELSA is offline
Miembro
 
Registrado: may 2003
Posts: 89
Poder: 22
JODELSA Va por buen camino
Extraer solo nombre de archivo y extensión

Saludos, estoy almacenando solo la ruta de mis fotos en una tabla de mysql, y para cargar las fotos llamo de nuevo la ruta a traves del PICTURE OPEN DIALOG, asignado a un componente IMAGE la foto de la manera siguiente:

Image1.Picture.LoarFromFile(´c:\fotos\foto1.jpg´);

Lo que sucede es que quiero almacenar solamente el nombre y la extension del archivo en mi tabla, pero la opcion OpenDialog1.FileName devuelve ademas la ruta completa con los subdirectorios donde se encuentra la foto en cuestion.

Como puedo extraer de un OPENDDIALOG solamente el nombre del archivo con su extension?
Responder Con Cita
  #2  
Antiguo 11-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.954
Poder: 27
delphi.com.ar Va camino a la fama
¿Has visto la función de SysUtils ExtractFileName?

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 11-07-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
Cita:
Empezado por delphi.com.ar
¿Has visto la función de SysUtils ExtractFileName?

Saludos!
Hola, donde puedo ver todas la funciones que encapsula SysUtils, he visto en la ayuda pero no aparece nada...

Saludos.
Responder Con Cita
  #4  
Antiguo 11-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.954
Poder: 27
delphi.com.ar Va camino a la fama
Cita:
Empezado por lucasarts_18
Hola, donde puedo ver todas la funciones que encapsula SysUtils, he visto en la ayuda pero no aparece nada...
No te entiendo.... ¿Qué versión de Delphi utilizas?
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 11-07-2005
Perio Perio is offline
Miembro
 
Registrado: abr 2005
Ubicación: Argentina
Posts: 71
Poder: 20
Perio Va por buen camino
Hola, podes hacerlo a pata tomando cada caracter de la cadena:
FileName[n] de atras para adelante, cuando encontrés el punto FileName[n]='.'
ya recorriste hasta la extencion, y siguiendo hasta la barra FileName[n]='/' tenes el nombre... (Ojo que las cadenas te quedan espejadas, osea en reversa, dalas vuelñta y listo)
No se si me explico.
Pero es mucho mas buena la otra opcion que te dieron.

Saludos Desde argentina
Responder Con Cita
  #6  
Antiguo 12-07-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
Cita:
Empezado por delphi.com.ar
¿Qué versión de Delphi utilizas?
Hola:

Utilizo la versión 6.

Responder Con Cita
  #7  
Antiguo 13-07-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
Hola Delphi.com.ar :

Ya encontré en la ayuda de delphi las funciones que tiene sysutils.

Gracias .
Responder Con Cita
  #8  
Antiguo 13-07-2005
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 26
Delphius Va camino a la fama
una aclaración...

Si usas ExtractFileName obtendrás el nombre del archivo y su extensión, por ejemplo: "miarchivo.txt"

Ahora, si quieres por otro lado obtener solamente la extensión, puedes usar ExtractFileExt(), de la misma sysutils.
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #9  
Antiguo 13-07-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
Cita:
Empezado por Delphius
Ahora, si quieres por otro lado obtener solamente la extensión, puedes usar ExtractFileExt(), de la misma sysutils.
Podrías haber puesto antes esto.....(Broma), lo que pasa es que estuve creando una función para un proyecto que buscaba la extensión de un fichero sin tener idea de la función que mencionas.

Me habría ahorrado un tiempo, tiempo que me hace falta ahora

Saludos.
Responder Con Cita
  #10  
Antiguo 13-07-2005
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 26
Delphius Va camino a la fama
lucasarts_18, te habría respondido antes pero no tuve tiempo de acceder a internet antes...

Cita:
Empezado por lucasarts_18
Me habría ahorrado un tiempo, tiempo que me hace falta ahora
No eres el único que no tiene tiempo... yo tambien ando con falta de ello (y eso que ando de semi-vacaciones)...

Si tienes más dudas, con gusto intentaré ayudarte en lo que pueda... todavía soy medio principiante en esto.
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #11  
Antiguo 13-07-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
Cita:
Empezado por Delphius
Si tienes más dudas, con gusto intentaré ayudarte en lo que pueda
Esto se agradecé...

Si no conoces esta página, visítala http://www.grupoalbor.com

Saludos .
Responder Con Cita
  #12  
Antiguo 13-07-2005
Perio Perio is offline
Miembro
 
Registrado: abr 2005
Ubicación: Argentina
Posts: 71
Poder: 20
Perio Va por buen camino
Como última opcion...

Buenas, proba con una funcion asis:
Saludos
Código:
  
function ExtraerFileName(ruta:string):string;
var
  i:integer;
begin
  i:=length(ruta);
  while ruta[i]<>'\' do
	dec(i);
  result:=copy(ruta,i,length(ruta));
end;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:54:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi