Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Получение картинки кода защиты

Автор: ishimcity 16.7.2007, 05:47

Здраствуйте Уважаемые програмисты,подскажите пожалусто как можно получить картинку с сайта с кодом подтверждения просто чтоб в моей проге она отображалась в Image.Спасибо

Автор: MetalFan 16.7.2007, 07:52

делаешь get в stream, затем Image.LoadFromStream...

Автор: ishimcity 16.7.2007, 09:49

Примерчик бы,если можно

Автор: sw04 16.7.2007, 10:01

ishimcity, http://drkb.ru

Автор: ishimcity 6.8.2007, 11:24

Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти?

Автор: aktuba 6.8.2007, 11:42

Цитата

Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти?

код покажи.

Автор: Snowy 6.8.2007, 12:22

Цитата(ishimcity @ 6.8.2007, 11:24

)

Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти?

Скорее всего у тебя прокся кэширует.
Нужно делать запрос с указанием 'no-cache'.

Автор: ishimcity 7.8.2007, 06:07

Вот мой код.

var
cod:TMemoryStream;
begin
Cod:=TMemoryStream.Create ;
idHTTP.Get('http://mmsuser.u-tel.ru/ctrlimg/?c=1411441260',cod);
cod.SaveToFile('C:\cod.jpg');

код сохраняется на диск чтоб потом загрузить в IMAGE.

вопще код получаю с http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend
но проблема в том что код картинки и адрес (http://mmsuser.u-tel.ru/ctrlimg/?c=1411441260) постоянно меняется,как можно его пропарсить

Автор: aktuba 7.8.2007, 06:41

Правильно, что у тебя одна и таже картинка показывается. Ты же сам запрашиваешь один и тот-же url для картинки. Для того, чтобы были разные картинки, надо скачать http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend и выдернуть оттуда новый урл...

Автор: ishimcity 7.8.2007, 08:07

О как !!!! А примерчик можно?
я так понял что нужно воспользоватся WebBrowser , я с ним мало знаком, каким образом вытянуть оттуда картинку.

Автор: ishimcity 7.8.2007, 08:24

вот немного разобрался

var
Flag: OleVariant;
begin
flag := navNoReadFromCache;
webbrowser1.Navigate('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend',flag);
end;

странички отображаются,картинки некэшируются,каждый раз новая, и чего дальше?
как мне ее взять оттуда?

Автор: ishimcity 7.8.2007, 08:44

и еще вот нашел пример а как его реализовать

uses ClipBrd;
...
procedure TForm1.LoadImage(N:integer);
var body, imgs, controlRange: olevariant;
begin
body := WebBrowser1.OleObject.document.body;
imgs := WebBrowser1.OleObject.document.images.item(N);//нужный img
controlRange := body.createControlRange;
controlRange.add(imgs);// вместо imgs можно сразу вставить WebBrowser1.OleObject.document.images.item(N)
controlRange.execCommand('Copy', False, EmptyParam);//копируем
if ClipBoard.HasFormat(CF_BITMAP) then begin
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);//вставляем
Clipboard.Clear;//по желанию чистим буфер...
end;
end;
...
initialization
OleInitialize(nil);

finalization
OleUninitialize;

end.

Автор: MetalFan 7.8.2007, 09:00

ой-ой... куда то ты не в ту сторону полез
скачиваешь страничку тем же idHTTP.Get, потом парсишь, выдираешь нужный url, и вперед

Автор: Snowy 7.8.2007, 09:08

Модератор: и кнопочкой "Код" пользоваться не забывай

Автор: ishimcity 7.8.2007, 09:47

MetalFan
Извени,но чего то я видимо недогоняю,мнеб примерчик,если можно.
PS. Вот самое интересное что такое "ПАРСИНГ" немогу понять

Автор: ishimcity 7.8.2007, 10:07

Хорошо загрузил я страничку в MEMO. Что дальше мне делать с ней?

Код


var
s:string;
begin
s:=idHTTP.Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');
memo.Lines.Text :=s;

Автор: MetalFan 7.8.2007, 10:07

Цитата(ishimcity @ 7.8.2007, 09:47

)

что такое "ПАРСИНГ"

http://ru.wikipedia.org/wiki/%D0%A1%D0%B8%D0%BD%D1%82%D0%B0%D0%BA%D1%81%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B9_%D0%B0%D0%BD%D0%B0%D0%BB%D0%B8%D0%B7

тебе надо выделить подстроку из строки по определнному признаку

Автор: ishimcity 7.8.2007, 10:34

Насколько я понял вот картинка http://mmsuser.u-tel.ru/ctrlimg/?c=0084280581 но она меняется постоянно вот это место 0084280581

Автор: MetalFan 7.8.2007, 11:26

ishimcity, ну тогда алгоритм такой: находишь неизменяемую часть строки, копируешь код до опред.символа...

Автор: MetalFan 7.8.2007, 11:48

Я в свое время налабал для своих нужд(выдирание определенной строки с html странички) нечто подобное:

Код


uses QStrings;
...
   function ExtractFromString( const ASourceString, AFromString, AToString: string; var AResultString: string;AFromPos: Integer = 0; const APrevString: string = ''): integer;
   var
     lPos1, lPos2: Integer;
     lTmpStr: string;
   begin
     Result := 0;
     if (ASourceString = '') or
        (AFromString = '') or
        (AToString = '') then Exit;
     if APrevString <> '' then
     begin
       lPos1 := Q_PosStr(APrevString, ASourceString, AFromPos);
       if lPos1 = 0 then Exit;
       lPos1 := lPos1 + Length (APrevString);
     end
     else
       lPos1 := AFromPos;
     lPos1 := Q_PosStr(AFromString, ASourceString, lPos1);
     if lPos1 = 0 then Exit;
     lPos1 := lPos1 + Length( AFromString );
     lPos2 := Q_PosStr(AToString, ASourceString, lPos1 + 1);
     if lPos2 = 0 then Exit;
     Result := lPos1;
     AResultString := Q_CopyRange(ASourceString, lPos1, lPos2 - 1);
   end;

только модуль QStrings надо будет слить.
описание:

Код


function ExtractFromString( const ASourceString, 
                                                     AFromString, 
                                                     AToString: string; 
                                                     var AResultString: string;
                                                     AFromPos: Integer = 0; 
                                                     const APrevString: string = ''): integer;

  ASourceString - тут понятно. исходный текст, допустим html странички
  AFromString, AToString - подстроки, между которыми должна находиться необходимая подстрока
  AResultString - найденная подстрока
  AFromPos - искать с некоторой позиции. используется при нескольких последовательных вызовах для поиска с одинаковыми условиями
  APrevString - если указана, то сначала ищется данная подстрока, и только затем с позиции после нее продолжается поиск по условиям выше
  Result - если найдена подстрока - то порядоквый номер первого символа, иначе - 0

пример использования в твоем случае

Код


const 
  C_Prefix = 'http://mmsuser.u-tel.ru/ctrlimg/?c=';
...
  lPos := ExtractFromString( lHTMLString, C_Prefix, '>', lCode );
  if lPos > 0 then
    lLink := C_Prefix + lCode
  else
   lLink := '';

основываясь на соображении, что нужный линк заканчивается '>'

Автор: MetalFan 7.8.2007, 12:08

з.ы. в принципе можно наверное и RegExp прикрутить... но я с ними пока не сталкивался и ничо посоветовать не могу(

Автор: aktuba 7.8.2007, 15:06

Попробую написать навскидку:

Код


function GetUrl: string;
const
  C_Url='http://mmsuser.u-tel.ru/ctrlimg/?c=';
var
  txt: string;
  sPos, fPos: Integer;
  ltxt: Integer;
begin
  Result := '';
  txt := IdHTTP.Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');
  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);
      Result := Copy(txt, sPos, fPos - sPos);
    end;
end;

Писал прямо в браузере, поэтому могут быть ошибки... Но идея должна быть понятна...

Автор: ishimcity 8.8.2007, 05:47

Да огромное спасибо но во в этом месте мне что то непонятно.

Код


txt := Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');

я предположил что там должен быть метод idHTTP но увы делфи сообщила что у его нет такого оператора GET,загадка.....видимо в функции он не так работат,ну это пол беды. буду ковырять дальше

Автор: MetalFan 8.8.2007, 08:42

ishimcity, aktuba привел прототип(пример) кода. естественно тебе нужно вызвать Get у используемого тобой HTTP компонента.

Автор: aktuba 8.8.2007, 12:32

Цитата

aktuba привел прототип(пример) кода

Я это понял. Но использовать в подобном случае дополнительную библиотеку+столько кода - лишнее. Я дал вариант попроще и понятнее.

Цитата

но увы делфи сообщила что у его нет такого оператора GET

IdHTTP.Get.

Автор: ishimcity 9.8.2007, 13:38

Спасибо ребята всем +, но всеже видимо непозубам мне это все сделать smile

жаль.... неполучается нечего

Автор: aktuba 9.8.2007, 15:31

Цитата

жаль.... неполучается нечего

покажи свой код.

Автор: ishimcity 25.9.2007, 10:11

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

Код


procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://mmsuser.u-tel.ru/ctrlimg/?c=';
var
  txt,ris: string;
  sPos, fPos: Integer;
  ltxt: Integer;
begin
  txt := Id.Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');
  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, 10);
      
    end;

      end;
end.

ris - Это адрес картинки

Автор: aktuba 25.9.2007, 12:32

Цитата

картинка меняется а у меня адрес один и тотже остается ,что мне сделать вот мой код..

Какой адрес??? smile

Тебе же картинку получить надо было... У меня твой код работает нормально...

Автор: ishimcity 25.9.2007, 12:58

а у меня JPEG Error #42
Чего это он хочет?
smile

Автор: aktuba 25.9.2007, 13:07

Delphi 7? =)

Автор: ishimcity 25.9.2007, 13:10

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

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

Автор: aktuba 25.9.2007, 13:16

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

Автор: ishimcity 25.9.2007, 13:21

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

Автор: ishimcity 25.9.2007, 16:00

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

Автор: aktuba 25.9.2007, 22:41

Цитата

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

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

Автор: In4matik 28.9.2007, 08:58

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

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

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

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

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

Автор: firs70 4.12.2007, 17:07

In4matik, сейчас на уплоадинге отключен ввод картинки...
так что прсото лезишь в код страницы и берёшь её.
Если в ломак что то ковырять юзай проги например http://www.zeke.ru/2007/12/03/fullurl_version_109_obnovlenie_ot_31207.html

Автор: In4matik 5.12.2007, 12:43

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

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

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

Автор: firs70 6.12.2007, 17:18

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

Автор: aktuba 6.12.2007, 19:27

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

)

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

т.е.?

Автор: Anakin 12.12.2007, 10:05

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

Код


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

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

Автор: Anakin 12.12.2007, 11:21

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

Цитата

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

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

Автор: In4matik 12.12.2007, 12:48

Цитата(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;

Автор: MetalFan 12.12.2007, 12:51

Цитата(In4matik @ 12.12.2007, 12:48

)

Application.ProcessMessages;

а это на кой?

Автор: Anakin 12.12.2007, 14:29

2 In4matik Хм.. а что идея не плохая. )) Гораздо лутше чем эта что я использую. Тут я смотрю в твоём примере мы загоняем картинку с Стрям(Память) а не в фаил.
А я использую фаил..
Но твой пример мне гораздо больше нравитса. Спасибо шас буду попробую прикрутить это дело smile

Дело в том что я то пулучаю картинку хоть и через сохранение его на диск и потмо считование. Но он работает. Но тут дело в то что вот я смотрю на сайте имя картинки в её своиствах и оно выглядит так :

Код


9f075aa8-c99f-4368-afe3-9940628e1dd4.jpg

а если присмотретса в том снифе что я указал там присутствует ещё типа защита такая. Она зараза использует ещё имя картинки тока без расширения.
Вот:

Код


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

Вот теперь вопрос как можно с использованием твоего примера мне выдрать ещё и имя фаила без расширения и вставить его в параметр как в снифе publicGuid=
Я вот сижу и не могу доехать как это реализовать (
Етсть идей ?
Умные блин эти веб програмисты.. (( Но я думаю что наши програмисты круче smile

(кним я себя не приписываю молодой я ещё в этом деле )

Автор: Anakin 12.12.2007, 14:51

Нет Ишибочка расширения там нету там роста такой код:

Код


9f075aa8-c99f-4368-afe3-9940628e1dd4

Я осмотрелса ( домал что там ещё присутствует расширение.
а там просто этиа строка. и этаже строка используетса для верификации тоесть при отправке на сервис используетса эта строка.

Автор: Anakin 12.12.2007, 16:10

Так с вставкой и вытаскиванием этого кода я разобралса.
Спасибо за это In4matik.
Но есть один недостаток.
Вот Сниф правельного отправления:

Код


publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4

А вот сниф моего:

Код


publicGuid=7c029710%2D5551%2D4e56%2D8fc1%2D5019c9471143

Видите разницу.
Вместо - между символами в строке ставитса это %2D
Пытаюсь отправить данные так:

Код


procedure TfrmMain.btn_sendsmsClick(Sender: TObject);
var
Post:TStrings;
Q:string;
pos1,pos2:integer;
begin
Application.ProcessMessages;
IdAnti.Process;
Post := TStringList.Create;
Post.Clear;
Post.Add('phonePrefix='+cmb_prefix.Text);
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
post.Add('type=sendSms');
post.Add('publicGuid='+ris);
post.Add('sendSmsSubmit');

Q := HTTP.Post('http://www.moldcell.md/rus/sendsms/',Post);
pos1 := pos('ОТправлено',Q);
if pos1<>0 then
begin
Application.MessageBox('Отправлено','sms',mb_OK);
end
else
begin
Application.MessageBox('Ошибка,'sms',mb_OK);
end;

Переменную ris я обявляю так:

Код



private
  ris: string;
    { Private declarations }

Подскажите что я делаю не так почему у меня вместо черточек появляютса эти символы (

Автор: MetalFan 12.12.2007, 18:40

что-то у индей есть про hoForceEncodeParams... посмотри. убери ее

Автор: In4matik 13.12.2007, 07:55

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

Вот Сниф правельного отправления:

Код


publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4

А вот сниф моего:

Код


publicGuid=7c029710%2D5551%2D4e56%2D8fc1%2D5019c9471143

Видите разницу.

Видим разницу smile

Поснифил я немного этот сайт.
Наблюдения:

Сниф №1:

Код


phonePrefix=373790&
phoneNumber=12345&
message=sooobchenie&
pictureCode=574851&
type=sendSms&
publicGuid=b020228c-144d-4423-afab-61b9a23bd634&
url=%2Fsendsms%2F&
langUrl=%2Frus%2F&
sendSmsSubmit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C

(конечно это всё одной строкой. я разделил, чтобы видно было)

Сниф №2

Код


phonePrefix=373790&
phoneNumber=11111&
message=%D0%A1%D0%BE%D0%BE%D0%B1%D1%89%D0%B5%D0%BD%D0%B8%D0%B5&
pictureCode=722255&
type=sendSms&
publicGuid=5464c792-f654-4d57-a8db-37750f750cb3&
url=%2FsendSms%2FerrorBadPost%2F&
langUrl=%2Frus%2F&
sendSmsSubmit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C

(здесь message=Сообщение)

Таким образом, Диагноз сайту: "Кодировка UTM-8". Отсюда и все проблемы. Хорошо еще не КОИ8р smile

Так что не расстрайвайся и делай вот такой пост:

Код


Post.Add('phonePrefix='+cmb_prefix.Text);
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
post.Add('type=sendSms');
post.Add('publicGuid='+ris);
post.Add('sendSmsSubmit=Отправить');

и еще сделай так чтобы в m_sms.text не было ни одного знака chr(13).

Добавлено через 2 минуты

Цитата(MetalFan @ 12.12.2007, 12:51)

Цитата(In4matik @ 12.12.2007, 12:48

)

Application.ProcessMessages;

а это на кой?

Без этого никак не хотело работать smile

На самом деле там на форме какие-то изменения делаются, не помню точно. это было давно и не правда smile

Автор: Anakin 13.12.2007, 09:38

2 In4matik всё сделал вроде как надо. кстате это:

Код


post.Add('sendSmsSubmit=Отправить');

не лечит программу (
вот два снифа
1) Оригинальный:

Код


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

А вот сниф программы.:

Код


phonePrefix=373791&
phoneNumber=33027&
message=test&
pictureCode=168226&
type=sendSms&
publicGuid=48c7fb25-d158-4da8-951f-b7c5b1aff318&
url=%2Fsendsms%2F&
langUrl=%2Frus%2F&
sendSmsSubmit&
HTTP/1.1 200 OK

Блин не поиму в чем дело (((
Код с картинкой видит всё нормально.
Но вот отправлять не хочет (
Вот код отправки:

Код


Post.Add('phonePrefix='+cmb_prefix.Text);
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
post.Add('type=sendSms');
post.Add('publicGuid='+ris);
post.Add('url=%2Fsendsms%2F');
post.Add('langUrl=%2Frus%2F');
post.Add('sendSmsSubmits');

Автор: In4matik 13.12.2007, 09:50

Цитата(Anakin @ 13.12.2007, 09:38)

2 In4matik всё сделал вроде как надо. кстате это:

Код


post.Add('sendSmsSubmit=Отправить');

не лечит программу (

ну не знаю тогда уже что и делать..

у меня снифер выдает всегда вот такой конец поста

Код


sendSmsSubmit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C

Я когда свою прогу делал, тоже с этим сталкивался, но не помню уже че я там намутил.

попробуй еще пост отправить как строку целую.

Код


var
s:string;
...

s:='';
s:='phonePrefix='+cmb_prefix.Text +'&';
s:=s+'phoneNumber='+cmb_Phone.Text+'&';
и т.д. и т.п.
s:=s+'sendSmsSubmit=Отправить';

потом post:)

PS: а с этого сайта вообще приходят сообщения?
PSS: еще забыл. там же эти. COOKIсы есть в посте. наверное тебе их и не хватает.
попробуй другим снифером посмотреть. у меня IEWatch.

Автор: MetalFan 13.12.2007, 11:42

я знаю, как тебе помочь: выложи здесь тестовое приложение.
кста, хороший бесплатный сниффер - http://www.fiddler2.com/fiddler2/

Автор: Anakin 13.12.2007, 12:34

Вот пример программы.
Пробовал все варенты. но полюбому не получаетса (
Сверял снифы программы и сайта они едентичны но не отправляетса (
ПОдскажите в чем дело.

Автор: MetalFan 13.12.2007, 13:37

класс. а правильный номер телефона для теста?

Автор: MetalFan 13.12.2007, 14:01

мда, отлаживал то ты не то.
адрес странички то, на который пост-запрос посылается другой.
вот с такими модификациями все заработало:

Код


...
POst.Add( 'phonePrefix='+cmb_prefix.Text );
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
Post.Add('type=sendSms');
Post.Add('publicGuid='+ris);
Post.Add('url=%2Fsendsms%2F');
Post.Add('langUrl=%2Frus%2F');
Post.Add('sendSmsSubmit=');

Q := HTTP.Post('http://www.moldcell.md/xds/default.aspx',Post);
Q := UTF8Decode( Q );
pos1 := pos('Отправлено',Q);
...

Автор: Anakin 13.12.2007, 14:14

Номер для теста 373791 33027
Шас попробую исправить твою модификацию.

Добавлено через 6 минут и 59 секунд
Всё гуд СМС отправляетса.
НО есть последствия ((
После отправки СМС выходит окнос ошибкой HTTP/1.1 302 Found но СМС доходит.
И вторая теперь проблема.когда я переключаюсь на русскую раскладку клавы Сообщение приходит пустым (
Кажетса тут с кодировкой проблема.

Автор: MetalFan 13.12.2007, 14:41

Цитата(Anakin @ 13.12.2007, 14:14

)

выходит окнос ошибкой HTTP/1.1 302 Found но СМС доходит.

Код


  idHttp.AllowRedirects := true;

Автор: Anakin 13.12.2007, 14:47

Да ошибка устранилась. И Чьито СМС дошло smile

Но вот шас попробуйте отправить с русским текстом в СМС. и оно придёт пустым.

Автор: MetalFan 13.12.2007, 14:51

Код


uses IdURI;
...
Post.Add('message='+TIdUri.ParamsEncode( UTF8Encode( m_sms.Text)));
...

Автор: Anakin 13.12.2007, 15:04

Да штука весёлая )) Делает Транслит хорошо.
Но я имел ввиду не транслит.
А что бы в смс именно приходил русский текст.
С Сайта оператора он идёт..

Автор: MetalFan 13.12.2007, 15:47

при чем тут транслит?

Автор: Anakin 13.12.2007, 15:59

А притом что вот шас ктото опять пробовал отправить текст он дошел в таком виде:
russki yazik
а мне нуна так.
Русский язык

Попробую обьяснить.
Допустим в мемо я ввожу текст в таком виде:
Это Тест СМС
вот так он и должен придти.
а с использованием твоего примера он приходит так:
Eto test SMS
несмотря на то что я ввожу его на русском. (

Автор: MetalFan 13.12.2007, 16:22

ну так разбирайся и/или создай отдельную тему. а то тут нафлудили уже не по делу

Автор: Anakin 13.12.2007, 16:30

ОК.. Спасибо игромное за помошь......
Вы мне очень помогли...

Автор: WaReZMEN 15.1.2008, 07:56

А с этои как быть? 'https://images-ssl.sourceforge.net/images/icons/prj_d.png'

Код


          lStream := TMemoryStream.Create;
          jpg := TJPEGImage.Create;
           IdHTTP1.Get('https://images-ssl.sourceforge.net/images/icons/prj_d.png', lStream);

            lStream.Position := 0;
            jpg.LoadFromStream(lStream);
            Image1.Picture.Bitmap.Assign(jpg);

то что png и jpg в даннои ситуаций не принципиально.

Автор: MetalFan 15.1.2008, 09:46

Цитата(WaReZMEN @ 15.1.2008, 07:56

)

А с этои как быть?

как быть? TIdSSLIOOpenSocketSSL + пару dll и будет тебе счастие
либо WinInet или компоненты на его основе

Автор: WaReZMEN 15.1.2008, 12:27

MetalFan, а примерчик можно и что за dll (и де их взять) ?

Автор: MetalFan 15.1.2008, 12:42

примерчик не дам - там все элементарно. просто назначаешь этот хэндлер idHTTP например. dll должны подходить под конкретную версию инди.
найти можно либо в инете, либо скачать с офсайта OpenSSL исходники и собрать самому(необходим компилятор C++)либо в установленных приложениях... я например нашел подходящие в свое время которые лежали в установленном FlashFXP

Автор: WaReZMEN 16.1.2008, 01:46

Пытаюсь заити на страницу

Код


  txt := IdHTTP1.Get('...14fb7f22-9817-4a7d-ab57-73fca4b4e418&sortBy=&bAsc=True');

А мне сообщение Range Check Error. Смотрю что успел получить там ява скрипт он потом формирует страницу... как быть подскажите?

Кстате пример с отправкои смс выдает такуюже ошибку... мож касяк в компаненте ? (Delphi 2006 версия indy 10.1.5)

Автор: MetalFan 16.1.2008, 09:11

что делать - посмотреть, что происходит внутри индейцев.
з.ы. у меня уже 10.2.3 уже давно стоит

Автор: WaReZMEN 16.1.2008, 09:13

MetalFan, а де взять то? на оф саите линка не нашел :(

Автор: MetalFan 16.1.2008, 09:32

http://www.indyproject.org/Sockets/Docs/Indy10Installation.EN.aspx

Автор: WaReZMEN 16.1.2008, 09:50

MetalFan, та и не нашел... черт сним спс... аеще вопрос как узнать что постит страница? ну тоесть я ввел код скартинки и нажимаю на кнопку отправить ... как это с эмулировать?

Автор: MetalFan 16.1.2008, 14:08

создай чтоли отдельную тему или эту почитай

Автор: In4matik 17.1.2008, 06:31

Цитата(WaReZMEN @ 16.1.2008, 09:50)

как узнать что постит страница? ну тоесть я ввел код скартинки и нажимаю на кнопку отправить ... как это с эмулировать?

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

Автор: WaReZMEN 17.1.2008, 09:06

In4matik, спасибо!

Результат снифа

Код


ctl00$MainContent$tbKod    1sqz
ctl00$MainContent$btVoting.y    15
ctl00$MainContent$btVoting.x    109
__VIEWSTATE    /wEPDwUJOTUwMzI1ODM4D2QWAmYPZBYCAgMPZBYGAgYPZBYEAgEPFgIeBFRleHQF5wI8YSBpZD0iaWRQUFNjYXJhYiIgaHJlZj0iaHR0cHM6Ly9sb2dpbi5saXZlLmNvbS9sb2dpbi5zcmY/d2E9d3NpZ25pbjEuMCZhbXA7cnBzbnY9MTAmYW1wO2N0PTEyMDA1NTAyNTImYW1wO3J2ZXI9NC41LjIxMjUuMCZhbXA7d3A9TUJJX1NTTCZhbXA7d3JlcGx5PWh0dHBzOiUyRiUyRm1zZmFpcnBsYXkucnUlMkZWb3RpbmcuYXNweCZhbXA7bGM9MTA0OSZhbXA7aWQ9MjU0MDY1Ij48aW1nIHNyYz0iaHR0cDovL3d3dy5wYXNzcG9ydGltYWdlcy5jb20vMTA0OS9zaWduaW4uZ2lmIiBjbGFzcz0iUGFzc3BvcnRTaWduSW4iIGFsdD0iV2luZG93cyBMaXZlIElEIiBzdHlsZT0iYm9yZGVyLXN0eWxlOm5vbmUiIGlkPSJpZFNJIi8 PC9hPmQCBQ8WAh4HVmlzaWJsZWgWCmYPFQEAZAIBDxUCAS0BLWQCAg8VAQBkAgMPFQEAZAIEDxUBPVJlZ2lzdGVyVXNlci5hc3B4P2RlamF2dT0wMDAwMDAwMC0wMDAwLTAwMDAtMDAwMC0wMDAwMDAwMDAwMDBkAgcPZBYQZg8PFgIfAAUEc2VyZ2RkAgEPFQJwUmVuZGVyVXNlckZvdG8uYXNweD9Vc2VySWQ9NjZhZTk1MWYtODQ1Mi00NGVjLWExYTItNTQ2ZTI2YWU2MDVkJkZvdG9UeXBlPTAmSXNUaHVtYm5haWw9dHJ1ZSZIZWlnaHQ9MjA1JldpZHRoPTE5OBx3aWR0aDogMTk4cHg7IGhlaWdodDogMTQ4cHg7ZAICDw8WAh8ABQIxNGRkAgMPDxYCHwAFAzMyN2RkAgcPDxYCHghJbWFnZVVybAU/SW1hZ2VHZW5lcmF0b3IuYXNweD9Vc2VySWQ9NjZhZTk1MWYtODQ1Mi00NGVjLWExYTItNTQ2ZTI2YWU2MDVkZGQCCQ8VAjNodHRwOi8vY2lkLTMxNzIzNjI3YTcxZjhiZTEuc3BhY2VzLmxpdmUuY29tL3Bob3Rvcy8zaHR0cDovL2NpZC0zMTcyMzYyN2E3MWY4YmUxLnNwYWNlcy5saXZlLmNvbS9waG90b3MvZAIKDxUKC3Zpc2liaWxpdHk6AjEycFJlbmRlclVzZXJGb3RvLmFzcHg/VXNlcklkPWU4ZDA2MzBjLWYyMTUtNDMwNi1hYmNlLTQxZGY4MmY4NzhmNyZGb3RvVHlwZT0wJklzVGh1bWJuYWlsPXRydWUmSGVpZ2h0PTEwMCZXaWR0aD0xMDALdmlzaWJpbGl0eToad2lkdGg6IDk5cHg7IGhlaWdodDogNzRweDsLdmlzaWJpbGl0eTpJVm90aW5nLmFzcHg/VXNlcklkPWU4ZDA2MzBjLWYyMTUtNDMwNi1hYmNlLTQxZGY4MmY4NzhmNyZzb3J0Qnk9JmJBc2M9VHJ1ZQt2aXNpYmlsaXR5OklWb3RpbmcuYXNweD9Vc2VySWQ9ZThkMDYzMGMtZjIxNS00MzA2LWFiY2UtNDFkZjgyZjg3OGY3JnNvcnRCeT0mYkFzYz1UcnVlC3Zpc2liaWxpdHk6ZAILDxUKC3Zpc2liaWxpdHk6AjExcFJlbmRlclVzZXJGb3RvLmFzcHg/VXNlcklkPTU3Yzg4YjNmLTM1NTctNGM3Yi1hNGI2LTU1YjNjZDdiY2Q3ZSZGb3RvVHlwZT0wJklzVGh1bWJuYWlsPXRydWUmSGVpZ2h0PTEwMCZXaWR0aD0xMDALdmlzaWJpbGl0eToad2lkdGg6IDk5cHg7IGhlaWdodDogNzRweDsLdmlzaWJpbGl0eTpJVm90aW5nLmFzcHg/VXNlcklkPTU3Yzg4YjNmLTM1NTctNGM3Yi1hNGI2LTU1YjNjZDdiY2Q3ZSZzb3J0Qnk9JmJBc2M9VHJ1ZQt2aXNpYmlsaXR5OklWb3RpbmcuYXNweD9Vc2VySWQ9NTdjODhiM2YtMzU1Ny00YzdiLWE0YjYtNTViM2NkN2JjZDdlJnNvcnRCeT0mYkFzYz1UcnVlC3Zpc2liaWxpdHk6ZAIID2QWAmYPFQI2Rmxhc2gvRmxhc2hHUy5zd2Y/ODY4MTQ2NjgtMzFkMC00NTdjLWJiMjYtYmM1ZDc5ODUyYmQ4NkZsYXNoL0ZsYXNoR1Muc3dmPzhmZmM0ODgwLTZkMzgtNDNkNi05NmNmLTkxYzJhOWFjOTI1MGQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFGmN0bDAwJE1haW5Db250ZW50JGJ0Vm90aW5nDs9HmF6k8rTxNqkiHviGy ylH1U=
__EVENTVALIDATION    /wEWCALty7HVCgLz54S7DQKy1sbvCwKW36MHAr/fl6MHAuKR9N8MAs/mrJ8FAtXei9MBNVutIBbW6CMd4b/XiYGTr8EhCkI=
__EVENTTARGET    
__EVENTARGUMENT

Автор: In4matik 19.1.2008, 08:11

Цитата(WaReZMEN @ 17.1.2008, 09:06)

In4matik, спасибо!

Результат снифа

Ух ты!

А что за страничка? дай адресок.

Автор: eViperEA 18.3.2008, 08:26

Возник вопрос ... Как вывести на форму картинку которая автоматически меняется и урл на нее один и тот же... и сохранить его таким для авторизации..

Код


<tr><td class="midtext">Username:</td><td>
<input type="text" name="COOKIEusername" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext">Password:</td><td>
<input type="password" name="COOKIEpass" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext" valign="top">Security Code:</td><td class="midtext">
<img src="captcha/imagebuilder.php" onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();">
(Click to reload)<br />
<input type="text" name="verify" size="17" maxlength="17" autocomplete="off" class="form"></td></tr>
                    <tr><td></td><td align="right">
<input type="submit" value="Login" name="loginsubmit" class="form"></td></tr>
                    </table></td>
                    </td>

Автор: eViperEA 18.3.2008, 19:58

помогите разобраться что означает ...
onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();
в коде картинки ... и как ее можно выдернуть в ту форму во время ее загрузки..

Автор: eViperEA 19.3.2008, 05:25

попробовал вот такую программу

Код


procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.com/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
end;
end.

она мне выдает ошибку smile

Access violation at address 00404DBB in module 'Project1.exe'. Read of address 00000001.
В чем проблема не подскажите? smile

Автор: Qu1nt 19.3.2008, 18:52

Не забывай создавать обьекты. Удалять тоже.

Автор: eViperEA 20.3.2008, 19:21

А можно пожалуйста по подробнее объяснить какие именно? может есть какой нибудь вариант сохранить на диск имеено эту картинку (вывести ее в форму) и отправить ее на сайт..?

Автор: vovksextra 21.3.2008, 17:29

Цитата(eViperEA @ 19.3.2008, 05:25)

попробовал вот такую программу

Код


procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.com/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
end;
end.

она мне выдает ошибку smile

Access violation at address 00404DBB in module 'Project1.exe'. Read of address 00000001.
В чем проблема не подскажите? smile

Как минимум перед MS.Position := 0;

не мешело бы сделать что-то типа того MS:=TMemoryStream.Cre............ )))

и где далее MS.free

Автор: eViperEA 21.3.2008, 19:59

Попробовал добавить то что ты порекомендовал но все равно эта ошибка вылазиет

Код


procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.com/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
 IdHTTP1.Get(C_Url,MS);
 MS:=TMemoryStream.Create;
            MS.Position := 0;
            jpg.LoadFromStream(MS);
            Image1.Picture.Bitmap.Assign(jpg);
            MS.free;
          end;

Автор: Qu1nt 21.3.2008, 20:28

Блин, а TJPEGImage?!

Код


jpg := TJPEGImage.Create;

Автор: eViperEA 22.3.2008, 05:19

Цитата(Qu1nt @ 21.3.2008, 20:28)

Блин, а TJPEGImage?!

Код


jpg := TJPEGImage.Create;

тоже не помогает уже пробовал... smile

Автор: vovksextra 22.3.2008, 18:21

Цитата(eViperEA @ 22.3.2008, 05:19)

Цитата(Qu1nt @ 21.3.2008, 20:28)

Блин, а TJPEGImage?!

Код


jpg := TJPEGImage.Create;

тоже не помогает уже пробовал... smile

IdHTTP1.Get(C_Url,MS);
MS:=TMemoryStream.Create;

нужно так ))

MS:=TMemoryStream.Create;
IdHTTP1.Get(C_Url,MS);

Автор: eViperEA 22.3.2008, 19:00

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

Код


procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.ru/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
MS:=TMemoryStream.Create;
jpg:= TJPEGImage.Create;
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
MS.free;
jpg.Free;
end;

а так я отправляю на сайт заполненые поля..(для регистрации)

Код


procedure TForm1.Button1Click(Sender: TObject);
var
S: TStringList;
begin
S:= TStringList.Create;
S.Add('login=eViper');
S.Add('password=xxx');
S.Add('code=');
memo1.Text:=IdHTTP1.Post('http://server.ru/index.php?t=login&', S);
memo1.lines.savetofile('c:\test.html');
end;

S.Add('code='); мне надо написать что то чтоб "форма" которую я направлю на сайт "зарегистрировала" меня.. Но я не могу понять 1 как загрузить сайт регистрации и чтоб картинка осталась таже ... и 2 как мне присвоить S.Add('code='); значение которое на картинке...

Автор: eViperEA 25.3.2008, 12:39

вот то что надо заполнять... в форме

Код


<tr><td class="midtext">Username:</td><td>
<input type="text" name="COOKIEusername" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext">Password:</td><td>
<input type="password" name="COOKIEpass" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext" valign="top">Security Code:</td><td class="midtext">
<img src="captcha/imagebuilder.php" onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();">
(Click to reload)<br />
<input type="text" name="verify" size="17" maxlength="17" autocomplete="off" class="form"></td></tr>
                    <tr><td></td><td align="right">
<input type="submit" value="Login" name="loginsubmit" class="form"></td></tr>
                    </table></td>
                    </td>

Автор: eViperEA 27.3.2008, 15:59

С картинкой я разобрался как мне теперь ввести ее код в Edit1
S.Add('code=');?

Автор: vovksextra 28.3.2008, 01:22

Цитата(eViperEA @ 27.3.2008, 15:59)

С картинкой я разобрался как мне теперь ввести ее код в Edit1
S.Add('code=');?

Если было-бы все так просто - картинки бы не ставили.

А теперь по делу - все элементарно просто.

Отправляешь свою картинку в СОРО (система оптического распознавания образов) , и получаешь код ))

Автор: eViperEA 28.3.2008, 07:28

я и не собираюсь легко с ней справляться мне просто надо ввести в ручную то что на картинке и отправить заполненную форму на серв.. тоесть сам распознаю картинку... Вопрос в другом как мне из Edit1 в строчку S.Add('code='); перенести значение?

Автор: vovksextra 28.3.2008, 10:14

Цитата(eViperEA @ 28.3.2008, 07:28)

Так ?

Код


S.Add('code='+Edit1.Text);

Автор: eViperEA 28.3.2008, 10:46

ой сори я вместо edit1.text писал edit1!!! Cпасибо со всем разобрался...!!! smile

Автор: eViperEA 1.4.2008, 07:53

На нескольких сайтах он при обработке изображения мне выдает ошибку JPEG error #53
Что ему не нравится?

Код


procedure TForm1.FormCreate(Sender: TObject);
const
C_Url='http://server.ru/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
x:=0;
MS:=TMemoryStream.Create;
jpg:= TJPEGImage.Create;
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
MS.free;
jpg.Free;
end;

Автор: Qu1nt 1.4.2008, 12:04

Дык, значит картинка другого формата smile

Автор: Diamond1309 4.5.2008, 17:08

2eViperEA:

узнаю код странички)))) я тоже пытаюсь сделать такую же прогу, что и ты. С картинками у мня все норм. Вот только никак не могу авторизоваться. post-запрос как-то вроде не правильно работает

Делаю так (Indy10, Delphi7):

Код


var s:TStringList;
    f:textfile;
begin
      s:=TStringList.Create;
      s.Add('COOKIEusername='+Edit1.Text);
      s.Add('&COOKIEpass='+Edit2.Text);
      s.Add('&verify='+Edit3.Text);
      assignfile(f,'C:\1.html');
      rewrite(f);
      memo1.Text:=idhttp.Post('http://server.com/login.php?', s);
      write(f,memo1.text);
      closefile(f);
end;

в итоге получаю ту же страничку авторизации хотя HandleRedirect=true, CookieManager подключен.
В чем моя ошибка? как можно прослушать что отправляет браузер?

Автор: Qu1nt 4.5.2008, 19:32

Посмотри, что отправляет браузер и, что отправляешь ты... (с)

Автор: darkmamba 1.6.2009, 12:12

Подскажите как быть в таком случае, когда ссылка на картинку неявная, а вместо нее хэш.
Код такой:

Код


  M : TMemoryStream;
begin
  M := TMemoryStream.Create;
  http.Get('http://XXXXXXXX.ru/image.php?type=regcheck&imagehash=a3b2b3b1d75b524e49280b7efb1e3dab', M);
  M.Position := 0;
  M.SaveToFile('G:\1.jpg');
  M.Free;

Картинка сохраняется в 1 пиксель. Хотя браузер все нормально видит. Если вместа хеша будет ссылка типа http://XXXXXXXX.ru/image.php?type=regcheck&image.jpg (или другой рисунок) то сохраняется все нормально... варианты кончились smile