Verificar o tamanho em kb da imagem

[Valdiney F. Lima 0]

Como eu faria a verificação do tamanho de uma imagem?

[marcio.theis 3]

Crei uma pequena função que no caso você passa o arquivo e lhe é retornado o tamanho em KB:

 

function TForm1.TamanhoArquivo(arquivo: string): string;const	KBYTE = SizeOf(Byte) shl 10;beginwith TFileStream.Create(arquivo, fmOpenRead or fmShareExclusive) do   try	   Result:=FloatToStrF(Size / KBYTE,ffNumber,6,2);   finally	   Free;   end;end;

Algo do tipo:

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, Buttons, ExtDlgs;type  TForm1 = class(TForm)	BitBtn1: TBitBtn;	Image1: TImage;	OpenPictureDialog1: TOpenPictureDialog;	procedure BitBtn1Click(Sender: TObject);  private	{ Private declarations }	function TamanhoArquivo(arquivo: string): string;  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}function TForm1.TamanhoArquivo(arquivo: string): string;const	KBYTE = SizeOf(Byte) shl 10;beginwith TFileStream.Create(arquivo, fmOpenRead or fmShareExclusive) do   try	   Result:=FloatToStrF(Size / KBYTE,ffNumber,6,2);   finally	   Free;   end;end;procedure TForm1.BitBtn1Click(Sender: TObject);var	nomeImagem: string;beginnomeImagem:='';if OpenPictureDialog1.Execute then	nomeImagem:=OpenPictureDialog1.FileName;if nomeImagem <> '' then	begin	Image1.Picture.LoadFromFile(nomeImagem);	ShowMessage(TamanhoArquivo(nomeImagem) + ' Kb');	end;end;end.

[Valdiney F. Lima 0]

Crei uma pequena função que no caso você passa o arquivo e lhe é retornado o tamanho em KB:

function TForm1.TamanhoArquivo(arquivo: string): string;const	KBYTE = SizeOf(Byte) shl 10;beginwith TFileStream.Create(arquivo, fmOpenRead or fmShareExclusive) do   try	   Result:=FloatToStrF(Size / KBYTE,ffNumber,6,2);   finally	   Free;   end;end;

Algo do tipo:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, Buttons, ExtDlgs;type  TForm1 = class(TForm)	BitBtn1: TBitBtn;	Image1: TImage;	OpenPictureDialog1: TOpenPictureDialog;	procedure BitBtn1Click(Sender: TObject);  private	{ Private declarations }	function TamanhoArquivo(arquivo: string): string;  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}function TForm1.TamanhoArquivo(arquivo: string): string;const	KBYTE = SizeOf(Byte) shl 10;beginwith TFileStream.Create(arquivo, fmOpenRead or fmShareExclusive) do   try	   Result:=FloatToStrF(Size / KBYTE,ffNumber,6,2);   finally	   Free;   end;end;procedure TForm1.BitBtn1Click(Sender: TObject);var	nomeImagem: string;beginnomeImagem:='';if OpenPictureDialog1.Execute then	nomeImagem:=OpenPictureDialog1.FileName;if nomeImagem <> '' then	begin	Image1.Picture.LoadFromFile(nomeImagem);	ShowMessage(TamanhoArquivo(nomeImagem) + ' Kb');	end;end;end.

Funcionou como eu esperava!Valeu Guru.Bom,Já vou encaixotando outra pergunta! rsrsr...Bom... Eu quero manipular um array. Primeiro eu preciso enviar para o array os seguintes dados:1;82;34;26;91- Ou seja, tenho acima quatro elementos pra ser adicionado no array. Como eu crio e adiciono o array?2- Como eu apago somente um elemento deste array? Por exemplo, tirar o 2;3 ficando o array como abaixo:1;84;26;9Abraços!

[Vinicius Callegaro 0]

Você precisará criar uma lista encadeada. http://pt.wikipedia.org/wiki/Lista_encadeada