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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.12.2012, 14:20
Taemin Taemin вне форума
Прохожий
 
Регистрация: 07.02.2012
Сообщения: 45
Репутация: 10
По умолчанию Не отображается HTML-код в Memo

Программа авторизируется на сайте, ждет редирект, после делает запрос GET с целью выловить html-код страницы куда средиректило..
Отследил сниффером: По логике вещей все правильно – 2 GET и 1 POST но вот код в Memo так и не отображается.

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function FoundLocationStrNum(Headers: TStringlist): integer;
var
  FoundStrPos, i   : integer;
begin
  Result:= -1;
  for i := 0 to Headers.Count do
  begin
    FoundStrPos := Pos('Location: ', Headers.Strings[i]);
    if FoundStrPos > 0 then
    begin
      Result:= i;
      exit;
    end;
  end;
end;

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function GetHTTPStr(http: THTTPSend): string;
var
  BodyStream: TStringStream;
  BodyS: TStringList;
begin
  try
    BodyS := TStringList.Create;
    BodyStream := TStringStream.Create(result);
    begin
      BodyS.LoadFromStream(http.Document);
      result := BodyS.Text;
    end;
  finally
    BodyStream.Free;
    BodyS.Free;
  end;
  http.Document.Seek(0, soFromBeginning);
end;

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TForm1.btn1Click(Sender: TObject);
var
stream             : TStringStream;
http1,httpsend     : THTTPSend;
Res                : boolean;
n                  : integer;
KSlink,TOKEN,NewURL:string;
 
begin
  httpsend:=THTTPSend.Create;
  http1:=THTTPSend.Create;
  http1.HTTPMethod('get','https://my.kyivstar.ua/tbmb/login/perform.do');
  mmo3.Lines.LoadFromStream(http1.Document);
  TOKEN:=Copy(mmo3.Text, Pos('org.apache.struts.taglib.html.TOKEN', mmo3.Text)+44, 32);
  edt1.Text:=TOKEN;
  stream:=TStringStream.Create('');
  stream.WriteString('org.apache.struts.taglib.html.TOKEN='+TOKEN+'&isSubmitted=true&USERNAME=&USER_NAME=&ORIG_URL=&isInetUser=null&buser=&bpath=&user=%2B38'+edt2.Text+'&password=435465&Submit=%C2%F5%B3%E4+%E2+%F1%E8%F1%F2%E5%EC%F3&value%28jumpTo%29=&value%28jumpToUrl%29=');
  httpsend.MimeType:='application/x-www-form-urlencoded';
  httpsend.Document.LoadFromStream(stream);
 
  Res:=httpsend.HTTPMethod('post','https://my.kyivstar.ua/tbmb/login/perform.do');
 
          if Res then
          case httpsend.ResultCode of 301, 302, 307:
               begin
               n := FoundLocationStrNum(httpsend.Headers);
                   if (n >= 0) and (n <= httpsend.Headers.count) then
                   begin
                   NewURL := StringReplace(httpsend.Headers.Strings[n],'Location: ','',[]);
                   httpsend.Headers.Clear;
                   httpsend.HTTPMethod('GET',NewURL);
                   edt3.Text:=NewURL;
                   mmo2.Lines.Text:=GetHTTPStr(httpsend);
                   end;
                end;
          end;
end;
Ответить с цитированием
  #2  
Старый 14.12.2012, 12:10
Taemin Taemin вне форума
Прохожий
 
Регистрация: 07.02.2012
Сообщения: 45
Репутация: 10
По умолчанию

Кто-нибудь подскажет мою ошибку?
Ответить с цитированием
  #3  
Старый 14.12.2012, 12:52
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

а что такое THTTPSend?
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #4  
Старый 14.12.2012, 16:17
Taemin Taemin вне форума
Прохожий
 
Регистрация: 07.02.2012
Сообщения: 45
Репутация: 10
По умолчанию

THTTPSend - класс из библиотеки Synapse
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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