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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.09.2014, 01:31   #1
gerasimow9
 
Регистрация: 20.01.2014
Сообщений: 5
Печаль Регистрация нового пользователя на юкозе с помощью программы

Привет,всем.Я тут как новенький и много тут видел хорошего и полезного по программе делфи .У меня вопрос ? помогите пожалуйста мне доделать мою программу для разохирвание моего аддона для армы 2 .Суть моей программы такова.Я увлекаюсь моделированием моделей для игры армам 2 и 3 и делаю аддоны для самой игры .На сайте можете меня найти тут арматура или на моём сайте the red fox studio.Мне нужно в моей программе сделать такое . Когда человек скачивает мой аддон через мой распаковщик и когда она начинает загружать из проги мои адоны то нажимаем кнопку далее и тут должно вылетит окошко типо пройти небольшую инструкцию типо ,если хочешь установить мой аддон себе на комп то нужно зарегистрироваться у меня на сайте , и что прога проверяла есть такой пользователь или нет если нету пользователя у меня сайте такого то нужно зарегистрироваться ему если есть то программа продолжает работать даёт человеку устанавливать мой аддон себе на комп .Надеюсь я понятливо объяснил что за прога у меня .Но надо добавить в неё что я выше писал про пользователей .Помогите доделать .

Последний раз редактировалось gerasimow9; 06.09.2014 в 02:58. Причина: картинка большая
gerasimow9 вне форума Ответить с цитированием
Старый 06.09.2014, 10:35   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

А чем помочь? Где исходники?
Или ты фрилансера ищешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.09.2014, 12:12   #3
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А чем помочь? Где исходники?
Или ты фрилансера ищешь?
Stilet, чел хочет в красу гвардию записаться...
Ну, флаг ему в руки и пирожок в зубы.....
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder

Последний раз редактировалось Smitt&Wesson; 06.09.2014 в 12:19.
Smitt&Wesson вне форума Ответить с цитированием
Старый 06.09.2014, 12:19   #4
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

А я на нашу, Кировскую, власт, обиделся. Суки, Устроили праздник, долбо*** и поубирали все ларьки с морожеькам, типа " вне конкуренции". В итоге, купил беляш, бутылку водки и с ментами за углом выпили. (Чуваки, знакомые).
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder

Последний раз редактировалось Smitt&Wesson; 06.09.2014 в 12:23.
Smitt&Wesson вне форума Ответить с цитированием
Старый 07.09.2014, 23:15   #5
gerasimow9
 
Регистрация: 20.01.2014
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А чем помочь? Где исходники?
Или ты фрилансера ищешь?
Привет, исходник скину но он у меня весит много ,могу код показать .

Короче, тут на сайте у меня не получилось залить полностью код моей программы, залил у себя на сайте тут http://trfs.at.ua/forum/43-126-1
Если понадобится исходник проги то в лвс залью если поможешь

Последний раз редактировалось gerasimow9; 07.09.2014 в 23:52.
gerasimow9 вне форума Ответить с цитированием
Старый 07.09.2014, 23:16   #6
gerasimow9
 
Регистрация: 20.01.2014
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Smitt&Wesson Посмотреть сообщение
Stilet, чел хочет в красу гвардию записаться...
Ну, флаг ему в руки и пирожок в зубы.....
Дружище ,я не собирался в гвардию записаться, мне помощь нужна [/B]
gerasimow9 вне форума Ответить с цитированием
Старый 08.09.2014, 00:25   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну во-первых то место, куда ты залил мой браузер не пропускает. Говорит о вредоносном содержимом.
Во-вторых Какие конкретно вопросы по программе?
Если только
Цитата:
что прога проверяла есть такой пользователь или нет если нету пользователя у меня сайте такого то нужно зарегистрироваться ему
То скажем через компонеты Indi посылай не сайт логин и пароль. Сайт твой должен уметь распознавать Логин и сверять с паролем, и отвечать. А конкретного я тебе ничего не могу сказать потому что не знаю ни как твоя прога работает, ни как работает твой сайт.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.09.2014, 04:25   #8
gerasimow9
 
Регистрация: 20.01.2014
Сообщений: 5
По умолчанию

Привет,всем.народ помогите найти ошибку у меня тут
Код:
function TForm1.Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.About1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
s:=IdHTTP1.Post(Edit3.text+'/index/8',Data);
memo1.Lines.Add(s);
end;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Clear;
s:=IdHTTP1.Post(Edit3.text+'/index/10',Data);
memo1.Lines.Add(s);


end;



procedure TForm1.Button3Click(Sender: TObject);

begin
memo1.lines.add('[авторизация]');
Data:=TStringList.Create;
s:=IdHTTP1.Post(Edit3.text,Data);
p:=pars('name="rnd" value="', s, '"' );
Data.Add('user='+Edit1.Text);
Data.Add('password='+Edit2.Text);
Data.Add('rem=1');
Data.Add('a=2');
Data.Add('ajax=1');
Data.Add('rnd='+p);
Data.Add('_tp_=xml');
 try
  idHTTP1.Post('http://trfs.at.ua/index/sub', DATA);  // делаем запрос
  except
   s:=idHTTP1.Get('http://trfs.at.ua');
 // Возвращаемся на страницу авторизации

 if pos('Выход', s) > 1 then
 begin   // проверка авторизации
 // На странице должна появиться кнопка с надписью "Выход".
   ShowMessage ('[авторизация прошла успешно]');  // Если она есть - все ок
 end
 else
ShowMessage ('[авторизация не удалась]'); // Если не все - то не ок

idHTTP1.Request.Host:=Edit3.text;
idHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
idHTTP1.Request.Accept := 'application/xml, text/xml, */*';
idHTTP1.Request.AcceptLanguage := 'en-gb,en;q=0.5';
idHTTP1.Request.AcceptEncoding := 'gzip,deflate';
idHTTP1.Request.AcceptCharset := 'ISO-8859-1,utf-8;q=0.7,*;q=0.7';
IdHTTP1.Request.Connection := 'keep-alive';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8';
IdHTTP1.Request.Referer :=Edit3.text;
idHTTP1.Request.Pragma:= 'no-cache';
idHTTP1.Request.CacheControl := 'no-cache';
try
Request:=idHTTP1.Post(Edit3.text+'/index/sub/',Data);
s:=IdHTTP1.Post(Edit3.text+'/tmpls/?a=fm;l=7;f=;file=obv.txt',Data);
g:=pars('<input type="hidden" name="ssid" value="', s, '">' );
Memo1.Clear;
memo1.Lines.Add(s);
memo1.Lines.Add(p);
finally
Data.Clear;
Request:='';
s:='';
g:='';
p:='';
end;
end;
end;
когда запрос проходит на авторизацию то сховмессаге сообщение ни одно не работает почему не находит слово выход на сайте ?

Последний раз редактировалось Stilet; 20.09.2014 в 10:44.
gerasimow9 вне форума Ответить с цитированием
Старый 20.09.2014, 10:47   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
почему не находит слово выход на сайте ?
А ты отладкой проходил?
Ты уверен что получаешь контент с таким словом?
Ты уверен что твоя pars() умеет работать с юникодом на случай такового на странице?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.09.2014, 18:26   #10
gerasimow9
 
Регистрация: 20.01.2014
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А ты отладкой проходил?
Ты уверен что получаешь контент с таким словом?
Ты уверен что твоя pars() умеет работать с юникодом на случай такового на странице?
Привет,да я уверен что я захожу на сайт свой ,потомушчто у меня в проге устроен браузер сам ,вот сообщения почему-то не вылазит ,что типо вы авторизованы
gerasimow9 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавления нового пользователя в Interbase vbn1 БД в Delphi 10 28.05.2014 19:58
Создать нового пользователя Windowsс нужными параметрами с помощью программы на С + + Pein95 Windows 5 23.09.2013 14:05
Регистрация пользователя и загрузкой аватар Programmer_St PHP 6 20.09.2012 00:23
Регистрация нового пользователя и привязка новой таблицы к логину 4sense БД в Delphi 1 02.03.2010 22:27