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

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    Ты не думай,что я ламер!!! :))) Я знаю много языков программирования, в том числе и Паскаль, вот решил и Дельфи подучить для шалости!!!
    Проблема не в этом... к сожаленью...
    ДА и не работает это, я пробовал он возвращает не то что мы ожидаем...
    Там видишь процедура создания формы, а мы ее как бы затыкаем... эта процедура работает если ее вставить не в этой процедуре...
    Хым... масло мясляное :)))
    Короче я тоже самое вставил в кнопку и это работает...
    Но я уже обошел это... лучше скажи как с подключением к интернет быть... :)))
     
    #341 b2mbey, 26 Jul 2007
    Last edited: 26 Jul 2007
    1 person likes this.
  2. mari00

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

    Joined:
    27 Oct 2006
    Messages:
    93
    Likes Received:
    40
    Reputations:
    16
    Если тебе нужен выход по кнопке Да то я б сделал вот так:
     
  3. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Не получается, но я забыл сказать, мак адресс физически ментяь нельзя, а вот виртуально можно, и делается это из настройки сетевухи (диспетчер устройств)
     
  4. Exile1985

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

    Joined:
    10 Aug 2006
    Messages:
    124
    Likes Received:
    35
    Reputations:
    1
    ну да, реальный МАС адрес вшит в само железо, т.е. в саму сетевуху, а подменить его можно либо в настройках сетевухи либо в реестре, это точно сам когдато давно делал, но если так уж нужно то вечером приду дамой сделаю
     
  5. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    Народ почему вот это не работает:

    str := 'C:\1.lnk'
    ShellExecute(0, 'explore', Pchar(str), nil, nil, SW_SHOWNORMAL);
    WinExec(Pchar(str),SW_SHOWNORMAL);

    причем если вместо Pchar(str) поставить 'C:\1.lnk' - это работает!!!
    Не пойму... Дельфи глючит???
     
  6. Arlendil

    Arlendil New Member

    Joined:
    26 Jul 2007
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    При попытке создания базы данных и обращения к программе Database Desktop выдается сообщение: Cannot load language driver
     
  7. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    Как это ни странно, но вот рабочий вариант:
    ShellExecute(0, 'open', Pchar(ListBox1.Items.Strings), nil, Pchar(Form2.DirectoryListBox1.Directory), SW_SHOWNORMAL);

    Хотя я тоже мог сразу догадаться :D , про парамметр Директория.... хотя с ехе работает, когда явно указываешь ярлык тоже работает и без этого параметра...

    Извините за мой русский...
     
    #347 b2mbey, 26 Jul 2007
    Last edited: 26 Jul 2007
  8. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    И все таки народ... Как определить есть ли подключение к интернету???
     
  9. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    пинг к gateway провайдера
     
  10. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    А можно по подробней???
     
  11. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    Например у тебя айпи 86.106.27.234 а gateway будет 86.106.27.1 если пинг к gw не пойдет, значит у тебя нету нета!
     
  12. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    Да, это понятно, а как это реализовать это в Дельфи?
     
  13. z01b

    z01b Муджахид

    Joined:
    5 Jan 2007
    Messages:
    494
    Likes Received:
    382
    Reputations:
    22
    http://delphi.about.com/library/weekly/code/src081503.zip
    пинг компонент, чтоб не игрался с raw socket.
     
  14. NetMan

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

    Joined:
    9 Feb 2004
    Messages:
    121
    Likes Received:
    37
    Reputations:
    34
    b2mbey > http://www.delphisources.ru/pages/faq/internet_net.html
     
  15. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    А в этом куске кода, что такое TRasConn???
     
  16. Ni0x

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

    Joined:
    27 Aug 2006
    Messages:
    338
    Likes Received:
    157
    Reputations:
    37
    да тут одни извращенцы я смотрю =) все делается одной функцией
    InternetGetConnectedState()
     
    #356 Ni0x, 26 Jul 2007
    Last edited: 26 Jul 2007
  17. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    Дельфя говорит не знаю такой.... в каком это юните???
     
    #357 b2mbey, 26 Jul 2007
    Last edited: 26 Jul 2007
  18. NetMan

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

    Joined:
    9 Feb 2004
    Messages:
    121
    Likes Received:
    37
    Reputations:
    34
    Вообще-то я дал линк на FAQ. Если вы не смогли найти, то вот
    http://www.delphisources.ru/pages/faq/base/inet_active_conn.html
     
  19. Ni0x

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

    Joined:
    27 Aug 2006
    Messages:
    338
    Likes Received:
    157
    Reputations:
    37
    WinInet
     
  20. b2mbey

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

    Joined:
    25 Jul 2007
    Messages:
    31
    Likes Received:
    1
    Reputations:
    0
    Спасибо, это работает...
     
Thread Status:
Not open for further replies.