Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
25.04.2010, 13:43
|
|
Новичок
Регистрация: 23.04.2010
Сообщений: 20
Провел на форуме:
37813
Репутация:
3
|
|
ойййй! господин Модератор! убей последние сообщения. оффтоп полный!
1) делфи хорош в обучении. к нему полно компонентов. это гуд. Кто начнёт доказывать мне, что с точки зрения обьектно ориентированности делфи может потягаться с С++, пусть так и считает. Это тоже самое что доказывать инквизиторам дарвиновскую теорию.
2) Связь между программированием и программированием в 1С заключается только в слове Программирование.
p.s. И в завершении. Никто так толком и не описал методы работы с контактом на компелируемом языке. Очень хотелбы увидеть способы работы с ява окошками (пригласить во встречу, группу и тд)
|
|
|
25.04.2010, 14:29
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Никто не доказывает что дельфи лучше
Никто не доказывает что дельфи для всего хорош
У каждого языка свои плюсы и минусы
У каждого языка своя область применения
И точка.
Кто начнёт доказывать мне, что с точки зрения обьектно ориентированности делфи может потягаться с С++, пусть так и считает.
опять же тут никто не пытался что-то кому то доказать, но могу ля я почитать мнение эксперта с мировым именем по ООП, то бишь тебя, чем должен обладать язык что-бы считаться вполне себе объектно-ориентированным? Чтобы как-то голословным это не выглядело.
|
|
|
|
25.04.2010, 15:06
|
|
Новичок
Регистрация: 23.04.2010
Сообщений: 20
Провел на форуме:
37813
Репутация:
3
|
|
Смысл в том, что потребность в C++ есть, а изучение Delphi - пустая трата времени. Язык безнадёжно устарел.
Да пипец! Чуть выше никто ничего не доказывал! 
в с++ не нужна отдельная синтаксическая конструкция для интерфейсов. в делфи же является ограничение на структуру дерева классов: невозможно унаследовать класс, реализующий интерфейс, от какого-либо другого своего класса.
|
|
|
|
25.04.2010, 16:35
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
Сообщение от Ar2r
2) Связь между программированием и программированием в 1С заключается только в слове Программирование.
А больше ничего и не нужно. ЯП создан под конкретные задачи, с которыми справляется.
Сообщение от Ar2r
p.s. И в завершении. Никто так толком и не описал методы работы с контактом на компелируемом языке. Очень хотелбы увидеть способы работы с ява окошками (пригласить во встречу, группу и тд)
Это не инструкция по ВК.
|
|
|
|
25.04.2010, 17:21
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
procedure TForm1.Button1Click(Sender: TObject);
var
params, responseres : tstringlist;
begin
params := TStringList.Create;
responseres := TStringList.Create;
try
params.Add('email=edit1');
params.Add('password=edit2');
IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',responseres.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
responseres.free;
end;
end;
end.
Подскажите где ошибка
|
|
|
|
25.04.2010, 17:25
|
|
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761
Репутация:
180
|
|
Сообщение от stepashka_
Подскажите где ошибка
responseres - это что?
|
|
|
|
25.04.2010, 17:31
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от M_script_
responseres - это что?
я только учу дельфи ты же знаешь 
убрал responseres
вот что получилось
procedure TForm1.Button1Click(Sender: TObject);
var
params: tstringlist;
begin
params := TStringList.Create;
try
params.Add('email=edit1');
params.Add('password=edit2');
IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
end;
end;
end.
Всё равно выскакивает Авторизация не удалась! 
|
|
|
|
25.04.2010, 17:47
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от stepashka_
я только учу дельфи ты же знаешь
убрал responseres
вот что получилось
Всё равно выскакивает Авторизация не удалась! а куда ты записываешь результат запроса? в базовое пространство вселенной? 
|
|
|
|
25.04.2010, 17:53
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от [stranger]
а куда ты записываешь результат запроса? в базовое пространство вселенной? Вот за этим я сюда и пришёл
|
|
|
|
25.04.2010, 17:56
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от stepashka_
Вот за этим я сюда и пришёл
Код:
procedure TForm1.Button1Click(Sender: TObject);
var params, resp : TStringList;
begin
params := TStringList.Create;
resp := TStringList.Create;
try
params.Add('email=' + edit1.text);
params.Add('pass=' + edit2.text);
resp.text := IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',resp.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
resp.free;
end;
end;
Последний раз редактировалось [stranger]; 25.04.2010 в 18:15..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.gif){kind=avatar}
Похожие темы
Линейный вид
