дыну? in,out:string; begin in:=idhttp.get('страница с капчей'); out:=copy(in, pos('LanapCaptcha.aspx?', in)+18, length(in)); delete(out, pos('''', out), length(out));
Так он абсолютно прав. Скачать страницу можно хоть с помошью сокетов или TWebBrowser, это неважно. А пропарсить - совсем другая задача, к работе с сетью не имеющая отношение. Исаева плюсую за присутствие логики. logger отправка смс с сайта МТС? // ага вижу вопрос выше пропустил
спасибо метод хорош, но delphi ругается на эту строку: t := copy(i, pos('LanapCaptcha.aspx?', i)+18, length(i)); но при этом ссылку выдает, как избавится от ошибки? делаю вот так: var i , t : string; begin i := idhttp1.get('http://www.mts.ru/messaging/sendsms/'); t := copy(i, pos('LanapCaptcha.aspx?get=image&c', i)+18, length(i)); delete(t, pos('CAPTCHA code image', t)-7, length(t)); Edit1.Text := t; end;
Какова причина ругательства мы видимо должны устроить спиритический сеанс, или взломать твой комп чтобы слить скриншоты с сообщениями компилятора. upd: ааа, так это оказывается вообще ругается не дельфи, а исключение времени выполнения безмолвное. ок.
Ругается видимо не на эту строку. Ставь бряк на самое начало и по шагам прогоняй (F8) чтобы узнать где именно эксепшн
Code: program Project1; {$APPTYPE CONSOLE} var n, i, c: integer; res, s1, s: real; begin c := 1; n := 3; s1 := 0; readln(res); if res >= 3 then s := 1 else s := 0; while n <= res do begin for i := 1 to c do begin s1 := s1 + 1/n; n := n + 2; end; s := s * s1; //writeln(s1:4:8); c := c + 1; s1 := 0; end; writeln(s:4:8); readln; end. что-то типа такого.. вводится максимальное значение, в данном случае 43 коряво конечно, но на более красивое решение в данный момент не способен.. *SLEEP*
Врядли ты ошибка возникла на этой строке. 1n0y Если уж и используете Pos для парсинга страниц, то только для первого вхождения, дальше логичнее использовать posex чтобы не искать с самого начала документа каждый раз...
Вопрос по TwebBrowser и TidHTTPserver в связке. Собственно 2 вопроса по работе компонентов TwebBrowser и TidHTTPserver в связке: Сделаны 2 программы TwebBrowser (программа клиент) и TidHTTPserver (программа сервер) 1. Как из программы TwebBrowser передать на TidHTTPserver произвольный файл. 2. Существует ли возможность обратной передачи файла, но только, что бы со стороны клиента не выдавался запрос на сохранение файла, а программа сохраняла файл в нужное место автоматически. --- Заранее благодарен за ответы. Компонент TidHTTP использовать вместо TwebBrowser Нельзя, так как он будет работать в локальной сети за роутером, а что там внутри бог его знает... но точно неизвестны настройки интернета со стороны клиента (прокся с NTLM, просто прокся, NAT...), а IE автоматом уже настроен и выход в инет присутствует.
обычно я стараюсь искать что-то уникальное в тексте - а для этого вполне хватает и pos но за замечание спасибо - учту.
работа с мышью и экраном Доброго времени суточек всем. подскажите плиз, как можно заставить прогу в делфи скажим при нажатии кнопочки бутон1 программа перемещала курсор в определенную точку монитора (например вверхний левый угол), совершала нажатие левой кнопкой мыши, и возвращала курсор в исходное положение?
