Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 19.04.2009, 11:27   #1
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию Загрузка капчи в image

Привет всем!
Помогите пожалуиста, вывести капчу в image.
Имеется код который выводит её в WebBrowser
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.megafonkavkaz.ru/svg-images/238139135204441013526516608834499460247.png?')
end;

end.
А мне надо чтоб он вывел в image
Заранее спасибо!
mustang007 вне форума
Старый 19.04.2009, 11:57   #2
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

размещаеш на форме idhttp
потом
...
Код:
var
stream:tmemorystream;
begin
stream:=tmemorystream.create;
idhttp1.get('http://www.megafonkavkaz.ru/svg-images/238139135204441013526516608834499460247.png?',stream);
stream.savetofile('любой путь\1.png');
image1.picture.loadfromfile('любой путь\1.png');
stream.free;
end;

Последний раз редактировалось Joe_Tribbiani; 19.04.2009 в 12:11.
Joe_Tribbiani вне форума
Старый 19.04.2009, 12:01   #3
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Может я что-то не так делаю но он тут даёт ошибку
Код:
stream.savetofile(path);
image1.picture.loadromfile(path);
Говорит:
[Ошибка] Unit1.pas(36): Undeclared identifier: 'path'
[Ошибка] Unit1.pas(37): Undeclared identifier: 'loadromfile'
mustang007 вне форума
Старый 19.04.2009, 12:10   #4
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

извини, я просто печатал вручную...))
loadfromfile
а path - это любой путь куда программа сохраняет капчу напримерЖ
e:\1.png

Последний раз редактировалось Joe_Tribbiani; 19.04.2009 в 12:16.
Joe_Tribbiani вне форума
Старый 19.04.2009, 12:26   #5
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Ну вот что он мне даёт

и синим цветом stream.free; выделяет
mustang007 вне форума
Старый 19.04.2009, 12:42   #6
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

хм... ну значит image не поддерживает формат png
попробуй подкулючит в разделе uses модуль PNGimage
Joe_Tribbiani вне форума
Старый 19.04.2009, 13:01   #7
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Ну работает но не так как хочется!он сначало сохраняет картинку а потом ошибку даёт что не может её открыть!
mustang007 вне форума
Старый 19.04.2009, 13:11   #8
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Код:
var
stream:tmemorystream;
begin
stream:=tmemorystream.create;
idhttp1.get('http://www.megafonkavkaz.ru/svg-images/238139135204441013526516608834499460247.png?',stream);
stream.savetofile('любой путь\1.png');
stream.free;
image1.picture.loadfromfile('любой путь\1.png');
end;
сначала освобождайте файл, потом уже его открывайте. Да и не нужен вам файл, грузите из потока, к чему плодить файлы, которые вы все равно забудете удалить
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума
Старый 19.04.2009, 13:13   #9
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

я только что у себя скомпилировал, всё отлично работает, говорю же
подключи в разделе uses модуль PNGimage

Цитата:
. Да и не нужен вам файл, грузите из потока
а как загрузить из потока...? (меня это тож интересовало)
у image нет функции loadfromstream()

Последний раз редактировалось Joe_Tribbiani; 19.04.2009 в 13:15.
Joe_Tribbiani вне форума
Старый 19.04.2009, 13:20   #10
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Цитата:
подключи в разделе uses модуль PNGimage
Уже пробывал!
[Фатальная ошибка] Unit1.pas(26): File not found: 'PNGimage.dcu'
mustang007 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обход капчи kobe24 Общие вопросы по программированию, компьютерный форум 13 09.03.2009 20:28
Загрузка в Image и считование Cookies Volt Общие вопросы Delphi 0 04.02.2009 15:42
Загрузка .ico на image через Resource delphin100 Мультимедиа в Delphi 6 28.01.2009 18:44
Вывод капчи, работа с куками. NikLik Работа с сетью в Delphi 3 10.10.2008 11:58
Image, загрузка JPEG Terran Мультимедиа в Delphi 4 19.12.2007 20:08