Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.08.2010, 22:11   #1
alex198555
Пользователь
 
Регистрация: 30.07.2010
Сообщений: 32
По умолчанию Как сделать авторизацию?!

Мне нужно сделать авторизацию на сайте. Никак не мог её зделать. Предыдущие темы тоже читал - не помогло. По ходу дела, [Java Scripts] присустствуют на страницы, а не [HTML], как описано раньше в предыдущих темах.

Можно ли просто задать, что Делфи просто вводила логин или пароль автоматически напротив полей, логин и пароль?
Изображения
Тип файла: jpg 9.jpg (37.4 Кб, 88 просмотров)
alex198555 вне форума Ответить с цитированием
Старый 07.08.2010, 02:04   #2
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Нужно смотреть саму страницу... Или адрес засекречен?
Или хотя бы образец страницы... Помогать "по фотографиям" - это к шаманам с бубнами...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 08.08.2010, 21:01   #3
alex198555
Пользователь
 
Регистрация: 30.07.2010
Сообщений: 32
По умолчанию

Знаете вот что там нашёл:
Код:
<form method="post" action=
. Конечно, я могу скинуть полный код, но он слишком большой. Можете ли помочЬ?
alex198555 вне форума Ответить с цитированием
Старый 09.08.2010, 00:48   #4
alex198555
Пользователь
 
Регистрация: 30.07.2010
Сообщений: 32
По умолчанию

Вот этот код. Можно ли или как сделать автоматический логин на него?!

Код:
<link href="/forexpert/stylesheets/standard/pages/create-account.css" type="text/css" rel="stylesheet"/><div id="insidecontent"><div 
class="login"><h1>Login</h1><div class="centered" id="account-form-panel"><form method="post" 
action="MY WEB-SITE HERE.../j_spring_security_check" onsubmit="document.getElementById('loginForm').action += '#'+location.hash" name="loginForm" 
id="loginForm"><table><colgroup><col id="col-label"/><col id="col-input"/></colgroup><tbody><tr><td class="label"/><td><div class="error-
message"></div></td></tr><tr><td class="label">Email</td><td class="input"><input class="long-input" id="j_username" name="j_username" type="text"/></td></tr><tr><td 
class="label">Password</td><td class="input"><input class="long-input" id="j_password" name="j_password" type="password"/></td></tr><tr><td 
class="label">&nbsp;</td><td><div style="margin-top: 5px;"><input class="terms-check" name="_spring_security_remember_me" id="_spring_security_remember_me" 
type="checkbox"/><label for="_spring_security_remember_me">Remember me on this computer</label></div><button class="create-account" type="submit">Login</button><div 
style="margin-top: 20px;"><a href="/forexpert/pages/account/resetPassword/request">Forgotten your password?
</a></div></td></tr></tbody></table></form></div></div></div>
alex198555 вне форума Ответить с цитированием
Старый 09.08.2010, 01:57   #5
DeDoK
Форумчанин
 
Аватар для DeDoK
 
Регистрация: 05.11.2007
Сообщений: 392
По умолчанию

Код:
var
s : TStringList;
begin
s:=TStringList.Create;
s.Add('j_username='+логин);
s.Add('j_password='+пароль);
s.Add(_spring_security_remember_me=true');
idHttp1.Post('MY WEB-SITE HERE.../j_spring_security_check',s);
end;
как то так
DeDoK вне форума Ответить с цитированием
Старый 09.08.2010, 21:52   #6
alex198555
Пользователь
 
Регистрация: 30.07.2010
Сообщений: 32
По умолчанию

Помогите, я новичок. Где мне это вставить? Пишю, но всё равно получаю ошибки.

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    Load: TButton;
    WebBrowser1: TWebBrowser;
    procedure LoadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadClick(Sender: TObject);
begin
WebBrowser1.Navigate('MY WEB-SITE HERE...');

end;


end.
alex198555 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто сможет помочь сделать скрипт вытаскивающий данные из excel файла и пройдя авторизацию www jimbots PHP 13 09.07.2010 16:22
Как пройти авторизацию на сайте www.rmstat.ru через webbrowser oleobject Plexdeath Работа с сетью в Delphi 6 05.07.2010 10:12
Выбрасывает на авторизацию Golovastik Свободное общение 15 25.08.2009 18:20
Как создать авторизацию reyn90 Помощь студентам 0 09.06.2009 19:24
Как сделать регистрацию и авторизацию пользователей перед входом в программу, БД. zorro БД в Delphi 18 28.08.2007 11:04