[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    ничего не понял с твоего ответа
    То прога у тебя работает то помогите.
     
  2. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    Я подозреваю он пишет на паскале чистом где нет этих юнитов.

    Да и по стилю видно студент, так что скорее всего это задание по информатике
     
  3. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    поподробнее можно? может посоветуете что у дедушки ГУГЛа спросить
     
  4. MaTpOc

    MaTpOc Elder - Старейшина

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    Помогите решить плиз

    мне нужнo найти в oдномернoм массиве A[1..50] максимaльный и минимaльный элемент, потом определить является ли сумма чисел между мин и макс(в сумму включить и мин и мaкс) кратной 10!

    яп Паскаль!
     
  5. $Robin

    $Robin Member

    Joined:
    25 Jun 2010
    Messages:
    47
    Likes Received:
    5
    Reputations:
    0
    Code:
    var
    	a : array[1..50] of integer;
       min,max : integer;
       i,s : integer;
    begin
       s := 0;
       write('ta-ta-ta a[1] = ');
       readln(a[1]);
       max := a[1];
       min := a[1];
       for i:= 2 to 50 do begin
       	write('ta-ta-ta a[',i,'] = ');
          readln(a[i]);
       	if a[i] > max then max := a[i];
       	if a[i] < min then min := a[i];
       end;
       for i := min to max do
       	s := s + i;
       if (s mod 10) = 0 then
       	writeln('yes')
       else
       	writeln('no');
       readln;
    end.
    Как-то так, не проверял..
     
    #7725 $Robin, 7 Feb 2011
    Last edited: 7 Feb 2011
    1 person likes this.
  6. tekton

    tekton Elder - Старейшина

    Joined:
    2 Jun 2008
    Messages:
    73
    Likes Received:
    3
    Reputations:
    0
    Всем привет!
    Хочу написать снифер.

    Задача:

    Есть на страничке html, инпут и кнопка.
    Как спарсить текст находящийся в инпуте в переменную, когда юзер кликает на кнопку ? ;)
     
  7. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    Хочешь написать снифер пиши, лови пакеты и разбирай.

    Если кнопка и юзер то это не снифер а хз что.

    Если хочеш узнать данные передаваемые TwebBrouser то вариант есть но очень геморойный.
    Обрабатывай событие браузера DownloadBegin, получай код страницы разберай его на запчасти.
     
  8. tekton

    tekton Elder - Старейшина

    Joined:
    2 Jun 2008
    Messages:
    73
    Likes Received:
    3
    Reputations:
    0
    Парсер чата

    Сории!
    Не правильно выразился [​IMG]
    Не снифер, а парсер [​IMG]
    Во блин! [​IMG]
    А если парсить? Это легче осуществить ? [​IMG]
     
  9. Isaev

    Isaev Elder - Старейшина

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    ....
    Да нет, как раз правильно, пока кнопка не нажата парсить нечего, а когда нажата нужно сначала отловить запрос (если она вообще для того, чтобы передать какие-то данные) или ты ошибся темой, тут Delphi
     
  10. tekton

    tekton Elder - Старейшина

    Joined:
    2 Jun 2008
    Messages:
    73
    Likes Received:
    3
    Reputations:
    0
    Ну да, я хочу парсер на Delphi и сделать.

    А как можно отловить post запрос, который отправляется при клике юзером на кнопку ? [​IMG]
    P.S. Если можно примерчик
     
  11. Isaev

    Isaev Elder - Старейшина

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Зависит от того где находится кнопка... Грубо говоря никак! Если только в очень узком конкретном случае извратишься.
     
  12. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    отснифить можно все другой вопрос сколько на это нужно усилий и знаний.
    Тотже HttpAnalyzer снифит все, но и писали его люди довольно подготовленные и не за час времени.
     
  13. tekton

    tekton Elder - Старейшина

    Joined:
    2 Jun 2008
    Messages:
    73
    Likes Received:
    3
    Reputations:
    0
    Есть эта прога.
    Тоесть Вы хотите сказать, что я могу включить прогу , выбрать процесс браузера, и после этого отловить запрос который передаётся с другого компа, другим юзером, когда он вводит слово в инпут и тискает кнопку ? ;)
     
  14. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    примерно да.
    Но он просто ловит все что идет в сеть а там фильтруй как тебе интересно.
    можешь фильтровать по приложению которое в сеть отправляет, также по имени и т.д.
     
  15. petryxa-mixa

    petryxa-mixa Member

    Joined:
    8 Jun 2010
    Messages:
    174
    Likes Received:
    7
    Reputations:
    0
    Как сделать чтоб каждая строка была на новой строчке(пробел эмулировать вообщем)
    WriteLn (fail_run, 'первая строка вторая строка третья строка');

    сам нашёл может кому то пригодится
    перенос на следующую строку +#13#10+
     
    #7735 petryxa-mixa, 7 Feb 2011
    Last edited: 7 Feb 2011
  16. trunker

    trunker Member

    Joined:
    5 Feb 2009
    Messages:
    44
    Likes Received:
    66
    Reputations:
    1
    Подскажите пожалуйста какой либо компанент для делфи, через который можно отправлять текст на мыло или асю, у меня RAD studio XE. И как его установить?
     
  17. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    для мыла Инди Idsmtp
    для аски поищи в гугле, названия не помню но компонет есть точно знаю
     
  18. trunker

    trunker Member

    Joined:
    5 Feb 2009
    Messages:
    44
    Likes Received:
    66
    Reputations:
    1
    а как их ставить, что то у меня не получается, раньше на делфи 7 все норм получалось, а на новой понять не могу...
     
  19. arnis

    arnis Member

    Joined:
    30 Jan 2011
    Messages:
    280
    Likes Received:
    23
    Reputations:
    0
    в ХЕ инди стоит и так
    под аську ищи компонент потом смотри как его ставить
     
  20. trunker

    trunker Member

    Joined:
    5 Feb 2009
    Messages:
    44
    Likes Received:
    66
    Reputations:
    1
    что то для RAD ничего не попадается....
    а TICQ Client не ставится(
     
Thread Status:
Not open for further replies.