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

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

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

От ведущего.

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

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

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

Конвертирование 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);
  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) 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:=random(10);write(arr1:5);end;
  writeln;
end;
writeln;
move(arr1,arr2,sizeof(arr2));
for i:=1 to 10*5 do begin
     write(arr2: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 рублей всем кто пришлет ботов, которые победят симпл бота – простого бота.

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

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

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

***

***

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

***

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

***

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

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

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

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

• Получить размер файла
• Как из ip адреса вывести последние цифры
• Форматирование даты в php
• Выбор ЯП для приложений промышленной автоматизации (Delphi, Pascal, Scada)
• Язык программирования Суржи
• Пакет позволяет русифицировать выводимые диалоговые окна для Delphi.
• Работа со строками, замена символов
• Определить количество слов, в каждом слове – количество букв
• Открыть программу при повторном клике по ярлыку
• Заполнение ListView из XAML