Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 19.09.02 09:04

Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • CTimeToTDateTime Separator separator@mail.kz   (19.09.02 08:07)
    Преобразование Unix времени в стандартный TDateTime и обратно.
    »»» Скачать: исходные тексты (1кб)
  • CTimeToTDateTime Separator separator@mail.kz   (19.09.02 08:06)
    Преобразование Unix времени в стандартный TDateTime и обратно.
    »»» Скачать: исходные тексты (1кб)
Лучшее из нашего FAQ   |x|
Как проверить подключен ли компьютер к internet ? 

interface  
uses  
  Windows, SysUtils, Registry, WinSock, WinInet;  

type  
  TConnectionType = (ctNone, ctProxy, ctDialup);  

function ConnectedToInternet : TConnectionType;  
function RasConnectionCount : Integer;  
   

implementation  

//For RasConnectionCount =======================  
const  
  cERROR_BUFFER_TOO_SMALL = 603;  
  cRAS_MaxEntryName       =  256;  
  cRAS_MaxDeviceName      =  128;  
  cRAS_MaxDeviceType      =  16;  
type  
  ERasError = class(Exception);  

  HRASConn = DWord;  
  PRASConn = ^TRASConn;  
  TRASConn = record  
     dwSize: DWORD;  
     rasConn: HRASConn;  
     szEntryName: Array[0..cRAS_MaxEntryName] Of Char;  
     szDeviceType : Array[0..cRAS_MaxDeviceType] Of Char;  
     szDeviceName
: Array [0..cRAS_MaxDeviceName] of char;  
  end;  

  TRasEnumConn!
ections =  
      function (RASConn: PrasConn; { buffer to receive Connections data }  
                var BufSize: DWord;    { size in bytes of buffer }  
                var Connections: DWord { number of Connections written to buffer }  
                ): LongInt; stdcall;  
//End RasConnectionCount =======================  
   

function ConnectedToInternet: TConnectionType;  
var  
  Reg       : TRegistry;  
  bUseProxy : Boolean;  
  UseProxy  : LongWord;  
begin  
  Result := ctNone;  
  Reg := TRegistry.Create;  
  with REG do  
  try  
    try  
      RootKey := HKEY_CURRENT_USER;  
      if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet settings',False) then begin  
        //I just try to read it, and trap an exception
 
        if GetDataType('ProxyEnable') = rdBinary then  
 !
         ReadBinaryData('ProxyEnable', UseProxy, SizeOf(LongWord) )  
        else begin  
          bUseProxy := ReadBool('ProxyEnable');  
          if bUseProxy then  
            UseProxy := 1  
          else  
            UseProxy := 0;  
        end;  
        if (UseProxy <> 0) and ( ReadString('ProxyServer') <> '' ) then Result := ctProxy;  
      end;  
    except  
      //Obviously not connected through a proxy  
    end;  
  finally  
    Free;  
  end;  

  //We can check RasConnectionCount even if dialup networking is not installed  
  //simply because it will return 0 if the DLL is not found.  
  if Result = ctNone then begin  
    if RasConnectionCount > 0 then Result
:= ctDialup;  
  end;  
end;  

function RasConnectionC!
ount : Integer;  
var  
  RasDLL    : HInst;  
  Conns     : Array[1..4] of TRasConn;  
  RasEnums  : TRasEnumConnections;  
  BufSize   : DWord;  
  NumConns  : DWord;  
  RasResult : Longint;  
begin  
  Result := 0;  

  //Load the RAS DLL  
  RasDLL := LoadLibrary('rasapi32.dll');  
  if RasDLL = 0 then exit;  

  try  
    RasEnums := GetProcAddress(RasDLL,'RasEnumConnectionsA');  
    if @RasEnums = nil then  
      raise ERasError.Create('RasEnumConnectionsA not found in rasapi32.dll');  

    Conns[1].dwSize := Sizeof (Conns[1]);  
    BufSize := SizeOf(Conns);  

    RasResult := RasEnums(@Conns, BufSize, NumConns);  

    If (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result := NumConns;  
  finally  
    FreeLibrary(RasDLL);
 
  end;  
end;

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Почему глючит Дятел
    Есть два вопроса. Первый: Поставил поверх FireBird Yaffil'а - начались приколі типа "Удаленный хост принудительно ...
  • Чтение из COM-порта
    Точно известно, что аппаратура посылает в порт 15 байт, а вот в программе принимаются только первые 8. Подскажите, ...
  • Помогите обратится к таблице с паролем через TQuery
    Всем привет! Есть таблица парадокс, она запаролена. Пароль известен ;-) Как можно обратиться через TQuery и программно ...
  • Хитрый  Tray
    Всем привет. это вопрос наверное всетаки к знатокам. Просьба не отсылать к RX или поиску в инете -такого не нашел ...
  • Создание форм
    Такой вопрос: Есть главная форма из неё вызывается форма Form1 двумя разными способами: ___________ | Гл. форма | - ...
  • TTreads vs componenty
    nikogda ne rabotal s threadamy takshto prostite za bonal'nost'... moshno li kaknit' sozdavat' componenty v threade, ...
  • DirectX
    Где найти DirectX под дельфи 6, от других не подходит ,при установке говорит ерор компил и нефига.ЧО делать...
У нас большой выбор статей   |x|
Куда движется Delphi
Обзор нововведений в Delphi 6 и Kylix (перервод Михаила Голованова)
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
САМЫЙ БОЛЬШОЙ КАТАЛОГ РЕСУРСОВ ПО ПРОГРАММИРОВАНИЮ
спешите добавить туда свой ресурс
» Оценка сайта: 3
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Да, нелегка самурайская жизнь
Hо делать себе харакири
Обидно, поевши пельменей...

Афоризмы
От рождения и смерти есть только одно лекарство: постараться получить удовольствие в промежутке между ними...(Сантаяна)

Фраза дня
Ищу выход из Интеpнета...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Дании прежде чем завести машину вы должны:
- проверить исправность фар, тормозов, руля и клаксона.
- убедиться, что под ней нет детей.
В Монтане (США) женщине грозит тюрьма, если она вскроет почту мужа

И на закуску коротенький анекдот
- Дорогая! - заявляет один программист своей жене. - За все, что ты для меня сделела, я решил увековечить твое имя! Я присвоил твое имя только что созданному мной вирусу.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=7878

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное