Скачать: CL | DM;

Парсинг капчи + WinInet   Найти похожие ветки 

← →
SBvafla ©   (2010-09-13 23:04) [0]

Добрый день, вот функция с помощью которой получаю страничку из интернет -

NetHandle := InternetOpen(AName, CERN_PROXY_INTERNET_ACCESS, Pr, nil, 0);
IF Assigned(NetHandle) then
 Begin
  UrlHandle := InternetOpenUrl(NetHandle, AUrl, nil, 0, INTERNET_FLAG_RELOAD, 0);
  IF Assigned(UrlHandle) then
   Begin
    FillChar(Buffer, SizeOf(Buffer), 0);
    repeat
     hContent := hContent + Buffer;
     FillChar(Buffer, SizeOf(Buffer), 0);
     InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
    until
     BytesRead = 0;
    //Тут потрошу данный со странички
    ....  
   end;
  Else
   Msg[1];
   InternetCloseHandle(UrlHandle);
 end
Else
 Mesg[2];
InternetCloseHandle(NetHandle);

Как дополнить эту функцию, чтобы не разрывая сессию получить капчу?(ссылку на которую
я получил со странички)

т.е.

   BytesRead = 0;
    //Тут потрошу данный со странички

далее я так понимаю надо сменить урл и скачать файл -
  InternetCloseHandle(UrlHandle);
  UrlHandle := InternetOpenUrl(NetHandle, NEWUrl, nil, 0, INTERNET_FLAG_RELOAD, 0);
  AssignFile(AFile, "C:\test.jpg");
  Rewrite(AFile,1);
   repeat
    InternetReadFile(UrlHandle, @FBu

---

← →
SBvafla ©   (2010-09-13 23:11) [1]

InternetReadFile(UrlHandle, @FBuffer, SizeOf(FBuffer), BufferLen);
    BlockWrite(AFile, FBuffer, BufferLen)
   until
    BufferLen = 0;
   CloseFile(AFile);
...
Но не получается...
Подскажите пожалуста, - как?
сорри сглючило не все скопировал - вот продолжение

---

← →
Anatoly Podgoretsky ©   (2010-09-14 09:44) [2]

> SBvafla  (13.09.2010 23:11:01)  [1]

Чему равно NEWUrl, какая ошибка возникает.

---

← →
_L_   (2010-09-17 19:01) [3]

Извините, а в чём сам вопрос-то?
Функция с помощью которой вы получаете страничку из интернета работает?
Или вопрос в том как сам парсинг делать?

> не разрывая сессию

Хм... А это так важно?

---

← →
sniknik ©   (2010-09-17 21:11) [4]

> Хм... А это так важно?
вопрос жизни и смерти... :) в новой сессии будет новая капча.

---

← →
Rouse_ ©   (2010-09-17 22:29) [5]

работай через HttpSendRequest() MSDN под рукой нет - но там по описанию все понятно

---

← →
antonn ©   (2010-09-17 22:54) [6]

заголовки нужно отправлять, что получил после скачанной страницы, больше сессию хранить негде

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c