かしらもんじ　でぇ〜

商品名

ブックスタンド

サイズ

巾620×奥235×高215（mm）

材質・色

スチール（メラミン焼付け塗装）・白

重さ

2.4kg

耐重

約25kg

その他

引き出し２個・（写真２枚目参照）中仕切り２枚付き。
部品・組み立て説明書あり。

定価

7,000円

開始価格

1,500円

オークションサイト

　http://page10.auctions.yahoo.co.jp/jp/auction/m19727994
　http://page10.auctions.yahoo.co.jp/jp/auction/m20895151
　http://page8.auctions.yahoo.co.jp/jp/auction/h29938158
　http://page13.auctions.yahoo.co.jp/jp/auction/r15611547
　http://page13.auctions.yahoo.co.jp/jp/auction/r15611161

商品名称

デジタルビデオエディターDVE774

機能概要
※1

DVE774は、高画質・高機能を追求した、新設計・最高級デジタルビデオ編集機です。従来品(DVE773)と比べ4倍のダイナミックレンジを実現した新開発高画質デコーダーに加え、新たにノイズリダクション回路を搭載。色合い調整・明るさ調整に加え、さらに画質補正機能も強化しましたので、水平解像度450本以上の高画質での録画・編集・再生が可能です。DVE774は、高画質でDVD-R/RW/RAMなどに保存しておきたいハイクオリティ指向のAVファン必需品です。

機能詳細
※1

従来品(DVE773)と比べ4倍のダイナミックレンジを実現した新開発高性能デコーダーと、大容量4Mbit画像メモリーを搭載。DVE774に入力されたアナログ信号は、画像信号部分だけがデジタル信号に変換され、この画像メモリーに蓄えられあとデジタル画像補整を行い、正規の垂直・水平同機信号及びカラーバースト信号と合成されて、アナログ信号として出力されます。この先進の画像処理により、余計なノイズを除去し、高画質なビデオ編集を実現しました。

新開発映像ノイズリダクション機能を搭載。受信状態が悪いチューナーから録画したり、ダビングを繰り返したビデオテープなどのザラツキノイズを低減。MPEGなど画像圧縮して記録した映像のブロックノイズ低減にも有効です。また、モード設定により残像イメージを残して動きを表現する特殊再生機能としても使えます。

ビデオカメラなどの撮影時に適正なホワイトバランス設定されていない映像も、色あい調整機能により、簡単に正しい色に補整することが可能。肌色をナチュラルに再現することができます。調整段階は赤方向5段階/オリジナル/緑方向5段階の合計11段階。

ビデオカメラで撮った暗い映像や、輝度劣化した古いテープなども、明るく輝度の補正が可能。撮影済みの暗い映像が鮮やかに蘇ります。調整段階は輝度(暗)5段階/オリジナル/輝度(明)5段階の合計11段階。

大容量映像メモリーを活用したデジタル静止画機能搭載。決定的映像の瞬間を止めて鑑賞・編集することが可能です。

高性能デジタルTBC(タイムベースコレクター)機能により、画面のブレを引き起こす同期信号の時間軸方向の乱れを補正し、テープの伸びや回転ヘッドの走行ムラによって生じる画面の歪みやブレ(揺れ)を除去。古いテープやレンタルビデオ、ビデオカメラ等で撮影したテープなども安定した高画質で再生・編集することが可能です。

モニターの色調整の基準となるカラーバー信号出力が可能。録画ビデオテープの最初に5秒間程度録画しておくことにより、モニターの色相調整や色再生機能の確認が可能です。

プロジェクターなど、大画面での再生時に表面化するスキュー歪みを補正し、クリアな映像を実現。ホームシアターファンの必需品です。

大容量画像メモリーと高性能デジタルD/Aコンバーターにより、高次元のデジタル信号処理を行っていますので、D-VHSデッキの録画はもちろん、DVD-R/RW/RAMレコーダー、また最新のHDDレコーダー、PC録画にも対応しています。

本体底面のビデオ信号切換スイッチをS側にするとセパレート信号入出力(S端子)、CMP側にするとコンポジット信号入出力(ピン端子)と機器を選ばずそれぞれの信号に対応可能です。

PROSPEC
デジタルビデオ編集機
DVE774

記事で取り上げた機種になります。
性能と価格で一番バランスが取れた機種です。

PROSPEC
デジタルビデオ編集機
DVE775

DVE774の後継機種になります。
ドットマトリクスLCD、リモコン付属、
従来機と比べダイナミックレンジ4倍、
メモリー2倍のハイスペック機種です。

DVE774の機能を継承し、
省コストを追求した機種です。
ノイズ除去の機能は十分で、
安価に購入できる入門機です。

使用例

procedure TForm1.Button1Click(Sender: TObject);
　//----------------------------------------------
　function _Factorial(pNumber: Integer): Integer;
　begin
　　if (pNumber = 0) or (pNumber = 1) then
　　　Result := 1
　　else
　　　Result := pNumber * _Factorial(pNumber-1);
　end;
begin
　Edit2.Text :=
　　IntToStr(_Factorial(StrToIntDef(Edit1.Text,0)));
end;

�@

EventLog.mcファイルをコンパイルしEventLog.rcを作成する。
MC.EXE EventLog.mc

�A

EventLog.rcファイルをコンパイルしEventLog.resを作成する。
BRCC32.EXE -32 EventLog.rc

�B

EventLog.resファイルをEventLogTesterUnit.pasに登録する。
{$R EventLog.RES}

�C

レジストリにEventLogTesterのエントリを作成する。
・HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\
　Services\EventLog\Applicationキー配下に
　「EventLogTester」キーを作成する。
・HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\
　Services\EventLog\Application\EventLogTesterキー配下に
　名前=EventMessageFile,種類=REG_SZ,
　データ=<EventLogTester.exeのフルパス>を作成する。
・HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\
　Services\EventLog\Application\EventLogTesterキー配下に
　名前=TypesSupported,種類=REG_DWORD,
　データ=0x00000007を作成する。

使用例

procedure TForm1.btnReportEventClick(Sender: TObject);
const
　// ｲﾍﾞﾝﾄ識別子
　EVENTID_INFOMATION = $400003E9;
　EVENTID_WARNING = $800003EA;
　EVENTID_ERROR = $C00003EB;
var
　lHdl: THandle;
　lMsg: String;
　lType,
　lEventID: Integer;
begin
　// ｲﾍﾞﾝﾄﾛｸﾞのﾊﾝﾄﾞﾙを取得する
　lHdl := RegisterEventSource(Nil, PChar('EventLogTester'));
　// ﾛｸﾞに書込むｲﾍﾞﾝﾄの種類を決定する
　case rgEventType.ItemIndex of
　0: // Information
　　begin
　　　lType := EVENTLOG_INFORMATION_TYPE;
　　　lEventID := EVENTID_INFOMATION;
　　end;
　1: // Warning
　　begin
　　　lType := EVENTLOG_WARNING_TYPE;
　　　lEventID := EVENTID_WARNING;
　　end;
　2: // Error
　　begin
　　　lType := EVENTLOG_ERROR_TYPE;
　　　lEventID := EVENTID_ERROR;
　　end;
　end;
　// ﾒｯｾｰｼﾞをｲﾍﾞﾝﾄﾛｸﾞへ書込む
　lMsg := Format('%s', [edtEventMessage.Text]);
　ReportEvent(
　　// ｲﾍﾞﾝﾄﾛｸﾞのﾊﾝﾄﾞﾙ,
　　// ﾛｸﾞに書込むｲﾍﾞﾝﾄの種類,
　　// ｲﾍﾞﾝﾄの分類,
　　// ｲﾍﾞﾝﾄ識別子,
　　// ﾕｰｻﾞｰｾｷｭﾘﾃｨ識別子(省略可能),
　　// ﾒｯｾｰｼﾞにﾏｰｼﾞする文字列の数,
　　// ﾊﾞｲﾅﾘﾃﾞｰﾀのｻｲｽﾞ(ﾊﾞｲﾄ数),
　　// ﾒｯｾｰｼﾞにﾏｰｼﾞする文字列の配列,
　　// ﾊﾞｲﾅﾘﾃﾞｰﾀのｱﾄﾞﾚｽ
　　lHdl,
　　lType,
　　StrToIntDef(edtEventCategory.Text,0),
　　lEventID,
　　Nil,
　　1,
　　0,
　　@lMsg,
　　Nil
　);
　// ｲﾍﾞﾝﾄﾛｸﾞのﾊﾝﾄﾞﾙを閉じる
　DeregisterEventSource(lHdl);
end;

使用例

procedure TForm1.btnReadClick(Sender: TObject);
　//------------------------------------------------------------------------------
　procedure Doc2View(pXMLDoc: TXMLDocument);
　var
　　lCnt: Integer;
　　lMsg: String;
　　lXMLNode: IXMLNode;
　begin
　　memXML.Clear;
　　// <Root.RowData>配下の<Country>ﾀｸﾞのﾃﾞｰﾀを抽出し
　　// 画面に表示する
　　lXMLNode := _XMLFindNode(pXMLDoc.Node, 'Root.RowData');
　　if (lXMLNode = Nil) then Exit;
　　for lCnt := 0 to lXMLNode.ChildNodes.Count-1 do
　　begin
　　　memXML.Lines.Add('Country');
　　　lMsg := Format('　Name="%s",Capital="%s",Population="%s"',
　　　　[_XMLGetNodeValue(lXMLNode.ChildNodes[lCnt], 'Name'),
　　　　　_XMLGetNodeValue(lXMLNode.ChildNodes[lCnt], 'Capital'),
　　　　　　_XMLGetNodeValue(
　　　　　　　lXMLNode.ChildNodes[lCnt], 'Population')]);
　　　memXML.Lines.Add(lMsg);
　　end;
　end;
begin
　mXMLDocument := _XMLLoadFromFile(edtXMLFileName.Text);
　Doc2View(mXMLDocument);
end;

//------------------------------------------------------------------------------
procedure TForm1.btnGetNodeValueClick(Sender: TObject);
begin
　// 指定されたﾀｸﾞのﾃﾞｰﾀを取得し画面に表示する
　edtValue.Text :=
　　_XMLGetNodeValue(mXMLDocument.Node, edtTag.Text);
end;

使用例

procedure TForm1.btnReadIniFileClick(Sender: TObject);
var
　lSec,
　lItm: TStringList;
　lVal: String;
begin
　lSec := Nil;
　lItm := Nil;
　try
　　memINI.Clear;
　　if (FIni <> Nil) then FIni.Free;
　　// INIﾌｧｲﾙｵﾌﾞｼﾞｪｸﾄを作成する
　　FIni := TIniFile.Create(
　　　ExtractFilePath(Application.ExeName) + edtIniFileName.Text);
　　// ｾｸｼｮﾝ/ｱｲﾃﾑﾃﾞｰﾀを格納するため、
　　// ｽﾄﾘﾝｸﾞｵﾌﾞｼﾞｪｸﾄを作成する
　　lSec := TStringList.Create;
　　lItm := TStringList.Create;
　　// ｾｸｼｮﾝを読込み、
　　// ｾｸｼｮﾝ分のﾙｰﾌﾟを実行し
　　// 画面にINIﾌｧｲﾙの内容を表示する
　　FIni.ReadSections(lSec);
　　while (lSec.Count > 0) do
　　begin
　　　lItm.Clear;
　　　// ｾｸｼｮﾝ配下のｱｲﾃﾑ情報を読込み、
　　　// ｱｲﾃﾑ分のﾙｰﾌﾟを実行し
　　　// 画面にINIﾌｧｲﾙの内容を表示する
　　　FIni.ReadSection(lSec[0], lItm);
　　　memINI.Lines.Add(Format('[%s]', [lSec[0]]));
　　　while (lItm.Count > 0) do
　　　begin
　　　　lVal := FIni.ReadString(lSec[0], lItm[0], '');
　　　　memINI.Lines.Add(Format('　%s="%s"', [lItm[0], lVal]));
　　　　lItm.Delete(0);
　　　end;
　　　lSec.Delete(0);
　　end;
　finally
　　if (lSec <> Nil) then lSec.Free;
　　if (lItm <> Nil) then lItm.Free;
　end;
end;

使用例

//------------------------------------------------
procedure CopyQuery2CDS(
　pQuery: TSQLQuery; pCDS: TClientDataSet);
var
　lCnt: Integer;
　lName: String;
begin
　pCDS.Close;
　with pCDS.FieldDefs do
　begin
　　Clear;
　　for lCnt := 0 to pQuery.FieldCount-1 do
　　begin
　　　with AddFieldDef do
　　　begin
　　　　Name　　 := pQuery.Fields[lCnt].FieldName;
　　　　DataType := pQuery.Fields[lCnt].DataType;
　　　　Size　　 := pQuery.Fields[lCnt].Size;
　　　　Required := pQuery.Fields[lCnt].Required;
　　　end;
　　end;
　end;
　pCDS.CreateDataSet;
　pQuery.First;
　while (not pQuery.Eof) do
　begin
　　pCDS.Append;
　　for lCnt := 0 to pQuery.FieldCount-1 do
　　begin
　　　lName := pQuery.Fields[lCnt].FieldName;
　　　pCDS.FieldValues[lName] := pQuery.FieldValues[lName];
　　end;
　　pCDS.Post;
　　pQuery.Next;
　end;
end;

//------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
　// DB接続ｵﾌﾞｼﾞｪｸﾄを初期化する
　mDB := TSQLConnection.Create(Nil);
　mDB.DriverName　:= 'ORACLE';
　mDB.GetDriverFunc := 'getSQLDriverORACLE';
　mDB.LibraryName := 'dbexpora.dll';
　mDB.VendorLib　 := 'oci.dll';
　mDB.LoginPrompt := False;
　mDB.Params.Values['DataBase']　:= 'CONNECT_STRINGS';
　mDB.Params.Values['User_Name'] := 'USER';
　mDB.Params.Values['Password']　:= 'PASSWORD';
　mDB.Open;
　// 問合せｵﾌﾞｼﾞｪｸﾄを初期化する
　mSQL := TSQLQuery.Create(Nil);
　mSQL.SQLConnection := mDB;
　// ﾃﾞｰﾀｿｰｽｵﾌﾞｼﾞｪｸﾄを初期化する
　mDS := TDataSource.Create(Nil);
　mCDS := TClientDataSet.Create(Nil);
　dbgResult.DataSource := mDS;
　mDS.DataSet := mCDS;
end;

//------------------------------------------------
procedure TForm1.FormDestroy(Sender: TObject);
begin
　// DB接続ｵﾌﾞｼﾞｪｸﾄを廃棄する
　if (mDB <> Nil) then
　begin
　　mDB.Close;
　　mDB.Free;
　end;
　// 問合せｵﾌﾞｼﾞｪｸﾄを廃棄する
　if (mSQL <> Nil) then
　begin
　　mSQL.Close;
　　mSQL.Free;
　end;
　// ﾃﾞｰﾀｿｰｽを廃棄する
　if (mDS <> Nil) then
　begin
　　mDS.Free;
　end;
　if (mCDS <> Nil) then
　begin
　　mCDS.Free;
　end;
end;

//------------------------------------------------
procedure TForm1.btnReadQueryClick(Sender: TObject);
begin
　// SQLRepositoryよりQueryNameで指定されたSQLを取得する
　mSQL.SQL.Text := Format(
　　'select * from SQLREPOSITORY where QueryName = ''%s''',
　　　[edtQueryName.Text]);
　mSQL.ExecSQL;
　if (mSQL.RecordCount = 0) then
　　raise Exception.Create(Format(
　　　'該当するSQLは見つかりません。(QueryName=''%s'')',
　　　　[edtQueryName.Text]));
　// SQLRepositoryより取得したSQLを画面に表示する
　mSQL.Open;
　edtSQLText.Text := mSQL.FieldByName('SQLTEXT').AsString;
　CopyQuery2CDS(mSQL, mCDS);
　mSQL.Close;
end;

//------------------------------------------------
procedure TForm1.btnExecQueryClick(Sender: TObject);
begin
　// SQLに指定されたﾊﾟﾗﾒｰﾀをﾊﾞｲﾝﾄﾞし実行する
　mSQL.SQL.Text := edtSQLText.Text;
　mSQL.Prepared := True;
　mSQL.Params.ParamByName(edtParameterName.Text).AsString :=
　　edtParameterValue.Text;
　mSQL.ExecSQL;
　mSQL.Open;
　CopyQuery2CDS(mSQL, mCDS);
end;

end.