DelphiXE(DLL)

○RDFドキュメントデータをプレビューコントロールに設定する例

type
　　TByteArray = Array of byte;
var
　　iDocSize:   Longint;
　　oDocData:   OleVariant;
　　vDocData:   Variant;
　　baDocData : TByteArray;
begin
　　//印刷を終了します。
　　ret := jvEndDoc(pid);

　　//RDFドキュメントデータのサイズを取得します。
　　iDocSize := jvGetLong(pid, JV_DOCUMENT_SIZE);
　　if iDocSize > 0 then
　　begin
　　　　// RDFドキュメントデータを取得します。
　　　　SetLength(baDocData, iDocSize);
　　　　jvGetDocument(pid,baDocData[0]);
　　　　// Variant型に変換します。
　　　　DynArrayToVariant(vDocData,baDocData, TypeInfo(TByteArray));
　　　　// さらにOleVariant型に変換します。
　　　　oDocData := vDocData;
　　end;

　　//終了処理を実行します。
　　jvClose(pid);

　　//プレビューコントロールに描画します。
　　if iDocSize > 0 then
　　begin
　　　　JiveView.ControlInterface.Set_DocumentData(oDocData);
　　　　JiveView.Page := 1;
　　　　JiveView.Show;
　　end;