consegir el nombre de un archivo abierto con un openpicturedialog

[danyfebrero]

hola
Me hace falta conseguir el nombre de la jpg que abrí con el OpenPictureDialog.
Utilicé este codigo pero no funcionó, no sé si será por el Windows 8 o que no lo hice bien.

procedure TForm1.Button1Click(Sender: TObject);
begin
if not OpenPictureDialog1.Execute then Exit;
Label1.Caption:=OpenPictureDialog1.FileName;
Label2.Caption:=OpenPictureDialog1.Title;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

Antes el OpenPictureDialog1.Title me daba el nombre del archivo pero ahora se me queda en blanco.
Gracias de antemano
Dany

[Casimiro Notevi]

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.

[roman]

Es como dice Casimiro. FileName te da el nombre del archivo. Title no da, y que yo sepa nunca ha dado, el nombre del arcivo. Title es el texto que aparece en la barra de título de la ventana del cuadro de diálogo.

// Saludos