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

Клуб программистов

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

При закрытии подписчики были переданы в рассылку "Интернет, финансы и успех" на которую и рекомендуем вам подписаться.

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

←   Декабрь 2010   →
 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
Автор
Alar

Статистика

3.899 подписчиков
+1 за неделю
←   Все выпуски   →

Клуб программистов


redaktor От ведущего.

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

.logo_grey

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

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


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

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

Цитата:
На основе UMI.CMS создаются сайты различной тематики и размеров: сайты‐визитки, каталоги товаров, интернет‐магазины.

Поделитесь опытом, пожалуйста.
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):

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

Вложения
Тип файла: txt спектр хлопка.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 файлы имеют свой хендл, его вытащить тоже несложно…

Цитата:
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));

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

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


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

………………………..

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

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



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

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

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

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

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

***

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

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

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