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

DELPHI.mastak.ru

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

Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • SuperAssistent Vladislav (http://vlad2000.h1.ru) vladislav2002@hotmail.ru   (23.01.03 08:17)
    Программа-помощник написанная мною с использованием некоторых исходников с этого сайта. Все они перечислены в разделе "Благодарности". Основные возможности: *Включение, выключение, перезагрузка компьютера (можно запланировать). *Встроенный транслитер. *Текстовый редактор-конвертер из PAS-файлов в файлы HTML. *Принудительное завершение процессов. *Очистка списка установленных программ. *Запуск любой программы с измененным системным временем. Выкладываю первую версию с исходниками. Дальнейшие версии ищите на сайте http://allportal.plex.ru, но они будут без исходников. Развивайте идею сами.
    »»» Скачать: исходные тексты (257кб) демонстрационный EXE файл
  • FiNGer v.1.0 (исходники + прога + скриншот) Chizh chizh@yandex.ru   (23.01.03 00:24)
    Предоставляю на Ваше пользование мою прогу FiNGer v.1.0, название которой происходит из словосочетания File Name Generator. Не правда-ли, название говорит само за себя. Правда! Просто открываете файлы, выделяете нужные, выбираете то действие, которое с ними нужно произвести: переместить в выбранную папку с заменой имени на сгенерированное(кстати, так можно и переименовать файлы, просто указав папку в которой они находятся) или копирование(при этом имена первоначальных файлов имена остаются прежними, а у копий - сгенерированными). Потом во вкладке "Настройки" указываете, какие символы включать в имя и какова его длина. Нажимаете кнопель "Старт" и всё готово! Вот и всё, что я смог рассказать о своей проге. Качайте(прога весит 246Кб), юзайте и, если не сложно, оставьте свои комментарии и сообщите о найденных багах, если они есть.
    »»» Скачать: исходные тексты (20кб)
  • * The EuropeLAN Suite Light. * Eugenex   (22.01.03 10:44)
    Вообщем то Это результат общения в вашем форуме.
    Всем спасибо!!!
    --------------------------
    IP Calculator (qip.exe)
    --------------------------
    Input data:
    - required quantity of subnets;
    - primary Internet address;
    - class of IP-net.
    Output data:
    - real quantity of subnets;
    - total quantity of hosts;
    - range of IP addresses.

    --------------------------
    IP Map Scanner (pscan.exe)
    --------------------------
    Features:
    - ping IP address range
    - scanning active ports by IP address range
    - ping before scanning active ports
    - MAC resolution
    - ARP cashe
    - visual map result
    - save result
    and advanced.

    -----------------------------
    Audit LAN Scanner (lscan.exe)
    -----------------------------
    Features:
    - scanning Groups, Hosts, Users of LAN
    - scanning sharing resources of host
    - MAC resolution
    - 'Properties' page of host
    - ARP cashe
    - local active ports
    - ! local LAN traffic control
    - save result.

    -------------------------------
    LAN Packet Interceptor (iscan.exe)
    -------------------------------
    Features:
    - LAN packets sniffing
    - select type of sniffing
    - packet: size, direction, content
    - protocol resolution
    - destination and source: MAC, IP, Ports
    - highlight result's values
    - save result.
    »»» Скачать: исходные тексты (1287кб) демонстрационный EXE файл (1287кб) посмотреть скриншот
  • FiNGer v.1.0 (исходники + прога + скриншот) Chizh chizh@yandex.ru   (23.01.03 00:21)
    Предоставляю на Ваше пользование мою прогу FiNGer v.1.0, название которой происходит из словосочетания File Name Generator. Не правда-ли, название говорит само за себя. Правда! Просто открываете файлы, выделяете нужные, выбираете то действие, которое с ними нужно произвести: переместить в выбранную папку с заменой имени на сгенерированное(кстати, так можно и переименовать файлы, просто указав папку в которой они находятся) или копирование(при этом имена первоначальных файлов имена остаются прежними, а у копий - сгенерированными). Потом во вкладке "Настройки" указываете, какие символы включать в имя и какова его длина. Нажимаете кнопель "Старт" и всё готово! Вот и всё, что я смог рассказать о своей проге. Качайте(прога весит 246Кб), юзайте и, если не сложно, оставьте свои комментарии и сообщите о найденных багах, если они есть.
    »»» Скачать: исходные тексты (20кб)
  • FiNGer v.1.0 Chizh chizh@yandex.ru   (23.01.03 00:05)
    Предоставляю на Ваше пользование мою прогу FiNGer v.1.0, название которой происходит из словосочетания File Name Generator. Не правда-ли, название говорит само за себя. Правда! Просто открываете файлы, выделяете нужные, выбираете то действие, которое с ними нужно произвести: переместить в выбранную папку с заменой имени на сгенерированное(кстати, так можно и переименовать файлы, просто указав папку в которой они находятся) или копирование(при этом имена первоначальных файлов имена остаются прежними, а у копий - сгенерированными). Потом во вкладке "Настройки" указываете, какие символы включать в имя и какова его длина. Нажимаете кнопель "Старт" и всё готово! Вот и всё, что я смог рассказать о своей проге. Качайте(архив весит 236Кб), юзайте и, если не сложно, оставьте свои комментарии и сообщите о найденных багах, если они есть.
    P.S. Исходники выложу позже.
    »»» Скачать: исходные тексты (236кб)
Лучшее из нашего FAQ   |x|
Как получить список файлов со всеми подкаталогами 

procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
  SearchRec : TSearchRec;
begin
  if Mask = '' then Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
  if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
        List.Add(StartDir + SearchRec.Name + '\');
        ScanDir(StartDir + SearchRec.Name
+ '\',Mask,List);
      end;
    un!
til FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;


Пример вызова, параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для резульатат,
  любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ScanDir('c:','',ListBox1.Items);
  Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

С уважением
Анатолий Подгорецкий

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

Обсуждается в конференциях   |x|
  • слежка за сетевым принтером
    проблемка такая: есть сколько-то компов в локальной сетке, на одном из них установлен принтер. нужно отследить, с ...
  • Отслеживание изменения данных
    Есть БД, с которой работают несколько пользователей. Для отслеживания изменений в рабочей таблице есть поле ID. Если ...
  • md5 .......
    Уважаемые мастаки, можно пример кодирования и раскодирования файла с помощью md5.
  • Динамическое создание
    Пишу программу, которая запрашивала бы у пользователя имена и типы полей, а потом формировала файл с этими полями. ...
  • Просто тема
    Вчера уже спрашивал по поводу блокировки. Помещаю две таблицы на формочку у обоих ставлю Exclusive в True и обе ...
  • Paradox в сети
    Народ, вот объясните дураку: вроде можно Paradox использовать в локальной сети. Мне даже статью по этому поводу ...
  • Поймать вывод на принтер
    Приветствую Мастеров! Необходимо перехватывать страницы, которые будут печататься на принтере и сохранять в виде файла. ...
У нас большой выбор статей   |x|
Hooks - аспекты реализации
Что же происходит в системе когда мы "ставим" ловушку и что это вообще такое - ловушка ?
Ловушка (hook) - это механизм Windows, позволяющий перехватывать события, предназначенные некоторому приложению, до того как эти события до этого приложения дойдут.
Функции-фильтры - это функции, получающие уведомления о произошедшем событии от ловушки.
В зависимости от типа ловушки функции-фильтры могут изменять события, отменять их или просто реагировать на них...
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Delphi и компания
Здесь вы найдете Русскую справку по WinAPI для Дельфи. А также книги по программированию, дополнительные справки и FAQ.
» Оценка сайта: 3
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Гейши пошли постирать кимоно
Тут-то их всех и накрыло
Мощной волною цунами...

Афоризмы
Перед тем, как начать поиск, спроси себя: действительно ли ты хочешь это найти и, найдя это, будешь ли знать, что с этим делать?....

Фраза дня
Уже пора не спрашивать, за что...

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

И на закуску коротенький анекдот
Гуляет женщина в парке одна. Навстречу ей подходит знакомая семейная пара:
- Ой, а почему это вы одна гуляете, где муж?
- А он со своим четвероногим другом.
- А мы и не знали, что вы собаку завели!
- Какую собаку? Мы новый диван купили!

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

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

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