 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
kyros
Novato
Registrado: Quarta-Feira, 9 de Janeiro de 2008
Mensagens: 33
|
 Enviada: Qui Mar 04, 2010 11:30 pm Assunto: |
 |
|
Eu tava tentando fazer aqui, acho que é por esse caminho, só que ta faltando algo, olhem só:
| Citação: | var
strm:Tmemorystream;
bmp:Tbitmap;
begin
strm:=Tmemorystream.Create;
bmp:=Tbitmap.Create;
idhttp1.Get('http://2.bp.blogspot.com/_esLJAARymfc/SRmn3RSVgPI/AAAAAAAAAMc/IBbF6yddfk4/s320/teste.bmp',strm);
strm.SaveToStream(strm);
bmp.LoadFromStream(strm);
bmp.Height:=image1.Height;
bmp.Width:=image1.Width;
image1.Picture.bitmap.Assign(bmp); |
ele não escreve a imagem dentro do componente Image1, se eu salvar a stream para o hd ele salva certo, agora quando mando ele ser carregado no Image1 não dá. |
|
| Voltar ao Topo |
|
 |
Lehapan
Experiente
Registrado: Quarta-Feira, 16 de Junho de 2004
Mensagens: 401
Localização: Caxias do Sul - RS
|
| Enviada: Sex Mar 05, 2010 8:48 am Assunto: |
|
|
De uma olhada neste link http://www.eversonnovka.com/tag/indy/
Espero ter colaborado.
_________________
Wilson Lehapan Junior, vulgo Paulista...!!! |
|
| Voltar ao Topo |
|
|
kyros
Novato
Registrado: Quarta-Feira, 9 de Janeiro de 2008
Mensagens: 33
|
| Enviada: Sex Mar 05, 2010 2:18 pm Assunto: |
|
|
Valeu Lehapan, era quase o que eu estava fazendo, valeu mesmo cara. muito obrigado
Resolvido. |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Sex Mar 05, 2010 4:23 pm Assunto: |
|
|
bastava assim:
| Código: | var
strm:Tmemorystream;
begin
strm:=Tmemorystream.Create;
try
idhttp1.Get('http://2.bp.blogspot.com/_esLJAARymfc/SRmn3RSVgPI/AAAAAAAAAMc/IBbF6yddfk4/s320/teste.bmp',strm);
strm.Position := 0;
image1.Picture.bitmap.LoadFromStream(strm);
finally
strm.Free;
end;
|
|
|
| Voltar ao Topo |
|
|
kyros
Novato
Registrado: Quarta-Feira, 9 de Janeiro de 2008
Mensagens: 33
|
| Enviada: Sex Mar 05, 2010 5:33 pm Assunto: |
|
|
é gilson foi por causa do position, que não estava dando,havia esquecido do mesmo  .
Valeu a todos que me ajudaram. |
|
| Voltar ao Topo |
|
|
Waldinho
Novato
Registrado: Quarta-Feira, 26 de Março de 2003
Mensagens: 22
|
| Enviada: Seg Jun 21, 2010 11:29 am Assunto: |
|
|
| gilsonnrodrigues escreveu: | bastava assim:
| Código: | var
strm:Tmemorystream;
begin
strm:=Tmemorystream.Create;
try
idhttp1.Get('http://2.bp.blogspot.com/_esLJAARymfc/SRmn3RSVgPI/AAAAAAAAAMc/IBbF6yddfk4/s320/teste.bmp',strm);
strm.Position := 0;
image1.Picture.bitmap.LoadFromStream(strm);
finally
strm.Free;
end;
|
|
Tentei dessa forma mas está me retornando um erro.
Bitmap image is not valid.
Verifica se fiz correto, por favor.
| 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. |
|
|
| 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
