Delphi авторизация на сайтах
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi авторизация на сайтах - 2011-10-18 08:49:29.803333
|
|
|
Gawrilowalex
Сообщений: 5
Оценки: 0
Присоединился: 2011-10-18 08:41:41.950000
|
Доброе утро, помогите сделать авторизацию на сайте[sm=cf.gif]
А точнее что нужно
На форму добавляю 2-Edita, bottom1, webBrowse1 после заполнение edit1 и 2 нажимаешь на кнопку все это это оправляется в webbrowser на заранее добавленый сайт и потом страница обновляется и показывает что нету "Войти, зарегистрировать" а появляется что там на пример мой профиль ну то есть авторизован уже.
Плиз помоги это сделать, если есть исходник или код выложите прошу [sm=bh.gif]
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-10-20 20:55:13.600000
|
|
|
class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
Вот тебе сорцы (накатал за 5 минут :)) http://zalil.ru/31904111
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-10-21 07:16:23.366666
|
|
|
Gawrilowalex
Сообщений: 5
Оценки: 0
Присоединился: 2011-10-18 08:41:41.950000
|
Спасибо а что за компоненты использовал?
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-10-21 07:24:21.530000
|
|
|
Gawrilowalex
Сообщений: 5
Оценки: 0
Присоединился: 2011-10-18 08:41:41.950000
|
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;– у меня тут ошибка выскакивает что нужно сделать?
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-10-21 16:32:36.180000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Читать текст ошибки
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-10-21 18:10:25.243333
|
|
|
Аpathy^^
Сообщений: 504
Оценки: 10
Присоединился: 2011-08-02 18:35:14.340000
|
если не принципиально веббраузер то смотри тут видеоурок
http://avtuh.ru/2010/01/21/delphi-indy-avtorizaciya-na-odnoklassnikax.html
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-10-22 19:18:47.976666
|
|
|
class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
quote:
ORIGINAL: Gawrilowalex
Спасибо а что за компоненты использовал?
WebBrowser (для отображения веб-страницы), Button (для авторизации), Edit (для ввода персональных данных), Panel.
Вот код файла Source.pas
unit Source;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;
type
TForm3 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
WebBrowser1: TWebBrowser;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
I: Integer;
ovElements: OleVariant;
begin
ovElements := WebBrowser1.OleObject.Document.forms.Item.elements;
for I := 0 to ovElements.Length - 1 do
begin
if ovElements.item(i).Name = 'Login' then
begin
ovElements.item(i).Value := Edit1.Text;
end;
if ovElements.item(i).Name = 'Password' then
begin
ovElements.item(i).Value := Edit2.Text;
end;
if ovElements.item(i).Value = 'Войти в почту' then
begin
ovElements.item(i).Click;
end;
end;
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
WebBrowser1.Navigate('http://e.mail.ru/cgi-bin/login');
end;
end.
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-11-04 22:03:47.336666
|
|
|
Gdasar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-05 23:17:26.246666
|
А зачем webBrowse? Можно просто post запрос!
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-11-05 08:05:02.436666
|
|
|
class0071
Сообщений: 300
Оценки: 0
Присоединился: 2011-01-27 17:15:23.750000
|
quote:
ORIGINAL: Gdasar
А зачем webBrowse? Можно просто post запрос!
Конечно же, можно и post запросом, но вот видишь ТСу необходимо автозаполнение форм с помощью тех компонентов, которые он указал:
quote:
ORIGINAL: Gawrilowalex
Доброе утро, помогите сделать авторизацию на сайте[sm=cf.gif]
А точнее что нужно
На форму добавляю 2-Edita, bottom1, webBrowse1 после заполнение edit1 и 2 нажимаешь на кнопку все это это оправляется в webbrowser на заранее добавленый сайт и потом страница обновляется и показывает что нету "Войти, зарегистрировать" а появляется что там на пример мой профиль ну то есть авторизован уже.
Плиз помоги это сделать, если есть исходник или код выложите прошу [sm=bh.gif]
Gdasar, читай внимательнее :)
|
|
|
|
|
RE: Delphi авторизация на сайтах - 2011-11-13 15:53:06.870000
|
|
|
Gdasar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-05 23:17:26.246666
|
Типо он просит сделать ему браузер! XD
|
|
|
|
|
|
