Android widget, part 0.4

Может перескакиваю немного, но по ощущениям где-то так :) – 0.4

Мне понадобилось добавить в свой виджет диалог выбора папки с файлами; стандартного контрола/класса не оказалось, так что пришлось 2 вечера гуглить, вот что нагуглил; но сначала ТЗ уточненное: я каким-то образом говорю “хочу выбрать папку”, должен появится список доступных в телефоне папок с файлами, причем я хочу а) ограничится только картой памяти и б) обрабатывать только тапы по папкам, но в) хочу показывать в папке файлы, если они – файлы картинок (для меня картинки == jpg и png

ffmpeg..

Я не настолько плох, как оказалось, не работал код с обновленными dll не из-за ошибок в заголовках, а из-за неправильно собранных dll – скачал собранные dll и все заработало; так что надо было обновить еще больше компиляторов и прочей чухни, чтобы оно скомпилилось и заработало и у меня (чужие dll мне не подходят, мне не надо 90% кодеков и 99% форматов, которые поддерживаются, поэтому я собираю “для себя”)

Так что обновленные pas-заголовки для dll из ffmpeg выложил на рапидшару (89 кб)

Несмотря на то, что меняются внутренние структуры (например нет больше типа TCodecType), все собралось без изменений.. тесчу, пока работает..

У меня в почте лежало несколько писем от пользователей, с комментами, багофиксами или пожеланиями; явные баги исправлял, а прочее оставлял “на потом”, но когда дело дошло до “потом”, почта успела потеряться (во время очередной переустановки винды.. как-то решил, что ничего важного в почте нет и не стал переносить письма).. Такой вот “упс..”

Обновил ffmpeg...

Ну не ffmpeg, а хедеры паскалевские для него, ну и пересобрал dll-ки есессно

Основательно не тестил, но пока тьфу-тьфу-тьфу старые проекты вроде работают.. "Портировалось" практически безболезнено, в основном менял в uses avutil на pixfmt

Брать тут (тут и хедеры, и dll готовые.. все из svn ~ 18-19 июня), если чего не работает - пробуйте жаловаться..

Пример реализации расширения для показа эскиза файла

В ответ на этот коммент сделал пример - работающий

Код в заметке был скопипастен из рабочего кода и да, не работал - надо было напильником доработать немного для реальной жизни

Но совсем немного.. Вот работающий пример - скачать пример

Win7 - красивости

Благополучно переехал на Win7 RC - мне нравится еще больше

Одна из фишек, которую захотелось сразу сделать - показ прогресса чего-нибудь прямо на кнопке в таскбаре; вроде получилось, ничего военного в общем нету; код:

uses
  windows;

type
  TBPF = (TBPF_NOPROGRESS = 0,
          TBPF_INDETERMINATE = 1,
          TBPF_NORMAL = 2,
          TBPF_ERROR = 4,
          TBPF_PAUSED = 8);
  TBATF = (TBATF_USEMDITHUMBNAIL = 1,
           TBATF_USEMDILIVEPREVIEW = 2);

function InitTaskBar: HResult;
function SetTaskBarState ( hWnd: HWND; State: TBPF ): HResult;
function SetTaskBarValue ( hWnd: HWND; Value: integer ): HResult;

implementation

uses
  ActiveX;

const
  CLSID_TaskbarList: TGUID = '{56fdf344-fd6d-11d0-958a-006097c9a090}';
  IID_ITaskbarList:  TGUID = '{56FDF342-FD6D-11d0-958A-006097C9A090}';
  IID_ITaskbarList2: TGUID = '{602D4995-B13A-429b-A66E-1935E44F4317}';
  IID_ITaskbarList3: TGUID = '{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}';

type
   ITaskbarList = interface(IUnknown)
      ['{56FDF342-FD6D-11d0-958A-006097C9A090}']
      function HrInit : HResult; stdcall;
      function AddTab(hWndOwner : HWND) : HResult; stdcall;
      function DeleteTab(hWndOwner : HWND) : HResult; stdcall;
      function ActivateTab(hWndOwner : HWND) : HResult; stdcall;
      function SetActiveAlt(hWndOwner : HWND) : HResult; stdcall;
   end; { ITaskbarList }

  ITaskbarList2 = interface(ITaskbarList)
    ['{602D4995-B13A-429b-A66E-1935E44F4317}']
    function MarkFullscreenWindow(wnd : HWND; fFullscreen : bool) : HResult; stdcall;
  end;

  ITaskbarList3 = interface (ITaskbarList2)
  ['{ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf}']
    function SetProgressValue (hWnd: HWND; ullCompleted: int64; ullTotal: int64): HResult; stdcall;
    function SetProgressState (hWnd: HWND; tbpFlags: TBPF): HResult; stdcall;
    function RegisterTab (hwndTab: HWND; hwndMDI: HWND): HResult; stdcall;
    function UnregisterTab (hwndTab: HWND): HResult; stdcall;
    function SetTabOrder (hwndTab: HWND; hwndInsertBefore: HWND): HResult; stdcall;
    function SetTabActive (hwndTab: HWND; hwndMDI: HWND; tbatFlags: TBATF): HResult; stdcall;
    function ThumbBarAddButtons (hWnd: HWND; cButtons: integer; pButtons: pointer): HResult; stdcall;
    function ThumbBarUpdateButtons (hWnd: HWND; cButtons: cardinal; pButtons: pointer): HResult; stdcall;
    function ThumbBarSetImageList (hWnd: HWND; himl: pointer): HResult; stdcall;
    function SetOverlayIcon (hWnd: HWND; hIcon: HICON; pszDescription: PWideChar): HResult; stdcall;
    function SetThumbnailTooltip (hWnd: HWND; pszTip: PWideChar): HResult; stdcall;
    function SetThumbnailClip (hWnd: HWND; prcClip: PRect): HResult; stdcall;
  end;

var
  pTaskBarList: ITaskbarList3;

function InitTaskBar: HResult;
begin
  Result := CoCreateInstance (CLSID_TaskbarList, nil, CLSCTX_INPROC_SERVER, IID_ITaskbarList3, pTaskbarList);
  if Failed ( Result ) then
    pTaskBarList := nil;
end;

function SetTaskBarState ( hWnd: HWND; State: TBPF ): HResult;
begin
  if pTaskBarList = nil then
    Result := S_FALSE else
    Result := pTaskBarList.SetProgressState ( hWnd, State );
end;

function SetTaskBarValue ( hWnd: HWND; Value: integer ): HResult;
begin
  // assume Value = 0-100
  if pTaskBarList = nil then
    Result := S_FALSE else
    Result := pTaskBarList.SetProgressValue ( hWnd, Value, 100 );
end;

Использование - проще некуда: код можно выделить в отдельный юнит и подключать его при необходимости; перед использованием надо вызвать InitTaskBar - если получится создать нужный интерфейс (читай - если он есть, т.е. если мы в Win7), то вернется S_OK и значит можно вызывать функции прогресса.. хотя их можно вызывать и так, ничего не случится, но для красоты..

Ну и дальше - вызываем SetTaskBarState c:

• TBPF_NORMAL, если будет показываться "обычный" прогресс
• TBPF_INDETERMINATE, если надо отобразить процесс неопределенной длительности
• TBPF_ERROR, если надо показать, что в процессе произошла ошибка (прогресс-бар окрасится в красный цвет)
• TBPF_PAUSED, если процесс запаузили (прогресс-бар окрасится в желтый)

А для обновления прогресс-бара вызываем SetTaskBarValue, передавая значение в %% для отображения

Вот пример, как все должно работать: http://rapidshare.com/files/230523628/TaskBarDemo.zip.html

Вот как все работает (сначала надо нажать btn1 - это собственно инициализация, потом пощелкать по радиокнопкам и подвигать ползунок):

-> ->

---

Май в этом году мокрый-мокрющий получается.. снова дождь, снова грозу обещают, снова все выходные поливать будет..

Погоду смотрю в гаджете виндовом - он в RC "из коробки" наконец заработал..

Опять паяю!..

Стряхнул пыль, взял в руки паяльник на выходных: в htpc штатно предусмотрено 2 вентилятора на выхув, маленькие, сантиметров по 6 диаметром наверное; понятное дело, что на полной скорости они шумят не по детски.
Сначала вообще не подключал, но корпус компактный, вентиляции внутри практически нет - поэтому после нескольких зависаний компьютера начал подозревать перегрев; кроме того угол корпуса, в котором живет ж.диск, ощутимо теплый, что для диска наверное тоже нехорошо; так что включил вентилятор - корпус стал реально холодный, но шумит!
Поэтому делал регулятор скорости - нашел в закромах LM317 (выпаял несколько из дохлого блока питания кажется), поискал что это - оказалось стабилизатор, нашел схемку типовую, перерисовал в редакторе схем, сделал плату; плата совсем простая, поэтому нарисовал лаком для ногтей, а дырки сверлить оказалось легко 1-мм сверлом моим шуруповертом

Платку притянул хомутиком внутри корпуса к какой-то "балке" (заизолировав понятное дело) - комп теперь и нешумный, и негорячий (мог бы конечно быть или нешумнее, или холоднее, но все сразу - пока никак)

Заработало (что странно) с первого раза.. такое со мной случается очень редко :)

Обновление FFMPEG

Обновил/пересобрал сегодня (21.11.2008) ffmpeg из svn-а, пофиксил хедеры паскалевские, мои проекты как будто бы работают :)

Положил на рапиду архив с готовыми dll-ками и архив с хедерами и некоторыми примерами

Архив с dll (rar, 1959 кб)
Архив с исходниками (rar, 76 кб)

MP3 decoding example

Созрел до написания примера декодирования мр3

Лежит на рапидшаре - example_mp3_decoding.zip

FFMPEG: пример

Вот тут лежит обьяснение азов работы с ffmpeg-ом (блин, ну не с ffmpeg-ом конечно, а с библиотеками из проекта), спортировал пример на паскаль, положил на рапиду архив

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

Отсебятины добавил - swscale вместо imgconvert (ибо deprecated) и процедурку сохранения картинок, чтобы посмотреть на результат

Лежит вот - http://rapidshare.com/files/147700653/testProject.zip.html

ffmpeg + Delphi = лежит тут

Выложил на рапидшару последние паскальные заголовки для либ из ffmpeg, вдруг на работе комп ляпнется, svn ляпнется, дома комп ляпнется, svn ляпнется - и что делать? Рапидшара не ляпнется никогда :)

заголовки в pas (обновлено по svn на 24.09.2008)
скомпиленные dll (из svn на 07.10.2008)

ffmpeg + lame

Еще про ffmpeg - добавление поддержки lame

Сначала надо скачать исходники собственно lame и положить куда-нибудь - пусть внутрь папки ffmpeg

Дальше надо отсюда (nasm sources) скачать исходники nasm:

• nasm-2.03.01.tar.bz2
  

Распаковываем архив в c:\msys, заходим в консоль, пишем:

cd c:/msys/nasm-2.03.01
./configure --prefix=/mingw
make
make install

Затем в консоли пишем:

cd c:/ffmpeg/lame-3.97
./configure --prefix=/mingw --disable-shared --enable-nasm
make
make install

Все должно скомпилится и файлы разложиться по правильным полочкам; после чего переходим к исходникам ffmpeg и собираем все (моя цель - получить dll-ки, которые я буду использовать в своей программе):

cd c:/ffmpeg
./configure --enable-memalign-hack --enable-w32threads
--enable-libmp3lame --enable-shared --disable-static --enable-gpl
--enable-swscale --extra-cflags=-I/mingw/include/lame
--extra-ldflags=-L/mingw/lib
make
make install

Все, будто бы работает

Опять ffmpeg...

Мне опять надо пересобрать ffmpeg :( - но я то уже подкован и почти помню свои себе (недописанные правда) инструкции; инструкции обновились:

Идем на SourceForge.net в раздел MinGW - Minimalist GNU for Windows, ищем там MSYS Base System, из которого качаем:

• msysCORE-1.0.11-20080826.tar.gz
• MSYS-1.0.11-20080821-dll.tar.gz (вообще говоря обращаем внимание на MSYS-1.0.11, дальше цифры могут меняться, это дата релиза; и обращаем внимание, чтобы это были не src)
• bash-3.1-MSYS-1.0.11-1.tar.bz2
  
• coreutils-5.97-MSYS-1.0.11-snapshot.tar.bz2

Затем нужны файлы из раздела MinGW Runtime:

• mingwrt-3.15.1-mingw32-dev.tar.gz

Еще нужен файл в разделе MinGW API for MS-Windows:

• w32api-3.12-mingw32-dev.tar.gz 

Из раздела GNU Binutils нужны:

• binutils-2.18.50-20080109-2.tar.gz

Из GNU Make:

• mingw32-make-3.81-20080326-3.tar.gz
  

Из GCC Version 3:

• gcc-core-3.4.5-20060117-3.tar.gz

Из GCC Version 4:

• gcc-core-4.2.1-sjlj-2.tar.gz

Делаем папку, скажем c:\msys; в эту папку распаковываем первые 4 архива. Распаковываем в таком порядке, соглашаясь на перезапись файлов; файлы из coreutils норовят распаковаться в отдельную папку - не давать.

Дальше надо в папке msys сделать папку mingw, в которую распаковать остальные архивы.

Когда все файлы на месте, надо поправить msys.bat (в c:\msys) - добавить в него первой строчкой

call "C:\Program Files\Microsoft Visual Studio 8\VC\vcvarsall.bat"

Строчка нужна, чтобы компилить windows-совместимые dll-ки (ну и студия должна быть установлена конечно для этого)

Следующий шаг - надо открыть файл c:\msys\etc\fstab и добавить в него строку

c:/msys/mingw /mingw

Чтобы не напрягать глаза, пытаясь прочитать вывод консоли, можно еще поправить строку 88 в msys.bat (или 89... смотря как добавлять вот ту строчку выше в этот файл) - вот так например

start ... Courier-16 ... -geometry 100x50 -e /bin/sh --login -i

Ну и в принципе на этом все... Запускаем msys.bat, попадаем в консоль, вводим (если исходники ffmpeg лежат скажем в c:\ffmpeg):

cd c:/ffmpeg
./configure --enable-memalign-hack --cc=gcc-sjlj --enable-libmp3lame --enable-shared
make
make install

Ждем, ждем, ждем, и через какое-то время получаем результат (проверено на "чистой" виртуалке); результат лежит в папке c:\msys\local - в bin лежат ffmpeg.exe и dll файлы (если заказывались), в include лежат *.h файлы, достаточные для использования полученных dll, в lib лежат еще какие-то файлы, которые мне не нужны, ибо пишу в делфи