VB6(DLL)

○RDFドキュメントデータをプレビューコントロールに設定する例
 
Dim iDocSize As Long
Dim sDocData() As Byte
 
'印刷を終了します。
ret = jvEndDoc(pid)
    
'RDFドキュメントデータのサイズを取得します。
iDocSize = jvGetLong(pid, JV_DOCUMENT_SIZE)
If iDocSize > 0 Then
　　'RDFドキュメントデータ取得用バッファを確保します。
　　ReDim sDocData(iDocSize)
　　'RDFドキュメントデータを取り出します。
　　ret = jvGetDocument(pid, sDocData(0))
Else
　　ReDim sDocData(1)
　　sDocData(0) = 0
End If
    
'終了処理を実行します。
ret = jvClose(pid)
        
'プレビューコントロールにRDFドキュメントデータを設定します。
JiveView.DocumentData = sDocData     
JiveView.Page = 1
JiveView.Show