Отправляет 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
31
Автор
Сергей

Статистика

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

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


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Новые компоненты   |x|
  • SubstDrive v.1.2 (1kb) (05.03.02 11:48)
    API для работы с устройствами через подстановку (см. DOS-команду "subst"). Совместимо с Windows 9x/ NT/ 2000/ XP
    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Files and Drives: Disk Access
    Источник: www.torry.net   Автор: SoftLab MIL-TEC Ltd http://www.softcomplete.com
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • MP3Info v.1.0 (1kb) (05.03.02 11:46)
    Компонент читает информацию из MP3-файла о версии MPEG, слое, битрейте и частоте.
    С исходными текстами
    Компонента из раздела: Effects and Multimedia: Other
    Источник: www.torry.net   Автор: Michael Lцscher http://trident-soft.de
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • TMidiGen v.1.1 (519kb) (05.03.02 11:43)
    Компонент позволяет легко создавать звуковые эффекты и нотные последовательности внутри приложения без использования внешних файлов и ресурсов. Это достигается генерацией MIDI-последовательностей в памяти. 175 инструментов из любой звуковой карты с MIDI-возможностями. Модуляция, реверберация и т.п. Возможны аккорды. Длительность нот с шагом 10 мс. Легко создается непрерывное воспроизведение. Демо и хелп включены.
    С исходными текстами
    Компонента из раздела: Effects and Multimedia: Audio
    Источник: www.torry.net   Автор: Alan Warriner http://www.alan-warriner.co.uk
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • AVDatePicker (Freeware version) v.2.1 (318kb) (04.03.02 12:13)
    Компонент для редактирования даты. Полностью настраивается, в том числе на любой язык. Позволяет редактировать даты (с маскированием и без) или выбирать их из выпадающего календаря. Сепаратор дат: '/', '-' или '.'. Скины позволяют разместить фоновую картинку под календарем. Только для некоммерческого использования.
    Новая версия компоненты
    Компонента из раздела: Date and Time: Date and Time
    Источник: www.torry.net   Автор: Alcides Valega http://avsoft.sitio.net
    -= · VCL · =- [Перевел: Mark S. Zheleznyak]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Лучшее из нашего 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;  

  TRasEnumConnections =  
      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(LongW!
ord) )  
        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
RasConnectionCount : 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|
У нас большой выбор статей   |x|
KOL - кодоэкономичное объектная библиотека для Delphi.
Библиотека KOL позволяет изготавливать не менее мощные приложения, чем стандартная библиотека Delphi - VCL (Visual Component Library, Визуальная Библиотека Компонентов). И при этом добиваться уменьшения размеров программ в 5-15 раз! Например, приложение DirComp, доступное для загрузки на сайте KOL, занимает без сжатия упаковывающими программами около 65 килобайт. Аналогичное приложение, написанное за два года до этого с использованием стандартной библиотеки Delphi, занимало 750 килобайт!
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
arXoft - сайт группы разработчиков
Сайт для программиста! Программы, написанные на Delphi, Delphi VCL, Delphi FAQ.
» Оценка сайта: 5
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Ива свесила нити…
Никак не уйду домой —
Ноги запутались.

Афоризмы
Рядом с дураком всегда найдется жулик.... ( прислал Profi )

Фраза дня
Ничто так не укрепляет веру в человека, как ПРЕДОПЛАТА.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Хартфорде в Коннектикуте (США) запрещено переходить дорогу на руках.
В Бальтиморе (США) запрещается швырять копны сена со второго этажа.

И на закуску коротенький анекдот
- Дыхните.
- Пожалуйста.
- Еще раз.
- Зачем?
- Очень запах нравится.

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

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

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