ABADev blog

Blog

  • фальшивые монеты

    Будучи в Израиле Ира мне все время напоминала о том, чтобы я проверял монеты в 10 шекелей. Ей когда-то на шуке (рынке) араб дал монетку без ребра, которую другой араб уже отказался принимать. Было это с ней всего один раз, но почему-то после этого она сама всегда проверяет ребрышки у монет и мне все уши прожужжала.

    В принципе я особо внимание на это не уделял, т.к. был в полной уверености, что подделывать монеты может только полный тупица. Их себестоимость превышает номинал в несколько раз. Одно дело, когда подсовывают иностранные монеты, которые и по размеру и по “раскраске” напоминают аналогичную монету (например, одно время в Украине было засилье российских 10 копеек вместо украинских 10 копеек). А вот тупо чеканить фальшивые монеты – это странно.

    Но сегодня с удивлением прочитал в LiveJournal, что Ира все-таки права и таких фальшивых десяток в Израиле очень много!

    Неужели палестинцы таким образом пытаются подорвать экономику Израиля? 🙂 Или это у них метал очень дешевый? Но не думаю, что они калаши переплавляют…

    PS: кстати бумажные двадцатки в Израиле красивые. они какие-то “пластиковые”, а не бумажные и с несколькими прозрачными окошками. Вроде бы сейчас и другие номиналы будут менять на “пластиковые”
    Читал, что такие “пластиковые” деньги только в Израиле и Румынии. Их даже стирать можно. Я такую двадцатку даже себе в коллекцию привез:-)

  • гарь

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

    А вчера почему-то воняло какой-то химией. Может Химволокно что-то подпалило…

  • Delphi+Vista+Alt key – disapear controls

    Fix:
    http://qc.codegear.com/wc/qcmain.aspx?d=37403

  • Дача Бойко в Форосе

    В прошлом году мы отдыхали в Форосе и жили прямо над пляжем. Было очень удобно сидеть на кровати и через окно любоваться морем с дельфинами. Справа был крутой склон горы, на которой какие-то маньяки строили какой-то дом. Они абсолютно не мешали, зато один раз “развлекли” – экскаватор вместе с водителем навернулся с этой горы и было занятно фотографировать покореженную технику. На отдыхе хоть какое-то зрелище и разнообразие. Тем более водитель сумел выскочить на половине спуска (еще до того, как экскаватор сделал несколько кульбитов).

    А сегодня случайно читал статью журналиста из Корреспондент и оказалось, что дом там уже достроен и эта усадьба принадлежит Бойко (бывший министр топлива и энергетики в правительстве Януковича):

    Dacha Boyko in Foros


    Наверное ему тоже захотелось из окна видеть море и дельфинов:-)

  • SMWord suite + parser for .fb2 files

    In last time the Electronic Books are very popular. Sony Reader, IBook Reader, BeBook, lBook etc

    As result, the new xml-based format for e-books was developed – FictionBook (.fb2):
    http://en.wikipedia.org/wiki/FictionBook

    All these hardware units allow to read the e-books in this format

    Today I added the new component for our SMWord suite for Delphi/C++Builder – TFictionBook
    This component allow to read any .fb2-file and extract the plain text.
    Also you may convert the text from Fiction Book into rtf (richtext) or html

    So if you want to develop the new reader or just want to add a possibility to search the information inside .fb2-files, you are welcome to order our SMWord suite.

    Now there the next formats supported:

    • .doc files (all versions for MS Word) – TMSWordDocument component
    • .docx files (MS Word 2007) – TMSWordXDocument component
    • .wpd (all versions for WordPerfect documents from Corel Office) – TWordPerfectFile component
    • .wri (MS Writer) – TWRIFile component
    • .odt (text documents from Open Office) – TOpenOfficeTextDocument component
    • .ods (spreadsheets from Open Office) – TOpenOfficeSpreadsheet component
    • .odp (presentations from Open Office) – TOpenOfficePresentation component
    • .fb2 (FictionBook, e-book) – TFictionBook component

  • new hdd for laptop

    In Saturday I buyed the new hard disk (WD2500BEVE) for my laptop (HP xt6200)
    The new disk is not initialized by default, so:
    – I plugged this unit via USB (Transcend 2,5′ IDE HDD Enclosure for USB 2.0 Port)
    – rebooted
    – opened the Control Panel\Administration\Disk Management
    – initialized the disk
    – created the main active partion (100Gb), new logical drive and formatted (NTFS)
    – created additional partion (rest 150Gb), two new logical drives (75Gb+75Gb) and formatted each (NTFS)

  • where to store the program settings (.ini)

    Most comfortable (for me personallY) place where program must store the ini-file with options/settings is the application directory. For example, dbview.exe must save the dbview.ini in same folder where .exe is

    But interface guide from Microsoft noted that these end-user settings must be saved in CSIDL_APPDATA (C:\Documents and Settings\<user>\Application Data\<Company>\<Application>)

    If application ran in MS Vista with enabled UAC and tried to write (create file) something into application directory, error raised.

    So we changed the code (to get the file name for settings):
    function GetINIFileName: string;
    var
      strFileName: string;
    begin
      strFileName := ExtractFileName(ParamStr(0));
      Result := GetUserDirectory(‘Scalabium\’ + ChangeFileExt(strFileName, ”) + ‘\’) + ChangeFileExt(strFileName, ‘.ini’)
    end;

    where
    function GetUserDirectory(const SubDir: string): string;
    var
      List: PItemIDList;
      Path: array[0..MAX_PATH] of Char;
    begin
      SHGetSpecialFolderLocation(0, CSIDL_APPDATA, List);
      SHGetPathFromIDList(List, Path);
      Result := String(Path);
      if (Result = ”) then
        Result:= ExtractFilePath(ParamStr(0))
      else
      if (SubDir <> ”) then
      begin
        Result := Result + ‘\’ + SubDir;

        ForceDirectories(Result);
      end
    end;

  • free hosting

    http://www.freehostia.com/free_hosting.html
     Data storage: 250 MB
     Monthly bandwidth: 5 GB
     Hosting for 2 domains
     NO ADS

     PHP & Perl enabled
     1 MySQL database
     10 MB MySQL DB space
     Elefante free scripts

  • IMGConvert + gif/png pictures

    Для чтения gif/png-картинок используется GraphicEx from Mike Lischke
    Но эта библиотека не позволяет создавать ни gif, ни png. Они только читаются правильно, а сохранения там нет вовсе.

    Начал искать альтернативы.
    Для PNG довольно быстро у себя в архивах нашел TPNGImage from [email protected]
    Единственно докрутил сам вызов события OnProgress при сохранении.
    Работает медленно, но пока терпимо.

    Из первостепенного – нужно избавиться от дублирования файлов для сжатия. Они есть и в GraphicEx, и в TPNGImage (adler.obj, deflate.obj etc). С наскоку убрать не удалось – эти файлы из разных версий с разными опубликованными методами. Лишнего там на 40-45Kb

    А вот с GIF замучился. От RXLib (TRxGifAnimator) отказался сразу – слишком много лишнего тянет в себе и анимация мне не нужна вовсе.
    Потом взял TGIFImage from Anders Melander. У меня он был версии 06-Oct-2002. Прикрутился быстро, но качество создаваемых картинок абсолютно не впечатлило – цвета калечились очень сильно.

    Сегодня сходил к нему на сайт http://melander.dk/delphi/gifimage
    Оказалось он передал этот компонент в CodeGear и он включен в BDS 2007. Взял его новую версию и воткнул к себе в Delphi 5. После получаса исправления ошибок компиляции все заработало и результатом создаваемых картинок я доволен.

  • Google Insights for Search

    http://google.com/insights/search