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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.09.2013, 15:08   #1
fucil
Форумчанин
 
Регистрация: 24.02.2010
Сообщений: 148
По умолчанию Winsock загрузка Captcha в Timage

1) Делаю GET на каптчу, получаю контент все ок
2) Вырезаю тело капчи:
Код:
pngSteem:=Copy(buf,Pos(br+br,buf)+4,Length(buf)-Pos(br+br,buf)+4);
Но не пойму что дальше делать с телом, знаю что нужно загрузить его в стрим, но не пойму как это сделать !

делал так:
Код:
    
const br=#13#10;
//var
  buf,pngSteem : string;
  MS:TMemoryStream;
  png: TPngObject;


//begin
    pngSteem:=Copy(buf,Pos(br+br,buf)+4,Length(buf)-Pos(br+br,buf)+4)
    MS:=TMemoryStream.Create;
    MS.WriteBuffer(pngSteem[1], length(pngSteem));
    MS.Position:=0;
    png:=TPngObject.Create;
    png.LoadFromStream(MS);
    Image1.Picture.Assign(png);
    MS.Free;
    png.Free;
Но как мне кажется тело капчи нужно ещё конвертировать в что то а не просто грузить в стрим: например base64!
Подскажите в какую сторону копать !!!

Сам хедер с телом
Код:
HTTP/1.1 200 OK
Date: Fri, 06 Sep 2013 09:53:23 GMT
Server: Apache
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Content-Length: 4046
Keep-Alive: timeout=2, max=100
Connection: Keep-Alive
Content-Type: image/png

‰PNG

ёљГб888дееЙ{ЁЎЎЃЂ'?›рx<енњ:ujHHИ%К%й?A[[[OOЇ¶¶ЏЅ$:#3cпw{CBB<ш#*

нллЛОО«µ†††!!!襅…к0WWWCCГъgхhЇтЛћЋ¶ЋЪЈ;µ}IзПџ_ќёЪРИрЬЇзВГГСv{{ыРyЎ---¬¬’’Ѓ@ >{ц,88xНљ5иј/іЭЎP(џ*ъ,11qЧо]
Є|іgП600ёpбВ†
Г¬д
РФФ”UPz{{Y,СѓИd2СF,;00***=кчЉzZЌЁA#’љЛКМљ6/''g¤){ъфйъъъд2З
Б‚𦦦gПќe±XТuј®®.SSУ‘фWVVОќw©иТЁҐE
fucil вне форума Ответить с цитированием
Старый 06.09.2013, 16:00   #2
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

бери алгоритм из CnPack, ValidateImage
beegl вне форума Ответить с цитированием
Старый 06.09.2013, 16:13   #3
fucil
Форумчанин
 
Регистрация: 24.02.2010
Сообщений: 148
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
бери алгоритм из CnPack, ValidateImage
А по подробнее можно что то не нагуглил
fucil вне форума Ответить с цитированием
Старый 06.09.2013, 20:43   #4
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

берите CnPack и ищите компонент ValidateImage
beegl вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
загрузка в Timage удалённого файла Vervolf Общие вопросы Delphi 5 10.12.2011 11:47
Загрузка картинок в TImage Haladdin Общие вопросы Delphi 9 29.12.2010 10:32
Как загрузить captcha и поместить её в TImage Streetracer Работа с сетью в Delphi 13 06.03.2010 01:45
Загрузка в TImage program123 Общие вопросы Delphi 4 06.12.2009 15:53
Загрузка изображений в TImage DelphiFun Общие вопросы Delphi 1 09.08.2009 02:04