[bulldog]

Знаю что тема заезжана вдоль и поперёк, но всё же не могу панять как парсить страницу на каторой находится капча если все строницы как я смотрел имеют общий тег <img src="

[lmikle]

непонятен вопрос.
в чем проблема?

[bulldog]

знаю как капчу сразу по прямой ссылки

PHP код:

procedure TForm10.Button1Click(Sender: TObject);
var
s:TStringStream;
  sl:TStringList;
  j : TJPEGImage;
  ms : TMemoryStream;
begin
  ms := TMemoryStream.Create;
idhttp1.get(url+'logincap.php',ms);
  ms.Seek(0,0);
  j := TJPEGImage.Create;
  j.LoadFromStream(ms);
  ms.Free;
  j.Free;
end; 


а как отпарсить эту ссылку на капчу по тегу <img src=" не пойму

[lmikle]

Взять url из атрибута src и далее уже приведенным кодом.
Т.е. в 2 захода. Сначала качаем страничку, парсим ее, выдираем url, а потом качаем саму капчу.

[NumLock]

да уж, про каптчу понаписано много, но мне никак не удается увидеть ни одного рабочего примера. спрошу еще в этой теме: может кто-то поделится ссылкой или еще чем? это ж самый простой вопрос: у меня есть картинка, куда мне ее "девать", чтобы получить код?

[bulldog]

NumLock если бы я нашёл пример нармальный то сам бы не спрашивал

[friz]

скинь html код и мы его тебе распарсим

[bulldog]

PHP код:

<form action="login.php" method="post">
<div id="form">
    <table border="0" align="center" cellspacing="1" cellpadding="1">
            <tr><td><b>Логин:</b></td></tr>

        <tr><td><input type="text" size="25" maxlength="25" name="username" id="username" onfocus="focus_username(this)" value="Логин" tabindex="1" /></td></tr>

        <tr><td><b>Пароль:</b></td></tr>

        <tr><td><input type="password" size="25" maxlength="25" name="password" id="password" onfocus="focus_password(this)" value="------------" tabindex="2" /></td></tr>

        <tr><td><b>Защитный код:</b></td></tr>

        <tr><td><img id="login" src="newcaptcha.php" width="80" height="20" border="0" align="middle" alt="" /><a href="javascript:refresh_on('login');"><img src="img/refresh.png" align="middle" width="18" height="18" alt="Обновить" title="Обновить" /></a><input type="text" size="5" maxlength="5" name="captcha" class="field" value="" /></td></tr>
    </table>
</div>
<center><input type="submit" class="button" value="Войти в аккаунт" onclick="return Formdata(this.form)" /></center>
</form>
<br /> 


капча тут <img id="login" src="newcaptcha.php"

[bulldog]

пробывал так, но не парсит

Код:

var
s:TStringStream;
data:TStringList;
st:String;
img: TMemoryStream;
otvet:String;
jpg: TJpegImage;
begin
s := TStringStream.Create;
IdHTTP1.Get('http://wmmaks.ru/',s);
while Pos('img src=',st)>0 do begin
(Copy(st,Pos('img src=',st)+12,7));
IdHTTP1.Get('http://wmmaks.ru/'+st);
Delete(st,1, Pos('img src=',st)+12);
jpg.LoadFromStream(img);
form10.image1.Picture.Assign(jpg);
jpg.Free;
img.Free;
end;
end;

[pesi]

Третий вопрос, а смысл один о тот же.
Вы ссылки то хоть смотрели?

[bulldog]

смотрел и не чего путного не нашёл

[Страдалецъ]

Код:

(Copy(st,Pos('img src=',st)+12,7));

Это че? Куда результат-то копирования заносите?

[bulldog]

st в string и пытаюсь произвести чтение из него

[Страдалецъ]

Вы в этом уверены?

Код:

while Pos('img src=',st)>0 do begin
(Copy(st,Pos('img src=',st)+12,7));
IdHTTP1.Get('http://wmmaks.ru/'+st);

Я в этом коде вижу пустой вызов

Код:

(Copy(st,Pos('img src=',st)+12,7));

который ничего по сути не делает. Может вы хотели так:

Код:

st := Copy(st,Pos('img src=',st)+12,7);