Меню сайта
Категории раздела
PHP [0]
Видео уроки [0]
DELPHI [45]
BASIC [0]
HTML [0]
JAVA [0]
C++ / C# [0]
Радио
ЧАТ
200
Облако тегов
Облако фото
Форум
  • композитная арматура (0)
  • Справедливо ли это???? (1)
  • Недвижимость в Тюмени (1)
  • Качество услуг и обслуживания (2)
  • строительный эксперт (0)
  • гид по Греции (0)
  • винные туры по Италии (0)
  • деревянные лестницы (0)
  • гид по Италии (0)
  • Разные поздравления (1)
  • Главная » Статьи » Программисту » DELPHI

    Разорвать соединение с интернетом

    У меня этот код работает 



    Код
    type
    TRasConn = record
    Size: DWORD;
    Handle: THandle;
    Name: array[0..20] of AnsiChar;
    end;

    TRasEnumConnections = function(var RasConn: TRasConn; var Size: DWORD;
    var Connections: DWORD): DWORD stdcall;
    TRasHangUp = function(Handle: THandle): DWORD stdcall;

    function DisconnectDialUp: Boolean;
    var
    Lib: HINST;
    RasEnumConnections: TRasEnumConnections;
    RasHangUp: TRasHangUp;
    RasConn: TRasConn;
    Code, Size, Connections: DWORD;
    begin
    Result := True;
    try
    Lib := LoadLibrary('rasapi32.dll');
    try
    if Lib = 0 then
    Abort;
    RasEnumConnections := GetProcAddress(Lib, 'RasEnumConnectionsA');
    if not Assigned(@RasEnumConnections) then
    Abort;
    RasHangUp := GetProcAddress(Lib, 'RasHangUpA');
    if not Assigned(@RasHangUp) then
    Abort;
    FillChar(RasConn, SizeOf(RasConn), 0);
    RasConn.Size := SizeOf(RasConn);
    Code := RasEnumConnections(RasConn, Size, Connections);
    if (Connections <> 1) or (Code <> 0) then
    Abort;
    if RasHangUp(RasConn.Handle) <> 0 then
    Abort;
    Sleep(3000);
    finally
    FreeLibrary(Lib);
    end;
    except
    on E: EAbort do
    Result := False;
    else
    raise;
    end;
    end;



    Пример использования: Код

    if DisconnectDialUp = true then
    ShowMessage('Соединение разорвано')
    else
    ShowMessage('Не удалось разорвать соединение');

    Категория: DELPHI | Добавил: SeM (01.04.2011)
    Просмотров: 787 | Комментарии: 2 | Рейтинг: 0.0/0
    Всего комментариев: 2
    1 nauka  
    0
    А если мне это нада на кнопочку назначить то как сделать?

    2 SeM  
    0
    Пример использования: Код

    if DisconnectDialUp = true then
    ShowMessage('Соединение разорвано')
    else
    ShowMessage('Не удалось разорвать соединение');

    тот код вставляешь, а вот что выше написал делаешь в кнопку (событие онклик, проще говоря щелкнешь по кнопке, откроется процедура сразу и всьавляешь этот маленький код и тестишь)


    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    Поиск по сайту
    Новый Год
    Опрос
    Понравились фотографии Тобольска?


    Всего ответов: 14
    Всего голосовало: 14
    Обсудить на форуме
    Друзья сайта
    измерьте скорость интернета Яндекс.Метрика
    Проверить тИЦ и PR
    Статистика
    Погода
    Яндекс.Погода
    Коменнтарии

    Извиняюсь, заработал. Спасибо за урок biggrin

    Компонент не работает

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

    у меня все работает!

    Нифига не робит...
    Кто знает как сделать чтобы на жесткий жертвы сохранял..
    ISQ 606017777

    FSDGHDFJHRG


    Отзывы Фото
    6 микр. Красивое место....

    Ершов ))))

    Старый музей но щас его перенесли...

    Фотография под горы smile

    Красивое фото!!! smile

    Copyright MyCorp © 2024