VPF::Получение картинки кода защиты

aktuba

Дата 25.9.2007, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Delphi 7? =)

--------------------

ishimcity

Дата 25.9.2007, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

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

Я сейчас работаю через прокси,возможно в ней проблема?! попробую код дома еще...

Добавлено через 22 секунды
Да 7 версия

aktuba

Дата 25.9.2007, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Дело не в прокси, а именно в версии Delphi. На 7-ке у меня тоже такая проблема была. Надо попробовать обновить jpeg-модуль, наверное... Хотя мне это делать не пришлось, т.к. я в это время как-раз перешел на турбу.

--------------------

ishimcity

Дата 25.9.2007, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

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

OK.... Спасибо огромное . дома у меня все версии делфи есть буду пробвать .......

ishimcity

Дата 25.9.2007, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

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

aktuba Огромное спаибо...все работает на делфи 2006...но еще есть вопросик. можно тебе на аську написать?

aktuba

Дата 25.9.2007, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата

можно тебе на аську написать?

Конечно =) Она же публично выложена...

--------------------

In4matik

Дата 28.9.2007, 08:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Здравствуйте. Тему вы очень интересную развили.

Давно вот уже были задумки по этому поводу. Как посмотреть картинку со странички, это еще пол беды. У меня проблемка еще покруче. Мож кто подскажет.

В общем, на страничке есть эта самая картинка с кодом, но она появляется не сразу, а при помощи каких-то скриптов выводится через некоторое время после обращения к странице.

http://www.uploading.com/ru/files/6G25DDT3/arhiv.rar.html

вот мне надо после того как эти долбанные 40 секунд пройдут эту картиночку изъять. или хотябы адрес ее.

firs70

Дата 4.12.2007, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

In4matik, сейчас на уплоадинге отключен ввод картинки...
так что прсото лезишь в код страницы и берёшь её.
Если в ломак что то ковырять юзай проги например FullURL

In4matik

Дата 5.12.2007, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

На аплоэдинг.ком картинки отключили дня через 3-4, после того как я здесь о нем написал smile

И интерес к нему сразу же пропал.
Зато картинки пригодились в другом месте.

http://in4matik-krsk.narod.ru/sms.htm

firs70

Дата 6.12.2007, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

да кстати никто не подскажет как очистить поле где картинка была загружена?

aktuba

Дата 6.12.2007, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата(firs70 @ 6.12.2007, 18:18

)

да кстати никто не подскажет как очистить поле где картинка была загружена?

т.е.?

--------------------

Anakin

Дата 12.12.2007, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

У меня возник вопрос. Я отснифил два результата мой и сайта.
ВОт два результата.
Мой:

Код


phonePrefix=373791&phoneNumber=33026&message=TextSMS&pictureCode=787405&sendSms&HTTP/1.1 200 OK

Вот с сайта:

Код


phonePrefix=373791&phoneNumber=33026&message=test&pictureCode=084108&type=sendSms&publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4&url=%2FsendSms%2Fsent%2F&langUrl=%2Frus%2F&sendSmsSubmit=HTTP/1.1 302

Соответственно у меня появляется вопрос.
Вопрсо номер:
1)Почему у меня в конце HTTP/1.1 200 OK а на сайте HTTP/1.1 302
2)Вот этот строка в оригинальном снифе 9f075aa8-c99f-4368-afe3-9940628e1dd4 есть не что иное как имя фаила без расширения.
как мне его получить.
Использую пример найденый на данном форуме. вот код получения картинки

Код


procedure TfrmMain.btn_askimgClick(Sender: TObject);
var
pos1,pos2,pos3:integer;
img:string;
begin
Application.ProcessMessages;
IdAnti.Process;
try
get := HTTP.Get('http://www.moldcell.md/rus/sendsms/');
except
Application.MessageBox('Типа Эрор','Error',mb_OK);
end;
pos1 := pos('SRC="..',get);
delete(get,1,pos1+7);
pos2 := pos('"',get);
img := 'http://www.moldcell.md/securePicture/' + copy(get,1,pos2-1);
GetInetFile(img,'9ir3rs3ZWI.jpg');
image1.picture.LoadFromFile('9ir3rs3ZWI.jpg');

end;

МОжет кто то подсказать как мне это дело наладить.
Зарание Огромное человеческое Спасибо.

MetalFan

Дата 12.12.2007, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

Anakin,
1. создай отдельную тему.
2. При чем тут ответ от сайта? сравнивай, что отсылаешь ты и браузер

--------------------

There are always someone smarter than you...

Anakin

Дата 12.12.2007, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Да дело в том что это касаетса этой темы так как это тоже самое. Я ведь получаю код картинки с защитой, и потом пытаюсь его отправить.
Ты прочитай внимательней может поймешь.

Цитата

2. При чем тут ответ от сайта? сравнивай, что отсылаешь ты и браузер

А ты почитай внимательней. Я вопрос задал корректно. И по теме.
Повторяю этот вопрос относится к данному топику так как он связан с кодом защиты получаемым от сайта.

In4matik

Дата 12.12.2007, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(Anakin @ 12.12.2007, 10:05)

У меня возник вопрос. Я отснифил два результата мой и сайта.

Во-первых, какие результаты ты снифил? По методу ГЕТ?

попробуй из программы получить текст этого сайта и вывести его тупо в мемо. Я именно так разбирался.

Картинку ищи вот по такой части текста "src="/securePicture/" и потом опять до ковычек.
Тогда точно нужная картинка будет.

Я делал вот так:

Код


procedure TfMegaFonSib.GetInetPicture(sender: TObject);
const
  c_url='antirobot/?q=';
var
  txt,ris: string;
  sPos, fPos: Integer;
  ltxt: Integer;
  lStream: TMemoryStream;
  jpg: TJPEGImage;
begin
  Panel1.Caption:='Загрузка... Ждите...';
  Panel1.Font.Color:=clRed;
  Panel1.Update;
  Application.ProcessMessages;
  try
    txt:=IdHTTP1.Get('http://megafonsib.ru/sendsms');
  except
    MessageDlg('Сервис недоступен!'+chr(13)+'Проверте соединение с Интернет!',mtError,[mbOk],0);
    Panel1.Caption:='Сервис недоступен..';
    exit;
  end;
  sPos := Pos(C_Url, txt);
  if sPos > 0 then
    begin
      ltxt := Length(C_Url);
      Inc(sPos, ltxt);
      fPos := sPos;
      while (fPos <= ltxt) and (txt[sPos] <> '"')
        do Inc(fPos);
      ris:=Copy(txt, sPos, 7);
      Label1.Caption:=ris;
      if ris <> '' then
        begin
          lStream := TMemoryStream.Create;
          jpg := TJPEGImage.Create;
          try
            IdHTTP1.Get(C_Url + ris, lStream);
            lStream.Position := 0;
            jpg.LoadFromStream(lStream);
            Image1.Picture.Bitmap.Assign(jpg);
          finally
            jpg.Free;
            lStream.Free;
          end;
        end;
    end;
  Panel1.Caption:='Всё готово!';
  Panel1.Font.Color:=clWindowText;
  Panel1.Update;
  Application.ProcessMessages;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »