Carregar imagem Timage em tempo de execucao

Delphi

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

Fabio Cardoso

Curtidas 0

Melhor post

Fabio Cardoso

Fabio Cardoso

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?
GOSTEI 1

Mais Respostas

Raimundo Pereira

Raimundo Pereira

10/09/2015

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;
GOSTEI 0
Antonio Costa

Antonio Costa

10/09/2015

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!!!
GOSTEI 0
POSTAR