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

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

Вышел очередной дайджест форумов. Скачать можно здесь
Новые компоненты   |x|
  • TEasyScroll v.1.00 (153kb) (08.05.02 09:25)
    TEasyScroll, наследник TCustomControl, заменитель стандартных скроллбаров, все кнопки скроллинга сведены вместе а не раскиданы по экрану как у обычного скролла.
    Кнопки сделаны в виде 6-угольников (чтоб круче выглядело). (!!!) Вы также можете прокручивать... по диагонали!
    Все цвета настраиваются. Может быть как плоская так и 3D.
    Источник: www.torry.net   Автор: Maarten Koornneef
    -= · VCL · Samples · =- [Перевел: Smart]
  • IntegerASM v.1.0 (2kb) (08.05.02 09:15)
    Этот unit позволяет быстро оперировать с очень большими целыми числами(до 255 цифр длиной). Они представляются в формате shortstring. 4 арифметических опреации : add(+), sub(-), div(/), mul(*). Все эти функции написаны на Ассемблере, поэтому все так быстро работает.
    Источник: www.torry.net   Автор: Alexandru Vulpe
    -= · VCL · Samples · =- [Перевел: Smart]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • URichControl BabayS   (08.05.02 09:41)
    Модуль URichControl (Delphi 5)
    В этом модуле реализован класс котрый прицепляется к RichEdit и дает возможность подсветки синтаксиса.
    Синтаксис посвечивается во время набора текста.
    Вы можете самостоятельно задать слова входящие в синтаксис и параметры шрифта для них.
    Этот модуль я писал для себя и у меня он успешно работает. Хотя конечно возможно есть реализации и получше (я не претендую на правильность подхода) просто ничего подобного мне найти не удалось.
    Модуль орентирован на языки процедурного типа (SQL, Pacal, Basic и т.д.). Если вам нужна подсветка для HTML то придется наверное дорабатывать. Желаю удачи :=))#
    Пример использования там же в этом же каталоге.
    Тестировалось под Win NT4.0/2000/Xp/Me
    »»» Скачать: исходные тексты (7кб)
  • Абак BabayS   (08.05.02 09:38)
    Это модернизация языка АБАК - БЕЙСИК который был опубликован на данном сайте.
    Мною были исправлены несколько ошибок и добавлено несколько удобств для работы. Добавил следующее:
    1) Подсветка синтаксиса при наборе и загрузке текста программы
    2) Переменные выводятся в отдельном окне что дает возможность наблюдать их во время выполнения программы
    3) Если в тексте программы выделить оператор или функцию то при нажатии на F1 они будут найдены в справке
    4) теперь вызвать текст программы можно по F5, а окно с переменными по F6.
    5) убрал глюк что после отработки программы в полно экранном режиме невозможно было добраться до панели с кнопками. Теперь кнопки появляются всегда после нажатия F5 и окно программы становится опять нормальным.

    Я НИСКОЛЬКО НЕ ПРЕТЕНДУЮ на автоство!!! Просто на мой взгляд так работать с программой удобнее.
    ОГРОМНОЕ СПАСИБО автору данного проекта Матюхину А.Н. (преподаватель Брянского политехнического колледжа)
    »»» Скачать: исходные тексты (113кб)
  • MiTeC System Information Component Lego lego_go@mail.ru   (08.05.02 02:52)
    Для Всех желающих узнать ВСЁ о своем железе и нетолько.

    File: msi.zip
    Product: MiTeC System Information Component
    Version: 6.2
    Author: MichaL MutL
    E-Mail: michal.mutl@atlas.cz
    Target: Delphi 5.x, Delphi 6.x
    Platform: W95, W98, NT, W2000, Windows ME, Windows XP
    Status: Fully Functional
    Source: Included
    Description: Component providing detailed system information
    + Registered organization, owner
    + Time Zone info
    + Machine name, IP address, MAC Address
    + Last boot date and time,  Boot time
    + CPU architecture, type, active mask, count, level, revision, vendor, id, speed,
    + OS version, build number, platform, CSD version, version name, user name, serial number
    + DVD Region, folders
    + Graphic adapter chip name, dac, memory, screen width and height, color depth, modes
    + Sound card name, WaveIn, WaveOut, MIDIIn, MIDIOut, AUX, Mixer  device name
    + Printers
    + Memory info, allocation granularity, min.and max.application address
    + Disk info, file system, controllers
    + BIOS name, copyright, extended info, date
    + Video BIOS version and date
    + Network adapter, protocols, sevices, clients,
    + Winsock info
    + BDE, ODBC, DAO, ADO version
    + DirectX info
    + Device overview (like Device Manager)
    + Win9x resources
    + Running process enumeration
    + Installed software enumeration
    + Startup runs enumeration
    + Performance Library interface (NT & 9x)
    + Internet settings
    + Sharepoints enumeration
    + Component showing CPU usage

    EXE demo included.
    Control Panel Applet included.
    »»» Скачать: исходные тексты (883кб) посмотреть скриншот
  • Редактор текстов и HTML Alexiss   (08.05.02 17:55)
    Просматривал кладовку и заметил, что иногда выкладывают са-авсем не работающие программы. Вот и решил выложить свой редактор. По возможностям - как TTEditor, но работает.
    »»» Скачать: исходные тексты (625кб) демонстрационный EXE файл (206кб)
  • Картинка Ozzy shakirov@udm.net   (08.05.02 15:26)
    Картинка к книге Ла Мот
    »»» Скачать: исходные тексты (296кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Как работать с плагинами ?
Я сделал так - выбираю все DLL из каталога с программой, загружаю каждую и пытаюсь найти в ней функцию (через API GetProcAddress) с заранее определенным жестко именем (например что нибудь типа IsPluginForMyStuff). Если нашлась - DLL считается моим плагином, если нет - выгрузить и забыть.

А набор вызываемых функций по идее одинаков у всех плагинов, и программа (основная) в курсе какие именно функции она ищет в DLL. Если даже и не так, то ничего не мешает тебе определить в плагине функцию наподобие GetFeatures, возвращающую список строк-названий поддержанных плагином процедур.

Вот часть моего кода по работе с плагинами...

...
type
  // Процедурные типы для хранения ссылок на функции плагинов
  TGetNProc=function:shortstring;
  TGetSProc=function:integer;
  TProcessProc=procedure(config:pointer; request:PRequest; var
reply:PReply);
  TConfigProc=procedure(defcfg:PSysConfig; var config:pointer);
  TSaveLoadProc=procedure(inifile:pointer; var config:pointer);

  // Информация об отдельном плагине
  TPlugin=record
    Name:shortstring;                   // Полное название
    Filename:shortstring;               // Имя файла
    Handle:integer;                     // Хэндл загруженной DLL
    CFGSize:integer;                    // Размер конфигурации в RAM
        ProcessProc: TProcessProc;      // Адрес процедуры обработки
         ConfigProc: TConfigProc;       // Адрес процедуры настройки
    LoadCFG,SaveCFG:TSaveLoadProc;      // Адреса процедур чтения/записи cfg
  end;
  PPlugin=^TPlugin;

  // Список загруженных плагинов
  TPlugins=class(TList);

...

var

 Plugins:TPlugins;  sr:TSearchRec;  lib:integer;
  pgetn:TGetNProc;  pgets: TGetSProc;  plugin:PPlugin;

...

// Читаем плагины и создаем их список.
Plugins:=TPlugins.Cre!
ate;
if FindFirst('*.dll',faAnyFile,sr)<>0 then begin
  ShowMessage('Hе найдено подключаемых модулей.');
  Close;
end;
repeat
  lib:=LoadLibrary(PChar(sr.Name));
  if lib<>0 then begin
    @pgetn:=GetProcAddress(lib, 'GetPluginName');
    if @pgetn=nil then FreeLibrary(lib)    // Hе плагин
    else begin
      New(plugin);
      @pgets:=GetProcAddress(lib, 'GetCFGSize');
      plugin.Name:=pgetn;
      plugin.Filename:=sr.Name;
      plugin.CFGSize:=pgets;
      plugin.Handle:=lib;
      plugin.ConfigProc:=GetProcAddress(lib, 'Configure');
      plugin.ProcessProc:=GetProcAddress(lib, 'Process');
      plugin.SaveCFG:=GetProcAddress(lib, 'SaveCFG');
      plugin.LoadCFG:=GetProcAddress(lib, 'LoadCFG');
      Plugins.Add(plugin);
    end;

 end;
until FindNext(sr)<>0;
FindClose(sr);
...

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

Советы по программированию в Дельфи

9) Сохранение и восстановление содержимого StringGrid

procedure TForm1.Save2Click(Sender: TObject);
var fs:tfilestream;
   i,l:integer;
   s:string;
begin
fs:=tfilestream.create('e:\sgsave2.dat',fmCreate);
with sg1 do begin
 fs.write(RowCount,SizeOf(Integer));
 fs.write(ColCount,SizeOf(Integer));
 for i:=0 to rowcount-1 do begin
     s:=Rows[i].Text;
     l:=length(s);
     fs.write(l,SizeOf(Integer));
     if Length(s)>0 then fs.write(s[1],l);
   end;
end;
fs.free;
end;

procedure TForm1.Read2Click(Sender: TObject);
var fs:tfilestream;
   i,l:integer;
   s:string;
begin
fs:=tfilestream.create('e:\sgsave2.dat',fmOpenRead);
with sg1 do begin
 fs.read(l,SizeOf(Integer));
 rowcount:=l;
 fs.read(l,SizeOf(Integer));
 colcount:=l;
 for i:=0 to RowCount-1 do begin
     fs.read(l,SizeOf(Integer));
     if l>0 then begin
       setlength(s,l);
       fs.read(s[1],l);
       Rows[i].Text:=s;
     end else
       Rows[i].Clear;
  end;  
end;
fs.free;
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
  • Работа с Blob
    Расскажите мне пожалуйста, как производится считывание, запись и поиск по Blob полям. Никогда раньше с ними не работала,...
  • <font size=1000>Как зделать круглую форму</font>
    Люди помогите зделать круглую лил любую другую форму только не квадратную а то надоело уже все квадратное
  • Фильтрация в базе данных
    Здраствуйте Уважаемые Мастаки! У меня возник такой вопрос: как мне отфильтровать базу сразу по нескольким параметрам, ...
  • Assembler
    Кто знает ассемблер помогите пожалуйста кодом требуется придумать функцию в виде ассемблерной вставки которая выключала ...
  • s/n на Kylix
    Кто знает серийник на Kylix будте добры скажите а то жить без кодинга не могу
  • Grid с сортировкой, картинками и мультивыбором
    Задача судя по всему очень стандартная. Нужен grid, который имеет сортировать по столбцам, вставлять картинки, ...
  • Помогите чей с гридом, второй день мучаюсь
    У меня dxDBGrid, как событие называется когда записи по гриду прокручиваеш ???
У нас большой выбор статей   |x|
Эволюция средств разработки Web приложений в Delphi
Бурный рост интернета в последние годы привел к возможности и необходимости создания информационных систем, не требующих настройки и обслуживания на стороне клиента и при этом обеспечивающих одновременную работу большого количества пользователей...
На сегодня существуют, как минимум, три технологии разработки Web приложений в Delphi...
Новинки книжного рынка   |x|
Borland C++ Builder 5. Энциклопедия программиста
Borland C++ Builder 5. Энциклопедия программиста написана большим авторским коллективом под руководством Чарли Калверта и Кента Рейсдорфа и продолжает серию книг о C++ Builder, начатую Чарли Калвертом после выхода в свет первой версии этого замечательного продукта. Все без исключения авторы книги имеют не только многолетний опыт создания коммерческих продуктов при помощи систем программирования C++ Builder и Delphi, но и принимали непосредственное участие в написании большого количества книг соответствующей тематики.Книга написана опытными программистами для опытных программистов и этим она резко отличается от подавляющего большинства других книг о C++ Builder (и вообще других книг, посвященных программированию). В ней вы не найдете подробного и планомерного описания интегрированной среды разработки (IDE), перечисления всех стандартных компонентов, их свойств и методов, а также обсуждения тому подобных вопросов. Взамен этого, авторы сосредоточились на обсуждении наиболее сложных разделов программирования с использованием C++ Builder, которые обычно обходятся авторами других книг. Характерным является также и то, что в примерах программ, представленных на поставляемом вместе с книгой компакт-диске, авторы наряду с использованием стандартных возможностей библиотеки VCL, зачастую применяют и функции Windows API.
Автор: Калверт Ч.
Другие сайты о DELPHI   |x|
Denisow Ewgeniy
Это сайт посвящен программированию на delphi, много исходников, компанентов, документации.
» Оценка сайта: 2
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Журнал "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=7851

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

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