jvSetFieldBarcode(バーコードフィールドデータ設定)

バーコードフィールドにデータを設定します。

[構文]
 
Function jvSetFieldBarcode(ByVal jid As Long, ByVal fieldName As String, ByVal barcode As String, ByVal retCode As String) As Long
 
C言語
int jvSetFieldBarcode(int jid, char *fieldName, char *barcode, char *retCode);
 
JAVA
int jvSetFieldBarcode(int jid, String fieldName, String barcode, StringBuffer retCode);
 
Delphi
Function jvSetFieldBarcode(jid: Longint; fieldName, barcode, retCode: PAnsiChar): Longint;
 

設定項目

内容

jid

jvCreateで取得したジョブID

fieldName

フィールド名称

barcode

バーコードデータ

retCode

実際に描画したコードを返すバッファ

 
リターンコード
 

定数

内容

 

0

正常終了

JV_ERR_JOBID

-3

ジョブIDエラー

JV_ERR_PARAMETER

-2

パラメータエラー

JV_ERR_MEMORY

-4

メモリ関連エラー

JV_ERR_BAR_CODE

-65

不正なコードがある

JV_ERR_BAR_LENGTH

-66

コード長が不正

JV_ERR_FIELD_NAME

-70

指定されたフィールドが存在しない

 
[解説]
 
jvStartDocからjvEndDocまでの間でコールします。
 
retCode には実際に描画したコードが返ります。コードの後ろにNULL文字が入るため、バッファは1バイト余分に確保してください。バーコードの種類がQRコードの場合にはretCode に何も返りません。
 
barcode の値はバーコードの種類により異なります。 詳細は各バーコードの説明を参照してください。
 
JAN標準形・短縮形
CODE39
NW7
ITF
CODE128(EAN128)
UPC
カスタマーバーコード(郵便)
QRコード
マクロQRコード
PDF417コード
マイクロPDF417コード
 
 
[コーディング例]
 
Dim jid&, ret&
Dim retCode$
jid = jvCreate(JV_PRINTER, form1.hWnd, Printer.hDC, 0, 0, 0, "")
ret = jvSetForm(jid, "c:\JiveReport\今期予算表.jfm", 1, "", 100, 0, 0)
ret = jvStartDoc(jid, "今期予算表", "")
retCode = space(14)
ret = jvSetFieldBarcode(jid, "field1", "491234567890", retCode)
|
retCode = space(20)
ret = jvSetFieldBarcode(jid,"CST","460-0011愛知県名古屋市中区大須一丁目25番28号", retCode)
|
ret = jvDrawForm(jid, JV_FORM_FIELD)
ret = jvEndPage(jid)
ret = jvEndDoc(jid)
ret = jvClose(jid)