Отправляет 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

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

Кое-что из нашей кладовки   |x|
  • Пример дозвона с перебором соединений и работа с ftp JohnBurg JohnBurg@newmail.ru   (08.09.02 01:03)
    Программа дозваниваться до провайдела по настроенным соединениям.
    Причем до упора пока не примет и не передаст файл.Ошибки вроде все игнорируются (в смысле идет следуюшая попытка)
    Передает файл.Принимает файл с ftp
    В общем смотрите сами (не забудьте почитать Main_F.pas верхние строки)
    »»» Скачать: исходные тексты (16кб)
  • Обновленный FAQ по DELPHI, собранный из разных источников blackman blackman@lycos.ru   (06.09.02 17:55)
    Обновленный FAQ по DELPHI, собранный нами из разных источников переехал по адресу
    http://blackman.hoha.ru/myfaq/default.php
    »»» Скачать: исходные тексты
  • Rus WinAPI Help v1.3 VSergeySPB VSergeySPB@yandex.ru   (05.09.02 18:41)
    Русская справка по WindowsAPI. В активе:  680 функция и процедура,20 видов констант,54 структур, множество сообщений и несколько примеров.
    Помощь довольно просто подключается к Дельфи и вызывается по F1.
     Обновление: 39 функций по Хукам, MCI, Текст, Устройства.
    -константы: MCI_ MCIERR_ WH_
    -сообщения MCI: MCI_CLOSE MCI_OPEN
    -типы(структуры): TMCI_Anim_Open_Parms TMCI_Generic_Parms TMCI_Open_Parms TMCI_Ovly_Open_Parms
    TMCI_Wave_Open_Parms TShellExecuteInfo
    -примеры: "Диалог выбора папки." "Как создать виртуальное устройство?" "Как передать строку другому приложению?"
    -группы ссылок: "MCI(Мультимедиа)" "DC(Дескриптор контекста)" "Сообщения(Messages)" "Текст" "Hooks(Ловушки)"
     Новые фичи: Теперь все функции раскиданы по алфавитным группам. Добавлена новая старница Ссылки" на которой находятся
    ссылки на сайты по теме.
    Стнаничка хелпа : http://soobcha.ru/~rushelp/
    »»» Скачать: исходные тексты (312кб) демонстрационный EXE файл (312кб)
Лучшее из нашего 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|
  • Конкурс на лучшего дешифровальшика !!!
    Есть вот такой зашифрованный текст: { ЎІ®«¬іJ«І¬°JЇі±J±І±µ®іЄЇJёі±J } Попробуйте дешифровать его.
  • Background file copy...
    как делать копирование файлов в background'e как в Windows Commander'e? Что бы все это дело в фоновом режиме шло...
  • Скажите еще раз, как из Access данные в IB перенесть
    Где-то видел проскакивала инфа на эту тему, но не могу найти. Есть вроде какая утилюга для этих целей, но как ...
  • Реестр господа...
    У меня такая проблема - я хочу написать прогу, которая закрывает доступ юзера ко всем настройкам. Не подскажете, где ...
  • RESOLUTION: Pixels Per INCH в BMP
    Доброго времени суток, господа! у меня такой вопрос: как можно узнать Resolution в PixelsPerInch в BMP файла... (я ...
  • Глюк Delphi 6
    поставил шестой дельфюк, и получил проблемы с хелпом, а именно если окно хелпа уже открыта то из юнита по F1 справка не ...
  • Flash texnologia!
    Zdarvstvuite mena intereseuet, gde mojno naiti podobnuiu informaciiu o flash texnolgie. Ia xochu napisat malenkuiu ...
У нас большой выбор статей   |x|
ЛЯПЫ. Немного об пользовательских интерфейсах. Часть 2.
Как правило, тех, кто указывает на ошибки, не любят. Зачастую, в ответ они могут услышать - "Раз такой умный, то делай сам". В этом, есть доля истины, но согласитесь, кто-то же должен на эти самые ошибки (если они существуют) указать...
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
FreePascal :)
На этом сайте можно скачать Freepascal :)
A используя бесплатную оболочку плюс бесплатный компилятор - можно писать коммерческие дельфийские проги :)
там GPL лицензия
саму оболочку можно ...
» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Готовы ли вы подписаться на него?
»»» Да, на сколько возможно
»»» Да, на 6 месяцев
»»» Да, на 3 месяца
»»» Да, на 1 месяц
»»» Нет, не готов
»»» Не знаю
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Hынче опять у крыльца
Сидят старички-камикадзе
Вспоминают минувшие дни...

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

Фраза дня
Все гениальное просто...

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

И на закуску коротенький анекдот
- У меня черный пояс по карате!
- А у меня желтая резинка от трусов по плаванию!

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

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

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