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

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

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

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

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

←   Октябрь 2001   →
 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

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

Новые компоненты   |x|
  • EldoS Sounds v.1.12 (233kb) (23.10.01 18:52)
    EldoS Sounds - компонент для работы с различными звуковыми файлами и проигрывателями. В настоящее время включает MP3-декодер и проигрыватель (более производительный чем WinAmp).
    Новая версия компоненты. С исходными текстами.
    Источник: www.torry.net   Автор: Eugene Mayevski http://www.eldos.org
    -= · VCL · =-
  • Regular Expression Library v.2.1.1 (3721kb) (23.10.01 18:33)
    Regular Expression Library - это библиотека классов и компонентов для работы (поиска и замены) с данными содержащими регулярные выражения. Реализация библиотеки позволяет использовать ее точно так же как стандартные VCL-компоненты Delphi.
    Библиотека использует VCL-модель: своиство-метод-событие в визуальной и невизуальной версиях реализации. Это весьма мощный, гибкий и простой в использовании инструмент.
    Новая версия компоненты.
    Источник: www.torry.net   Автор: Edward Diener http://www.tropicsoft.com/Components/RegularExpression
    -= · VCL · Tools · =-
  • A9RD_ProgressCyl v1.2 (9Kb) (23.10.01 18:16)
    A9RD_ProgressCyl - расширенный вариант ProgressBar. Предоставляет дополнительные средства проектирования для разработки профессиональных приложений: 3D-рельефный цилиндр, металлик эффект, вертикальный текст, тени...
    Существует demo-версия без исходников - распространяется бесплатно. Полная версия с исходными текстами и обновлением в течение года стоит 20$.
    Screenshot: http://www.delphipages.com/uploads/screenshots/progresscyl.gif
    Источник: www.delphipages.com   Автор: Jean Darveau
    -= · VCL · =-
  • Полный список компонент смотрите на сайте...
Кое-что из нашей кладовки   |x|
  • Speaker GrayWolf graywolf@seven.krasnet.ru   (23.10.01 23:39)
    Компонент для включения спикера. Может кому пригодиться...
    »»» Скачать: исходные тексты (2кб)
  • Decoder Kazantip[MD] kazantip_max@hotmail.com   (23.10.01 20:11)
    Программа сделана специально для чатов!Если вы печатаете смотря не на экран, а на клавиатуру,а потом е обнаруживаете вместо "Привет меня зовут Гриша" что-то типа "Ghbdtn vtyz pjden Uhbif", то эта программа вам просто необходима.Она преведёт "Ghbdtn vtyz pjden Uhbif" в нормальный русский текст.Эта программа действует и наоборот (Angl->Rus)! Так же тут есть калькулятор и небольшой media player.Вобщем то что надо.
    Качай непожалееш!
    »»» Скачать: исходные тексты демонстрационный EXE файл (283кб)
Лучшее из нашего FAQ   |x|
Как проверить соединение с интернетом.
Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.
Совместимость: Delphi 3.x (или выше)

Для работы Вам необходимо импортировать функцию InetIsOffline из URL.DLL: 

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

а затем поместить в программу простой вызов функции для проверки статуса соединения: 

if InetIsOffline(0) then 
   ShowMessage('This computer is not connected to Internet!') 
else 
   ShowMessage(You are connected to Internet!');

Эта функция возвращает TRUE если соединение с интернетов отсутствует, или FALSE если соединение установлено.

Замечание:
параметр Flag игнорируется, соответственно используем ноль.
Эта DLL обычно проинсталлирована на большинстве компьютеров. Она ! также существует в Win98 либо поставляется с Internet Explorer 4 или выше, Office 97 и т.д..
Более подробно можно прочитать в MSDN.
Оригинал: http://msdn.microsoft.com/library/psdk/shellcc/shell/Functions/InetIsOffline.htm

Автор: Vitaly Zayko (zayko@vitsoftware.com)
Источник: http://www.sources.ru/delphi/

Комментарий от Ефремова Александра (aleks@vilgus.kamchatka.ru)
Зашел на официальный сайт Microsoft по MSDN где черным по белому написано, что функция эта выдает false не только, когда комп подключен к
интернету, но и когда ЕЩЕ НЕ БЫЛО ПОПЫТОК подключения (or if no attempt has yet been made to connect to the Internet). Ну и скажите мне теперь, какой у этой функции тогда смысл ? Да, умом Microsoft не
понять (к сожалению). Помоги! те найти нормальный способ проверки подключения к инет (online).

Merlin: самым нормальны, мне кажется, пинговать какой-то адрес в интернете, лучше два :) но это тоже связано с проблемой, что может запускаться установка связи, когда не надо.

Комментарий от Dmitry Shkil (Mitya@bigmir.net) ShkilSoft

interface
uses
  Windows;
{ Flags for InternetGetConnectedState }
const
  INTERNET_CONNECTION_MODEM      = 1;
  INTERNET_CONNECTION_LAN        = 2;
  INTERNET_CONNECTION_PROXY      = 4;
  INTERNET_CONNECTION_MODEM_BUSY = 8;
const
  winetdll = 'wininet.dll';
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:
DWORD):BOOL; stdcall; external winetdll name 'InternetGetConnectedState';
implementation

function InternetConnected: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes!
 :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

Хотя возможно через RAS API. Компоненты можно поискать на www.torry.net

Kondakov (owl@conecs.lviv.ua)
Я попробовал это на основе предложения Dmitriya Работает вроде. . Через Button  or Activate

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

const IC_Modem=1;
IC_LAN= 2;
IC_PROXY=3;
IC_MODEM_BUSY=4;
winetdll='wininet.dll';

type
TForm1 = class(TForm)
 Button1: TButton;

 procedure CheckState(Sender: TObject);
end;

var
 Form1: TForm1;

implementation

function InternetGetConnectedState(lpdwFlags:LPDWORD; dwReserved: DWORD): BOOLEAN; stdcall; external wi!
netdll name
'InternetGetConnectedState';

{$R *.DFM}

procedure TForm1.CheckState(Sender: TObject);
var dwConnectionTypes: DWORD;
begin
 dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
 if InternetGetConnectedState(@dwConnectionTypes,0) then ShowMessage('Youa connected')
 else ShowMessage('No Connection');
end;

end.

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Методики диагностики неисправностей.
Описано применение метода стандартной врачебной диагностики для обнаружения логических ошибок непосредственно на рабочих местах пользователя при отсутсвии доступа к коду програмы.
Другие сайты о DELPHI   |x|
........!!!!!!!ЛОМАТЬ ВИНДУ, ПИСАТЬ ВИРУСЫ, ТРОЯНЫ, ИЗУЧАТЬ ВЫСОКИЕ ТЕХНОЛОГИИ П
........!!!!!!!ЛОМАТЬ ВИНДУ, ПИСАТЬ ВИРУСЫ, ТРОЯНЫ, ИЗУЧАТЬ ВЫСОКИЕ ТЕХНОЛОГИИ ПРОГРАММИРОВАНИЯ, СКАЧАТЬ МНОГО СОФТА ВЫ СМОЖЕТЕ ИМЕННО ЗДЕСЬ!!!!!!......
Опрос населения :)
Стоит ли устраивать встречи программистов в реале? (пирушки :)
»»» Обязательно!
»»» Иногда можно
»»» Я туда не пойду
»»» Категорически нет
Журнал "Мастера DELPHI"  |x|
Давно витающая в воздухе нашего сайта идея создания журнала, посвященного всеми нами любимой среде разработки Delphi, похоже, обретает зримую форму. Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души

Хокку дня
Из-под черной ладони
Рыбак улыбается вслед
Кошке, укравшей рыбу.

Афоризмы
Счастливого Рождества всем моим друзьям, кроме двоих! (Уильям Клод Филдс)

Фраза дня
Сложно совмещать неприятное с бесполезным.

И на закуску коротенький анекдот
Люди, которые думают "пить надо больше" и те, которые думают "пить надо меньше", сходятся в одном - пить надо...

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

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

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