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

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

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

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

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

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

DELPHIMASTER.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • WAHotKeys sergius sergius@cspi.urc.ac.ru   (11.10.03 09:58)
    Програма позволяет управлять winamp'ом с промощью горячих клавиш. Протестирована на WinXP и Win98 для winamp2.x и winamp3.x. Просто, удобно и exe-шник ~16кб.
    »»» Скачать: исходные тексты (1кб)
  • AVV Timer 1.2 President mrvova@rambler.ru   (12.10.03 18:01)
    Напоминалка. Напоминает каждый заданный промежуток времени, есть функция отсчета, секундомер, прячется в трэй. Устранены ошибки.
    »»» Скачать: исходные тексты (329кб)
Лучшее из нашего FAQ   |x|
Подключение сетевого диска.
Если возникла необходимость, чтобы Ваше приложение самостоятельно подключало сетевой ресурс, то это можно сделать двумя способами: вызвать стандартный диалог подключения ресурса либо использоваться следующий код.
Совместимость: Delphi все версии


//Пример открытия стандартного диалога 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WNetConnectionDialog(Handle,RESOURCETYPE_DISK) 
end; 

//Так же можно подключить и принтер 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WNetConnectionDialog(Handle,RESOURCETYPE_PRINT) 
end; 

//либо можно использовать следующий код 
procedure TForm1.Button2Click(Sender: TObject); 
var 
NetResource: TNetResource; 
begin 
  { заполняем структуру TNetResource } 
  NetResource.dwType
      := RESOURCETYPE_DISK; 
  NetResource.lpLocalName  := 'S:'; 
  NetResource.lpRemoteName := '\\myserver\public'; 
  NetResource.lpProvider   := ''; 

  { подключаем сетевой ресурс, используя структуру TNetResource } 
  If ( WNetAddConnection2(NetResource, 
                         '', {Password (if needed) or empty} 
                         '', {User name (if needed) or empty} 
                         CONNECT_UPDATE_PROFILE)<>NO_ERROR) Then 
     Raise Excepcion.Create('unable to map drive') 
  //так же существуют другие константы для определения возникшей ошибки 
  //ERROR_ACCESS_DENIED, ERROR_ALREADY_ASSIGNED, и т.д. 
end; 

//так же можно и отключить сетевой ресурс... 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if WNetCancelConnection2(
'S:',0,TRUE) <> NO_ERROR then 
    Raise Exception.create('Error disconnecting map drive'); 
  //соответственно можно использовать другие константы для определения ошибки
  //ERROR_DEVICE_IN_USE, ERROR_NOT_CONNECTED, и т.д. 
end;


Автор: Eber Irigoyen (eberirigoyen@email.msn.com)
Источник: http://www.sources.ru/delphi/

Комментарий от VAD (_rs_@mail2k.ru)
Для работы с сетевыми дисководами (и ресурсами типа LPT порта) в WIN API 16 и WIN API 32 следующие функции:

1.Подключить сетевой ресурс

WNetAddConnection(NetResourse,Password,LocalName:PChar):longint;

где NetResourse - имя сетевого ресурса (например '\\P166\c')
Password - пароль на доступ к ресурсу (если нет пароля, то пустая строка)
LocalName - имя, под которым сетевой ресурс будет отображен на данном компьютере (например 'F:')

Пример
подключения сетевого диска WNetAddConnection('\\P166\C','','F:');
Функция возвращает код ошибки. Для всех кодов предописаны константы, наиболее часто используемые :
NO_ERROR - Нет ошибок - успешное завершение
ERROR_ACCESS_DENIED - Ошибка доступа
ERROR_ALREADY_ASSIGNED - Уже подключен. Наиболее часто возникает при повторном вызове данной функции с теми-же параметрами.
ERROR_BAD_DEV_TYPE - Неверный тип устройства.
ERROR_BAD_DEVICE - Неверное устройство указано в LocalName
ERROR_BAD_NET_NAME - Неверный сетевой путь или сетевое имя
ERROR_EXTENDED_ERROR - Некоторая ошибка сети (см. функцию WNetGetLastError для подробностей)
ERROR_INVALID_PASSWORD - Неверный пароль
ERROR_NO_NETWORK - Нет сети

2.Отключить сетевой ресурс

WNetCancelConnection(LocalName:PChar;ForseMode:Boolean):Longint;

где
LocalName - имя, под которым сетевой ресурс
был подключен к данному компьютеру (например 'F:')
ForseMode - режим отключения :
False - корректное отключение. Если отключаемый ресурс еще используется, то отключения не произойдет (например, на сетевом диске открыт файл)
True - скоростное некорректное отключение. Если ресурс используется, отключение все равно произойдет и межет привести к любым последствиям (от отсутствия ошибок до глухого повисания)

Функция возвращает код ошибки. Для всех кодов предописаны константы, наиболее часто используемые :
NO_ERROR - Нет ошибок - успешное завершение
ERROR_DEVICE_IN_USE - Ресурс используется
ERROR_EXTENDED_ERROR - Некоторая ошибка сети (см. функцию WNetGetLastError для подробностей)
ERROR_NOT_CONNECTED - Указанное ус-во не является сетевым
ERROR_OPEN_FILES - На отключаемом сетевом диске имеются открытые файлы и параметр ForseMode=false

Рекомендация: при отключении
следует сначала попробовать отключить устройство с параметром ForseMode=false и при ошибке типа ERROR_OPEN_FILES выдать запрос с сообщением о том, что ус-во еще используется и предложением отключить принудительно, и при согласии пользователя повторить вызов с ForseMode=true

»»» Прислать свои комментарии
Обсуждается в конференциях   |x|
  • Хеш по сети
    Задался вопросом, если можно по сети, не получая весь файл, узнать его дату, атрибуты и т.д. средствами Windows, то... ...
  • Дозвон
    Привет всем! Люди, помогите: как программно дозвонится на пров, ну и соединится. Но есть один нюанс: Нужно в процессе ...
  • MessageBox
    Подскажите, возможно заменить стандартную иконку диалого MessageBox на свою картинку?
  • OpenGL
    Подскажите PLZ, как можно наипростейшим образом нарисовать Фэйсы, а то в примерах как-то тяжело написано...
  • Компьютерные ИГРЫ и их будущее..
    Всем добрый вечер! //У меня уже практически наступил Это относится к теме ИГРЫ, правда несколько с другой стороны.. ...
  • Ненашел нужного метода
    Привет всем ! Написал приложение с использованием DBGrid, DBTable и периодически мне необхиодимо делать Refresh данных, ...
  • Разный шрифт в Винде
    И снова здравствуйте!! Помогите решить такую проблему. Есть чертова туча пользователей, кто-то работает в Windows с ...
У нас большой выбор статей   |x|
Понимание много-поточности в VCL для веб-серверных ISAPI-расширений
В среде Delphi можно создавать высокоэффективные веб-серверные ISAPI-расширения на основе технологии WebBroker. Создайте проект с помощью мастера (New -> Web Server Application - ISAPI DLL). Прилагаемая справочная документация, а так же демонстрационный пример "$(DELPHI)\Demos\Webserv" позволяют достаточно быстро освоиться в приемах написания веб-серверных ISAPI-расширений...
Новинки книжного рынка   |x|
Теория и практика построения баз данных. 8-е изд.
В книге, написанной в форме учебного пособия для студентов, специализирующихся в области информационных технологий, освещается широкий круг теоретических и практических вопросов, связанных с разработкой и использованием баз данных. К особенностям восьмого издания книги относится, в частности, появление материала, посвященного новым технологиям публикации баз данных (XML) и обработки баз данных масштаба предприятия (ODBC, ASP, JDBC, JSP). Книгу отличает продуманность структуры, живой и доступный язык изложения, а также большое количество примеров, моделирующих типичные ситуации из практики делового мира.
Автор: Крёнке Д.
Другие сайты о DELPHI   |x|
Домашняя страница AD. Программирование на Delphi. Исходники, OpenSource.
На сайте выложены мои OpenSource работы на Delphi.
» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Для души

Хокку дня
В праздник по улицам Эдо
Бродят нарядные гейши
И множество вкусных собак...

Афоризмы
"Если человек здоровается с вами по несколько раз в день, значит, он вас не замечает." (Александр Ботвинников)

Фраза дня
Раб мечтает не о свободе, а о своих рабах

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

И на закуску коротенький анекдот
Заходит медсестра в палату.
- Больной Иванов, проснитесь,..., ну, проснитесь же...
Больной просыпается.
- Что такое случилось?
- Я вам снотворное принесла...

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

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

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