Здравствуйте, Гость
Понедельник, 25.09.2017, 06:52
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Ekz 
Форум » Все о Delphi » Интернет и сети » Ошибка http/1.1 302 found. И ошибка <Html>. (Проблемы.)
Ошибка http/1.1 302 found. И ошибка <Html>.
DublДата: Вторник, 19.10.2010, 02:27 | Сообщение # 1
Ранг 3
Группа: Проверенные
Сообщений: 73
Награды: 0
Репутация: 0
Статус: Offline
Так вот в этой программе, код которой чуть ниже, ошибка http/1.1 302 found, помогите ее решить:
Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP, StdCtrls;

type
   TForm1 = class(TForm)
     IdHTTP1: TIdHTTP;
     Memo1: TMemo;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   Kuka,serv,zaza:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idHTTP1:=TidHTTP.Create(nil);
Kuka:=IdHTTP1.Get('http://vkontakte.ru/login.php?email=red-z@bk.ru&pass=nokian7373');
memo1.text:=Kuka;
end;

end.

А в этой программе, код которой еще чуть ниже, ошибка <Html>. Что же за беда то такая?

Code

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP, IdCookieManager;

type
   TForm1 = class(TForm)
     IdHTTP1: TIdHTTP;
     Memo1: TMemo;
     Button1: TButton;
     Edit1: TEdit;
     Edit2: TEdit;
     IdCookieManager1: TIdCookieManager;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

procedure autorisation;
var
uns: String;
s: String;
begin
uns:=form1.idhttp1.get('http://login.vk.com/?act=login&email='+form1.edit1.text+'&pass='+form1.edit2.text+'&expire=&vk=');
s:=copy(uns, 286, 56);
form1.idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
form1.IdCookieManager1.AddCookie('remixsid='+s+ '; path=/; ','vk.com');
form1.IdCookieManager1.AddCookie('remixchk=5; path=/;','vk.com');
try
form1.idhttp1.get('http://vk.com/profile.php');
finally
if s = '' then
begin
form1.memo1.Lines.add('Не удалось');
end
else
begin
form1.memo1.Lines.add('Авторизация успешна, ваш remixsid='+s)
end;
end;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Autorisation;
end;

end.

Мне нужна функция(процедура) авторизации((( Никак не получается((

 
AdminДата: Вторник, 19.10.2010, 18:52 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Это твой аккаунт?

Code
IdHttp1.handleRedirect:=True;

попробуй


Не оказываю помощь через личные сообщения и ICQ
 
DublДата: Среда, 20.10.2010, 01:11 | Сообщение # 3
Ранг 3
Группа: Проверенные
Сообщений: 73
Награды: 0
Репутация: 0
Статус: Offline
Блин, и впрямь это м ой акк)))) Я что-то даже не подумал, ну ничего сменю пасс.

IdHttp1.handleRedirect:=True; да да, я уже искал проблему, это вставлял, а тут в коде я выставил это значение в св-вах компонента idhttp1, все равно. Может кто-нибудь дать рабочий исходник авторизации пожалуйста, я 4 способа уже перепробовал и 5 штук исходников разных с сайтов, ничего не работает(( И в одном из скаченных исходников вообще выскакивает ошибка типа 0000048 как-то так и указывает на файл проекта, затем показывает строчку в компоненте indy кукисы. Выделяет синим FAllowCookies := AValue; строчку.

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

Добавлено (20.10.2010, 00:12)
---------------------------------------------
Все. Как авторизоваться понял, все получилось)) Сам допер))

Добавлено (20.10.2010, 01:11)
---------------------------------------------
Если кому-то будет нужно пишите в ЛС))

 
Форум » Все о Delphi » Интернет и сети » Ошибка http/1.1 302 found. И ошибка <Html>. (Проблемы.)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz