キヤノンからは EOS Kiss X6iが発表になったばかりだが、いよいよキヤノン製ミラーレスが７／２４に発表になる、というウワサ。
Kiss X6iに搭載された撮像素子は位相差AF検出素子が埋め込まれた『ハイブリッドCMOS』だし、タッチパネルだし。Kiss X6iからミラーを無くせばミラーレスカメラが出来上がる。
さて、キヤノンはどんなミラーレスを提案してくるのか。マウントはどうなるのか。入門機がミラーレスでKissは中級機に格上げされるのか。EOS 60Dの後継は？

ショートフランジバックの新マウントで本体の小型化が図られ、純正マウントアダプタを使えば既存のEFレンズ群も使える。レンズ内ISも機能する――てな感じだといいかな。本体内にもISが搭載されていて、新マウントのレンズ(レンズ内ISなし)やサードパーティ製マウントアダプタ使用時には本体内ISが機能する、とかだったら、嬉しいぞ。

DelphiでExcel出力するのに最近はよくOLEを使う。PCにインストールされているExcelを非表示で起動し、ワークブックを追加、書き込みを行った後、保存して終了、という手順だ。
ところがすでにExcelが起動しているとき、これをやると前から開いていたワークブックもろともExcelが終了してしまう。
今までは、このようなプログラムを使うときはユーザーにはあらかじめ開いているExcelは終了させるようにして貰っていたのだが。
まあ、プログラムからなんの警告もないのに、事前にExcelを終了させろと言うのも無理がある。
そこで、すでに起動しているExcelがあるときはそれを閉じずに終わるように書き換えたので、備忘録。いや、ユーザーからクレームが来たんです、せめて『Excelを閉じてね』ってメッセージを表示させろって。何度か、保存していないワークブックが消滅したらしい。

フォームに TExcelApplicationをポトリしておく。

Uses
　??
　Excel2000, OleServer, OleCtrls, ExcelXP;
type
　TForm1 = class(TForm)
　SaveDialog1: TSaveDialog;
　ExcelApplication1: TExcelApplication;

??

procedure TForm1.WriteExcel;
var
　ExcelWorksheet1: TExcelWorksheet;
　ExcelWorkbook1: TExcelWorkbook;
　ExcelRunning : Boolean;
begin
　ExcelWorkbook1 := TExcelWorkbook.Create(nil);
　ExcelWorksheet1 := TExcelWorksheet.Create(nil);
　try
　　ExcelApplication1.Connect; // Excel 起動
　　ExcelApplication1.Visible[0] := false; // 非表示
　　if (ExcelApplication1.Workbooks.Count>0) // 既にワークブックがあるかどうか
　　 then ExcelRunning := True // あれば、Excelが起動中
　　 else ExcelRunning := False;
　　ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(xlWBatWorkSheet, 0)); // ブック追加
　　ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _WorkSheet);
　　ExcelWorksheet1.Name := ‘Sheet1′;

　　ExcelWorksheet1.Range[’A1′, EmptyParam].Value2 := ‘テスト’; // 書き込み

　　ExcelWorkbook1.SaveAs(SaveDialog1.FileName, // Filename
　　 Integer(xlNormal), //FileFormat
　　 EmptyParam, //Password
　　 EmptyParam, //WriteResPassword
　　 False, //ReadOnlyRecommended
　　 False, //CreateBackup
　　 xlNoChange, //AccessMode
　　 EmptyParam, //ConflictResolution
　　 EmptyParam, //AddToMru
　　 EmptyParam, //TextCodepage
　　 EmptyParam, //TextVisualLayout
　　 EmptyParam, //Local
　　 0); //LCID
　finally
　　ExcelWorkbook1.Close;
　　ExcelWorkbook1.Disconnect;
　　ExcelWorkbook1.Free;
　　if not ExcelRunning then begin
　　　ExcelWorksheet1.Disconnect;
　　　ExcelWorksheet1.Free;
　　　ExcelApplication1.Disconnect;
　　　ExcelApplication1.Quit;
　　end else begin
　　　ExcelApplication1.Visible[0] := true; // 表示
　　end;
　end;
　close;
end;

試行錯誤しながらなんとか出来たが、これが正しい方法かどうかは知らない。
WindowsXP + MS Office 2003、Windows7 + MS Office 2010でも大丈夫そう。――開発環境はDelphi2007だったかな。

日産自動車のゴーン社長の役員報酬が約９億８７００万円にのぼるそうだ。
大丈夫か、日産。
ゴーン社長は言い訳をしているが、ここは日本だ。トヨタの豊田章男社長の７倍以上も貰っている。ゴーンさんの功績は日産労組の同意を取り付けて村山工場を閉鎖した事位で、豊田社長の７倍も功績を挙げたと考える人はいないだろう。
このニュースを見て、消費者はどう思うだろう。日産車を買いたいと思うだろうか。
flyman は、日産に限らず日本の自動車産業の行く末を憂いている。とにかくクルマに魅力がない。国内の外車のシェアが１０％を超えたらしいが、それも当然だろう。
flyman が今クルマを買い換えるなら、アルファロメオ･ジュリエッタかな。

税と福祉の一体改革が動き始めた。そもそも、増税して福祉に回すというのは富の再分配、社会主義の考え方だ。
金持ちも一票、貧乏人も一票。より票の得られる方法を選ぶのが民主主義であるが、これが民主主義の弊害につながる。

社会保険の掛け金を飲んでしまった連中を罰することなく、国民に負担を押しつけるやり方にも腹が立つ。flymanが社会人になった頃は、年金は自分が払った分を後で受け取る仕組みだった。――おっと、ぼやきになってしまった。

本日の宝塚記念は一番人気のオルフェーヴルが３レースぶりの復活勝利を遂げた。
道中、中段に付け最終コーナーを馬混みの中のまま廻って、直線で抜け出し前を捉えた。
今日は７割程度の仕上がりだったそうだが、それでもこの強さだ。後ろから大外を廻って突き抜けるような勝利ではなかったが、格の違いを見せつけた勝ちっぷりだった。
――ネコパンチ、、、ダメだったね。

EOS 60D + EF70-300 L。
朝は少し雨模様だったので、午後からウォーキング。

	コチドリ、かな。ピィピィ鳴きながらうろちょろしていた。 トリミング
	セイタカシギ、か？ この辺りで見るのは初めてかも。 トリミング
	トリミング
	トリミング
	烏の行水？

次期型ポルシェ・ケイマンの発表は１１月だそうだ。
いや、買えるわけではないのだが、９１１より、小さなケイマンが好きなflymanには気になる話題だ。
すでに発表済みのボクスターにハードトップを付けるのだから、おおよそのスペックはボクスター並みだろう。

まもなくル・マン２４時間レースがゴールを迎える。予想通りアウディの一人勝ちになりそうだが、トヨタのヘタレっぷりがレースをつまらなくした。トヨタが２台体制で送り出したハイブリッド車はすでにリタイアして居ない。最悪だったのはトヨタの中嶋一貴だ。本山哲ドライブの日産デルタウイングに体当たりをかましてリタイアに追い込んだ。父ちゃんは立派なドライバーだったけど、息子は、、、七光りだけか。下手くそにも程があろう。

さて、絶対にあり得ないと思っていた原発の再稼働が実現しそうだ。
『安全とは言えない』はずのストレステスト一次評価、原発建設時にすでに誤魔化されていた地殻調査、なんの対策もない核廃棄物処理、１?３年後にしか完成しない大飯原発の追加安全策。政府は、再稼働ありきの言い訳で国民を誤魔化せたつもりになっているのだろうか。

沼津港に行ってきた。ウチから箱根を超えて、クルマで１時間半くらいか。結構近い。近道を通ろうとしたら、途中の橋が通行止めでちょっとアセった。なにせflymanの車にはカーナビを付けていないのだ。でも、迷うのも楽し、だ。

	内港。奥に見えるのが水門「びゅうお」。今回は行かなかった。
	沼津港『２番線』。
	『沼津みなと新鮮館』内部。
	新鮮館のウッドデッキ。
	日替わり定食、５００円。新鮮館の中の『あじや』で。
	鮮魚は少なく、干物が多い。あちこちで天日に干しているのが見られる。
	漁港近くにあるあんぱん専門店。偶然見つけて入って全種類買ってきたけど、お勧めです。 パン好きなら、漁港に寄ってここに行かないテはないです。

買う訳でもないのに、新車を調べている。

まず富士重のレガシィツーリングワゴンＧＴ、現行モデルには２種類のＧＴがある。ひとつは２．０Ｌ＋ツインターボ、もうひとつは２．５Ｌ＋シングルターボのモデルだ。Flyman的には２Ｌツインターボに興味があったのだが、なんとこれがＣＶＴなのだ。ちなみに２．５Ｌの方は粘性クラッチの従来型トルコンＡＴのようだ。ＣＶＴのＧＴなんて、誰が買うんだろう、とＣＶＴ嫌いのflymanは思った。ま、全然欲しくないEyeSight乗せられて高くなったし、スバリストなflymanも、もう買わない、かな。

三菱のギャラン・フォルティス・ラリアート。なんとこのクルマ、ＤＣＴ（デュアルクラッチトランスミッション）なのだ。価格も手ごろで面白そうなのだが。どうもベース車そのもののポテンシャルがイマイチっぽい。モデルチェンジしたら狙い目かも。

アルファロメオのジュリエッタなんてどうだろう？ 『スプリント』で税込み３１８万円、ＤＣＴだし。ちょっと趣味性が強いけど、面白そう。１７０ｐｓも要らなければ、ミトでもいい。あるいは上位グレードにすればＭＴの２３５ｐｓなのでよりスポーティに走れそうだ。

庭の落花生

オーストラリア戦、審判がぁ??アジアレベルだー

昨日、スーパーで１缶１０円で売られていたお茶。あんまり怪しいので各種類１缶ずつしか買わなかったけど、まとめ買いしても良かったか。

好みの順は「とめはねっ！」「今日から俺は！」「めぞん一刻」「らんま１／２」……かな。それとも「今日から俺は！」「とめはねっ！」「らんま１／２」「めぞん一刻」かな。まあ、どっちでもいいや。

さてEOS Kiss X6iが発表になった。動画撮影機能が強化されている。
ここのところカミさんは動画を撮る機会が多いのだが、普段はIXYを使っているのを先日EOS 60Dを持って行ったら、「難しくてピントが合わせられなかった」とのことだった。flymanは動画に興味はないのだが、世の奥様方にはアピールポイントかも知れない。
ウワサでは、引き続きミラーレスカメラも発表になるとかならないとか。また面白くなってきた。

今頃になって月が見え始めた。
月食の頃は厚い雲に邪魔をされて、月はほとんど見えなかった。残念。

さて、今日は帰りにこのまちでパンを買った。焼きたてを買うとだいたい一つ百円前後なのだが、冷凍パックは１０個入って５００円と破格の安さだ。ちょっと安すぎじゃない？

隣に千草庵という和菓子屋があるので寄ってみたら……ダメダメだった。いや味以前の問題。
店は開いているのに店員がおらず、呼べど叫べど誰も出てこない。もう一人客が来たが、諦めて帰って行った。結局、時間の無駄だった。もう二度と行かない。

唐突ではあるが、flymanは AKB48 に興味がない。が、乃木坂46の『おいでシャンプー』は好きだ。一部で不興のカンカンや、ラインダンスを思わせる振り付けも好きだ。シャンプーではなく、スマートフォンのＣＭに使われているのは、ちょっと不思議。

雨にかすむ宮ヶ瀬湖

松村沙友理が可愛いね。

急速に草丈が伸びたし、もうめぼしい鳥の姿は見られない。
今朝はオオヨシキリとキジの声くらい。姿を見せるのはスズメ、ムクドリ、カラス。フォトジェニックな鳥には出会えなかった。