 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Waldinho
Novato
Registrado: Quarta-Feira, 26 de Março de 2003
Mensagens: 22
|
 Enviada: Ter Abr 06, 2010 11:52 am Assunto: Carregar imagem da Internet |
 |
|
Olá, gente.
Alguém sabe como posso fazer para carregar em um TImage uma imagem que esteja em um endereço da net?
Por exemplo: tenho um domínio e, no servidor existe uma pasta com uma imagem. Como faço para carregar esta imagem em um TImage?
Obs: Já tenho como efetuar a conexão. Só preciso carregar a imagem.
Valeu. |
|
| Voltar ao Topo |
|
 |
rafmattos
Colaborador
Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS
|
|
| Voltar ao Topo |
|
|
Waldinho
Novato
Registrado: Quarta-Feira, 26 de Março de 2003
Mensagens: 22
|
| Enviada: Ter Abr 06, 2010 12:00 pm Assunto: |
|
|
| Valeu, rafmattos, |
|
| Voltar ao Topo |
|
|
Waldinho
Novato
Registrado: Quarta-Feira, 26 de Março de 2003
Mensagens: 22
|
| Enviada: Ter Jun 22, 2010 7:35 am Assunto: |
|
|
Tentei desta forma, mas está me retornando:
Bitmap image is not valid.
Já olhei todo o código mas não consegui encontrar o erro.
Está assim:
| Código: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, CustomContain, ExtCtrls, xTaskPanel,
ButtonOffice, TaskButton, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, pngimage, WinInet;
const
SELDIRHELP = 0; // or SELDIRHELP = 1000
type
TForm1 = class(TForm)
btn1: TButton;
img1: TImage;
Label1: TLabel;
idhtp1: TIdHTTP;
procedure btn1Click(Sender: TObject);
function estaConectado: boolean;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
strm:Tmemorystream;
begin
if (estaConectado) then
begin
strm:=Tmemorystream.Create;
try
idhtp1.Get('http://2.bp.blogspot.com/_esLJAARymfc/SRmn3RSVgPI/AAAAAAAAAMc/IBbF6yddfk4/s320/teste.bmp',strm);
strm.Position := 0;
try
img1.Picture.bitmap.LoadFromStream(strm);
except
on E: Exception do
ShowMessage('Não foi possível carregar a imagem. ' + #13 +
E.ClassName + #13 +
'Erro: ' + E.Message);
end;
finally
strm.Free;
end;
end
else
begin
ShowMessage('Não está conectado.');
end;
end;
function TForm1.estaConectado: boolean;
var
flags : DWORD;
begin
// verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet.
if not InternetGetConnectedState(@flags, 0) then
result := false
else
result := true;
end;
end. |
Valeu. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
