VPF::программа аутентификацию на delphi

ihtiandr

Дата 4.1.2011, 19:00 (ссылка)

(голосов:3)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 16.12.2010

Репутация: нет
Всего: нет

Народ помогите, написать программу которая могла бы делать аутентификацию при запуске.

Poseidon

Дата 4.1.2011, 19:06 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Аутенти... тьфу ты, куда логиниться надо?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Данкинг

Дата 4.1.2011, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(ihtiandr @ 4.1.2011, 19:00

)

помогите

Помогаю. В чём именно заключается вопрос? Куда логинимся, как Poseidon уже спросил? Спрашиваем только логин или и пароль тоже?

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 5.1.2011, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Опять студенты атакуют?

Mach3

Дата 5.1.2011, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

Что-то подобное делал..
user posted image

Такую надо?

--------------------

Век живи - век учись...

ihtiandr

Дата 5.1.2011, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 16.12.2010

Репутация: нет
Всего: нет

аутентификация логина и пароля.
Вот я пытался это сделать так:

Код


procedure TForm1.Button1Click(Sender: TObject);
vprocedure TForm1.Button1Click(Sender: TObject);
var
a,b,i,j:string;
f,l:textfile;
 begin
  i:=Edit1.text;
  j:=Edit2.text;
  reset(input,'qwe.txt');
  assignfile(l,'qwe1.txt');
  read(a,b);
  append(l);
  if (i=a) and (j=b) then begin showmessage('вы имеете допуск админа'); close; end
  else
   begin
   showmessage('вас зарегистрируют как пользователя');
   writeln(l,i,j);
   closefile(l);
 end;
end;
end.

Запускается правда даже если ввожу логин и пароль амина сохранённый в qwe.txt всё равно выходит showmessage('вас зарегистрируют как пользователя');
В чём здесь ошибка?Как её исправить?

Это сообщение отредактировал(а) bems - 6.1.2011, 19:03

Данкинг

Дата 5.1.2011, 21:12 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(ihtiandr @ 5.1.2011, 21:03

)

reset(input,'qwe.txt');

А assignfile не нужно перед этим?

Цитата(ihtiandr @ 5.1.2011, 21:03

)

read(a,b);

Вот это что за шедевр? Уж как-то так тогда, если логин с паролем в разных строчках находятся:

Код


var input:textfile;
...
assignfile(input,'qwe.txt');
reset(input);
readln(input,a);
readln(input,b);

Это сообщение отредактировал(а) Данкинг - 5.1.2011, 21:13

--------------------

There's nothing left but silent epitaphs.

ihtiandr

Дата 5.1.2011, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 16.12.2010

Репутация: нет
Всего: нет

Огромное спасибо Данкинг.
Только пожалуйста объясните ещё как связать этот модуль аутентификации с модулем любой другой программы таким образом чтобы если зашел админ у него была возможность редактировать код программы а если простой пользователь то он мог бы только ею пользоваться.
Заранее благодарен.

Это сообщение отредактировал(а) ihtiandr - 5.1.2011, 22:08

Данкинг

Дата 5.1.2011, 22:40 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(ihtiandr @ 5.1.2011, 21:31

)

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

Следует дать права админу на редактирование, а пользователю - "Read Only". smile

--------------------

There's nothing left but silent epitaphs.

ihtiandr

Дата 5.1.2011, 23:03 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 16.12.2010

Репутация: нет
Всего: нет

Но как это сделать покажите пожалуйста хотя бы на этом примере
Вот аутентификация:

Код


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,i,j:string;
input,l:textfile;
begin
i:=Edit1.text;
j:=Edit2.text;
assignfile(l,'qwe1.txt');
assignfile(input,'qwe.txt');
reset(input,'qwe.txt');
readln(input,a);
readln(input,b);
closefile(input);
append(l);
if (i=a) and (j=b) then begin showmessage('вы имеете допуск админа'); close; end
else
begin
showmessage('вас зарегистрируют как пользователя');
writeln(l,i,j);
closefile(l);
end;
end;
end.

А вот программа:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,c:integer;
begin
reset(input,'ewq1.txt');
rewrite(output,'ewq2.txt');
read(a,b);
c:=b+a;
write©;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Это сообщение отредактировал(а) bems - 6.1.2011, 19:05

Данкинг

Дата 5.1.2011, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

ihtiandr, в чём именно вопрос заключается - лично я не понял. smile

Где код программы должен редактироваться - в неком самодельном редакторе?

--------------------

There's nothing left but silent epitaphs.

ihtiandr

Дата 5.1.2011, 23:17 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 16.12.2010

Репутация: нет
Всего: нет

Нет в Delphi7

kami

Дата 5.1.2011, 23:25 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Чуть повторю Akella : smile

Тема разграничения прав доступа к функциям программы достаточно объемная и сложная, особенно если нужно чтобы "пользователь Вася имеет доступ к этому (полный доступ) и тому(только чтение), пользователь Петя - к этому(только чтение), а все из группы Админы - ко всему".
Применительно к топику - завести глобальную переменную IsAdmin, при логине присваивать ей значение (после ShowMessage), а при доступе к различным функциям проверять ее значение.

Это сообщение отредактировал(а) kami - 5.1.2011, 23:26

ihtiandr

Дата 5.1.2011, 23:33 (ссылка)

(голосов:2)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 16.12.2010

Репутация: нет
Всего: нет

kami можете привести пример.

Данкинг

Дата 5.1.2011, 23:42 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(ihtiandr @ 5.1.2011, 23:17)

Нет в Delphi7

Чего нет в Delphi7?

Добавлено через 3 минуты и 49 секунд

Цитата(ihtiandr @ 5.1.2011, 23:33

)

kami можете привести пример.

Типа "сделайте одолжение"? smile

ЗЫ: пример чего? Если "решите за меня" - это в "центр помощи".

Добавлено через 4 минуты и 59 секунд
Впрочем, вот тебе начало примера:

Цитата(kami @ 5.1.2011, 23:25

)

Применительно к топику - завести глобальную переменную IsAdmin,

Код


var
 IsAdmin:boolean;

(извиняюсь за флуд). smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »