Надстройка над программой ISPTimeKostermtaurus@rambler.ru (01.01.03 14:33)
Предлагаю общему вниманию надстройку над программой ISPTime - учет статистики соединений. С помощью данной надстройки по статистике, собираемой программой, ведется расчет расхода средств на интернет по тарифному плану, _программируемому_ на скрипте пользователем. С учетом особенностей тарифного плана такой запрограммированный скрипт, может выводить любую необходимую информацию о соединении даже если тарифный план весьма сложен. Независимо от составленного скрипта надстройка на основе имеющейся статистики выводит общие сведения о соединении вроде суммарного просиженного в интернете времени, полной прокачке,
средней скорости и т.п [фигне]. Примечание. Разумеется, что &nb!
sp; неправильно составленный пользователем скрипт будет неверно отражать и информацию о соединении! Все что нужно находится в "архиве с исходными текстами", а "демонстрационный EXE файл" это демка из Interfuse Pascal Script III (пригодится при разработке скрипта).
»»» Скачать: исходные тексты (518кб) демонстрационный EXE файлпосмотреть скриншот
procedure TForm1.mbLoadClick(Sender: TObject); begin // Покажем диалог,
и если он отработал, то загрузим в контейнер if OpenDialog1.Execute and!
(OpenDialog1.FileName<>'') then OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false); // Если загрузилось что-нибудь, то покажем if OleContainer1.State <> osEmpty then OleContainer1.DoVerb(ovShow); end;
procedure TForm1.mbPrintClick(Sender: TObject); var V : Variant; begin if OleContainer1.State = osEmpty thenBegin MessageDlg('OLE не загружен !!', mtError, [mbOk],0); exit; end; // Получаем объект, который воплощает в себе WordBasic интерфейс V := OleContainer1.OleObject.Application.WordBasic; // Командуем до одурения .... V.FilePrint; end; end.
Невизуальные классы в Delphi
В этом обзоре мне хотелось бы осветить несколько классов Delphi, которым обычно в книгах и других обучающих материалах уделяется (если уделяется) весьма скромное внимание. Это так называемые невизуальные классы, не порожденные непосредственно от TComponent и не имеющие владельца. Следовательно, начинающий разработчик в палитре компонентов их не видит, в книжках о них не пишут, а help’ы ему читать неохота или он просто не знает английского...
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Три самурая на зимнем ветру Саке распивают холодным Лучше б мы взяли портвейна...
Афоризмы
Образование ума не добавляет.... ( thank you RITA )
Фраза дня
Если лечиться по справочнику, то рискуешь умереть от опечатки
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Логан Каунти в штате Колорадо (США) считается преступлением целовать женщину, пока она спит.
В Коннектикуте (США) запрещается выбрасывать использованные бритвы. В этом же штате никто, кроме слепых, не может ходить с белой тростью.
И на закуску коротенький анекдот
В Штатах изобрели новую пулю, без гильзы, теперь к ней изобретают автомат.