Отобразить в Image картинку с интернета

[Alest]

Delphi 7, Пробовал этот код , не срабатывает чет...

procedure TForm1.Image1Click(Sender: TObject);
var
  Stream: TMemoryStream;
begin
  Stream:= TMemoryStream.Create;
  IdHTTP1.Get('http://programmersforum.ru/images/1070/misc/vbulletin3_logo_white.gif', Stream);
  Stream.SaveToFile('C:\Documents and Settings\Image\vbulletin3_logo_white.gif');
  Stream.Free;
  Image1.Picture.LoadFromFile('C:\Documents and Settings\Image\vbulletin3_logo_white.gif');

[Volt]

uses UrlMon;
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end;

[Виталий Желтяков]

Попробуйте эту функцию:

uses urlmon, wininet;
//-------------------- Функция загрузки файла --------------------------------//
// SourceFile - источник, DestFile - назначение
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
//----------------------------------------------------------------------------//

Я пользуюсь ей.

[Alest]

Спасибо , а как закинуть в Image , не загружая ее на комп?

[Alest]

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

procedure TForm1.Image1Click(Sender: TObject);
const
SourceFile = 'http://programmersforum.ru/images/1070/misc/vbulletin3_logo_white.gif';
DestFile = 'C:\Documents and Settings\Image\white.gif';
begin
   if DownloadFile(SourceFile, DestFile) then
   begin
     Image1.Picture.LoadFromFile('C:\Documents and Settings\Image\vbulletin3_logo_white.gif');
   end
   else
     ShowMessage('Îøèáêà çàêà÷êè ' + SourceFile)
end;

также , в image не грузит

Разобрался , не грузит изза gif...

а как закинуть в Image , не загружая ее на комп?

[Пепел Феникса]

не загружая ее на комп?

это вы как себе представляете?
грузить вам полюбому придется, хотяб в память.

хоть бы ктото обратив внимание что это gif картинка. ищите классы/компоненты для загрузки gif(GIFIMage)
тогда можно будет без файла обойтись, так как специализированные классы умеют грузить из потока без файла.

[Alest]

хотяб в память.

str:=tmemorystream.create;
http.Get('http://*.*, str);
str.Seek(0,soFromBeginning);
Image2.Picture.LoadFromStream(str);

тогда можно будет без файла обойтись, так как специализированные классы умеют грузить из потока без файла.

Как это сделать ?

[Пепел Феникса]

скажите честно вы прочитали весь мой пост?

Сообщение от Пепел Феникса

ищите классы/компоненты для загрузки gif(GIFIMage)

судя по всему нет.(я вам привел название, на форуме он есть кстати)

[Alest]

скажите честно вы прочитали весь мой пост?

Прочитал , спасибо

Временно забудим что у нас gif, допустим у нас png картинка...

[Пепел Феникса]

насчет png у вас какая версия Делфи?