27.04.2010, 09:51
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Имхо тебе не стоит в данном случае заморачиваться пока с потоками, потому что проблема скорее всего в неправильной реализации работы клиента или сервера
Вообще, когда создаешь Thread Object в дельфи то создается заготовка, код потока вставляешь в тело процедуры Execute.
А использовать так:
var
thread : TmyThread;
begin
thread := TMyThread.Create(false);
end;
Последний раз редактировалось GhostOnline; 27.04.2010 в 09:54..
|
|
|
27.04.2010, 11:03
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Спасибо, вроде разобрался.. Попытаюсь всё таки на GUI реализовать...
|
|
|
|
27.04.2010, 16:37
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Подскажите))
Дельфи
Есть ссылка http://login.vk.com/?act=login&email=мыло&pass=пасс&expire=&vk =
как сделать что бы при нажатии на кнопку из memo бралась строчка ololo.mail.ru  assword разделялась и подставлялась в ссылку. На местро мыло нужно что бы вставало ololo.mail.ru на место пасс password.
Спасибо. |
|
|
|
27.04.2010, 16:45
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
Сообщение от stepashka_
Подскажите))
Дельфи
Есть ссылка http://login.vk.com/?act=login&email=мыло&pass=пасс&expire=&vk =
как сделать что бы при нажатии на кнопку из memo бралась строчка ololo.mail.ru assword разделялась и подставлялась в ссылку. На местро мыло нужно что бы вставало ololo.mail.ru на место пасс password.
Спасибо. var
log,pass: string;
begin
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk=
|
|
|
|
27.04.2010, 16:47
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Писал прям тут, но вроде должно работать...
PHP код:
var
s,pass,mail:string;
i:integer;
begin
i:=pos(':',memo.lines[1]);
mail:=copy(memo.lines[1],1,i-1);
pass:=Copy(memo.Lines[1],i+1,length(memo.lines[1]);
s:='http://login.vk.com/?act=login&email='+mail+'&pass='+pass+'&expire=&vk=';
end;
|
|
|
|
27.04.2010, 17:24
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Дельфи
есть код
procedure TForm1.Button3Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
s:=Copy(uns,Pos('value=',uns)+7,56);
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
if Pos('http://vk.com/profile.php', uns) <> 0 then
ShowMessage('ne ok')
else
begin
ShowMessage('ok');
memo2.Lines.Add(uns);
Как сделать что бы после успешной авторизации, мыло:пасс выводилось в мемо2 а если авторизация не прошла выводилось в мемо3. |
|
|
|
27.04.2010, 17:30
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
С нами:
9410786
Репутация:
2731
|
|
А что сложного то? Вместо ShowMessage делай что-то вроде этого:
Код:
memo1.lines.add(log + ';' + pass);
|
|
|
|
27.04.2010, 17:38
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
С нами:
9637731
Репутация:
106
|
|
например так:
proverka:=idhttp1.get(lallalalal) //авторизация на сайте
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
else
memo2.Lines.Add(log+':'+pass)
//вместо выход можно написать logoff если ты авторизуешься на vk.com
ну как то так
P.S. писал тут сразу
|
|
|
|
27.04.2010, 17:48
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Сообщение от Vlad3d
например так:
proverka:=idhttp1.get(lallalalal) //авторизация на сайте
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
else
memo2.Lines.Add(log+':'+pass)
//вместо выход можно написать logoff если ты авторизуешься на vk.com
ну как то так
P.S. писал тут сразу
Если пасс верный то всё ГУД
Если пасс не верный, выскакивает ошибка 
В мемо ничего не пишет 
|
|
|
|
27.04.2010, 18:01
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
С нами:
9637731
Репутация:
106
|
|
proverka:=idhttp1.get(lallalalal)
try
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
....
except
memo2.Lines.Add(log+':'+pass)
.....
так может
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
|
|
|
|
Похожие темы
Комбинированный вид
