Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Изображение PNG 
V
    Опции темы
eldar22
Дата 24.9.2008, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Вот проблема
есть скрипт по адресу

http://wwww.сайт.ru/captcha/imagebuilder.php

если отправить GET запрос по этому адресу появиться изображение в формате PNG

Как это  изображение отобразить в компоненте Image1?

 smile 

Это сообщение отредактировал(а) eldar22 - 24.9.2008, 19:20
PM MAIL WWW   Вверх
Akina
Дата 24.9.2008, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Отправить запрос из Internet Transfer Control, полученный ответ передать в ImageBox 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
eldar22
  Дата 25.9.2008, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Я отправил get  запрос
Код

Private Sub Command3_Click()
Dim strURL As String
Dim strHeader As String





strURL = "http://wwww.сайт.ru/captcha/imagebuilder.php"
strHeader = "Content-Type: application/x-www-form-urlencoded" & vbNewLine & _
"conection:keep-alive" & vbNewLine & _
"Referer: http://www.site.ru/" & vbNewLine & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"




Inet1.Execute strURL, "GET" , strHeader




А вот как полученный ответ передать в ImageBox?
PM MAIL WWW   Вверх
ProgramerForever
  Дата 1.10.2008, 12:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5
Насколько мне известно, ImageBox не поддерживает формат PNG. Для отображения в ImageBox нужно предварительно конвертировать PNG в BMP, JPEG, GIF или другой совместимый формат. Конвертировать можно с помощью библиотеки GDI+. Сам пробовал написАть конвертер с этой библиотекой - ничего не получилось, что-то в системе не так - VB постоянно слетал smile .
PM MAIL WWW ICQ   Вверх
eldar22
Дата 2.6.2009, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Вопрос в силе

 как полученный ответ передать в ImageBox или PictureBox?

Вот get запрос

Код

Dim strURL As String
Dim strToASP As String
Dim strHeader As String

strHeader = "Host: filgab.ex6.ru" & vbNewLine & _
            "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRSPUTNIK 2, 0, 1, 90 SW; MRA 5.4 (build 02620); .NET CLR 2.0.50727; Dealio Toolbar 3.4; InfoPath.1)" & vbNewLine & _
            "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine & _
            "Accept-Language: ru,en-us;q=0.7,en;q=0.3" & vbNewLine & _
            "Accept-Encoding: gzip,deflate" & vbNewLine & _
            "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
            "Keep-Alive: 300" & vbNewLine & _
            "Referer: http://filgab.ex6.ru/" & vbNewLine & _
               "Connection: keep-alive" & vbNewLine



strToASP = ""

strURL = "http://filgab.ex6.ru/engine/modules/antibot.php"
Inet1.Execute strURL, "get", strToASP, strHeader
PM MAIL WWW   Вверх
neic
Дата 2.6.2009, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
Сам долго искал. Вот хороший компонент (или библа не помню уже)

Присоединённый файл ( Кол-во скачиваний: 22 )
Присоединённый файл  PNG___VB6.ZIP 37,89 Kb
PM MAIL WWW ICQ Skype   Вверх
eldar22
Дата 3.6.2009, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
neic за компонент и пример спасибо
Вот только вопрос все равно в силе остаётся ну не как не могу передать ответ PictureBox
PM MAIL WWW   Вверх
neic
Дата 3.6.2009, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
Эммм...ну у Inet1 должно быть событие в котором тебе и передаст ответ.
Проверить не могу, IE7 стоит, а удалять влом.
PM MAIL WWW ICQ Skype   Вверх
eldar22
Дата 3.6.2009, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Ладно попробую по другому объяснить

Это организованно на Delphi

Код

procedure TForm1.Button1Click(Sender: TObject);
var
f:tfilestream;
Im: TJpegImage;
begin



Im := TJpegImage.Create;
f:=tfilestream.Create('c:\temp.jpeg',fmcreate);

IdHTTP1.get('http://filgab.ex6.ru/engine/modules/antibot.php',f);

f.Free;

image1.Picture.LoadFromFile('c:\temp.jpeg');
end;

end.


Как на vb организовать это?
PM MAIL WWW   Вверх
Akina
Дата 3.6.2009, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
eldar22, озаботьтесь прочитать ВСЮ справку по контролу, а не первые две буквы. Особенно обратите внимание на методы OpenURL и GetChunk


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
neic
Дата 3.6.2009, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
Цитата(eldar22 @  3.6.2009,  12:00 Найти цитируемый пост)
Как на vb организовать это? 

Да я понял, что ты хочешь, но ни чем не могу помочь из-за сломаного Inet =(
А делфи я знаю на уровне текстбоска =)
PM MAIL WWW ICQ Skype   Вверх
eldar22
Дата 3.6.2009, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
GetChunk

Код

Private Sub Command1_Click()
  Dim strURL As String
Dim strToASP As String
Dim strHeader As String

strHeader = "Host: www.filgab.ex6.ru" & vbNewLine & _
            "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 MRA 5.4 (build 02620) Firefox/3.0.10" & vbNewLine & _
            "Accept: image/png,image/*;q=0.8,*/*;q=0.5" & vbNewLine & _
            "Accept-Language: ru,en-us;q=0.7,en;q=0.3" & vbNewLine & _
            "Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7" & vbNewLine & _
            "Keep-Alive: 300" & vbNewLine & _
            "Referer: http://filgab.ex6.ru/" & vbNewLine & _
            "Connection: keep-alive" & vbNewLine



strToASP = ""

strURL = "http://filgab.ex6.ru/engine/modules/antibot.php"
Inet1.Execute strURL, "get", strToASP, strHeader
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As String
Select Case State
Case icResponseCompleted
    vtData = Inet1.GetChunk(1024, icString)
    RichTextBox1.Text = ""
    Do While LenB(vtData) > 0
        RichTextBox1.Text = RichTextBox1.Text & vtData
        vtData = Inet1.GetChunk(1024, icString)
    Loop
Case icError
    Inet1.Cancel
    RichTextBox1.Text = "Error Raised."
Case Else
End Select
End Sub



Ну все равно изображение не появляеться даже в текстовом варианте
PM MAIL WWW   Вверх
Akina
Дата 3.6.2009, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(eldar22 @  3.6.2009,  16:51 Найти цитируемый пост)
изображение не появляеться даже в текстовом варианте 

Ты хочешь сказать, что ничего в RichTextBox1 не поступает? приведённый код должен поместить в него HTML-текст страницы. Откуда надо отпарсить URL капчи и запросить её вторым запросом.

Но скорее всего ты там ещё и с хедерами лишнего напахал. Разбираться лень, просто скажи - а нахрена они вообще нужны? неужели без них не работает?

Попробуй текст получить через OpenURL. А вот саму капчу потом - уже с помощью GetChunk.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
eldar22
Дата 3.6.2009, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1
Если строку strURL = "http://filgab.ex6.ru/engine/modules/antibot.php" изменить на это
strURL = "http://filgab.ex6.ru"
То html получит, но мне нужна сама капча 

Цитата

Откуда надо отпарсить URL капчи и запросить её вторым запросом.


Зачем парсить url капчи это уже слишком

Капча jpeg формата 
И ещё на Delphi это организоваеться  очень легко не надо парсить 
Неужели vb такое организовать нельзя без парсинга
PM MAIL WWW   Вверх
Akina
Дата 3.6.2009, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
eldar22, значит так... если ты в БРАУЗЕРЕ набираешь это своё http://filgab.ex6.ru/engine/modules/antibot.php - что получаешь в ответ? картинку? URL при этом в строке меняется? и что видишь, если попросишь исходный HTML-текст?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0589 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.