04.05.2010, 15:22
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
С нами:
8843557
Репутация:
539
|
|
Сообщение от stepashka_
HakaR в uses что прописать?
PHP код:
uses RegExpr;
...
var
result, captcha_sid: string;
postdata: tstringlist;
RegExp: TRegExpr;
ms: tmemorystream;
begin
postdata := tstringlist.create;
RegExp := TRegExpr.Create;
ms := tmemorystream.Create;
...
postdata.Add('op=a_login_attempt');
result := fr.http.Post('http://vkontakte.ru/login.php', postdata);
if Pos('captcha_sid', result) <> 0 then
begin
RegExp.Expression := '"captcha_sid":"(.+?)","';
RegExp.Exec(result);
captcha_sid := RegExp.Match[1];
(* Грузим капчу *)
fr.http.Get('http://vkontakte.ru/captcha.php?sid=' + captcha_sid, ms);
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg');
end;
...
ms.free;
RegExp.free;
postdata.free;
end;
потому что бессмысленно сохранять в файл, чтобы тут же из файла загрузить :-D
Мне так удобнее 
Последний раз редактировалось HakaR; 04.05.2010 в 15:26..
|
|
|