Foros Club Delphi - Extraer solo nombre de archivo y extensión

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Extraer solo nombre de archivo y extensión (https://www.clubdelphi.com/foros/showthread.php?t=23223)

JODELSA

11-07-2005 14:18:55

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?

delphi.com.ar

11-07-2005 14:25:56

¿Has visto la función de SysUtils ExtractFileName? ;)

Saludos!

lucasarts_18

11-07-2005 16:29:09

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.

delphi.com.ar

11-07-2005 16:37:33

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?

Perio

11-07-2005 17:25:00

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

lucasarts_18

12-07-2005 17:17:11

Cita:

Empezado por delphi.com.ar

¿Qué versión de Delphi utilizas?

Hola:

Utilizo la versión 6.

;)

lucasarts_18

13-07-2005 04:54:49

Hola Delphi.com.ar :

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

Gracias :cool: .

Delphius

13-07-2005 05:50:17

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.

lucasarts_18

13-07-2005 06:09:40

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 :rolleyes:

Saludos.

Delphius

13-07-2005 07:18:12

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 :rolleyes:

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.

lucasarts_18

13-07-2005 12:56:44

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 :D .

Perio

13-07-2005 15:04:09

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;

La franja horaria es GMT +2. Ahora son las 08:21:35.