![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Друзья, помогите. Нужно, чтобы можно было загрузить картинку из интернета в TImage форматов jpg, png, gif и пр.
Я так понимаю, что делается это через MemoryStream, но как - не знаю. Нашел следующий код: Код:
Не знаю почему, но не работает. Пишет: "header corruped" или чтот подобное. Может есть какой-нибудь код для загрузки интернет графики? Последний раз редактировалось Admin, 29.07.2009 в 22:36. |
#2
|
||||||
|
||||||
![]() Кидаешь на форму IDHTTP и IdAntiFreeze (IdAntiFreeze - для того чтобы форма не висла)
Задаешь глобальную переменную TheEnd:integer; Далее на кнопке пишешь... Код:
На процедуре IdHTTP1.Work пишешь: Код:
На процедуре IdHTTP1.WORKBEGIN пишешь: Код:
|