consegir el nombre de un archivo abierto con un openpicturedialog

[Casimiro Noteví]

Empezado por danyfebrero

Label1.Caption:=OpenPictureDialog1.FileName; // <---------------------- ahí, en FileName

Por cierto, recuerda poner los tags al código fuente, ejemplo:



Gracias

[danyfebrero]

gracias otra vez

el resultado que me da Filename es la ruta completa con el nombre del archivo y la extención pero lo que me interesa es solo el nombre del archivo.
FileName me devuelve: c:\imágenes\foto001.jpg pero lo que necesito es que me devuelva solo foto001, que era lo que hacias title, pero no me funciona.
saludos y gracias

[roman]

Empezado por danyfebrero

FileName me devuelve: c:\imágenes\foto001.jpg pero lo que necesito es que me devuelva solo foto001, que era lo que hacias title, pero no me funciona.

Entonces usa la función ExtractFileName:

Código Delphi [-]
Label1.Caption:=ExtractFileName(OpenPictureDialog1.FileName);

// Saludos

[danyfebrero]

gracias roman.
si tienes razon en los 2 comentarios.
probe con ExtractFileName y funciono bien me devuelve foto001.jpg, disculpa si sigo preguntando pero como pudiera quitarle la extension, porque lugo cuando convierta el jpg no va tener la misma extension.
gracias nuevamente

[ecfisa]

Hola.

ExtractFileName devuelve el nombre y extensión, ExtractFilePath la ruta y ExtractFileExt la extensión.

Conozco dos modos de obtener lo que buscas, este es uno:

Código Delphi [-]
var
  NomSinExt: string;
begin
  NomSinExt:= Copy(ExtractFileName(NomArch), 1, Pos(ExtractFileExt(NomArch),ExtractFileName(NomArch))-1);
  ...

O más simple, aunque confuso por el nombre de la misma, con la función ChangeFileExt:

Código Delphi [-]
var
  NomSinExt: string;
begin
  NomSinExt:= ChangeFileExt(ExtractFileName(NomArch), '');
  ...

Saludos.

Edito: En los ejemplos NomArch equivale a OpenPictureDialog1.FileName.

[danyfebrero]

gracias ecfisa eso solucionó mi problema, muchas gracias. saludos dany

[aldemar.bohorqu]

He estado intentando y no he podido. Lo estoy haciendo así:


//---------------------------------------------------------------------------
void __fastcall TForm2::I1Click(TObject *Sender)
{
//Al darle click a la imagen (I1)

if(OpenPictureDialog1->Execute())
{
I1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
LE1->Text=OpenPictureDialog1->FileName; //La ruta es mostrada en un LabelEdit
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

//archivo *.txt generado con un botón

cadena=Form1->LE1->Text + "\n"; //AnsiString cadena; (variable public)


ofstream escribir("Datos/imagen.txt",ios::app); //#include <fstream.h> (clase para leer ofstream)
escribir<<cadena.c_str();
escribir.close();

//---------------------------------------------------------------------------




LO hago así pero no me genera el archivo *.txt. No se que será.
Gracias.