Рассылка. Выпуск 88.

Posted by bullvinkle under Рассылка

От ведущего.

Здравствуйте, читатели рассылки луба программистов. У нас сегодня восемдесят восьмой выпуск!! И в нем вы увидите обзор интересных тем форума, а также новую интересную статью с блога программистов(!).

.

Новые интересные статьи клуба программистов.

Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.

Подходит ли WorldPress для серьезных сайтов?

Вопрос: WP изначально создавался как CMS для ведения блогов,но ясно,что его возможности достаточно широки.
По идее освоюсь с WP – освоюсь и с Joomla,и с UMI,и с 1C-битрикс?
Понятно,что PHP надо знать – но он пока мне вроде бы понятен,когда
смотрю код,хотя бы примерно понимаю,что зачем. А если не понимаю
под рукой всегда Help по PHP.
И всё-таки WP подходит для любых проектов? Читал,что

Поделитесь опытом, пожалуйста.
P.S.
ИМХО,хотя думаю,что мастера от новичка,то и отличает,что мастер
из любых подручных средств,так сказать,может сделать что-то стоящее.

Тема на форуме.

Как программно закрыть пуск

procedure TForm1.Button1Click(Sender: TObject);  // закрываем пуск
var
h:Hwnd;
begin
h:=FindWindow('SHELL_TRAYWND',nil);
h:=findwindowex(h,0,'Button',nil);
SendMessage(h,WM_LBUTTONup,0,0);
end;

procedure TForm1.Button2Click(Sender: TObject); //открываем пуск
begin
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);
end;

На форум.

Как свернуть программу в трей

1. Сворачивание в трэй

public
   procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
....
implementation
....
//сворачивание в трей
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
 if msg.CmdType=SC_MINIMIZE  then
  MainForm.CoolTrayIcon1.HideMainForm
 else inherited;
end;

2. Разворачивание формы

CoolTrayIcon1.ShowMainForm;

3. Чтобы прога сворачивалась в трей при запуске

procedure TMainForm.CoolTrayIcon1Startup(Sender: TObject;
  var ShowMainForm: Boolean);
begin
 ShowMainForm:=false;
end;

Тема на форуме.

Реакция программы на звук в микрофон

Подскажите как научить программу реагировать на звук из микрофона. К примеру что бы при хлопке происходило какое нибудь действие в программе.

raxp:

а слова забудьте, геморно, да и speechapi sdk таскать …а вот одиночный хлопок вполне, ибо представляет собой серию нескольких десятков коротких импульсов с большой крутизной, т.е. анализируя резкий подъем амплитуды от среднего уровня шума и время действия самих импульсов со временем существования серии импульсов можно предположить, что был хлопок.

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

…однако, в программной реализации для снижения уровня ложных срабатываний можно еще и параллельно анализировать спектр звука на характерный усредненный слепок хлопка (как получить спектр в реальном времени см. журнал нашего клуба, №1 и №8):

…обратите внимание на затухающий характер хлопка и наличие некоторой части кучи гармоник также и в ВЧ части, и, само собой, на его длительность в доли секунды (см. видеозапись):

Вложения

спектр хлопка.avi.txt (93.0 Кб)

Тема на форуме.

Наш журнал на Google Books

Намедни гугл создал новый сервис публикации и продажи книг, вот описание на хабре:
http://habrahabr.ru/blogs/google/109466/
И собственно сам сервис:
http://books.google.com/ebooks
Есть идея опубликовать там наш журнал, но для этого нам нужно получить ISBN, как это сделать я пока не знаю.

Как идея?

Достаточно интересная и насыщенная тема образовалась. Перейти к форуму для участия.

Запрет alt + f4

Как в delphi на winapi запретить (или же отменить закрытие формы) нажатие alt+f4?

SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_NOCLOSE);

Тема на форуме.

Методы заработка в интернете

Мне очень интересно узнать о заработке в интернете. конечно можно почитать множество статей об этом, но хочется услышать правду.
во-первых сайты:
насколько я знаю чтобы опубликовать сайт надо платить. есть сайты с которых просто просматриваешь необходимую информацию или бесплатно скачиваешь файлы. если же всё бесплатно то смысл создавать свой сайт и вкладывать в него деньги если нет никакой прибыли?

Тема на форуме. Полезно для тех кто не знает.

Ограничить ввод в EDIT

Здравствуйте всем. Есть Edit1 и DBEdit1 как мне сделать так чтобы пользователь мог вводить в Edit1 число не меньше 0 но и не больше числа отображаемого в DBEdit1

Ввод только чисел оформил вот так,

 procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
case key  of
'0'..'9',#8,',':;
else
key:=#0;

  end;

а вот с остальным не могу справиться
========================================================

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

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 var  vrPos, vrLength, vrSelStart: byte;
const
  I: byte = 1; //2 символа после decimalseparator-а
begin
  with Sender as TEdit do
  begin
    vrLength := Length(Text);
    vrPos := Pos(decimalseparator, Text);
    vrSelStart := SelStart;
  end;
  case Key of
    '0'..'9':
      begin
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Key := #0;
      end;
    ',', '.':
      begin
        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
          Key := #0
        else
          Key := decimalseparator;
      end;
    #8: ;
  else
    Key := #0;
  end;
end;

А ограничивать ввод максимального числа я бы не рекомендовал. Например, макс. число = 25, я пытаюсь ввести 26. Двойку поставил, а по шестерке клацаю по клавише – а ничего не печатается… пока дойдет, что нельзя такое число вводить. Сильно на нервы действует. Лучше поставить проверку на доступность кнопки действия, например

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text <> '' then
    Button1.Enabled := StrToInt(Edit1.Text) <=
      DBEdit1.DataSource.DataSet.FieldByName('Поле').AsFloat;
end;

Тема на форуме.

Как программно вызвать щелчок мышью в TWebBrowser

var
BrowserH:HWND;
begin
BrowserH:=Webbrowser1.handle;
PostMessage(BrowserH,WM_LBUTTONDOWN,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
PostMessage(BrowserH,WM_LBUTTONUP,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONUP));
end;

PS браузер может содержать внутри себя другие объекты, например SWF файлы имеют свой хендл, его вытащить тоже несложно…

Если в хендл тычишь, закоменти эти строки…

Тема на форум.

Защита объектов в Windows
Здравствуйте читатели блога программистов. После долгого перерыва, который длился более чем полгода на блоге новая статья. В этой статье я расскажу про защиту объектов в операционных системах Windows. Данная статья будет полезна каждому, который начал изучать системное программирование в системах Windows, а также тем которые хотят разобраться в механизмах защиты в Windows. В статье речь, конечно, будет идти про системы Windows NT. Всё, что будет здесь сказано, будет справедливо для систем Win 2000, XP, Vista и Se7en. Итак, приступим.

………………………..

Скачать архив с программой-примером и исходниками

Стаья на болге программмистов.

На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.

Немного юмора.

***
Что такое «устал» для системного администратора?
Это когда он вместо «мышки» начинает водить мобильником!

***
Существует два подхода к проектированию программ. В одном архитектура
делается настолько простой, что в ней явно нет дефектов; в другом — настолько
сложной, что в ней нет явных дефектов. (С.А.Хоар)

***
Программы Hастоящего Программиста никогда не начинают работать сразу.
Впрочем, если как следует напрячь автора, программа приводится в рабочее
состояние за «каких-нибудь» 30 часов отладки.

***

Кровавые команды, что были заданы однажды, вернутся, чтобы терзать того, кто
набрал их. (Шекспир, Макбет(о сопровождении программ))

Посетите раздел юмора на форуме, который обновляется постоянно

Читать этот номер в клубе.

Случайные статьи

• Массовое переименование label на форме
• Клавиатурный шпион. Игра переходит на новый уровень
• Определние локального и внутреннего IP
• Прием данных/отсылка в поток Indy10
• Цикл для процедуры OnClick
• ОТСОРТИРОВАТЬ ЭЛЕМЕНТЫ МАТРИЦЫ ПО УБЫВАНИЮ
• Как преобразовывать BMP в ICO?
• Нужно при запуске программы извлечь dll из ресурсов во временный каталог и проинжектить в другой процесс
• Чтение из Excel и валидация. Можно ли как-то ускорить данный процесс?
• Bass регулировка по отдельности левого и правого каналов звука