Height e Width

Question

Como fa�o para colocar em uma TLabel a algura e largura de um arquivo tipo JPEG???Grato ao colega que puder me ajudar,Mard�nio Cavalcante...

Nigro · Answer

Caso voc� queira apenas colocar a imagem na tela, pode usar o tImageNigro...

Allen74 · Answer

Amigo, segue c�digo exemplo. Para testar acrescente um OpenDialog, um TButton e um TLabel no seu foruml�rio.

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  Img : TJpegImage;
begin
  if OpenDialog1.Execute then
  begin
    Img := TJpegImage.Create;
    Img.LoadFromFile(OpenDialog1.FileName);
    Label1.Caption := �Width: �+IntToStr(Img.Width)+
      �, Height: �+IntToStr(Img.Height);
    Img.Free;
  end;
end;

F�rum Height e Width #174751