Owl's perspective

2017年8月1日

2017/08開催のセミナー

Web Seminar
Live Seminar
- 2018/08/01 10:00-17:30(JST) 第34回エンバカデロ・デベロッパーキャンプ・イン大阪
- 2017/08/03 14:00-17:00(JST) セミナー「Delphi / C++Builder 業務アプリケーション刷新実践法」
- 2017/08/25 17:00-19:00(JST) 「RAD Studioで始めるマルチデバイス・クロスプラットフォーム開発ワークショップ」

2017年7月28日

第34回エンバカデロ・デベロッパーキャンプ・イン東京

本日10:00から第34回エンバカデロ・デベロッパーキャンプ・イン東京がコングレスクエア中野で行われます。今回もUStreamによるライブ中継が行われます。

第34回エンバカデロ・デベロッパーキャンプ・イン東京
- 【G1】ジェネラルセッション「モダナイゼーションを支援するエンバカデロのRADテクノロジー」
  - Replay (1/1)
- 【G2】テクニカルセッション「これが定番！RAD Studioで実践する既存システムのモダナイズ」
  - Replay (1/1)
- 【A3】Delphi/C++テクニカルセッション「既存のVCLアプリでもモバイル活用！簡単マルチデバイス連携術」
- 【B3】テクニカルケーススタディ「Delphi 64bitで実現した大規模VR空間対応の新バージョン『UC-win/Road Ver.12』開発の道のり」
  - Replay (1/1)
- 【A4】Delphi/C++/InterBaseテクニカルセッション「基幹系だけじゃない！シーン別データベース活用術 - モバイル、デスクトップから多層、クラウドまで、コスト節約と性能実現のキモ」
  - Replay (1/1)
- 【B4】Delphiテクニカルセッション「Delphiで超高速OpenGL 2D/3D描画 - FireMonkey / VCLコンポーネントで驚きの性能実現」
  - Replay (1/1)
- 【A5】Delphiテクニカルセッション「クロスプラットフォーム開発で役立つDelphi新機能活用ポイント」
  - Replay (1/1)
- 【B5】Delphi / C++テクニカルセッション「プロジェクトが大きくなっても慌てない！RAD Studioチーム開発の心得」
  - Replay (1/1)
- 【G6】ライトニングトーク「共有！みんなの開発事例、開発経験、テクニック」
第34回エンバカデロ・デベロッパーキャンプ・イン大阪
- 【T1】Delphiテクニカルセッション「知って得する！今日から使えるDelphi実践テクニック」
  - Replay (1/1)
- 【T2】Delphi/C++/InterBaseテクニカルセッション「データベースとデータアクセスを見直そう！シーン別データベース活用実践 - コスト節約と性能実現のキモ」
- 【G3】ジェネラルセッション「モダナイゼーションを支援するエンバカデロのRADテクノロジー」
- 【T4】テクニカルセッション「これが定番！RAD Studioで実践する既存システムのモダナイズ」
- 【T5】Delphi/C++テクニカルセッション「既存アプリをマルチデバイス活用に進化！VCLからのモバイル連携3段活用」
  - Replay (1/1)
- 【G6】ライトニングトーク「共有！みんなの開発事例、開発経験、テクニック」

2017年7月19日

Packt Publishingで注文した

Expert Delphi (amazon US, amazon JP)/Paweł Głowacki著/Packt Publishing/ISBN 9781786460165/49.99USD(Print+eBook)

が配送されてきました(今回の配送もDHL/佐川急便で、インドはチェンナイ(旧マドラス)からの発送でした)。2017/07/11に注文して8日目の到着、49.99USDから20% discountで40.00USD=~~4,576JPY~~4,676JPY(~~暫定、~~1USD=~~114.40JPY~~116.900JPY)でした。

2017年7月12日

Microsoft Monthly Update 2017/07

今日はMicrosoftのセキュリティアップデートの日です。
リリースノート 2017 年 7 月のセキュリティ更新プログラム
2017 年 7 月のセキュリティ更新プログラム (月例) – 日本のセキュリティチーム

2017年7月7日

[書籍]現場で役立つシステム設計の原則

啓文堂書店渋谷店で

現場で役立つシステム設計の原則 (amazon)/増田亨著/技術評論社/ISBN 978-4-7741-9087-7/3,175円

を購入。

2017年7月1日

2017/07開催のセミナー

Web Seminar
Live Seminar
- 2017/07/06 16:00-18:00(JST) セミナー「モバイル、クラウド、IoT時代にどう立ち向かう？これからのDBアプリケーション開発」
- 2017/07/28 10:00-18:00(JST) 第34回エンバカデロ・デベロッパーキャンプ・イン東京

2017年6月23日

[書籍]Effective Debugging

紀伊國屋書店新宿本店でEffective Debugging (amazon US)の翻訳である

Effective Debugging (amazon)/Diomidis Spinellis著/黒川利明訳/大岩尚宏技術監修/オライリージャパン/ISBN 978-4-87311-799-7/3,456円

を購入。

[書籍]改訂新版 C#ポケットリファレンス

紀伊國屋書店新宿本店で

[改訂新版]C#ポケットリファレンス (amazon)/WINGSプロジェクト、土井毅、髙江賢、飯島聡著/山田祥寛監修/技術評論社/ISBN 978-4-7741-9030-3/2,851円

を購入。

RAD Studio/Delphi/C++Builder 10.2 Tokyo Android Compatibility Pack

RAD Studio/Delphi/C++Builder 10.2 TokyoのHotfixがリリースされています。以下の新しいバージョンのAndroid上でのテキストの入力の問題(10.1 Berlinでも発生)とレンダリングや性能上の問題(10.2 Tokyoで発生)を修正するとのことです。

30781 FireMonkey Android Compatibility Patch for RAD Studio 10.2
30782 Source code for FireMonkey Android Compatibility Patch

RAD Studio 10.2 向け FireMonkey の Android互換性パッチ [JAPAN]

なおこのHotfixよりも先に30764 April 2017 RAD Studio 10.2 Hotfix for Toolchain Issuesをインストールする必要があるとのことです(30781を適用後に30764を適用した場合、再度30781を適用しなければならない)。

2017年6月14日

Microsoft Monthly Update 2017/06

今日はMicrosoftのセキュリティアップデートの日です。
リリースノート 2017 年 6 月のセキュリティリリース
2017 年 6 月のセキュリティ更新プログラム (月例) – 日本のセキュリティチーム

2017年6月1日

[書籍]Windows Sysinternals徹底解説改訂新版

紀伊國屋書店新宿本店でWindows Sysinternals徹底解説の改訂版でTroubleshooting with the Windows Sysinternals Tools, 2nd Edition (amazon US)の翻訳である

Windows Sysinternals徹底解説改訂新版 (amazon)/Mark Russinovich、Aaron Margosis著/山内和朗訳/日経BP/ISBN 978-4-82229-896-8/5,940円

を購入。

2017/06開催のセミナー

Web Seminar
Live Seminar

2017年5月31日

[書籍]Delphi in Depth: FireDAC

Amazon (US)で注文した

Delphi in Depth: FireDAC (CreateSpace, amazon US)/Cary Jensen著/CreateSpace/ISBN 978-1546391272/49.99USD

が配送されてきました(今回の発送地はアメリカ合衆国デラウェア州、配送はUPS i-parcel/佐川急便でした)。2017/05/19に注文して12日目の到着、Dependency Injection In Delphiと合わせてShipping & Handlingが10.97USDで計60.96USD=~~6,787JPY~~6,979JPY(~~暫定、1USD=111.33JPY~~1USD=114.479JPY)でした。

2017年5月12日

RAD Studio ロードマップ 2017/05

RAD Studioのロードマップの2017/05版が公開されています。

RAD Studio Roadmap May 2017
May 2017 Roadmap Commentary from Product Management

日本語訳もそのうち公開されると思われますが、注目点をいくつかピックアップしておきます。

RAD Studio 10.2.1 Tokyoは今年(2017年)半ばくらいにリリース、C++BuilderのLinux Serverサポートを追加
RAD Studio 10.2.2 Tokyoは2017年末くらいにリリース、AndroidのZ-オーダサポートとWindows 10/WinRT関係の更新、C++のリファクタリングでリネーム機能のサポートとコード補完、コードインサイトの強化といったあたり
RAD Studio 10.3 コードネーム "Carnival"は2018年で、FMXでAndroidのネイティブコントロールのサポート、LLDBの統合、C++17サポート、Delphiで64bit macOSのサポートの追加、DelphiでNullable型サポートや文法面の強化など

2017/05/19追記: 日本語訳が公開されました。

RAD Studioロードマップ（2017年5月付）

2017/05/22追記: コメントについても日本語訳が公開されています。

製品マネージャからの2017年5月付け製品ロードマップに関するコメント

2017年5月10日

Microsoft Monthly Update 2017/05

今日はMicrosoftのセキュリティアップデートの日です。
リリースノート 2017 年 5 月のセキュリティ更新プログラム (en)
2017 年 5 月のセキュリティ更新プログラム (月例) – 日本のセキュリティチーム

2017年5月4日

RAD Studio/Delphi/C++Builder 10.2 Tokyo April 2017 Hotfix for Toolchain Issues

RAD Studio/Delphi/C++Builder 10.2 TokyoのHotfixがリリースされています。デバッガ、C++ RTL、Delphiコンパイラの以下の問題を修正するとのことです。

デバッガ
- Android/Linuxで関数を評価するときに例外を投げたりaccess violationが起きるとデバッグ中のアプリケーションが終了してしまうことがある
- AndroidでDelphi文字列に関係するいくつかの問題
- Linuxでほかのユニットで定義されているインライン関数を展開したときに行番号情報がないためにデバッグできない
- iOSとAndroidでレコード型の動的配列を評価しようとするとデバッガがクラッシュする(iOS)またはnilが表示される(Android)
- Linuxでクラスデストラクタをデバッグしようとすると2つのブレークポイントが必要になることがある
C++ RTL
- [RSP-16394] AV on exit after FreeLibrary: WindowsアプリケーションでLoadLibraryを使用して動的にライブラリをロードしていると終了時にaccess violationが発生することがある
- scanfと関係するメソッド(_sのようなセキュリティ強化版を含む)の不具合で、出力バッファのサイズを超えて入力データで上書きされる
Delphiコンパイラ
- C++ Windows x64アプリケーションにDelphiユニットを静的にリンクするとリソース文字列が破損する
- [RSP-17138] Win64 compilation stuck at linking: Delphi Windows x64コンパイラが応答しなくなりCPUを100%使用した状態になることがある

30764 April 2017 RAD Studio 10.2 Hotfix for Toolchain Issues

April 2017 RAD Studio 10.2 Hotfix for Toolchain Issues
RAD Studio 10.2 Hotfix for Toolchain Issues リリース [JAPAN]

InterBase XE7 Update 7

InterBase XE7 Update 7がリリースされています。バージョンは12.0.7.384となっています。

30768 InterBase XE7 Update 7 (12.0.7.384) for Windows
30769 InterBase XE7 Update 7 (12.0.7.384) for Linux
30770 InterBase XE7 ToGo Edition (12.0.7.384), Win/OSX/iOS/Android

InterBase XE7 Update 7 Readme (en)
解決された不具合 (en)

InterBase XE7 Update 7 – now available

2017年5月1日

2017/05開催のセミナー

2017年4月17日

[書籍][ebook]プロフェッショナルSSL/TLS

Bulletproof SSL and TLS (amazon US)の翻訳である

プロフェッショナルSSL/TLS/Ivan Ristic著/齋藤孝道監訳/ラムダノート/ISBN 978-4-908686-00-9/5,399円(紙書籍+電子書籍(PDF))、4,860円(電子書籍(PDF)のみ)

を購入。PDFは購入後すぐにダウンロード可能、紙書籍は別途2017/05/10前後に配送(配送費別、540円)とのこと。

2017/05/11追記: 書籍版が配送されてきました(配送は佐川急便でした)。

2017年4月12日

Microsoft Monthly Update 2017/04

今日はMicrosoftのセキュリティアップデートの日です。
リリースノート 2017 年 4 月のセキュリティ更新プログラム (en)
2017 年 4 月のセキュリティ更新プログラム (月例) – 日本のセキュリティチーム

今月からセキュリティ情報の公開は廃止されています。またWindows Vistaの延長サポートが終了となっています。

2017年4月10日

IDE Fix Pack 5.96/DDevExtensions 2.84 for RAD Studio/Delphi/C++Builder 10.2 Tokyo

Andreas HausladenさんのIDE Fix PackがアップデートされてVersion 5.96となっています。RAD Studio/Delphi/C++Builder 10.2 Tokyo対応といくつかの修正が行われています。またDDevExtensions Version 2.84もRAD Studio/Delphi/C++Builder 10.2 Tokyo対応が行われています。

IDE Fix Pack 5.96, DDevExtensions, DFMCheck for Delphi 10.2 | Andy's Blog and Tools

2017年4月1日

2017/04開催のセミナー

Web Seminar
Live Seminar
- 2017/04/14 14:00-17:00(JST) セミナー「Delphi / C++ Builder 業務アプリケーション刷新実践法」
  - BDEを使った業務アプリを移行ツールで最新化 (2017年4月14日実施セミナーサマリー）[JAPAN]

2017年3月23日

RAD Studio/Delphi/C++Builder 10.2 Tokyoリリース

Firebird 3.0.2

Firebird 3.0.2がリリースされています。

Firebird: Firebird 3.0.2
Firebird 3.0.2 Release Notes (PDF)

2017年3月22日

ジェネリックスのリストをアルゴリズムを指定してソートする

Delphi 2009で導入されたジェネリックスのコンテナの一つであるTList<T>にはSortメソッドがあり、比較関数としてデフォルト以外のComparer(コンペアラ)も渡すことができるのですが、ソートアルゴリズムそのものはクイックソートしかありません。一般的には平均して性能が出るとされるクイックソートですが、安定ではないこと、苦手な状況が存在することなど、決して万能というわけではありません。ところがTList<T>.Sortは内部で保持しているTArray.Sortにソートを丸投げしており、ソートアルゴリズムを変更することができません。そこでアルゴリズムを指定してTList<T>(およびTObjectList<T: class>)をソートする方法を考えてみました。ただしDelphi 2009のTList<T>にはExchangeメソッドもMoveメソッドも存在していないため、Delphi 2010以降の対応になります。

まずソートを行うためのレコード型と、ソートアルゴリズムを実装するクラスの継承元クラスの宣言です。

{$IF RTLVersion <= 20.00}
{$MESSAGE ERROR 'Need Delphi 2010 or later'}
{$IFEND}

uses
{$IF RTLVersion >= 23.00}
  System.Rtti, System.Generics.Defaults, System.Generics.Collections;
{$ELSE}
  Rtti, Generics.Defaults, Generics.Collections;
{$IFEND}

type
  { Forward declarations }
  TSortAlgorithm<T> = class;

  { TGenericListSorter }
  TGenericListSorter = record
  private
    class function  GetComparer<T>(List: TList<T>; const AComparer: IComparer<T>): IComparer<T>; static;
  public
    class procedure Sort<T: record>(List: TList<T>; Algorithm: TSortAlgorithm<T>;
                                    const AComparer: IComparer<T>{$IF CompilerVersion >= 24.00} = nil{$IFEND}); overload; static;
{$IF CompilerVersion < 24.00}
    class procedure Sort<T: record>(List: TList<T>; Algorithm: TSortAlgorithm<T>); overload; static;
{$IFEND}
    class procedure Sort<T: class>(List: TObjectList<T>; Algorithm: TSortAlgorithm<T>;
                                   const AComparer: IComparer<T>{$IF CompilerVersion >= 24.00} = nil{$IFEND}); overload; static;
{$IF CompilerVersion < 24.00}
    class procedure Sort<T: class>(List: TObjectList<T>; Algorithm: TSortAlgorithm<T>); overload; static;
{$IFEND}
    class procedure Sort(List: TList<String>; Algorithm: TSortAlgorithm<String>;
                         const AComparer: IComparer<String>{$IF CompilerVersion >= 24.00} = nil{$IFEND}); overload; static;
{$IF CompilerVersion < 24.00}
    class procedure Sort(List: TList<String>; Algorithm: TSortAlgorithm<String>); overload; static;
{$IFEND}
  end;

  { TSortAlgorithm (abstract) }
  TSortAlgorithm<T> = class(TObject)
  public
    class function  Instance: TSortAlgorithm<T>; virtual; abstract;
    class procedure Sort(List: TList<T>; const AComparer: IComparer<T>); virtual; abstract;
  end;

TGenericListSorterはソートを行うためのレコード型で、overloadされたpublicな3つ(XE2およびそれ以前は6つ、後述)のSortメソッドと、比較を行うコンペアラを決定するためのprivateなGetComparerメソッドを持ちます。Sortメソッドの1つめは値型用(レコード制約)、2つめはクラス型用(クラス制約)、3つめはこのどちらにも含まれない文字列型用です。IComparer<T>にデフォルトパラメータを指定できるのはDelphi XE3以降のため、それ以前のバージョンではコンペアラを指定しないオーバロードをさらに3つ用意しました。またTSortAlgorithm<T>はソートアルゴリズムを実装するためのクラスの継承元になります。実際にソートを行うSortメソッドと、シングルトンなインスタンスを取得するためのInstanceメソッドを持ちます。TGenericListSorterの実装は次のようになります。

class procedure TGenericListSorter.Sort<T>(List: TList<T>; Algorithm: TSortAlgorithm<T>;
                                           const AComparer: IComparer<T>);
var
  Comparer: IComparer<T>;
begin

  if (List = nil) or (List.Count <= 1) then
  begin
    Exit;
  end;

  Comparer := GetComparer<T>(List,AComparer);

  Algorithm.Sort(List,Comparer);

end;

{$IF CompilerVersion < 24.00}
class procedure TGenericListSorter.Sort<T>(List: TList<T>; Algorithm: TSortAlgorithm<T>);
var
  Comparer: IComparer<T>;
begin

  if (List = nil) or (List.Count <= 1) then
  begin
    Exit;
  end;

  Comparer := GetComparer<T>(List,nil);

  Algorithm.Sort(List,Comparer);

end;
{$IFEND}

class procedure TGenericListSorter.Sort<T>(List: TObjectList<T>; Algorithm: TSortAlgorithm<T>;
                                           const AComparer: IComparer<T>);
var
  Comparer: IComparer<T>;
  OwnsObjects: Boolean;
begin

  if (List = nil) or (List.Count <= 1) then
  begin
    Exit;
  end;

  Comparer := GetComparer<T>(List,AComparer);

  OwnsObjects := List.OwnsObjects;
  try
    List.OwnsObjects := False;
    Algorithm.Sort(List,Comparer);

  finally
    List.OwnsObjects := OwnsObjects;
  end;

end;

{$IF CompilerVersion < 24.00}
class procedure TGenericListSorter.Sort<T>(List: TObjectList<T>; Algorithm: TSortAlgorithm<T>);
var
  Comparer: IComparer<T>;
  OwnsObjects: Boolean;
begin

  if (List = nil) or (List.Count <= 1) then
  begin
    Exit;
  end;

  Comparer := GetComparer<T>(List,nil);

  OwnsObjects := List.OwnsObjects;
  try
    List.OwnsObjects := False;
    Algorithm.Sort(List,Comparer);

  finally
    List.OwnsObjects := OwnsObjects;
  end;

end;
{$IFEND}

class procedure TGenericListSorter.Sort(List: TList<String>; Algorithm: TSortAlgorithm<String>;
                                        const AComparer: IComparer<String>);
var
  Comparer: IComparer<String>;
begin

  if (List = nil) or (List.Count <= 1) then
  begin
    Exit;
  end;

  Comparer := GetComparer<String>(List,AComparer);

  Algorithm.Sort(List,Comparer);

end;

{$IF CompilerVersion < 24.00}
class procedure TGenericListSorter.Sort(List: TList<String>; Algorithm: TSortAlgorithm<String>);
var
  Comparer: IComparer<String>;
begin

  if (List = nil) or (List.Count <= 1) then
  begin
    Exit;
  end;

  Comparer := GetComparer<String>(List,nil);

  Algorithm.Sort(List,Comparer);

end;
{$IFEND}

class function TGenericListSorter.GetComparer<T>(List: TList<T>; const AComparer: IComparer<T>): IComparer<T>;
var
  ctx: TRttiContext;
begin

  Result := AComparer;
  if Result = nil then
  begin
    Result := ctx.GetType(List.ClassType).GetField('FComparer').GetValue(List).AsType<IComparer<T>>;
  end;

end;

Sortメソッドはいずれもコンペアラを確定し、指定されたソートアルゴリズムのインスタンスのSortメソッドを呼び出しています。ただしTObjectList<T>用のオーバロードはソートを行っている間、一時的にOwnsObjectsをFalseに変更しています。これはOwnsObjectsがTrueだと(以下の例のマージソートのように)Items[]に代入を行ったときに、もともと格納されているTのインスタンスを解放してしまうためで、ソートアルゴリズムのクラスで直接ソートを行うのではなく、レコード型TGenericListSorterの3つのオーバロードに処理を分けて、そこから間接的に呼び出すようになっているのはこれが理由です。またGetComparerメソッドはコンペアラが指定されていない(=nil)ときに、TList<T>の持つデフォルトのコンペアラを(RTTIを使って)取得します。次に実際のソートアルゴリズムを実装したクラスですが、まずコムソートを実装してみます。

type
  TCombSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TCombSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TCombSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TCombSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
const
  SHRINK_FACTOR = 1.247330950103979;
var
  Index: Integer;
  Gap: Integer;
  Swapped: Boolean;
begin

  Gap := List.Count;
  Swapped := True;

  while (Gap > 1) or (Swapped = True) do
  begin
    if Gap > 1 then
    begin
      Gap := Trunc(Gap / SHRINK_FACTOR);
    end;

    if Gap < 1 then
    begin
      Gap := 1;
    end;

    Swapped := False;
    Index := 0;

    while (Gap + Index) < List.Count do
    begin
      if AComparer.Compare(List.Items[Index],List.Items[Index + Gap]) > 0 then
      begin
        List.Exchange(Index,Index + Gap);
        Swapped := True;
      end;
      Index := Index + 1;
    end;
  end;

end;

前述の通り(TGenericListSorterとは異なり)1種類の<T>に対してのみSortを実装すればよいようになっています。またSortメソッド以外にシングルトンなインスタンスを取得するためのInstanceメソッドと、そのインスタンスを解放するためのクラスデストラクタを用意します。これで例えばInteger型のリストに対しては

var
  I: Integer;
  Value: Integer;
  List: TList<Integer>;
begin
  List := TList<Integer>.Create;
  try
    for I := 0 to 999 do
    begin
      List.Add(Random(100000));
    end;

    TGenericListSorter.Sort<Integer>(List,TCombSort<Integer>.Instance,TComparer<Integer>.Construct(
      function(const Left, Right: Integer): Integer
      begin
        Result := Left - Right;
      end));

    for Value in List do
    begin
      Memo1.Lines.Add(IntToStr(Value));
    end;

  finally
    List.Free;
  end
end;

このような形でソートを呼び出すことができます。同じようにその他のソートアルゴリズムを実装していきます。ノームソートです。

type
  TGnomeSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TGnomeSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TGnomeSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TGnomeSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  Index: Integer;
begin

  Index := 0;
  while Index < List.Count do
  begin
    if (Index = 0) or (AComparer.Compare(List.Items[Index],List.Items[Index - 1]) >= 0) then
    begin
      Index := Index + 1;
    end
    else
    begin
      List.Exchange(Index,Index - 1);
      Index := Index - 1;
    end;
  end;

end;

選択ソートです。

type
  TSelectionSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TSelectionSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TSelectionSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TSelectionSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  Index1: Integer;
  Index2: Integer;
  MinIndex: Integer;
  Temp: T;
begin

  for Index1 := 0 to List.Count - 2 do
  begin
    MinIndex := Index1;
    Temp := List.Items[MinIndex];

    for Index2 := Index1 + 1 to List.Count - 1 do
    begin
      if AComparer.Compare(List.Items[Index2],Temp) < 0 then
      begin
        MinIndex := Index2;
        Temp := List.Items[MinIndex];
      end;
    end;

    if MinIndex <> Index1 then
    begin
      List.Move(MinIndex,Index1);
    end;
  end;

end;

挿入ソートです。

type
  TInsertionSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TInsertionSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TInsertionSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TInsertionSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  Comparer: IComparer<T>;
  Index1: Integer;
  Index2: Integer;
  Temp: T;
begin

  for Index1 := 1 to List.Count - 1 do
  begin
    Temp := List.Items[Index1];
    Index2 := Index1 - 1;

    while (Index2 >= 0) and (AComparer.Compare(List.Items[Index2],Temp) > 0) do
    begin
      Index2 := Index2 - 1;
    end;

    List.Move(Index1,Index2 + 1);
  end;

end;

クイックソートです。

type
  TQuickSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
    class procedure  InternalSort(List: TList<T>; Left: Integer; Right: Integer;
                                  const AComparer: IComparer<T>);
    class function   Partition(List: TList<T>; Left: Integer; Right: Integer;
                               const AComparer: IComparer<T>): Integer;
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TQuickSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TQuickSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TQuickSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  Comparer: IComparer<T>;
begin

  InternalSort(List,0,List.Count - 1,AComparer);

end;

class procedure TQuickSort<T>.InternalSort(List: TList<T>; Left: Integer; Right: Integer;
                                           const AComparer: IComparer<T>);
var
  Pivot: Integer;
begin

  if Left < Right then
  begin
    Pivot := Partition(List,Left,Right,AComparer);

    InternalSort(List,Left,     Pivot,AComparer);
    InternalSort(List,Pivot + 1,Right,AComparer);
  end;

end;

class function TQuickSort<T>.Partition(List: TList<T>; Left: Integer; Right: Integer;
                                       const AComparer: IComparer<T>): Integer;
var
  Index1: Integer;
  Index2: Integer;
  Pivot: T;
begin

  Pivot := List.Items[(Left + Right) div 2];
  Index1 := Left  - 1;
  Index2 := Right + 1;

  while True do
  begin
    repeat
      Index1 := Index1 + 1;
    until (AComparer.Compare(List.Items[Index1],Pivot) >= 0);

    repeat
      Index2 := Index2 - 1;
    until (AComparer.Compare(List.Items[Index2],Pivot) <= 0);

    if Index1 >= Index2 then
    begin
      Result := Index2;
      Exit;
    end;

    List.Exchange(Index1,Index2);
  end;

end;

ヒープソートです。

type
  THeapSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
    class procedure  BuildHeap(List: TList<T>; const AComparer: IComparer<T>);
    class procedure  Heapify(List: TList<T>; Index: Integer; Max: Integer;
                             const AComparer: IComparer<T>);
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor THeapSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function THeapSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure THeapSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  Index: Integer;
begin

  BuildHeap(List,AComparer);

  for Index := List.Count - 1 downto 1 do
  begin
    List.Exchange(0,Index);

    Heapify(List,0,Index,AComparer);
  end;

end;

class procedure THeapSort<T>.BuildHeap(List: TList<T>; const AComparer: IComparer<T>);
var
  Index: Integer;
begin

  for Index := (List.Count div 2) - 1 downto 0 do
  begin
    Heapify(List,Index,List.Count,AComparer);
  end;

end;

class procedure THeapSort<T>.Heapify(List: TList<T>; Index: Integer; Max: Integer;
                                     const AComparer: IComparer<T>);
var
  Left: Integer;
  Right: Integer;
  Largest: Integer;
begin

  Left  := Index * 2 + 1;
  Right := Index * 2 + 2;

  if (Left < Max) and (AComparer.Compare(List.Items[Left],List.Items[Index]) > 0) then
  begin
    Largest := Left;
  end
  else
  begin
    Largest := Index;
  end;

  if (Right < Max) and (AComparer.Compare(List.Items[Right],List.Items[Largest]) > 0) then
  begin
    Largest := Right;
  end;

  if Largest <> Index then
  begin
    List.Exchange(Index,Largest);

    Heapify(List,Largest,Max,AComparer);
  end;

end;

マージソートです。

type
  TMergeSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
    class procedure  InternalSort(List: TList<T>; var Work: array of T;
                                  Left: Integer; Right: Integer;
                                  const AComparer: IComparer<T>);
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TMergeSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TMergeSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TMergeSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  WorkArea: array of T;
begin

  SetLength(WorkArea,List.Count);
  try
    InternalSort(List,WorkArea,0,List.Count - 1,AComparer);

  finally
    SetLength(WorkArea,0);
  end;

end;

class procedure TMergeSort<T>.InternalSort(List: TList<T>; var Work: array of T;
                                           Left: Integer; Right: Integer;
                                           const AComparer: IComparer<T>);
var
  Index1: Integer;
  Index2: Integer;
  Index3: Integer;
  Mid: Integer;
begin

  if Left >= Right then
  begin
    Exit;
  end;

  Mid := (Left + Right) div 2;
  InternalSort(List,Work,Left,   Mid,  AComparer);
  InternalSort(List,Work,Mid + 1,Right,AComparer);

  for Index1 := Left to Mid do
  begin
    Work[Index1] := List.Items[Index1];
  end;

  Index2 := Right;
  for Index1 := Mid + 1 to Right do
  begin
    Work[Index1] := List.Items[Index2];
    Index2 := Index2 - 1;
  end;

  Index1 := Left;
  Index2 := Right;
  for Index3 := Left to Right do
  begin
    if AComparer.Compare(Work[Index1],Work[Index2]) > 0 then
    begin
      List.Items[Index3] := Work[Index2];
      Index2 := Index2 - 1;
    end
    else
    begin
      List.Items[Index3] := Work[Index1];
      Index1 := Index1 + 1;
    end;
  end;

end;

シェルソートです。

type
  TShellSort<T> = class(TSortAlgorithm<T>)
  protected
    class var
      FInstance: TSortAlgorithm<T>;
    class procedure  InternalSort(List: TList<T>; Gap: Integer;
                                  const AComparer: IComparer<T>);
  public
    class destructor Destroy;
    class function   Instance: TSortAlgorithm<T>; override;
    class procedure  Sort(List: TList<T>; const AComparer: IComparer<T>); override;
  end;

class destructor TShellSort<T>.Destroy;
begin

  FInstance.Free;

end;

class function TShellSort<T>.Instance: TSortAlgorithm<T>;
begin

  if FInstance = nil then
  begin
    FInstance := Self.Create;
  end;

  Result := FInstance;

end;

class procedure TShellSort<T>.Sort(List: TList<T>; const AComparer: IComparer<T>);
var
  Gap: Integer;
begin

  Gap := List.Count div 2;
  while Gap > 0 do
  begin
    InternalSort(List,Gap,AComparer);

    Gap := Gap div 2;
  end;

end;

class procedure TShellSort<T>.InternalSort(List: TList<T>; Gap: Integer;
                                           const AComparer: IComparer<T>);
var
  Index1: Integer;
  Index2: Integer;
begin

  for Index1 := Gap to List.Count - 1 do
  begin
    Index2 := Index1 - Gap;
    while Index2 >= 0 do
    begin
      if AComparer.Compare(List.Items[Index2 + Gap],List.Items[Index2]) > 0 then
      begin
        Break;
      end;

      List.Exchange(Index2,Index2 + Gap);
      Index2 := Index2 - Gap;
    end;
  end;

end;

Instanceメソッドとクラスデストラクタを毎回書かなければならないことを除けば、ソートのコードを1つ書くだけで値型に対するTList<T>(TList<String>を含む)、クラスに対するTObjectList<T>のどちらであってもソートを行うことができます。

→ジェネリックスのリストをアルゴリズムを指定してソートする(Gist)

2017年3月15日

DELPHI / C++BUILDER 0315 IN TOKYO

本日13:30から次期RAD Studio/Delphi/C++Builder(10.2 Tokyo)のお披露目となるDELPHI / C++BUILDER 0315 IN TOKYOが東京ミッドタウン・カンファレンスで行われます。UStreamによる中継も行われます。

レセプションも含め終了しました。参加者、関係者の皆さん、お疲れさまでした。

今日のアバウトなまとめ

RAD Studio/Delphi/C++Builderの次期バージョンは"10.2 Tokyo"で、2017/03/28販売開始予定
主な新機能はLinux(Intel x64)サポート(C++Builderは次のアップデートにあたる"10.2.1"でサポート)
LinuxサポートはEnt SKU以上が必要(Add-on Packなどは今のところなし)
勉強会やりましょう

Microsoft Monthly Update 2017/03

今日はMicrosoftのセキュリティアップデートの日です。
2017年03月のマイクロソフトセキュリティ情報の概要
MS17-006
MS17-007
MS17-008
MS17-009
MS17-010
MS17-011
MS17-012
MS17-013
MS17-014
MS17-015
MS17-016
MS17-017
MS17-018
MS17-019
MS17-020
MS17-021
MS17-022
MS17-023

2017年3月9日

InterBase 2017リリース

InterBase 2017(13.0.0.129)がリリースされています。~~現時点(2017/03/09)でDeveloper EditionとServer Edition(トライアル版)のみダウンロード可能です。~~ODSは17になっています。

30748 InterBase 2017 Server Ed., Windows/Linux (13.0.0.129, Japanese)
30749 InterBase 2017 Server Ed., Windows/Linux (13.0.0.129, English)
30736 InterBase 2017 (13.0.0.129) Developer Edition, Japanese
30738 InterBase 2017 (13.0.0.129) Developer Edition, English

30756 InterBase 2017 ToGo Ed., Windows/Linux/macOS/iOS/Android

Readme - InterBase (en)
InterBase 2017 の新機能 - InterBase(en)

InterBase 2017 - Now available • DelphiABall

2017/03/10追記: Server Editionもダウンロードできるようになっています。

2017/03/24追記: ToGo Editionもダウンロードできるようになっています。

2017年3月7日

Adobe Reader(X以降)で指定したファイルの指定したページを開く

以前Adobe Acrobat/Readerで指定したPDFファイルの指定したページを開く方法について書きましたが、コメントでおかぽんさんからAdobe Reader X以降ではこの方法が使えなくなっているとの指摘をいただきました。

...DDEを使った方法ですが、Acrobat X から、DDEのサービス名が変更されています。...

調べてみると、Actobat/ReaderのVersion 10(X)以降で、DDEのサービス名が Acroview + [A|R] + <MajorVersion> に変更されたことが原因とのことです。というわけでこれに対応してみました。

uses
{$IF RTLVersion >= 23.00}
  Winapi.Windows, System.SysUtils, System.Win.Registry, System.AnsiStrings,
  Vcl.DdeMan;
{$ELSE}
  Windows, SysUtils, Registry, {$IFDEF UNICODE}AnsiStrings, {$ENDIF}DdeMan;
{$IFEND}

function GetAcrobatPathname: String;
begin

  with TRegistry.Create do
  begin
    try
      RootKey := HKEY_CLASSES_ROOT;
      OpenKeyReadOnly('Software\Adobe\Acrobat\Exe');
      try
        Result := AnsiDequotedStr(ReadString(''),'"');

      finally
        CloseKey;
      end;

    finally
      Free;
    end;
  end;

end;

procedure OpenPDF(const Filename: String; Page: Integer);
const
  CDdeCommand: AnsiString = '[DocOpen("%s")][DocGoTo(NULL,%d)]';
var
  Macro: AnsiString;
  Pathname: String;
  ServiceName: String;
  MajorVersion: Integer;
  AcrobatType: String;
begin

  Macro := {$IFDEF UNICODE}{$IF RTLVersion >= 23.00}System.{$IFEND}AnsiStrings.{$ENDIF}
           Format(CDdeCommand,[Filename,Page - 1]);

  Pathname := GetAcrobatPathname;

  ServiceName := 'Acroview';
  MajorVersion := GetFileVersion(Pathname) shr 16;
  if MajorVersion >= 10 then
  begin
    if CompareText(ExtractFileName(Pathname),'AcroRd32.exe') = 0 then
    begin
      AcrobatType := 'R';
    end
    else
    begin
      AcrobatType := 'A';
    end;

    ServiceName := ServiceName + Format('%s%d',[AcrobatType,MajorVersion]);
  end;

  with TDdeClientConv.Create(nil) do
  begin
    try
      ConnectMode := ddeManual;
      ServiceApplication := ChangeFileExt(Pathname,'');
      SetLink(ServiceName,'Control');
      if (OpenLink or ((MajorVersion >= 15) and OpenLink)) = True then
      begin
        ExecuteMacro(PAnsiChar(Macro),False);
        CloseLink;
      end;

    finally
      Free;
    end;
  end;

end;

Acrobat/Readerの実行ファイルの場所をレジストリの"HKEY_CLASSES_ROOT\Software\Adobe\Acrobat\Exe"から取得し、SysUtils.GetFileVersionで問い合わせたバージョン情報の上位16ビット(メジャーバージョン)とファイル名からサービス名を組み立て、DDEをTDdeClientConv.OpenLinkで呼び出してTDdeClientConv.ExecuteMacroでマクロ実行することでファイルを開きページを移動する、という手順になります。またAcrobat/Reader DCの場合TDdeClientConv.OpenLinkの内部でWinExec(en)を使用して起動した直後にDdeConnect(en)を呼び出すと失敗するようなので、リトライするようにしています。

おかぽんさん、情報ありがとうございました。

→Adobe Reader(X以降)で指定したファイルの指定したページを開く(Gist)

2017年3月5日

[書籍][ebook]Dependency Injection In Delphi

Leanpubで

Dependency Injection In Delphi (amazon US)/Nick Hodges著/Leanpub/ISBN 978-1941266229(printed), ISBN 978-1-941266-19-9(ebook)/29.99USD(printed), 29.99USD(ebook)

を購入(LearnpubのebookはPDF/EPUB/MOBI形式をダウンロード可能)。

2017/05/31追記: Amazon (US)で書籍版が購入可能になっています。ということでDelphi in Depth: FireDACと一緒に注文したDependency Injection In Delphiの書籍版が配送されてきました。29.99USD=3,433JPY(1USD=114.479JOY、配送料は含まず)ということになりました。

2017年3月1日

2017/03開催のセミナー

Web Seminar
- 2017/03/06 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第7回 Delphi「オブジェクト指向」/C++「オブジェクト指向」
- 2017/03/13 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第8回 Delphi「作ってみよう Delphiの部」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第8回 ‟作ってみよう„ Delphiの部[JAPAN]
- 2017/03/27 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第9回 C++「作ってみよう C++の部」
  - 【C++Builder Starter チュートリアルシリーズ】シーズン2 第9回 ‟作ってみよう„ [JAPAN]
  - 【Delphi / C++Builder Starter Edition チュートリアルシリーズ】シーズン2 完結！[JAPAN]
Live Seminar
- 2017/03/15 13:30-20:00(JST) DELPHI / C++BUILDER 0315 IN TOKYO
- 2017/03/28 17:00-19:00(JST) 「RAD Studioで始めるマルチデバイス・クロスプラットフォーム開発ワークショップ」
  - 3月28日開催　RAD Studioで始めるマルチデバイス・クロスプラットフォーム開発ワークショップ - ハンズオンセッション [JAPAN]

2017年2月24日

[書籍]Optimized C++

紀伊國屋書店新宿本店でOptimized C++ (amazon US)の翻訳である

Optimized C++ (amazon)/Kurt Guntheroth著/黒川利明訳/島敏博技術監修/オライリージャパン/ISBN 978-4-87311-792-8/4,320円

を購入。

2017年2月22日

Microsoft OOB Update 2017/02

Microsoftの定例外のセキュリティアップデートがリリースされています。
MS17-005

2017年2月18日

Firebird 2.5.7

Firebird Ver2.5.7がリリースされています。

Firebird: Firebird 2.5.7
Firebird 2.5 Release Notes (PDF)

2017年2月17日

[書籍]C#プログラミングのイディオム/定石&パターン

紀伊國屋書店新宿本店で

C#プログラミングのイディオム/定石&パターン (amazon)/出井秀行著/技術評論社/ISBN 978-4-7741-8758-7/3,218円

を購入。

[書籍]改訂第4版 SQLポケットリファレンス

紀伊國屋書店新宿本店で

改訂第4版 SQLポケットリファレンス (amazon)/朝井淳著/技術評論社/ISBN 978-4-7741-8732-7/2,138円

を購入。

2017年2月15日

Microsoft Monthly Update 2017/02 is canceled

今日はMicrosoftのセキュリティアップデートの日、の予定だったのですが、

we discovered a last minute issue that could impact some customers and was not resolved in time for our planned updates today.
After considering all options, we made the decision to delay this month’s updates.

とのことで、更新プログラムのリリースは延期になっています。~~この後のリリーススケジュールは現時点(2017/02/15)で未定とのことです。~~

2017/02/16追記: 2017/02のセキュリティ更新プログラムはキャンセルとなった模様です。

3 月の月例セキュリティ更新プログラム公開 (2017 年 3 月 14 日 (米国日付)) の一部として更新プログラムを配信する予定です。

Adobe Flash Playerには既知のセキュリティホールが存在していますので、Windows 8.1/10、Windows Server 2012/2012R2/2016、Windows RT 8.1上のInternet ExplorerおよびEdgeではFlash Playerを無効化するか、代替のwebブラウザを使用することを強くお勧めします。

2017/02/22追記: IE/EdgeのAdobe Flash Playerの更新プログラムがリリースされています。

Adobe Flash Player の脆弱性を修正するセキュリティ更新プログラムを定例外で公開 – 日本のセキュリティチーム
マイクロソフトセキュリティ情報 MS17-005 - 緊急 Adobe Flash Player のセキュリティ更新プログラム (4010250)

2017年2月1日

[書籍]なっとく!アルゴリズム

紀伊國屋書店新宿本店でGrokking Algorithms (amazon US)の翻訳である

なっとく!アルゴリズム (amazon)/Aditya Bhargava著/株式会社クイープ監訳/翔泳社/ISBN 9784798143354/2,700円

を購入。

[書籍]プログラミング作法

紀伊國屋書店新宿本店でThe Practice of Programming (amazon US)の翻訳である

プログラミング作法 (amazon)/Brian W. Kernighan、Rob Pike著/福崎俊博訳/KADOKAWA/ISBN 978-4-04-893052-9/3,024円

を購入。

2017/02開催のセミナー

Web Seminar
- 2017/02/06 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第3回 Delphi「条件とループ」/C++「条件とループ」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第3回 ‟条件とループ„ [JAPAN]
  - 【C++Builder Starter チュートリアルシリーズ】シーズン2 第3回 ‟条件とループ„ [JAPAN]
- 2017/02/13 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第4回 Delphi「FunctionとProcedure(関数と手続き)」/C++「関数の作り方」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第4回 ‟Function と Procedure (関数と手続き)„ [JAPAN]
  - 【C++Builder Starter チュートリアルシリーズ】シーズン2 第4回 ‟関数„ [JAPAN]
- 2017/02/20 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第5回 Delphi「配列とレコード」/C++「配列と構造体」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第5回 ‟配列とレコード„ [JAPAN]
  - 【C++BUILDER STARTER チュートリアルシリーズ】シーズン2 C++Builderの部第5回 ‟関数と構造体„ [JAPAN]
- 2017/02/27 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第6回 Delphi「文字列とオブジェクト」/C++「文字列とオブジェクト」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第6回 ‟文字列とオブジェクト„ [JAPAN]
  - 【C++Builder Starter チュートリアルシリーズ】シーズン2 第6回 ‟文字列とオブジェクト„ [JAPAN]
Live Seminar
- 2017/02/03 14:00-17:00(JST) セミナー「Delphi / C++ Builder 業務アプリケーション刷新実践法」
- 2017/02/10 17:00-19:00(JST) セミナー「RAD Studioで始めるマルチデバイス・クロスプラットフォーム開発ワークショップ」
  - RAD Studioで始めるマルチデバイス・クロスプラットフォーム開発ワークショップ[JAPAN]
  - RAD Studioで始めるマルチデバイス・クロスプラットフォーム開発ワークショップ - ハンズオンセッション [JAPAN]

2017年1月12日

RAD Studio/Delphi/C++Builder 10.1 Berlin Hotfix 11 Jan 2017

RAD Studio 10.1 BerlinのHotfixがリリースされています。macOS 10.12 Sierra上でのデプロイ/デバッグの問題(RSP-16322)、macOS 10.12 Sierra上のiOS Simulatorでの実行/デバッグの問題(RSP-16368)、iOS 10上での32ビットアプリケーションのデバッグの問題(RSP-16324)を修正するものです。

30680 RAD Studio 10.1 Berlin Hotfix: 11 Jan 2017

Debugger Hotfix for macOS Sierra and the iOS Simulator
macOS Sierra および iOS Simulator 向けの Debugger Hotfix がリリースされました [JAPAN]

2017年1月11日

Microsoft Monthly Update 2017/01

今日はMicrosoftのセキュリティアップデートの日です。
2017年01月のマイクロソフトセキュリティ情報の概要
MS17-001
MS17-002
MS17-003
MS17-004

2017年1月1日

2017/01開催のセミナー

Web Seminar
- 2017/01/23 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第1回 Delphi「シューティングゲームのプログラム」/C++「シューティングゲームのプログラム」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第1回 ‟シューティングゲームのプログラム„ [JAPAN]
  - 【C++BUILDER STARTER チュートリアルシリーズ】シーズン2 C++Builderの部第1回 ‟シューティングゲームのプログラム„ [JAPAN]
- 2017/01/26 16:00-17:30(JST) Webセミナー「RAD Studio 10.1 Berlin Update 2 Anniversary Edition 新機能ガイド」
- 2017/01/30 17:00-17:50(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン2『プログラミング言語をやさしく覚えよう』第2回 Delphi「変数と型」/C++「変数と型」
  - 【DELPHI STARTER チュートリアルシリーズ】シーズン2 第2回 ‟変数と型„ [JAPAN]
  - 【C++Builder Starter チュートリアルシリーズ】シーズン2 第2回 ‟変数と型„ [JAPAN]
Live Seminar

2016年12月26日

[書籍]アルゴリズムクイックリファレンス第2版

啓文堂書店渋谷店でAlgorithms in a Nutshell, 2nd Edition (amazon US)の翻訳である

アルゴリズムクイックリファレンス第2版 (amazon)/George T. Heineman、Gary Pollice、Stanley Selkow著/黒川利明、黒川洋訳/オライリージャパン/ISBN 978-4-87311-785-0/3,888円

を購入。

2016年12月21日

RAD Studio/Delphi/C++Builder 10.1 Berlin Debugger Hotfix for iOS

RAD Studio 10.1 BerlinのHotfixがリリースされています。iOS 10上でiOS 32ビットアプリケーションをデバッグするときの問題を修正するもののようです。

30673 Debugger Hotfix for 10.1 Berlin for iOS 32-bit debugging

2017/01/12追記: このhotfix(30673)は新しいhotfix(30680 RAD Studio 10.1 Berlin Hotfix: 11 Jan 2017)に含まれているため、30680のhotfixのみを適用すればOKです。

2016年12月18日

[書籍]やさしく学べるMySQL運用・管理入門

紀伊國屋書店新宿本店で

やさしく学べるMySQL運用・管理入門 (amazon)/山崎由章、梶山隆輔著/インプレス/ISBN 9784295000198/2,808円

を購入。

2016年12月14日

Microsoft Monthly Update 2016/12

今日はMicrosoftのセキュリティアップデートの日です。
2016年12月のマイクロソフトセキュリティ情報の概要
MS16-144
MS16-145
MS16-146
MS16-147
MS16-148
MS16-149
MS16-150
MS16-151
MS16-152
MS16-153
MS16-154
MS16-155

2016年12月9日

第33回エンバカデロ・デベロッパーキャンプ

本日10:00から第33回エンバカデロ・デベロッパーキャンプがEBiS 303カンファレンススペースで行われます。今回もUStreamによるライブ中継が行われます。

第33回エンバカデロ・デベロッパーキャンプ・イン東京
- 【A1】Delphi/C++テクニカルセッション「旧Delphiアプリケーション移行の実際例 - 実例から学ぶ改修のポイント」
  - Replay (1/1)
- 【B1】Delphi/C++チュートリアルセッション「Starterから始めるビジュアル開発実践法」
- 【A2】Delphi/C++テクニカルセッション「最新Delphi/RAD Studioでこれが楽しい！旧バージョンからの移行"マインド"入門」
  - Replay (1/1)
- 【B2】Delphi/C++チュートリアルセッション「Starterユーザーのためのアップグレードしやすいアプリ構築術」
- 【G3】ジェネラルセッション「マルチデバイス開発最前線！Windows10、モバイル、IoT、Linuxへと広がるエンバカデロ開発ツール戦略」
  - Replay (1/1)
- 【T4】Delphi/C++テクニカルセッション「Delphiならここまでできる！iOS / Androidネイティブアプリ構築術」
  - Replay (1/1)
- 【T5】Delphi/C++テクニカルセッション「RAD Server活用ショーケース: IoTを活用してデータを集積」
  - 第33回デベロッパーキャンプ【T5】RAD Server活用ショーケース: IoTを活用してデータを集積 [JAPAN]
- 【G6】ライトニングトーク「共有！みんなの開発事例、開発経験、テクニック」
第33回エンバカデロ・デベロッパーキャンプ・イン大阪
- 【T1】Delphi/C++チュートリアルセッション「Starterから始めるビジュアル開発入門 - その意義と実践手法」
  - 第33回デベロッパーキャンプ　東京 [B1],[B2], 大阪 [T1] チュートリアルセッション
  - 第33回エンバカデロ・デベロッパーキャンプ・イン東京 B1 & 大阪 T1 サマリー [JAPAN]
- 【T2】Delphiケーススタディセッション「利用シーンに最適な建機レンタルシステムの構築」
- 【G3】ジェネラルセッション「マルチデバイス開発最前線！Windows10、モバイル、IoT、Linuxへと広がるエンバカデロ開発ツール戦略」
- 【T4】Delphi/C++テクニカルセッション「Windowsからスマホまで！マルチデバイスでサクサク、外部API呼び出し活用法」
  - 第33回デベロッパーキャンプ大阪 T4 Windowsからスマホまでマルチデバイスでサクサク外部API呼び出し活用法 [JAPAN]
  - Replay (1/1)
- 【T5】Delphi/C++テクニカルセッション「RAD Server活用ショーケース: IoTを活用してデータを集積」
- 【G6】ライトニングトーク「共有！みんなの開発事例、開発経験、テクニック」

2016年12月1日

2016/12開催のセミナー

Web Seminar
- 2016/12/05 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第7回「シューティングゲームキャラクターを貼り付けようそして動かそう」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第7回 ‟シューティングゲームキャラクターを貼り付けようそして動かそう„ [JAPAN]
- 2016/12/12 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第8回「シューティングゲーム敵を動かしてみよう」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第8回 ‟シューティングゲーム敵を動かしてみよう„ [JAPAN]
- 2016/12/19 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第9回「シューティングゲーム敵を攻撃しよう」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第9回 ‟シューティングゲーム敵を攻撃しよう„ [JAPAN]
- 2016/12/26 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第10回「シューティングゲームスコアとゲームオーバーを付けよう」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第10回 ‟シューティングゲームスコアとゲームオーバーを付けよう„ [JAPAN]
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】シーズン１完結！[JAPAN]
Live Seminar
- 2016/12/09 10:00-18:00(JST) 第33回エンバカデロ・デベロッパーキャンプ・イン東京
- 2016/12/13 10:00-17:30(JST) 第33回エンバカデロ・デベロッパーキャンプ・イン大阪

2016年11月24日

RAD Studio/Delphi/C++Builder 10 Seattle November 2016 Update

RAD Studio/Delphi/C++Builder 10 SeattleのNovember 2016 Updateがリリースされています。有効なアップデートサブスクリプションが必要です。

30663 November 2016 Seattle Update Subscription Update

Fall 2016 XE8 and 10 Seattle Updates - Embarcadero Community

RAD Studio/Delphi/C++Builder XE8 October 2016 Update

RAD Studio/Delphi/C++Builder XE8のOctober 2016 Updateがリリースされています。有効なアップデートサブスクリプションが必要です。また事前にDecember 2015 Updateを適用しておく必要があります。

30662 October 2016 XE8 Update Subscription Update

Fall 2016 XE8 and 10 Seattle Updates - Embarcadero Community

2016年11月23日

[書籍]Cクイックリファレンス第2版

ブックファースト新宿店でC in a Nutshell, 2nd Edition (amazon US)の翻訳である

Cクイックリファレンス第2版 (amazon)/Peter Prinz、Tony Crawford著/黒川利明訳/島敏博技術監修/オライリージャパン/ISBN 978-4-87311-781-2/4,968円

を購入。

2016年11月16日

[書籍]MVVM in Delphi

Apressで注文した

MVVM in Delphi (amazon US)/John Kouraklis著/Apress/ISBN 978-1-4842-2213-3/26.99EUR

が配送されてきました(今回の発送地は日本(大日本印刷が発送代行)、配送は西濃運輸でした)。2016/11/09に注文して7日目の到着、26.99EUR=~~3,005JPY~~3,173JPY(~~暫定、1EUR=111.35JPY~~1EUR=117.562JPY)でした。

2016年11月15日

RAD Studio/Delphi/C++Builder 10.1 Berlin Update 2

RAD Studio/Delphi/C++Builder 10.1 BerlinのUpdate 2がリリースされています。

30652 Delphi and C++Builder 10.1 Berlin ISO (includes Update 2)
30648 RAD Studio 10.1 Berlin Web Install (including Update 2) (GetIt)

Subscription Update 2 - Anniversary Edition - RAD Studio (en)

RAD Studio 10.1 Berlin Subscription Update 2 - Anniversary Edition における不具合修正リスト (en)

RAD Studio Berlin 10.1 Update 2 Anniversary Edition Available
RAD Studio 10.1 Berlin Update2 - Anniversary Edition 提供開始！[JAPAN]

注記: RAD Studio/C++Builder 10.1 Berlin Update 2をインストールするとWindows SDKのヘッダファイル8つが削除される、という問題が報告されており、これを修正するhotfixがリリースされています。

30649 RAD Studio 10.1 Berlin hotfix for missing header files

Issues with winapifamily.h and other header files after installing C++Builder 10

2016年11月9日

Microsoft Monthly Update 2016/11

今日はMicrosoftのセキュリティアップデートの日です。
MS16-129
MS16-130
MS16-131
MS16-132
MS16-133
MS16-134
MS16-135
MS16-136
MS16-137
MS16-138
MS16-139
MS16-140
MS16-141
MS16-142

2016年11月3日

[書籍]新装版達人プログラマー

紀伊國屋書店新宿本店でThe Pragmatic Programmer (amazon US)の翻訳であり、ピアソンエデュケーション版(amazon)の改稿版である

新装版達人プログラマー (amazon)/Andrew Hunt、David Thomas著/村上雅章訳/オーム社/ISBN 978-4-274-21933-7/3,456円

を購入。

2016年11月1日

2016/11開催のセミナー

Web Seminar
- 2016/11/07 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第3回「ユーザーインターフェースパーツの配置」
  - 【DELPHI / C++BUILDER STARTER チュートリアルシリーズ】第3回 ‟ユーザーインターフェイスパーツの配置„ [JAPAN]
- 2016/11/14 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第4回「アニメーションの設定」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第4回 ‟UI アニメーションの設定„ [JAPAN]
- 2016/11/21 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第5回「イベントに合わせて動かしてみよう」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第5回 ‟イベントに合わせて動かしてみよう„ [JAPAN]
- 2016/11/28 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第6回「ミニゲームを作ってみよう」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第6回 ‟ミニゲームを作ってみよう„ [JAPAN]
Live Seminar
- 2016/11/02 14:00-17:00(JST) セミナー「Delphi / C++ Builder 業務アプリケーション刷新実践法」
  - Delphi / C++Builder 業務アプリケーション刷新実践法: BDEを使った業務アプリを移行ツールで最新化 [JAPAN]
  - Delphi / C++Builder : BDEを使用したプロジェクトからFireDACへ移行するスタディ

2016年10月25日

第33回エンバカデロ・デベロッパーキャンプ開催決定

第33回エンバカデロ・デベロッパーキャンプはいつもとは逆順ですが東京と大阪のダブル開催で、2016年12月09日(東京)および2016年12月13日(大阪)に開催されます。

開催概要

2016年10月17日

InterBase XE7 Update 6 Hotfix 1

InterBase XE7 Update 6 Hotfix 1がリリースされています。バージョンは12.0.6.379となっています。対象はAndroidのみで、FireDAC+IBLite/IBGoドライバを使用したプログラムがOpenSSLがらみでGoogle Playにリジェクトされる問題(RSP-15985)に対応するものです。

30630 InterBase XE7 Update 6, Hotfix 1 (12.0.6.379) for Android

2016年10月12日

Microsoft Monthly Update 2016/10

今日はMicrosoftのセキュリティアップデートの日です。
MS16-118
MS16-119
MS16-120
MS16-121
MS16-122
MS16-123
MS16-124
MS16-125
MS16-126
MS16-127

今月(2016/10)からWindows 7/Windows 8.1の更新プログラムがWindows(Security Only Quality UpdateまたはSecurity Monthly Quality Rollup)と.NET Framework(Security UpdateまたはSecurity and Quality Rollup)についてロールアップモデルに移行しています。Officeも2013以降は基本的にClickOnceですので、Windows 7/Windows 8.1/Windows 10については個別の更新プログラムを適用するのはWord/Excel ViewerやCompatibility Packなど限られたものだけになります。複数の更新プログラムをまとめることについては以前失敗して元に戻したりしていますが、EOL(Windows 7 SP1:2020/01/14、Windows 8.1:2023/01/10)まで大きなトラブルがないことを願いたいものです。

参考:
Windows 7 および Windows 8.1 のサービスモデルをさらにシンプルに – 日本のセキュリティチーム
Windows 7 および Windows 8.1 のサービスモデル変更についての追加情報 – 日本のセキュリティチーム
.NET Framework 用の月例のロールアップの導入について – 日本のセキュリティチーム

2016年10月1日

2016/10開催のセミナー

Web Seminar
- 2016/10/18 16:00-18:30(JST) Webセミナー「Delphi / C++Builder アプリケーション移行のポイント」
  - Delphi / C++Builder アプリケーション移行のポイント：コード資産を生かして移行「BDE から FireDAC へ」 [JAPAN]
- 2016/10/24 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第1回「無料で始めようアプリ作成」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第1回 ‟無料で始めようアプリ作成„ [JAPAN]
- 2016/10/31 17:00-17:30(JST) Delphi / C++Builder Starter チュートリアルシリーズシーズン１『わずかなプログラミングで完成！最初の一歩から始めてゲームを作ろう！』第2回「ユーザーインターフェースパーツ基礎」
  - 【Delphi / C++Builder Starter チュートリアルシリーズ】第2回 ‟ユーザーインターフェイスパーツ基礎„ [JAPAN]
Live Seminar

2016年9月28日

Firebird 3.0.1

Firebird 3.0.1がリリースされています。

Firebird: Firebird 3.0.1
Firebird 3.0.1 Release Notes (PDF)

2016年9月19日

RAD Studio/Delphi/C++Builder 10.1 Berlin Update 1

RAD Studio/Delphi/C++Builder 10.1 BerlinのUpdate 1がリリースされています。

30615 Delphi and C++Builder 10.1 Berlin ISO (includes Update 1)
30613 RAD Studio 10.1 Berlin Web Install (including Update 1)

Subscription Update 1 - RAD Studio (en)

RAD Studio 10.1 Berlin Subscription Update 1 における不具合修正リスト (en)

RAD Studio Berlin 10.1 Update 1 Available
10.1 Berlin Subscription Update 1 の入手方法
RAD Studio Berlin 10.1 Update 1 提供開始！[JAPAN]
Berlin10.1 Update1 へのアップデート手順 [JAPAN]

RAD Studio Berlin Update1 では macOS Sierra や iOS10 向けアプリのビルドに対応しました [JAPAN]
RAD Studio10.1 Berlin Update1 で iPhone7Plus 向けにアプリケーションのビルドを行ってみる [JAPAN]
Berlin 10.1 Update 1 追加機能：Listview - DynamicAppearance 使用時のオートフィルター検索ボックス対応
BERLIN 10.1 UPDATE 1 追加機能：iOS上でのTGrid の iOS ネイティブプラットフォームレンダリング対応 [JAPAN]
BERLIN 10.1 UPDATE 1 追加機能：IoTデバイス向けの新しいコンポーネントが追加されました [JAPAN]

Update 1の適用はRTMのアンインストール後の再インストールになります。移行ツール(Migration Tool, migrationtool.exe)を使用して現在の設定を移行することが推奨されています。また有効なUpdate Subscriptionが必要です(Starter SKUの扱いはよくわかりませんが)。

2016年9月14日

Microsoft Monthly Update 2016/09

今日はMicrosoftのセキュリティアップデートの日です。
MS16-104
MS16-105
MS16-106
MS16-107
MS16-108
MS16-109
MS16-110
MS16-111
MS16-112
MS16-113
MS16-114
MS16-115
MS16-116
MS16-117

2016年9月11日

[書籍]C++によるプログラミングの原則と実践

紀伊國屋書店新宿本店でProgramming: Principles and Practice Using C++ (2nd Edition) (amazon(US))の翻訳である

C++によるプログラミングの原則と実践 (amazon)/Bjarne Stroustrup著/株式会社クイープ、遠藤美代子訳/江添亮監修/KADOKAWA/ISBN 978-4-04-893051-2/7,560円

を購入。

2016年9月1日

2016/09開催のセミナー

Web Seminar
- 2016/09/01 16:00-17:00(JST) Webセミナー「C++ Boot Camp」Day 4「C++Builderモバイルアプリ開発事始め」
  - C++ BOOT CAMP / ビジュアル開発環境でC++言語を学ぼう ◆ DAY4: C++BUILDERモバイルアプリ開発事始め [JAPAN]
  - GitHub - kazinoue/2016_Cpp_bootcamp_day4
- 2016/09/12 16:00-17:00(JST) Webセミナー「Delphi Boot Camp」Day 1「Delphiで作るはじめてのアプリケーション」
  - Delphi Boot Camp / Delphiでビジュアル開発に挑戦しよう ◆ Day1: Delphiで作るはじめてのアプリケーション [Japan]
- 2016/09/13 16:00-17:00(JST) Webセミナー「Delphi Boot Camp」Day 2「DelphiでUI設計のポイントを学ぼう」
  - DELPHI BOOT CAMP / DELPHIでビジュアル開発に挑戦しよう ◆ DAY2: DelphiでUI設計のポイントを学ぼう [JAPAN]
- 2016/09/14 16:00-17:00(JST) Webセミナー「Delphi Boot Camp」Day 3「Delphiプログラミングを学ぼう」
  - DELPHI BOOT CAMP / DELPHIでビジュアル開発に挑戦しよう ◆ DAY3: Delphiプログラミングを学ぼう [JAPAN]
- 2016/09/15 16:00-17:00(JST) Webセミナー「Delphi Boot Camp」Day 4「Delphiモバイルアプリ開発事始め」
  - DELPHI BOOT CAMP / DELPHIでビジュアル開発に挑戦しよう ◆ DAY4: DELPHIモバイルアプリ開発事始め [JAPAN]
Live Seminar

2016年8月31日

[書籍]組込みソフトウェア開発のための構造化プログラミング

紀伊國屋書店新宿本店で

組込みソフトウェア開発のための構造化プログラミング (amazon)/SESSAME WG2著/翔泳社/ISBN 9784798147611/2,700円

を購入。

[書籍]C++プライマー第5版

紀伊國屋書店新宿本店でC++ Primer, 5th Edition (amazon (US))の翻訳である

C++プライマー第5版 (amazon)/Stanley B. Lippman、Josée LaJoie、Barbara E. Moo著/株式会社クイープ訳/神林靖監訳/翔泳社/ISBN 9784798143002/8,424円

を購入。

2016年8月15日

[書籍]EPUB戦記

紀伊國屋書店新宿本店で

EPUB戦記 (amazon)/小林龍生著/慶應義塾大学出版会/ISBN 978-4-7664-2363-1/3,240円

を購入。

2016年8月10日

Microsoft Monthly Update 2016/08

今日はMicrosoftのセキュリティアップデートの日です。
MS16-095
MS16-096
MS16-097
MS16-098
MS16-099
MS16-100
MS16-101
MS16-102
MS16-103

2016年8月1日

2016/08開催のセミナー

Web Seminar
- 2016/08/29 16:00-17:00(JST) Webセミナー「C++ Boot Camp」Day 1「C++Builderで作るはじめてのアプリケーション」
  - C++ Boot Camp / ビジュアル開発環境でC++言語を学ぼう ◆ Day1: C++Builderで作るはじめてのアプリケーション [Japan]
- 2016/08/30 16:00-17:00(JST) Webセミナー「C++ Boot Camp」Day 2「C++BuilderでUI設計のポイントを学ぼう」
  - C++ BOOT CAMP / ビジュアル開発環境でC++言語を学ぼう ◆ DAY2: C++BuilderでUI設計のポイントを学ぼう [JAPAN]
- 2016/08/31 16:00-17:00(JST) Webセミナー「C++ Boot Camp」Day 3「C++BuilderでC++言語のパワーを活用しよう」
Live Seminar
- 2016/08/04 14:00-16:00(JST) ビーコンによる位置検出活用勉強会

2016年7月14日

[書籍][eBook]Delphi Cookbook Second Edition

Packt Publishingで注文した

Delphi Cookbook - Second Edition (amazon US, amazon JP)/Daniele Teti著/Packt Publishing/ISBN 9781785287428/34.99GBP(Print+eBook)

が配送されてきました(今回の配送はDHL/佐川急便で、インドはチェンナイ(旧マドラス)からの発送でした)。2016/07/01に注文して13日目の到着、49.99USD=~~5,141JPY(暫定、1USD=102.84JPY)~~5,205JPY(1USD=104.121JPY)でした。

Embarcadero BCC32C C++コンパイラ 10.1

もうかなり長いことWindowsで動作する無償のC++コンパイラといえばBorland C++ Compiler 5.5(.1)でしたが、C++11(C++0x)はおろかC++98にも完全には対応できておらず、最近はVisual StudioのExpress版やCommunity版に取って代わられた感がありました。しかしC++Builder XE3でC++コンパイラにオープンソースのClang/LLVMが採用されたこともあり、C++コミュニティへのコミットメントの意味でも無償版の登場が待たれていました^[要出典]。過去のいくつかの失敗の結果としてBorland/CodeGear/Embarcaderoは無償版に対して非常にネガティブでしたが、2015年のIDERAによる買収で状況が変わったようで、ついに最新のWindows/x86のC++コマンドラインコンパイラ(BCC101、C++Builder 10.1 Berlin相当)が"Free C++ Compiler(C++Compiler - 無料版)"として公開されました(ダウンロードにはEDN(Embarcadero Developer Network)の登録が必要です)。

C++ Compiler - Embarcadero Website

制限事項としては

Clang/LLVM 3.3.1ベースなのでC++14/C++17にはほとんど対応していない(Clang/LLVMの標準準拠状況はcpprefjpのコンパイラの実装状況を参照)
ターゲットがWindows/x86に限定されている(C++Builder 10.1 BerlinではWindows/x64、OSX、iOS、Androidもサポートされている)
IDEがない(コマンドラインコンパイラなので)
ソースコードがついていない(DinkumwareのSTLヘッダはある)
デバッガがない(BCC 5.5.1には一応あった)
VCL/FMXやデータベース関係のライブラリが含まれていない

といったところです(C++14/C++17対応はよ)。

元ねたはついこの間EmbarcaderoのC++プロダクトマネージャになったDavid MillingtonさんのA new edition of our free C++ compiler。

2016年7月13日

Microsoft Monthly Update 2016/07

今日はMicrosoftのセキュリティアップデートの日です。
MS16-084
MS16-085
MS16-086
MS16-087
MS16-088
MS16-089
MS16-090
MS16-091
MS16-092
MS16-093
MS16-094

2016年7月5日

Firebird 2.5.6

Firebird Ver2.5.6がリリースされています。

Firebird: Firebird 2.5.6
Firebird 2.5 Release Notes (PDF)

2016年7月1日

2016/07開催のセミナー

Web Seminar
Live Seminar
- 2016/07/20 18:00-19:30(JST) MEET EMBARCADERO TOKYO 2016

登録: 投稿 (Atom)