С Новым годом! Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/32: Рейтинг темы: голосов - 32, средняя оценка - 4.72
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477

Загрузить картинку из интернета.

17.05.2011, 13:29. Показов 6588. Ответов 14
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как можно в Image1 загрузить картинку из интернета ?
адрес картинки я знаю.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.05.2011, 13:29
Ответы с готовыми решениями:

Загрузить картинку
Hello guys =) Пишу локальный сервер, использую IdHTTPServer1, на IdHTTPServer1CommandGet написан код: ...

Загрузить в TStringList страничку из интернета
добрый день. мне нужно загрузить страницу из интернета в TStringList. пробовал так: TStringList *sl; ...

Загрузить картинку на форму
Приветствую форумчани. Посмотрите пожалуйста, где я сделал ошибку. Хочу загрузить картинку на форму. Заранее благодарен. void __fastcall...

14
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
17.05.2011, 13:37
1. Скачать картинку во временный файл.
2. Загрузить файл в Image
0
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477
17.05.2011, 13:39  [ТС]
не ну я глупый канешн
но не до такой же степени

собственно интересует только первый пункт
0
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
17.05.2011, 13:41
C++
1
2
3
NMHTTP->InputFileMode = true;
NMHTTP->Body("file.exe");
NMHTTP->Get("http://site.ru/file.exe");
0
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477
17.05.2011, 13:47  [ТС]
[BCC32 Error] Unit3.cpp(108): E2451 Undefined symbol 'NMHTTP'

подозреваю что нету єтого компонента в билдере..

от куда его можно скачать, установить ?
у меня билдер 2009.
0
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
17.05.2011, 13:58
В BCB6 он есть на вкладке Fastnet, во всех последующих её убрали. Ищите аналогичный Indy-компонент

Добавлено через 6 минут
Вот типа такого
C++
1
2
3
4
TMemoryStream *Stream=new TMemoryStream;
IdHTTP1->Get("http://mimicria.ru/index.html",Stream);
Stream->SaveToFile("c:\\myfile.html");
delete Stream;
1
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477
17.05.2011, 15:15  [ТС]
делаю вот так:

C++
1
2
3
4
5
6
7
void __fastcall TForm3::Button2Click(TObject *Sender)
{
TMemoryStream *Stream = new TMemoryStream;
IdHTTP1->Get("http://connect.ua/captcha?k=4dd239568c6735.71487816", Stream);
Picture->Graphic->LoadFromStream(Stream);
Image1->Picture = Picture;
}
и вылетает ошибка.
Миниатюры
Загрузить картинку из интернета.  
0
Покинул форум
3189 / 1368 / 109
Регистрация: 29.01.2010
Сообщений: 2,887
17.05.2011, 16:22
koldun, зачем это вам нужна капча сайта?
0
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
17.05.2011, 16:27
Цитата Сообщение от koldun Посмотреть сообщение
Picture->Graphic->LoadFromStream(Stream);
Сомнения у меня, что таким образом можно грузануть jpeg. Лучше не выпендриваться и через файл.
0
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477
17.05.2011, 17:02  [ТС]
Цитата Сообщение от NiTan Посмотреть сообщение
koldun, зачем это вам нужна капча сайта?
нужна ломать сайт я точно не намерен, просто хочу автоматизировать одну операцию.

Цитата Сообщение от mimicria Посмотреть сообщение
Сомнения у меня, что таким образом можно грузануть jpeg. Лучше не выпендриваться и через файл.
ну Ваши сомнения вас не подводят, таким образом ничего не получается.
как вобщем то и такой код, тоже возвращает пустоту.
C++
1
2
3
TMemoryStream *Stream = new TMemoryStream;
IdHTTP1->Get("http://connect.ua/captcha?k=4dd239568c6735.71487816", Stream);
Memo1->Lines->LoadFromStream(Stream);
в мемо пустота

а как тогда еще можно реализовать ?
0
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
17.05.2011, 17:08
Цитата Сообщение от koldun Посмотреть сообщение
а как тогда еще можно реализовать ?
Я же дал код
C++
1
2
3
4
5
TMemoryStream *Stream=new TMemoryStream;
IdHTTP1->Get("http://connect.ua/captcha?k=4dd239568c6735.71487816",Stream);
Stream->SaveToFile("c:\\1.jpg");
Image1->Picture->LoadFromFile("c:\\1.jpg");
delete Stream;
Чтобы Jpeg грузился в TImage не забывайте про
C++
1
#include <jpeg.hpp>
2
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477
17.05.2011, 18:26  [ТС]
выловил еще одну фиговину

когда отправляется запрос с капчей выкидывает ошибку как на картинке.

Но самое интересное, что информация к сайту доходит! сайт ее понимает! и если запустить заново прогу, то все начинается в нормальном режиме...
и еще одно, если капчу ввести неправильно, то ошибки нету, просто идет перерисовка картинки.

пробовал отловить снифером как общаются сайт при пересылке капчи, происходит абсолютно идентичная картина!!

как можно сделать, что бы хоть ошибки не выскакивало ?
Миниатюры
Загрузить картинку из интернета.  
0
return (true);
 Аватар для mimicria
1977 / 1112 / 221
Регистрация: 19.04.2011
Сообщений: 2,346
17.05.2011, 18:40
Цитата Сообщение от koldun Посмотреть сообщение
как можно сделать, что бы хоть ошибки не выскакивало ?
Использовать try...catch
1
145 / 100 / 6
Регистрация: 11.03.2010
Сообщений: 477
17.05.2011, 19:03  [ТС]
никогда не использовал try...catch, и наверно даже потому что не знал как

а тут с первого раза заработало, и спасибо тебе большое mimicria, ошибки больше не вылетает
0
0 / 0 / 0
Регистрация: 05.06.2012
Сообщений: 27
14.06.2012, 11:06
Цитата Сообщение от mimicria Посмотреть сообщение
Я же дал код
C++
1
2
3
4
5
TMemoryStream *Stream=new TMemoryStream;
IdHTTP1->Get("http://connect.ua/captcha?k=4dd239568c6735.71487816",Stream);
Stream->SaveToFile("c:\\1.jpg");
Image1->Picture->LoadFromFile("c:\\1.jpg");
delete Stream;
Чтобы Jpeg грузился в TImage не забывайте про
C++
1
#include <jpeg.hpp>
а если всеравно ругается на ваш код пользуюсь Rad 2010
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.06.2012, 11:06
Помогаю со студенческими работами здесь

Загрузить большую картинку в ImageList
Проблема в том, что при сохранении проекта, который имеет ImageList с картинкой, ну хотя бы 500х500 билдер зависает и закрывается. Из-за...

Как из TImage1 загрузить картинку в graphics
Ребят, подскажие как картинку с TImage (туда я добавляю картинку) использовать ее в похожем коде Graphics::TBitmap *bitmap1=new...

Как в ячейку StringGrid загрузить картинку?
Доброго времени суток, подскажите пожалуйста какой компонент использовать для того чтоб в стрингГрид загрузить картинку ? тоесть я в...

Как загрузить картинку в базу данных
Не получается загрузить картинку из Image в базу данных Access. В Access создано поле (для хранения картинок) с типом данных Поле объекта...

Как загрузить картинку с интернета?
Пожалуйста подскажите как загрузить картинку с интернета, а то какие примеры не беру везде ошибки.. Image:=TImage.Create(Item); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru