F�rum Carregar imagem Timage em tempo de execucao #531288

10/09/2015

Boa tarde eu estou construindo uma classe que carrega em tempo de execu��o um panel, 1 timage e 1 label e chamei essa classe de Tpanelcomposto
a classe j� funciona perfeitamente porem para inserir uma imagem no tImage sigo o c�digo abaixo:

  Fimage.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'/images/img.bmp');
[code]

Dessa forma meu objeto exibe a imagem corretamente.
Porem, as imagens precisam estar nesta pasta images e meu aplicativo precisa carregar essa pasta junto pra o objeto exibir imagens.

Tem alguma forma de eu j� carregar essa imagem e criar o timagem j� com a imagem nele?

tentei fazer como o delphi faz quando copiamos uma timage de um form para outro gerando um c�digo semelhante ao abaixo: 


[code]
 object Image4: TImage
    Left = 100
    Top = 124
    Width = 85
    Height = 57
    Picture.Data = {
      07544269746D6170463B0000424D463B00000000000036000000280000005400
      00003C0000000100180000000000103B00000000000000000000000000000000
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEAF2F7CBDDE8C3D9E6C6DCEB
      BCCFDCBBCDDBBED0DDBED0DDBED0DDBECFDDBDCEDCBCCDDCBDCEDCBCCDDABCCD
      DABBCCDBBBCCDABBCBDABCCCD9BACBD9BCCCD9BCCCD9BCCBD9BACBD8BDCBD8BC
      CBD8BAC9D8BCC9D7BDCAD8BBC9D8BDC8D7BCC9D7BDCAD7BEC8D7BFCAD6BDC8D6
      C0C9D8BFC8D6C1CAD8C0C8D8C2CAD7C1CAD8C1C9D6C2C8D7C2C7D6C2C9D6C3C8
      D6C2C8D5C3C8D5C2C8D5C1C7D6C0C7D5C0C7D4C2C7D5C0C7D6C0C6D5C0C6D5C0
      C7D5C1C7D6C1C7D6BFC7D5BBC6D4B8C5D3BAC6D5BBC4D3BFC8D7BFC8D7BFC7D6
      BBC6D4BAC0D0D4D3DCEBEAEEE8E8EDDADAE1D9D9E0E1E1E9E8E8ECF1F1F5FFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFDDE9EFA0B2C65C789B41739D5E95BA5A91B849DDDDE3DFDFE6E7E7ECEAEAEFEFEFF3F6F6F8}
    Stretch = True
  end

mas n�o consigo acessar a property Picture.data;
algu�m sabe como posso carregar esse c�digo da imagem no Timage?

Obrigado.

Fabio Cardoso

Curtir t�pico

+ 0

Responder

Post mais votado

15/09/2015

amigo P2, esse c�digo que voc� me deu como referencia j� o c�digo que uso hoje, e desse jeito eu preciso ter no meu aplicativo uma pasta contendo todas as imagens que eu quero usar no objeto, e a id�ia e n�o precisar mais dessas pastas porque dessa forma ai o usu�rio pode mudar as imagens e atrapalhar o programa, o objetivo e criar o objeto em tempo de execu��o mas j� tendo no c�digo fonte o c�digo fonte da imagem igual dei o exemplo ai. Toda vez que criamos um timage no form inserimos uma imagem nele agente pode apagar a imagem pq n�o precisa mais dela. e se voc� copiar o timage para outro form ele j� vai com a imagem, e exatamente esse processo que preciso fazer em tempo de execu��o:
Criar o objeto j� com imagem e n�o criar o objeto e depois carregar a imagem de um arquivo entendeu?

Fabio Cardoso

Responder

Gostei + 1

Mais Posts

11/09/2015

Raimundo Pereira

uses jpeg

public
{ Public declarations }
end;

var
Form1: TForm1;

var img2: TImage;
implementation

procedure TForm1.FormCreate(Sender: TObject);

begin
img2 := TImage.Create(self);
img2.Parent := Form1;
img2.AutoSize := True;
img2.Align:=alClient;
img2.Top := 10;
img2.Left := 10;
img2.Center:=true;
img2.AutoSize:=true;
img2.Picture.LoadFromFile('C:\p.jpeg');
ShowMessage('C:\p.jpeg');
//img2.Free;
end;

Responder

Gostei + 0

25/10/2018

Antonio Costa

oi gente boa achei melhor tb pra mostrar o logo da EMpresa em quest�o apenas fazendo:

begin

Picture1.Picture.LoadFromFile(''C:\\\\LOGO.BMP'');<br />

end.

...la no Code.... do FastReport Interprise 5.6!!!

Responder

Gostei + 0