Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.06.2009, 13:50
doctorhouse1 doctorhouse1 вне форума
Прохожий
 
Регистрация: 19.06.2009
Сообщения: 4
Репутация: 10
По умолчанию Пишу SMS-sending на Delphi

Я кидаю на форму
WebBrowser,
Combobox1-сдесь мы выбираем оператора сотовой связи. При выборе оператора в Combobox2 передаются численные значения 913; 904 и так далее,
RxRichEdit-сюда послыаются сообщения,
Memo-сдесь мы пишем эти сообщения,
Edit- мы прописываем номер,
Combobox2-циферки,
SpeedButton1-для отправки сообщения\сообщений.
Теперь по существу Есть 3 страницы
http://sms.tele2.ru/Default.aspx
http://sms.mts.ru/?_openstat=aG9tZTt...tzbXM7Y3VzdA==
http://www.beeline.ru/sms/index.wbp
Вопрос в следующем на каждой странице есть так называемое поле с паролем и возле него картинка как определить эту картинку?
Я понимаю что это относитсо к нейросетям, но там я нашел пример только как сделать так чтобы он читал, что на картинке выводил циферки или буковки с той или иной вероятностью. Мне же, как то надо осуществить поиск на сайте данной картинки и ее просканировать. Может кто нибудь знает как это можно сделать.

Последний раз редактировалось doctorhouse1, 19.06.2009 в 13:53.
Ответить с цитированием
  #2  
Старый 19.06.2009, 15:11
Аватар для mak-karpov
mak-karpov mak-karpov вне форума
Активный
 
Регистрация: 18.09.2008
Сообщения: 235
Версия Delphi: 2010 и 7
Репутация: 1242
По умолчанию

1. Делиш изображение на 4 части.
2. Проходиш по всем пискелям картинки и сравниваешь
Пусть с - цвет пикселя эталона, а с1 - изображения.
Тогда:
Код:
c := (GetRValue(c) + GetGvalue(c) + GetBValue(c)) div 3;
c1 := (GetRValue(c1) + GetGvalue(c1) + GetBValue(c1)) div 3;
sum := sum + Abs(c-c1);
3.У кого sum окажется меньше, тот и победил
Ответить с цитированием
  #3  
Старый 19.06.2009, 16:45
doctorhouse1 doctorhouse1 вне форума
Прохожий
 
Регистрация: 19.06.2009
Сообщения: 4
Репутация: 10
По умолчанию

Собственно говоря ты не понял на этих сайтах много картинок как найти именно ту на которой есть изображение с кодом
как это определить
Ответить с цитированием
  #4  
Старый 19.06.2009, 16:46
doctorhouse1 doctorhouse1 вне форума
Прохожий
 
Регистрация: 19.06.2009
Сообщения: 4
Репутация: 10
По умолчанию

или я не понял чего
Ответить с цитированием
  #5  
Старый 19.06.2009, 20:14
Аватар для mak-karpov
mak-karpov mak-karpov вне форума
Активный
 
Регистрация: 18.09.2008
Сообщения: 235
Версия Delphi: 2010 и 7
Репутация: 1242
По умолчанию

Попробуй поискать Pos'ом в исходном коде типа
Pos('<img src=''codes\'''', source)
Вобщем путь к папке с картинками.
Ответить с цитированием
  #6  
Старый 19.06.2009, 21:12
Аватар для uberchel
uberchel uberchel вне форума
Прохожий
 
Регистрация: 25.02.2009
Сообщения: 18
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Если надо просто скачать картинку (каптчу), то вот код:
Код:
uses JPEG;
procedure TForm1.Button2Click(Sender: TObject);
var
  St: TMemoryStream;
begin
 St:= TMemoryStream.Create;
 idHttp1.Get('http://sms.tele2.ru/controls/ImageCode.aspx',St); // C теле 2
 St.SaveToFile('C:\' + DateToStr(now) + '.jpg');
 Image5.Picture.LoadFromFile('C:\' + DateToStr(now) + '.jpg');
 St.Free;
end;

Последний раз редактировалось uberchel, 19.06.2009 в 21:15.
Ответить с цитированием
  #7  
Старый 20.06.2009, 09:33
doctorhouse1 doctorhouse1 вне форума
Прохожий
 
Регистрация: 19.06.2009
Сообщения: 4
Репутация: 10
По умолчанию

Вы хоть читали задание почему вы все начинаете читать с конца. Скачивать картинку не надо надо написать каким то образом поиск именно той картинки на которой записан код. Как это сделать????
Ответить с цитированием
  #8  
Старый 20.06.2009, 14:39
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Tele2 100 х 20 пикселей
МТС 184 x 50 пикселей
Билайн 60 x 19 пикселей

помоему данной информации более чем достаточно, что-бы среди картинок на сайте найти нужную.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 20.06.2009 в 14:54.
Ответить с цитированием
  #9  
Старый 22.06.2009, 21:19
Аватар для PESTS
PESTS PESTS вне форума
Новичок
 
Регистрация: 04.05.2008
Сообщения: 54
Репутация: 11
По умолчанию

балваны ему надо картинку-капчу найти и скачать
Пиши в асю объясню 449766476

PS:Надо вначале загрзить html документ где находиться ввод текста смс и т.д. и там находиться ссылка на картинку-капчу
__________________
Маленький мальчик пришёл на систопку
Линукс отстой крикнул он громко
Долго пинали мёртвое тело
Не кто вступился, били за дело
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:47.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025