FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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? |
#2
|
||||
|
||||
¿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. |
#3
|
||||
|
||||
Cita:
Saludos. |
#4
|
||||
|
||||
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
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 |
#6
|
||||
|
||||
Cita:
Utilizo la versión 6. |
#7
|
||||
|
||||
Hola Delphi.com.ar :
Ya encontré en la ayuda de delphi las funciones que tiene sysutils. Gracias . |
#8
|
||||
|
||||
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. |
#9
|
||||
|
||||
Cita:
Me habría ahorrado un tiempo, tiempo que me hace falta ahora Saludos. |
#10
|
||||
|
||||
lucasarts_18, te habría respondido antes pero no tuve tiempo de acceder a internet antes...
Cita:
Si tienes más dudas, con gusto intentaré ayudarte en lo que pueda... todavía soy medio principiante en esto. |
#11
|
||||
|
||||
Cita:
Si no conoces esta página, visítala http://www.grupoalbor.com Saludos . |
#12
|
|||
|
|||
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; |
|
|
|