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

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

От ведущего.

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

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

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

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

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

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

—>>>

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

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

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

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

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

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

Официальный сайт
Тема на форуме #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);

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

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

Вложения

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) с сайта вконтакте.ру

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

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

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

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

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

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

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

Миниатюры

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)

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

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

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

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

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

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

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

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

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

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

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

Похожие статьи

• Девяностый!! выпуск рассылки.
• Рассылка. Выпуск 86.
• Архив рассылки за 2007 год