[Resolvido]Visualizar imagens OnLine

[castilhos]

Bom, amigos, estou desenvolvendo um aplicativo  e tenho uma pedra no sapato cruel.
É o seguinte:

Quero que ao ao clicar no Button1 o  aplicativo retorne a imagem do link:
http://forum.lazarus.freepascal.org/splash_logo.png.

Qual Componentes utilizar?

Estou no final do projeto e empaquei nesse ponto.


Abraços

[typo]

TImage.

Você pode encontrar essa imagem no diretório de instalação do seu Lazarus, subdiretório Images.

[castilhos]

Perdão amigo typo, deixei meio enevoado a questão, não preciso exatamente dessa imagem.

É o seguinte:

1>Tenho um Edit que recebe um link de uma imagem(ex. a que citei)
2>Tenho um Button que ao ser clicado deverá mostrar a imagem do link.

No delphi usa-se o componente webbrowser, mas no meu lazarus não possui esse componente.

Detalhe: uso linux.

Obrigado por se dispor.


Abraços

[bylaardt]

Ue recomendo que use o TImage mesmo, mas faça o download antes e grave-o na pasta de arquivos temporários. 

para fazer o download use as funções da unit Synapse.

dúvidas veja: http://wiki.freepascal.org/Synapse

[castilhos]

vlw amigo bylaardt,deu certíssimo.
Segue meu o Código abaixo...

Code: [Select]

procedure TfrmGerador.btnVerBannerClick(Sender: TObject);
var
  httpClient: THTTPSend;
  TipoArq:String;

      begin

     If LinkSel = '' then
     ShowMessage('Não há Link Salvo no Banner Selecionado!' +
                     'Por Favor Selecione outro Banner.')
     else
     TipoArq:=ExtractFileExt(lbLinkSel.Caption);
     httpClient:= THTTPSend.Create;

     if httpClient.HTTPMethod('GET', lbLinkSel.Caption)   then
        try
     httpClient.Document.SaveToFile('Banner' + TipoArq);
     imgBanner.Picture.LoadFromFile('Banner' + TipoArq);
     httpClient.Free;
       except
      exit;
      end;
       end;
É isso aí cara, está totalmente funcional...

Se tiverem alguma idéia para melhorar o código, podem opinar.

Obrigado bylaardt e typo pela ajuda.

Abraços