RDFインターフェースライブラリの使い方

RDFインターフェースライブラリ（jvwlib.ocx）とは

RDFインターフェースライブラリは、XML形式の帳票初期値をRDFサービスへ渡すライブラリです。
帳票に初期値を設定する時に使います。
RDFサービスに渡された初期値は、RDF転送ライブラリによって帳票と一緒にクライアントへ転送されます。
RDFインターフェースライブラリは、RDFサービスと一緒にインストールされます。
 
※RDFインターフェースライブラリは、JAVA環境では使用できません。
   
初期値をRDFサービスへ渡しクライアントへ転送する
 
初期値をRDFサービスへ渡す時は、RDFインターフェースライブラリのWriteメソッドを使います。
RDF転送ライブラリで初期値を転送する時は、RDFインターフェースライブラリのJobIdプロパティを使ってXMLデータIDを取得します。
 
記述例）
 

xmldata = "<?xml version ="・・& "?>" &vbCrlf

XMLデータを設定

↓

 

Jvwlib.Write(xmldata)

RDFサービスへ渡す

↓

 

JvrvwCtrl1.FileName = "<%Response.Write"/scripts/jvrsrv.dll?rdfid="&JvrlibCtl.JobId%>";

RDFサービスデータIDの設定

↓

 

JvrvwCtrl1.DataFileName =
"<%Response.Write"/scripts/jvrsrv.dll?rdfid="&Jvwlib.JobId & "execmode=1" %>";

XMLデータIDの設定

   
  
○Writeメソッド
 
変数にセットしたXML形式の初期値をRDFサービスに渡します。
 
[構文]
 
Object .Write (string )
 

設定項目

内容

Object

オブジェクトへの参照を表すオブジェクト式

string

XML初期値

 
[戻り値]
 

定数

値

内容

JVIEW_GOOD

0

正常終了

 

1000

書き込みエラー  

 
[コーディング例]
 
sXmlData = "<?xml version = " & chr(34) & "1.0" & chr(34) & " encoding = " & chr(34) & "Shift_JIS" & chr(34) & "?>" & vbCrlf
sXmlData = sXmlData & "<field>" & vbCrlf
sXmlData = sXmlData & "<text fieldname=" & chr(34) & "TEL" & chr(34) & " >" & vbCrlf
sXmlData = sXmlData & "052-219-8551" & vbCrlf
sXmlData = sXmlData & "</text>" & vbCrlf
sXmlData = sXmlData & "</field>" & vbCrlf
call Jvwlib.Write(sXmlData)
 
 
○JobIdプロパティ
 
XMLデータIDを取得します。
プレビューコントロールのDataFileNameプロパティにXMLデータIDを設定する時に使います。
 
[構文]
 
Object .JobId
 

設定項目

内容

Object

オブジェクトへの参照を表すオブジェクト式

 
[コーディング例]
 
JvrvwXXCtrl1.DataFileName =
"<% Response.Write "/scripts/jvrsrv.dll?rdfid="& Jvwlib.JobId & "&execmode=1" %>";  
 
 
記述例（ASPの場合）
 
<%
　　　　・
　　　　・
出力先をRDFサービスデータに設定します
JvrlibXXCtl.OutDevice = 7
 
処理を開始します
call JvrlibXXCtl.Start
　　　　・
　　　　・
処理を終了します
call JvrlibXXCtl.End
 
XML形式の初期値を変数にセットします
sXmlData = "<?xml version = " & chr(34) & "1.0" & chr(34) & " encoding = " & chr(34) & "Shift_JIS" & chr(34) & "?>" & vbCrlf
sXmlData = sXmlData & "<field>" & vbCrlf
sXmlData = sXmlData & "<text fieldname=" & chr(34) & "TEL" & chr(34) & " >" & vbCrlf
sXmlData = sXmlData & "052-219-8551" & vbCrlf
sXmlData = sXmlData & "</text>" & vbCrlf
sXmlData = sXmlData & "</field>" & vbCrlf
 
XML形式の初期値をRDFサービスへ渡します
call Jvwlib.Write(sXmlData)
%>
<html>
　　　　・
　　　　・
function jvsOnLoad()
{
プレビューコントロールにRDFサービスデータIDを設定します
JvrvwXXCtrl1.FileName =
"<%Response.Write"/scripts/jvrsrv.dll?rdfid="&JvrlibXXCtl.JobId & "&execmode=1" %>";
 
プレビューコントロールにXMLデータIDを設定します
JvrvwXXCtrl1.DataFileName =
"<% Response.Write "/scripts/jvrsrv.dll?rdfid="& Jvwlib.JobId & "&execmode=1" %>";
JvrvwXXCtrl1.Show();
　　　　・
　　　　・
}
　　　　・
　　　　・
<html>