Получение капчи HitFile

[xe0ps]

Привет ребят как тут выдрать капчу на ImagleList вот тут

<img alt="Captcha" src="http://hitfile.net/captcha/basic/1441887624" width="150" height="50">

заранее благодарен всем

[sera.kerch]

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

Привет ребят как тут выдрать капчу на ImagleList вот тут

<img alt="Captcha" src="http://hitfile.net/captcha/basic/1441887624" width="150" height="50">

заранее благодарен всем

а не пробовал

res:=idhttp1.get(‘http://hitfile.net/captcha/basic/1441887624‘);

[_ZixeL_]

Я в своё время загружал такие каптчи веббраузером.
Не знаю, правильно это или нет, но работало

[xe0ps]

после http://hitfile.net/captcha/basic/ эти цифры поменяются => 1441887624 как сделать чтобы не потеря сессию вытащит капчу

[sera.kerch]

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

после http://hitfile.net/captcha/basic/ эти цифры поменяются => 1441887624 как сделать чтобы не потеря сессию вытащит капчу

в свое время пользовался IEEvents.pas, подключается непосредственно с Самому IE )))

procedure TForm1.Button1Click(Sender: TObject);
 var
   pvShell: IShellWindows;
   pvWeb2: IWebBrowser2;
   ovIE: OleVariant;
   dwCount: Integer;
   flag:boolean;
   s:string;
 begin

  pvShell := CoShellWindows.Create;
  flag:=false;
  for dwCount := 0 to Pred(pvShell.Count) do begin
   ovIE := pvShell.Item(dwCount);
   if IDispatch(ovIE)<>nil then begin
    if (IDispatch(ovIE).QueryInterface(IWebBrowser2, pvWeb2) = S_OK) then begin
     if pos(' строка в урл ',ovIE.LocationURL)<>0 then begin
      s:=ovIE.LocationURL;
      IEEvents1.ConnectTo(pvWeb2);
      status:=Connect;
      Label4.Caption:='Подключено';
      AddEventLog('-------------------Connect-----------------------');
      flag:=true;
      pvWeb2 := nil;
     end;
    ovIE := Unassigned;
   end;
  end;
 end;
  pvShell := nil;
  if not flag then
   MessageBox(Handle,'Не удалось подключится к сайту в IE'+#$A+'Запустите IE, введите название сайта'+#$A+'повторите попытку подключения','Ошибка',MB_ICONERROR);
end;

а дальше как к TWebBrowser

Procedure Finder;
var
  iDisp: IDispatch;
  iw: IWebbrowser2;
  i: Integer;
  win: IHTMLWindow2;
  iDoc,iFram: IHtmlDocument2;
  Link        : IHTMLElement;
  StrLinks,ID     : string;
begin
 with Form1 do begin
 if IEEvents1.WebObj = nil then begin
  MessageBox(form1.Handle,'Проблема с Интернетом, попробуйте снова','Ошибка #101',MB_ICONWARNING);
  AddEventLog('>>>>>>>>>>>>>>>  Проблема с Интернетом Ошибка 101');
  Status:=Stop;
  Exit;
 end;
 iFram:=IEEvents1.WebObj.Document as IHtmlDocument2;
 for i := 0 to iFram.frames.Length - 1 do begin
  iw := GetFrame(IEEvents1.WebObj,i);
  iDoc := iw.Document as IHtmlDocument2;
  StrLinks := iDoc.ParentWindow.Name;
  AddEventLog('find Frame '+inttostr(i)+'----------------'+StrLinks);
  if StrLinks='NavContent' then begin
   win := iDoc.parentWindow;
   iDisp:=iDoc.all.item('gvData',0);
   if assigned(iDisp) then begin
    iDisp.QueryInterface(IHTMLElement, Link);
    StrLinks:=Link.innerText;
    if pos('User ID:',StrLinks)<>0 then
      repeat
          ......
      until pos('User ID:',StrLinks)=0;
   end else begin
    MessageBox(Handle,'Не та страница, попробуйте снова','Ошибка Find',MB_ICONWARNING);
    Status:=Stop;
   end;
  end;
......