(Resolvido) como pegar extensão de um arquivo/foto?

[Greed]

Boa noite galera,

alguém sabe como se pega a extensão da foto selecionada num OpenPictureDialog?

Para pegar o caminho eu uso

OpenPictureDialog.filename

Mas e para eu pegar a extensão dela?

Porque é o seguinte:

Eu tenho 6 campos com fotos, o usuario click nos campos e o openpicturedialog é executado, ele seleciona a imagem e o caminho desta imagem vai para um DBEdit, quando o usuario salvar no banco, esta imagem vai para uma pasta de onde o próprio usuário configura numa parte de programa, como pasta de fotos do sistema.

O problema é que ele abre arquivos .JPEG, JPG e BMP

Para salvar eu consigo, o unico problema é com a extensão, porque se eu coloco uma extensão errada na hora de abrir pelo programa ele da problema, mas pelo windows ele abre, se eu padronizo só o JPEG ou o BMP, o sistema roda legal, mas eu não queria fazer isso, pois meu cliente utiliza estes 3 tipos de extensões!

Como eu faço para pegar a extensão da imagem??

Grato pela atenção

[Denis Courcy]

Boa noite galera,

alguém sabe como se pega a extensão da foto selecionada num OpenPictureDialog?

...

Como eu faço para pegar a extensão da imagem??

Oi, 'Greed'!

Existe um grupo de funções do delphi que tratam do nome do arquivo, extensão e path

function ExtractFileExt(const FileName: string): string;

function ExtractFileName(const FileName: string): string;

function ExtractFilePath(const FileName: string): string;

Consulte o help de sua versão do delphi para maiores informações.

[Jhonas]

alguém sabe como se pega a extensão da foto selecionada num OpenPictureDialog?

Como eu faço para pegar a extensão da imagem??

Voce pode usar um outro componente ... o OpenDialog1

procedure TForm1.Button1Click(Sender: TObject);
begin
   OpenDialog1.Filter := 'All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)'+
   '|*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|CompuServe GIF Image (*.gif)'+
   '|*.gif|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps '+
   '(*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.em';

   OpenDialog1.Execute;

   // caminho completo
   label1.Caption := OpenDialog1.FileName;

   // somente a extensão do arquivo
   label2.Caption := copy(OpenDialog1.FileName,pos('.',OpenDialog1.FileName),4);

end;

abraço

[Helton Garrido]

Jhonas Como faço para pegar o nome da Imagem???

[Jhonas]

exemplo

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   // PEGAR SOMENTE O NOME DA IMAGEM 

   if OpenPictureDialog1.Execute then
      Edit1.Text :=ExtractFileName(OpenPictureDialog1.FileName);

end;

end.

abraço