Отправляет 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 От ведущего.

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

logo_grey

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

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


Работа с BlueTooth через WinSock.

Посмотрите в эту сторону, вроде когда то случайно натыкался на упоминание о Bluetooth.

UPD:
К примеру это, правда это CE, ну может аналог есть.

—>>>

http://www.delphisources.ru/pages/ar…5_07_07_1.html
вот нашел вроде неплохо описано.

драйвер просто понадобится изза того что я хотел б иметь микрофон/камеру из телефона.
но в принципе посмотрим, может и обойдусь.

Интересная тема на форуме.


 Разморозился проект среды разработки под FASM – Fresh IDE

Давно не подававшая признаков жизни заточенная под FASM среда разработки пару дней назад внезапно обновилась (хотя и по-прежнему в статусе pre-alpha)

Примерный перевод списка фишечек:

Цитата:
0. Свежий FASM (1.69.25).
1. Новый гибкий формат проектов с возможностью расширения в будущем.
2. Алиасы/переменные среды, задаваемые в настройках IDE и/или свойствах проекта (вторые имеют более высокий приоритет).
3. Возможность установки более одного значения переменой среды. Разделяются вертикальной чертой (”|”) и доступны для выбора в менеджере проектов.
4. Интеграция с andLinux, возможность кросс-компиляции и выполнения linux-программ под Windows.
5. Библиотека FreshLib, позволяющая писать портируемый код. Находится в ранней стадии развития, есть
тестовый проект “TestFreshLib.fpr”, содержащий простую программу, которая собирается под Win32 и Linux без внесения изменений в исходный код. Просто выберите платформу “Win32″ или “Linux” в менеджере проектов.
6. Автозавершение кода, даже если компиляция заканчивается с ошибкой.
8. Сотни мелких изменений, исправлений и новых ошибок, накопленные за последние 5 лет.

Официальный сайт
Тема на форуме #1, #2

P.S. zip-версию распаковывать 7zip’ом, винрар ругается на неизвестный метод сжатия.

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


 Открытие файла hosts

Всем известно, что есть такой волшебный файл hosts, который находится в C:\Windows\System32\drivers\etc\. Так вот, мне нужно программно открыть его, однако расширение..не указывается експлорером, да ещё плюс этих файлов в папке два.Мне нужно открыть тот который выделен красным.

___________________________________________________________________

Файл hosts в папке один, второй файл hosts с другим расширением, у вас просто не отображается тип файла (это можно выставить в настройках Свойства папки)
Если вам нужно открыть файл в своей программе, то можно прочитать его в Memo или подобный ему компонент

Код:

Memo1.Lines.LoadFromFile('C:\WINDOWS\SYSTEM32\drivers\etc\hosts');

если открыть в блокноте то

Код:

WinExec('notepad.exe C:\WINDOWS\SYSTEM32\drivers\etc\hosts',SW_NORMAL);

но это так на скорую руку набросал … можно и более грамотно делать.

Дополнительно.

Вложения
Тип файла: zip hosts.zip (3.1 Кб, 0 просмотров)


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


Как отобразить PopUp с клавиатуры

Код:

uses CommCtrl;
...
var
  R: TRect;
begin
  HTreeItem(Pointer(@R)^) := TreeView1.Items[2].ItemId;//тут задаем ноду дерева, для которой будем выводить попап-меню
  TreeView1.Perform(TVM_GETITEMRECT, 1, Longint(@R));
  PopupMenu1.Popup(Left+TreeView1.Left+R.Left, Top+TreeView1.Top+R.Top);
end;


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


 Радио в Контакте

Полезно для невидщих…)))

Подскажите как реализовать программу,которая запускает желательно без авторизации приложение Радио(http://vkontakte.ru/app2462_4102641) с сайта вконтакте.ру

П.С. то так надоедает постоянно лесть в контакт и запускать от туда радио

==================================================================================

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

ну вот, навскидку:

Цитата:
Vienna 2 – DX Node / Austria / Icom IC-756=http://212.108.34.182:8888/audio/low
Vienna 1 – CNode / Austria / Icom PCR-1500=http://212.108.34.182:8000/audio/low
Vidablick / Sweden / Icom AH-7000=http://62.119.128.101:8900/audio/low
Odenwald / Germany / Icom PCR-1000=http://94.249.216.106:3333/audio/low
Bratislava / Slovakia / Icom PCR-1000 25-1300MHz=http://62.168.109.2:5505/audio/low
Breda / Netherlands / Icom PCR-1000=http://82.170.170.203:3333/audio/low
MIX Radio=http://media.fregat.com:8000/RadioMIX
BBC (English)=mms://livewmstream-ws.bbc.co.uk.edgestreams.net/reflector:38288
FR3=http://212.115.255.19:8000/fr3
Radio Shock (Rus)=mms://spb.radioshock.ru/radioshock
Radio Paradise=http://www.radioparadise.com/musiclinks/rp_128-9.m3u
Sky Radio=http://www.sky.fm/mp3/classical.pls
Sky 80s=http://www.sky.fm/mp3/the80s.pls
Sofa Radio=http://somafm.com/tags.pls
Sofa Radio S=http://somafm.com/secretagent.pls
Evropa+=mms://europaplus.bounceme.net:3232
1FM Music=http://72.13.93.114:80/classical128k?MSWMExt=.asf
C9 Radio=http://joe.relay.c9radio.net:8000/
Radio Paradise (192 kbps)=http://206.71.145.10:8004
Radio Paradise (64 kbps)=http://stream-ny.radioparadise.com:8062
Radio Paradise (128 kbps)=http://scfire-nyk-aa01.stream.aol.com:80/stream/1048

p.s.: лично, предпочитаю сервис http://earthmediacenter.com/en/web-dev-tv.html там и радио и тв посмотреть можно, гораздо поболе станций, чем в контактах …а вообще, почитайте или вот

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


 Создание сложной структуры XML

Как и с помощью чего можно в Delphi создать такую структуру XML файла? Подскажите пожалуйста, дайте примеры. Заранее спасибо.
Миниатюры
Нажмите на изображение для увеличения Название: xml.jpg Просмотров: 0 Размер: 27.4 Кб ID: 32106

1. Полезная информация лежит здесь http://www.programmersforum.ru/showthread.php?t=105336
2. Начало начало кода формирования дерева на примере одного файла.

Код:

procedure BuildTree(const ARootDir : String; ANode : IXmlNode);
var
  Path : String;
  SearchRec : TSearchRec;
  ObjNode : IXmlNode;
begin
  Path := IncludeTrailingPathDelimiter( ARootDir );
  if FindFirst( Path + '*', faAnyFile, SearchRec ) = 0 then
    try
      repeat
        if ( SearchRec.Name = '.' ) or ( SearchRec.Name = '..' ) then Continue;

        ObjNode := ANode.AddChild( 'item' );
        ObjNode.Text := SearchRec.Name;

        if SearchRec.Attr and faDirectory <> 0 then
          begin
            ObjNode.SetAttributeNS( 'type', '', 'folder'
);
            BuildTree( ARootDir + SearchRec.Name, ObjNode );
          end
        else
          ObjNode.SetAttributeNS( 'type', '', 'file' );
      until FindNext( SearchRec ) <> 0;
    finally
      FindClose( SearchRec );
    end;
end;

procedure SaveFolderTree(const
AFolder, AFileName : String);
var
  Doc : IXMLDocument;
  RootNode : IXmlNode;
begin
  Doc := NewXMLDocument;
  try
    Doc.Options := [ doNodeAutoIndent ];
    Doc.Active := True;

    RootNode := Doc.AddChild( 'Items' );
    BuildTree( AFolder, RootNode );

    Doc.SaveToFile( AFileName );
  finally
    Doc := nil;
  end;
end;

в uses необходимо добавить XmlIntf и XmlDoc, а так же не забыть выполнить CoInitialize перед работой с XML.

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


 Работа с джойстиком через USB

Пишу приложение по работе с игровым джойстиком через USB-порт. Кто сталкивался с этим? Буду благодарен за любую информацию и ссылки.

Ситуация следующая: к ПК под WinXP подключен джойстик (заранее не определенно, какой джойстик будет подключен), клавиатуры подключенно не будет. Независимо от модели джойстика, необходимо отлавливать и определять нажатия стрелок и двух-трех основных кнопок. Кто что посовеует?
Тема на форуме.


 В каком конкурсе по созданию бота вы хотели бы участвовать

Хочу устроить конкурс на создание лучшего бота. Но меня интерисует мнение будущих участников конкурса.
Самый первый конкурс был по игре FERZ
Второй конкурс был по игре Fortress
Третий конкурс был по игре Fortress 2 проходил в целых три этапа.

В каждом конкурсе участников было примерно 4-5, для такого посещаемого форума я считаю такое количество участников очень малым.
Игра FERZ была довольно-таки сложной, не отрицаю, так как я сам занял в нём третье место. Но игра Fortress изначально разрабывалась как не сложная игра (если не считать первый этап Fortress 2 простота была не в ущерб интересу, так как в ней куча возможных стратегий и какую бы ты стратегию не выбрал найдётся её притоводействующая). Малое количество участников я объясняю тем что эту игру никто не знал до этого, и как некоторые говорили при этом она слишком “задротская”. У меня есть идеи по поводу третьей версии Fortress но чувствую что интереса к ней будет минимум.
В связи в вышесказанным целесообразно будет устроить конкурс по игре которую все знают. Слушаю ваши предложения.
Моя идея: устроить конкурс по какой-нибудь карточной игре. В дурака как-то не прикольно, хороший вариант козёл, но в нём куча всевозможных нюансов и сложностей что только усложнит разработку ботов, да и пропадает такое понятие как “черпак”. Хороший вариант, игра червы – довольно-таки простая и в тоже время интересная.

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


 Как узнать контрольную сумму файла.

Вот так можно узнать контрольную сумму файла:

Код:

uses
  windows,
  imagehlp,
  SysUtils;

var s:string;f:file of byte; h,cs:DWORD;
begin
 AssignFile(f,'project2.exe');reset(f);
 SetLength(s,Filesize(f));
 BlockRead(f,s[1],length(s));close(f);
 CheckSumMappedFile(@s[1],length(s),@h,@cs);
 Write(h:10,cs:10);readln;
  { TODO -oUser -cConsole
Main : Insert code here }
end.

cs – контрольная сумма.
Если время от времени проверят ее то можно узнать что файл кем-то был изменен, ибо контрольная сумма будет другая.


 Система упрощенного создания окон (S.C.O.W.) (обновление до версии 1.2.0.145)

Страница проекта.

Тема на форуме программистов.


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

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

***
1. Сколько раз можно стирать флешку?
2. Много, но количество циклов все же ограниченно.
1. Ясно. А то я уже 2 раза ее стирал.
1. Забываю ее из джинсов перед стиркой вытащить.

***
На пресс-конференции в НАСА по поводу отказа компьютера на МКС:
- Скажите, а МКС летает под Windows?
- А где вы видели, чтобы под Windows хоть что-нибудь летало?

***
У соседей крики, мaты,
Аж стена вибрирует.
То Фома купил компьютер-
Windows инсталирует!

***
Кабина пассажирского лайнера. Высота 6000 м. На дисплее бортового компьютера появляется надпись:
“Двигатели остановлены из-за ошибки (неизвестная) в модуле 6h000y03. Попробуйте взлететь еще раз. Если ошибка повторится – обратитесь к производителю.”

***
Вопрос в службу поддержки:
Что делать если я довел мышку до края коврика, а курсор не дошел до края экрана?

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

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