Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение картинки с сервера 
:(
    Опции темы
raz
Дата 17.6.2008, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 31.3.2008
Где: Soligorks =)

Репутация: нет
Всего: нет
На сайте лежит картинка http://mysite.ru/image.jpg, как ее принять и засунуть в Timage?
--------------------
PM MAIL   Вверх
Snowy
Дата 17.6.2008, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Код
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;
PM MAIL   Вверх
raz
Дата 17.6.2008, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 31.3.2008
Где: Soligorks =)

Репутация: нет
Всего: нет
не работает
--------------------
PM MAIL   Вверх
Snowy
Дата 17.6.2008, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Работает.
PM MAIL   Вверх
aktuba
Дата 17.6.2008, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата(raz @  17.6.2008,  15:29 Найти цитируемый пост)
не работает

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


--------------------
user posted image
PM MAIL WWW Skype   Вверх
BenGAMEn
Дата 18.6.2008, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.5.2008

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

Код

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;
PM MAIL   Вверх
Qu1nt
Дата 18.6.2008, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50
raz,
Код

uses
  JPEG, IdHTTP;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0504 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.