image com gif ou jpg da internet

Delphi

29/04/2004

gostaria de colocar um image no meu programa que pega-se a foto da internet onde eu iria trocar essa imagem de tempos em tempos e todos que tivesem conectados conseguisem ver a imagem pelo meu programa


Flaviocont

Flaviocont

Curtidas 0

Respostas

Slack

Slack

29/04/2004

ae cara. .segunte..
vc quer pegar uma image da internet? é isso
tipo .. essa image ta num host(ftp)
vc usa os componentes da paleta Indy para baxar a image pra uma pasta e ae ela executa a image dessa pasta. .
qualquer duvida poste ae


GOSTEI 0
Cebikyn

Cebikyn

29/04/2004

Não há necessidade de componentes:

uses
  URLMon;

function DownloadFile(WEB, LOCAL: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(WEB), PChar(LOCAL), 0, nil) = 0;
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DownloadFile(
  ´http://www.servidor.com.br/figuras/figura.gif´,
  ´C:\Figura.gif´) then
    Image1.Picture.LoadFromFile(´C:\Figura.gif´)
  else
    ShowMessage(´Erro ao fazer download!´);
end;



GOSTEI 0
Xande-df

Xande-df

29/04/2004

Ai amigo, valeu pela dica me ajudou pra caramba!!!

Valeu!!!!!


GOSTEI 0
POSTAR