Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Получение картинки с сервера

Автор: raz 17.6.2008, 12:24

На сайте лежит картинка http://mysite.ru/image.jpg, как ее принять и засунуть в Timage?

Автор: Snowy 17.6.2008, 13:16

Код

const
  url = 'http://www.delphilab.ru/files/book/Marco_D7.jpg';
var
  jpg: TJPEGImage;
  http: TIdHttp;
  ms:   TMemoryStream;
begin
  jpg := TJPEGImage.Create;
  ms :=  TMemoryStream.Create;
  http := TIdHTTP.Create(nil);
  try
    try
      http.Get(url, ms);
      ms.Position := 0;
      jpg.LoadFromStream(ms);
      Image1.Picture.Assign(jpg);
    except
      on E: Exception do
        MessageBox(0, PChar(E.Message), 'Error!', MB_ICONERROR);
    end;
  finally
    ms.Free; jpg.Free; http.Free;
  end;
end;

Автор: raz 17.6.2008, 14:29

не работает

Автор: Snowy 17.6.2008, 14:30

Работает.

Автор: aktuba 17.6.2008, 15:12

Цитата(raz @ 17.6.2008, 15:29

)

не работает

Лаконичный ответ =) Что не работает то? Что пишет?

Автор: BenGAMEn 18.6.2008, 12:33

Ну вот можете попробувать так. (возможно немного дубово, но работает отлично)

Код


uses
   .........UrlMon, jpeg;
.
.
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
   URLDownloadToFile(nil, 'http://childrendevil.ucoz.ru/avatar/72/809997.jpg', 'Picture.jpg', 0, nil );
   Image1.Picture.LoadFromFile('Picture.jpg');
end;

Автор: Qu1nt 18.6.2008, 15:58

raz,

Код


uses
  JPEG, IdHTTP;