Fujifilm FinePix Real 3D W1の記録画像を扱う

今度はC++ Builder CEで書いたプログラム　mpo jps両タイプ対応

一時期流行った3Dカメラです　以前に書いた記事の復刻に近いこのカメラでステレオ静止画と動画が撮れますけど、まずは静止画からですね。カメラ本体で立体視できるようになっていますが、なんとかPCやあわよくばココ（blog)で見てもらいたいので、大...

この記事の続編です。ここではMSVCのMFCベースのプログラムを示しましたが、mpoだけでjpsタイプのファイルを扱えませんでしたが、C++ Builder CEでプレビュー付きダイアログでファイル選択可能なプログラムを作ります。標準のファイル選択ダイアログをカスタマイズしてダイアログになんらかのコントロールを追加するやり方は、Mr.XRAYさんの

[ ファイルを開くダイアログにコントロールを追加 ] – Mr.XRAY

に詳細な解説が書かれています。ただしDelphi界隈の話です。もちろん同様な原理でC++ Builder CEでコントロールを追加してなんらかのpreviewを表示することはできなくもないですが、少し窮屈になりますので、最初から自由にファイル選択モーダルダイアログを作ってしまうというのが今回のアプローチです。フォームが二つでてきます。フォームやコードを表示する前に、前記事では触れなかった“JPS”ファイル（拡張子がjpsな3ｄイメージファイル）の構造について書いておきます。簡単に示すならば、単に左右のjpegファイルを”横に連結した”幅が2倍のjpegファイルという下図のようなものです。

ただし交差法か平行法かで画面ないし画像をスイッチしなくてはなりません。さて、まずはファイル選択ダイアログを作りましょうかね？

フォームを追加してForm2としますが、そこへ配置するのは、

肝は、TDriveComboBox1 x 1 , TDirectoryListBox x 1, TFileListBox x 1ですね。これらを連携させます。

DriveComboBox1->DirList を　DirectoryListBox1とつないで、

DirectoryListBox1->FileList を　FileListBox1とつなぎます。

FileListBox1->Maskは上図のようにして、*.jpg,*.jps,*.mpoがリストされるようにしておきましょう。Form1は暫定ですけど、

TImage x 2, TButton x 1, TLabel x 2, TCheckBox x1とかで良いでしょうかね。

コードは、ヘッダーはskip。Unit1.cppが、

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <windows.h>

#include <algorithm>
#include <System.IOUtils.hpp>
#include <string.h>
#include <jpeg.hpp>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

unsigned char* buf;
unsigned char pat[] = {0xff,0xd8,0xff,0xe1};



TJPEGImage* original = new TJPEGImage();
TBitmap* origbitmap = new TBitmap();
TBitmap* gleft = new TBitmap();
TBitmap* gright = new TBitmap();


void DispJPS(String filename)
{

	original->LoadFromFile(filename);
	origbitmap->Assign(original);
	//Image1->Picture->Bitmap = origbitmap;
		TBitmap* bitmap = new TBitmap();
	try {
		bitmap->Assign(original);

		int width = bitmap->Width;
		int height = bitmap->Height;

		// Create a cropped bitmap
		TBitmap* croppedBitmap = new TBitmap();
		try {
			croppedBitmap->Width = width/2;
			croppedBitmap->Height = height;

			// Copy the desired region from the original bitmap
			croppedBitmap->Canvas->CopyRect(
				Rect(0, 0, width/2, height),
				bitmap->Canvas,
				Rect(0,0,width/2, height)   // left image
			);

			Form1->Image1->Picture->Bitmap = croppedBitmap;
			//ms = croppedBitmap;
			//gleft = croppedBitmap;

		} __finally {
			delete croppedBitmap;
		}
	} __finally {
		delete bitmap;
	}

	bitmap = new TBitmap();
	try {
		bitmap->Assign(original);

		int width = bitmap->Width;
		int height = bitmap->Height;

		// Create a cropped bitmap
		TBitmap* croppedBitmap = new TBitmap();
		try {
			croppedBitmap->Width = width/2;
			croppedBitmap->Height = height;

			// Copy the desired region from the original bitmap
			croppedBitmap->Canvas->CopyRect(
				Rect(0, 0, width/2, height),
				bitmap->Canvas,
				Rect(0,0,width/2, height)   // left image
			);

			Form1->Image2->Picture->Bitmap = croppedBitmap;
			//gright = croppedBitmap;
		} __finally {
			delete croppedBitmap;
		}
	} __finally {
		delete bitmap;
	}
}

void DispMPO(String filename)
{

	FILE* fp;
	int found = 0;

	fp = fopen(AnsiString(filename).c_str(),"rb");
	if(!fp){
	  ShowMessage("file open error\n");
	  return;

	}
	long sz;
	 fseek( fp, 0, SEEK_END );
  sz = ftell( fp );
  //printf( "filesize %d バイト", sz );
	rewind(fp);
	buf = new unsigned char[sz];

	if( !buf ){
		ShowMessage("not enough core, buy some :-)");
		return;
	}
	int size = fread(buf,1,sz,fp);
	//printf("%d bytes read\n",size);
	fclose(fp);

	unsigned char* p = buf+4; // skip first occurrence
	int	offset = 4;

// int memcmp(const void *ptr1, const void *ptr2, size_t num);

	while( p < buf + size ){
		if( !memcmp(p,pat,4)){
			found = 1;
			break;
		}
		else {
			offset += 4;
			p += 4;
		}
	}

    TMemoryStream* left = new TMemoryStream();
	TMemoryStream* right = new TMemoryStream();

	//ms->WriteBuffer(buf,offset);    // for calling side
	left->WriteBuffer(buf,offset);
	right->WriteBuffer(buf+offset,size-offset);
	//write_out_2files(buf,offset,size);
	left->Position = 0;
	right->Position = 0;

	//Form2->Image1->Picture->LoadFromStream(left);

	Form1->Image1->Picture->LoadFromStream(left);
	Form1->Image2->Picture->LoadFromStream(right);

	delete left;
	delete right;

}



//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{


}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Form1->Image1->Visible = false;
	Form1->Image2->Visible = false;

	Form2 = new TForm2(this);

	try {
		 if( Form2->ShowModal() == mrOk ){
			Form1->Image1->Visible = true;
			Form1->Image2->Visible = true;
		 }
		 else
			return;
	} __finally  {

		Form2->Free();
	}

	if( FileExists(Label1->Caption)){
        Label2->Caption = "there";
		//Image1->Picture->Bitmap = gleft;
		//Image2->Picture->Bitmap = gright;
	}

}
//---------------------------------------------------------------------------

Unit2.cppが、

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <jpeg.hpp>

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;


extern TBitmap* gleft;
extern TBitmap* gright;

void DispMPO(String filename);
void DispJPS(String filename);

//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{

	//DirectoryListBox1->Directory = "C:\\Users\\docna\\Downloads\\";
}

//---------------------------------------------------------------------------
void __fastcall TForm2::OKClick(TObject *Sender)
{
	Form1->Label1->Caption = FileListBox1->FileName;
    ModalResult = mrOk;
}

//---------------------------------------------------------------------------
void __fastcall TForm2::CancelClick(TObject *Sender)
{
	ModalResult = mrCancel;
}

//---------------------------------------------------------------------------
// FileListBox1.Mask := '*.txt;*.docx';

void __fastcall TForm2::FileListBox1Click(TObject *Sender)
{
	String fname = FileListBox1->FileName;

	Form1->Label1->Caption =  fname;

	String ext = ExtractFileExt(fname).LowerCase();
	Label2->Caption = ext;

	if( ext == ".jpg" ){

		TJPEGImage* original = new TJPEGImage();
		TBitmap* origbitmap = new TBitmap();

		original->LoadFromFile(fname);
		origbitmap->Assign(original);
		Image1->Picture->Bitmap = origbitmap;

		delete original;
		delete origbitmap;
	}
	else if( ext == ".mpo" ){
	/*
		TMemoryStream* ms = new TMemoryStream();
		DispMPO(fname,ms);
		ms->Position = 0;

		Image1->Picture->LoadFromStream(ms);

		delete ms;
	*/
		DispMPO(fname);
		Image1->Picture->Assign(Form1->Image1->Picture);
		//Image1->Picture->Bitmap = Form1->Image1->Picture->Bitmap; // copy
	}
	else {  // jps Image2.Picture.Assign(Image1.Picture);

		//TBitmap* ms = new TBitmap();
		DispJPS(fname);
		Image1->Picture->Assign(Form1->Image1->Picture);

	}


}
//---------------------------------------------------------------------------

無事起動すると、