Капча

[bulldog5293]

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

[Квэнди]

как парсить страницу на каторой находится капча

чем парсинг html документа с капчей отличается от парсинга html документа без капчи ?
Сформулируйте нормальный вопрос

[Voland-791]

Вот пример на мегафон,делал сам. и в Users - jpeg

var
img: TMemoryStream;
jpg: TJpegImage;
captcha,s,im: string;
begin
jpg:= TJpegImage.Create;
img:= TMemoryStream.Create;
S:= idhttp1.Get('http://sibir.megafon.ru/sendsms/');
captcha:=Copy(s, pos('keystring',s),8);
IdHTTP1.Get('http://sibir.megafon.ru/antirobot/index.php?'+ captcha + '.jpg', img );
img.Position:=0;
jpg.LoadFromStream(img);
form1.image1.Picture.Assign(jpg);
jpg.Free;
img.Free;
end;

[bulldog5293]

Voland-791 понимаю что сам писал, но думаю что captcha:=Copy(s, pos('keystring',s),8); лишнее, т.к. посмотрев исходник страницы antirobot/index.php находится в img src=", вот поэтому я не могу сообразить как отпарсить img src="

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

PHP код:

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; 


код страницы вот

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 /> 


[Terikon]

Держи)

procedure TForm1.Button1Click(Sender: TObject);
var
s,cap:string;
begin
s:=Memo1.Text;
   cap:=copy(s,pos('<img src="',s)+9,length(s)-pos('<img src="',s)+9);
   cap:=copy(cap,2,pos('align',cap));
   cap:=copy(cap,1,length(cap)-4);
Label1.Caption:=cap;
end;
end.

[bulldog5293]

спс, за пример, но у меня выводится jpeg eror #33, хотя в uses вставил jpeg

[Terikon]

Сообщение от bulldog5293

спс, за пример, но у меня выводится jpeg eror #33, хотя в uses вставил jpeg

Показывай код, если ты используееш код из 4 поста то не удивительно что у тебя ошибка, там полно косяков, тебе с какого сайта нужно вытащить капчу?

[bulldog5293]

сайт http://wmmaks.ru/index.php
код что выше писал

PHP код:

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; 


[Terikon]

Я в упор не увидел кода который ты выложил в 4 посте, а ошибку выдаёт потому что картинка в формате png а ты её загружаеш как jpeg, в общем вот рабочий код, если у тебя delphi 9/2010 то в uses добавь pngimage, если ниже то качай эту библиотеку http://delphidevelop.ru/load/19-1-0-36

procedure TForm1.btn1Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
begin
idhtp1.Get('http://wmmaks.ru');
img:=TMemoryStream.Create;
idhtp1.Get('http://wmmaks.ru/logincap.php',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
img1.Picture.Assign(png);
png.Free;
img.Free;
end;
end.

[DeDoK]

а как допустим для цикла? когда надо много раз загрузить капчу?
где вписать rewrite ?