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

Статистика

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

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



 

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

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

logo_grey

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

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

 

Конвертирование utf-8 в windows-1251

 

Рабочий код на делфи.

 

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

 

RxTrayIcon

 

Есть форма. На ней RxTrayIcon. В событии формы FormCloseQuery прописано:

Form1.Hide;
CanClose := False;

Тоесть при нажатии на крестик, приложение не закрывается а сворачивается в трей. Потом по щелчку на иконку в трее приложение восстанавливается. Но если снова нажать на крестик никаких событий не происходит. Также после закрытия приложения полностью, в трее остается иконка до тех пор пока на нее не навести курсор, после чего она исчезает. Кк можно решить эти проблемы?

 

Перейдите на форум за доолнительной помощью. В теме много полезного и интересного.

 

→ Выбираем логотип журнала ПРОграммист ←

 

Прикрепляем к сообщению свои варианты. Имейте совесть, не грузите людей простынёй из 50 вариантов :)
1 человек – 1 пост / 1 лого – 1 файл.
В пост влазит 5 файлов, соответственно каждый может предложить 5 вариантов.

Варианты, естественно, не окончательные, будут дорабатываться до человеческого состояния. Потом прилепим голосование (возможно в 2 тура)

 

Обсуждение здесь

 

Перейти к теме на форуме.

Получить длительномть трека. Bass.dll

 

Код:


function QBass_GetTime(const Channel: DWORD): DWORD; stdcall;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  result := 0;
  pPos := BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
   Alltime := Trunc(BASS_ChannelBytes2Seconds(Channel, pPos));
   Result := Alltime;
  end;
end;

вот так получай длину трека

Код:

var
  mch: dword;
  lng: dword;
begin
  mch := BASS_StreamCreateFile(false, pointer(fname), 0, 0, 0 );
try
  lng := qbass_gettime(mch);
  // тут преобразовывай время в строку
finally
  bass_streamfree(mch);
  mch := 0;
end;
end;

 

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


 

Как убрать Access Violation при Destroy компонента?

 

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

 

Чтение данных с COM порта 232

 

Рабочий код. Подробнее либо на форуме, либо на сайте клуба.

 

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

 

Как узнать к какому процессу принадлежит известный класс окна

 

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

 

Прогрузить Image в память

 

Код:


procedure TForm2.LoadPath(Path: string);
var
i,j:integer;
Image: TImage;
k:double;
begin
ClearImagesField;
CenterImage := -1;
Files.Directory := Path;

for I := 0 to Files.Count - 1 do
begin
  Image := TImage.Create(Panel1);
  Image.Name := 'Image'+inttostr(i);
  Image.Picture.LoadFromFile(Files.Items[i]);
  Image.Parent := Panel1;

  K:=Panel1.ClientHeight/Image.Picture.Height;

  Image.Stretch :=
True;
  Image.Proportional := True;
  Image.Height := Panel1.ClientHeight;
  Image.Width:=trunc(Image.Picture.Width*k);
  FWidths.Add(inttostr(Image.Width));
  FHeights.Add(inttostr(Image.Height));

//  Image.SendToBack;
//  Application.ProcessMessages;
//Image.Visible:=False;
//  Image.Invalidate;
//Image.Repaint;
  if i=0 then
  Image.Left := 0 else
  Image.Left := (Panel1.FindComponent(FImages[i-1]) as TImage).BoundsRect.Right;

//  Image.Visible:=true;

  Image.OnMouseDown:=Panel1MouseDown;
  Image.OnMouseUp:=Panel1MouseUp;

//  Image.Perform(WM_PAINT,0,0);
  FImages.Add(Image.Name);
end;
//Panel1.Perform(WM_SETREDRAW, 1, 0);
//Panel1.Refresh;
end;

procedure TForm2.MoveImages (n: integer);
var i: integer; Image: TImage;
begin
if CenterImage <> -1 then CenterImage := -1;

{!}//  Panel1.Update;
  Image := (Panel1.FindComponent(FImages[0])
as TImage);
  Image.Left := Image.Left - n;

  for i := 1 to FImages.Count - 1 do
  begin
    Image := (Panel1.FindComponent(FImages[i]) as TImage);
    Image.Left := (Panel1.FindComponent(FImages[i-1]) as TImage).BoundsRect.Right;
  end;
end;

 

Более подробно на форуме.

 

Преобразование двумерного массива в одномерный

 

Код:


var
 arr1:array[1..10,1..5] of integer; //заданный двумерный массив
 arr2:array[1..10*5] of integer;  //новый одномерный массив
 i,j:integer;
begin
for i:=1 to 10 do begin
  for j:=1 to 5 do
    begin arr1[i,j]:=random(10);write(arr1[i,j]:5);end;
  writeln;
end;
writeln;

move(arr1,arr2,sizeof(arr2));
for i:=1 to 10*5 do begin
     write(arr2[i]:5);
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

 

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

 

Бинарные файлы и C#

 

Есть бинарный файл, ин-фа в нем записана в виде структур, есть описание этих структур в заголовочном файле на c++.
подскажите как можно считать этот файл?

 

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

 

Отчет по конкурсу программистов

 

Сайт – http://pkonkurs.ru/

1 конкурс проходил в 1 этап
Обсуждение http://programmersforum.ru/showthread.php?t=81296
Результаты http://pblog.ru/?p=702
Участников было 5 – 2 первых места награждались.

2 Конкурс проходит в 3 этапа.
Были найдены спонсоры и выделено призовые – футболки и толстовка от printdirect.ru
Более 3000 рублей от mixmarket.ru, onegadget.ru, programmersforum.ru.

15 июля
Обсуждение – http://programmersforum.ru/showthread.php?t=92365
Результаты – http://pkonkurs.ru/Первая-битва-Результаты/
Участников было 6 – все 6 были награждены разными призами – футболка + 1000 рублей призовых

15 августа
Обсуждение – http://programmersforum.ru/showthread.php?t=107618
Результаты – http://pkonkurs.ru/Вторая-битва-Результаты/
Участников было 7 – 3 старых бота и 4 новых. Новые боты были доработаны и обучены побеждать старых и потому заняли все призовые места. Призы – толстовка + 2 майки + 100 рублей.

15 сентября
Обсуждение – http://programmersforum.ru/showthread.php?t=110428
Ждем еще несколько ботов и разыгрываем почти 2000 рублей.
Первое место 500 далее 400, 300, 200 и по 100 рублей всем кто пришлет ботов, которые победят симпл бота – простого бота.

Подробнее на сайте клуба или сайте конкурса или на форуме.

 

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

ev

Немного юмора. Сегодня юмор про школьные годы, 1е сентября недавно было:)

***
Приехали американцы посмотреть и побольше узнать о наших школах. Ходят, смотрят. Один из них спросил:
- Вы используете компьютеры в школах?
- Да, с первого класса.
Заходят в класс, видят: стоят на подоконнике 4 компьютера. Учительница говорит:
- Сидоров, возьми 1 компьютер и поставь его настол. Дети, сколько компьютеров осталось на подоконнике?

***

Дорожный знак, под ним на указателе написано:
“Школа. Проезжайте тихо. Не сшибите ребёнка!”
Внизу детским почерком приписано:
“Подождите учителя!”

***

Школа. Класс. Урок литературы. Чтение наизусть “Песни о Буревестнике”. Выступает уже да-алеко не первый “чтец”. Естественно, все
потихоньку занимаются собственными делами, никто не слушает. А “чтец”, запнувшись, выдает совершенно гениальный перл:
- Чайки стонут перед бурей, Стонут, МОЧУТСЯ над морем…
И замолчал. Чувствует – чего-то не то ляпнул, а чего – сам не понял. И класс притих. Тоже почуяли что-то странное. И в этой
полнейшей тишине раздается спокойный голос с Камчатки:
- Это они от страха…
И тут до всех дошло.

***

Жена рассказала: Она работает учительницей в школе. И вот едет она в трамвае на первое родительское собрание и напряженно обдумывает, что она будет говорить и как себя поставит.
Вдруг видит – на соседней площадке стоит мужчина и активно ей улыбается. Жена улыбается ему в ответ.
Мужик видит взаимность и подходит к ней.
- Вы, наверное отец кого-то из моих детей!? – простодушно спрашивает жена, намекая на учеников и их родителей.
Мужик смутился, покраснел, побелел, пробормотал: “Нет, я просто познакомиться хотел…” и ретировался.

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

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