[ 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. noveek

    noveek New Member

    Joined:
    29 Dec 2008
    Messages:
    45
    Likes Received:
    4
    Reputations:
    1
    Можно вас попросить скомпилировать

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

    _http://dump.ru/file/1434665
     
  2. KIR@PRO

    KIR@PRO from Exception

    Joined:
    26 Dec 2007
    Messages:
    826
    Likes Received:
    291
    Reputations:
    359
    Может кто помоч:
    искал исходники канального снифера на делфях, нашел DumpDemo работает норм, но исходники не хатят компилится на дэлфе) компоненты говорит нужны. компоненты тоже искал но не нашол(

    помогите плиз может у кого есть с компонентами етот же снифер или кто писал канальный снифер и остались исходники ... поделитесь плиз)


    p.s. вот ссылка на архив с исходниками и скомпиленной прогой с сайта создателя http://rouse.drkb.ru/files/dumpdemo_delphi_vcl.zip
     
    _________________________
    #2522 KIR@PRO, 17 Jan 2009
    Last edited: 17 Jan 2009
  3. _nic

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

    Joined:
    5 May 2006
    Messages:
    651
    Likes Received:
    54
    Reputations:
    3
    Подскажите кто с инди работал.Там нет никаких ограничений на мультипоточность?К примеру к в случае с wininet
     
  4. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Изложи свой вопрос более подробно.
     
  5. ZET36

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

    Joined:
    8 Oct 2007
    Messages:
    250
    Likes Received:
    49
    Reputations:
    0
    Как из одной формы вызывать процедуру другой формы. Например в Unit2 находятся переменные, которые я хочу передать в Unit1

    пробывал так:


    Unit2
    Code:
    procedure TForm2.Button1Click(Sender: TObject);
    var
    zz:string;
    dd:string;
    begin
    
    zz:=Edit1.text;
    dd:=Edit1.text;
    TForm1.the(zz,dd);
    end;

    Unit1
    Code:
    procedure TForm1.the(zz:string; dd:string);
    begin
    showmessage(zz);
    showmessage(dd);
    end;
    
    неполучается.

    Может я забыл, что-то указать?
     
    #2525 ZET36, 18 Jan 2009
    Last edited: 18 Jan 2009
  6. Joker-jar

    Joker-jar Elder - Старейшина

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    Добавить в Unit1 в uses Unit2
     
  7. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    нe
    TForm1.the(zz,dd); , а Form1.the(zz,dd);
    при нажатии Ctrl+F9 будет вопрос, о том что вызываемый метод находится в "соседнем" юните, хотите-ли вы его добавить?
    отвечаешь положительно и в секции uses появляется unit2
     
  8. ZET36

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

    Joined:
    8 Oct 2007
    Messages:
    250
    Likes Received:
    49
    Reputations:
    0
    Спасибо, но, что то я запутался как представлять процедуру в "type" в обоих формах, не подсажите?
     
  9. _nic

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

    Joined:
    5 May 2006
    Messages:
    651
    Likes Received:
    54
    Reputations:
    3
    Ну допустим из несколько десятков потоков будут одновременно слатся пост запросы .Небудет ли проблем с реализацией такого на инди?
     
  10. Joker-jar

    Joker-jar Elder - Старейшина

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    ZET36, в Unit1 находишь uses, который после interface, добавляешь туда "Unit2". В Unit2, в свою очередь, находишь implementation, после него дописываешь uses и "Unit1". Все, теперь из модулей доступны методы друг-друга. Если необходима функция из другого модуля, а не метод, то ее нужно объявить перед implementation (например, после раздела глобальных переменных)
     
  11. crystalbit

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

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    можно через idhttp, надо вот только подключить к нему idssliohandler с вкладки indy misc (св-во iohandler)
    и в папке проги/системной папке должны лежать эти библиотеки
     
    1 person likes this.
  12. Ponchik

    Ponchik Хлебо-булочное изделие

    Joined:
    30 Aug 2005
    Messages:
    687
    Likes Received:
    807
    Reputations:
    311
    Эмм... В дельфе есть строка
    str := "Hello <delete>fucking</delete> world";
    Мне нужно удалить сами знаете чё :)
    Тоесть регулярка получается такая
    regular := "/(\<delete\>.*\<\/delete\>)/";
    А вот функцию для удаления/замены так и не нагулил, везде какое-то задротство, либо в дельфе нет поддержки регулярок, либо я нето ишу... Подскажите функцию
    в PHP это будет так
    PHP:
    <?php
    $string 
    "Hello <delete>fucking</delete> world";
    $pattern "/(\<delete\>.*\<\/delete\>)/";
    $replacement "";
    echo 
    preg_replace($pattern$replacement$string);
    ?>
     
    #2532 Ponchik, 18 Jan 2009
    Last edited: 18 Jan 2009
  13. crystalbit

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

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    Ponchik, есть замечательная функция StringReplace
    Code:
    _s:=StringReplace(_s,'%',_p,[rfReplaceAll]);
    
    еще можно использовать pos и delete

    Nightmarе, у себя не нахожу, стукни в асю, попробуем сделать)
     
    1 person likes this.
  14. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    Ponchik ну ты ппц, в дельфи есть поддержка регуляркок... =\

    TRegExpr - http://www.regexpstudio.com/RU/TRegExpr/Help/About.html
    VBScripts - http://www.delphisources.ru/pages/faq/base/regular_expressions.html
     
  15. Ponchik

    Ponchik Хлебо-булочное изделие

    Joined:
    30 Aug 2005
    Messages:
    687
    Likes Received:
    807
    Reputations:
    311
    crystalbit, а эта функция под регулярки разве?
    W!z@rD, спс, завтра почитаю, сёдня спать
     
  16. crystalbit

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

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    не) просто я так понял, что тебе нужно удалить теги,
    это просто замена, сорри
    тогда я б стал делать через Pos, PosEx и delete, если без регулярок
     
  17. KIR@PRO

    KIR@PRO from Exception

    Joined:
    26 Dec 2007
    Messages:
    826
    Likes Received:
    291
    Reputations:
    359
    ктонибудь знает как сформировать сетевой пакет полностью из данных которые нужны мне и отправить его, т.е. чтобы драйвер не дописывал сам мак назначения, мак отправителя, номер протокола и тд и тп. а я полностью начиная с первого байта и до последнего сам сформировывал и отправлял пакет...



    p.s. за сылки на соответствующие материалы тоже буду благодарен
     
    _________________________
  18. herfleisch

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

    Joined:
    7 Jan 2009
    Messages:
    579
    Likes Received:
    203
    Reputations:
    13
    На программном уровне доступны протоколы выше третьего. Мак добавляется на втором вроде-бы. Короче, никак ты это не сделаешь в домашних условиях. Почитай документацию по уровням повнимательнее.
     
    1 person likes this.
  19. herfleisch

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

    Joined:
    7 Jan 2009
    Messages:
    579
    Likes Received:
    203
    Reputations:
    13
    Может быть я где-то ошибся. Приеду домой минут через 20 - напишу подробнее и точнее.
     
  20. KIR@PRO

    KIR@PRO from Exception

    Joined:
    26 Dec 2007
    Messages:
    826
    Likes Received:
    291
    Reputations:
    359

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



    вот нашел инфу но тут на си... прочитай про ARP-spoofer =)

    http://www.sklyaroff.ru/x15.php
     
    _________________________
    #2540 KIR@PRO, 19 Jan 2009
    Last edited: 19 Jan 2009
Thread Status:
Not open for further replies.