 |
|
04.05.2010, 00:14
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от Flair
Народ, нужно написать программу. Легкая, школьный курс
Помогите пожалуйста  Язык программирования Pascal или Delphi?
И массив один или много?
|
|
|
04.05.2010, 05:36
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Flair, масив какой? Или записи можно использовать?
|
|
|
|
04.05.2010, 07:39
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Flair, масив какой? Или записи можно использовать?
Я думаю ему нужен массив записей
|
|
|
|
04.05.2010, 09:03
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от stepashka_
Парсю капчу ВК, но она не сохраняется... что не так?
Вот писал давно уже код... но там я юзал регулярку.
PHP код:
if Pos('captcha_sid', result) <> 0 then
begin
RegExp.Expression := '"captcha_sid":"(.+?)","';
RegExp.Exec(result);
captcha_sid := RegExp.Match[1];
//showmessage(captcha_sid);
fr.log.Lines.Add('-Получение капчи');
(* Грузим капчу *)
fr.http.Get('http://vkontakte.ru/captcha.php?sid=' + captcha_sid, ms);
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg');
InputQuery('Капча','Введи капчу.',captcha_key);
end;
|
|
|
|
04.05.2010, 11:42
|
|
Новичок
Регистрация: 07.04.2007
Сообщений: 27
С нами:
10049851
Репутация:
-8
|
|
подскажите у Synapse есть нечто подобное атифризу в инди?
|
|
|
|
04.05.2010, 11:53
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
HakaR в uses что прописать?
|
|
|
|
04.05.2010, 12:46
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
stepashka_
1. Cкачиваешь, распаковываешь http://slil.ru/29037076
2 .Добавляешь к проекту Project=>Add to project
3. В uses RegExpr
4. Enjoy!
|
|
|
|
04.05.2010, 13:33
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
GhostOnline неа, что то ещё надо добавить 
|
|
|
|
04.05.2010, 13:36
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
А объект то создал?
RegExp := TRegExpr.Create;
PHP код:
if Pos('captcha_sid', result) <> 0 then
begin
RegExp.Expression := '"captcha_sid":"(.+?)","';
RegExp.Exec(result);
captcha_sid := RegExp.Match[1];
//showmessage(captcha_sid);
fr.log.Lines.Add('-Получение капчи');
(* Грузим капчу *)
fr.http.Get('http://vkontakte.ru/captcha.php?sid=' + captcha_sid, ms);
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg' );
InputQuery('Капча','Введи капчу.',captcha_key);
end;
А в проект точно добавил??
Пробуй так, и точно описание ошибки в студию
И, после использования надо освобождать:
RegExp.Free;
Последний раз редактировалось GhostOnline; 04.05.2010 в 13:42..
|
|
|
|
04.05.2010, 13:36
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
С нами:
9231117
Репутация:
149
|
|
RegExpr.pas в папку с проектом кинул?
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
