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

[Alest]

Delphi 7,

mustang007Всё спасибо всем кто помогал! я скачал компонент для delphi 7 TPNGImage, кому интересно http://delphidevelop.ru/load/19-1-0-36, всё теперь работает!

Допустим это у нас все есть , вопрос в другом

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

var MS:TMemoryStream; 
     PNG:TPNGImage.Create;
begin
 MS:=TMemoryStream.Create;
 http.Get('http://*.*,MS);
 MS.Position:=0;
 PNG:=TPMGImage.Create;
 PNG.LoadFromStream(MS);
 MS.Free;
 Image1.Width:=PNG.Width;
 Image1.Height:=PNG.Height;//может это вам и не надо.
 Image1.Picture.Bitmap.Assing(PNG);
 PNG.Free;
end;

примерно так.

[Alest]

Спасибо, пойду разбераться

[Alest]

Все грузится, спасибо!
Вот исправленный код:

procedure TForm1.Image1Click(Sender: TObject);
var
MS: TMemoryStream;
PNG: TPNGObject;
begin
MS:= TMemoryStream.Create;
PNG := TPNGObject.Create;
IdHTTP1.Get('http://shot.far.ru/termin.png', MS);
MS.Position := 0;
PNG.LoadFromStream(MS);
Image1.Width:=PNG.Width;
Image1.Height:=PNG.Height;
Image1.Picture.Bitmap.Assign(PNG);
MS.Free;
PNG.Free;
end;

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

ну у меня просто класс TPNGImage назывался

[Giku]

как узнать какое расширение у файла ?
т.е. файлы скачиваются с сайта : http://www.adres_saita.ru/Image?ID=123456

я знаю только ID (123456)

у файла только 2 разширения .png или .gif

рисунки создаются динамичеки (скачиваются на комп и загружаются на форму)

ссылки
http://www.adres_saita.ru/Image?ID=123456.png
http://www.adres_saita.ru/Image?ID=123456.gif
не работают

качаю так: (спасибо Volt)

//SourceFile:='http://www.adres_saita.ru/Image?ID='+ID;
//DestFile:='D:\Folder\'+ID+'.gif'
function TForm1.DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

если рисунок .png он скачивается но проблема при его загруски на форму "Unknown GIF version";


если б я за ранее знал его формат было бы проще. или мжет сохронить без разришения и потом како го добавить ?

помогите плзззз!

[Arigato]

Можно на сигнатуру файла глянуть. Читаем первые 4 байта из файла, если там:
'GIF8' - это gif.
#89'PNG' - это png.

[Giku]

Сообщение от Arigato

Можно на сигнатуру файла глянуть. Читаем первые 4 байта из файла, если там:
'GIF8' - это gif.
#89'PNG' - это png.

огромное спасибо


не подскажитe пожалуйста как записать в перменную эти првые 4 байта спасибо.

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

1)есть обработка ошибок, попытатся грузить как ГИФ, если не выходит, то как ПНГ.
2)есть еще HEAD запрос.
3)определять руками.

[Arigato]

Сообщение от Giku

не подскажитe пожалуйста как записать в перменную эти првые 4 байта спасибо.

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