API 連携方式外部 DLL の呼び出し宣言外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要クラスの内部に以下のような外部 D

Size: px

Start display at page:

Download "API 連携方式外部 DLL の呼び出し宣言外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要クラスの内部に以下のような外部 D"

あつひろちゅうか
6 years ago
Views:

1 GS1-128 の描画 DLL について (ver. 2.2) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS についてすべて日本語版を対象としております 32bit アプリケーションから呼び出される必要があります使用条件プリンタの解像度 300dpi 以上機能バーコードの基本幅を 1 ドット単位で指定できるプリンタの解像度を考慮した補正機能により黒セルが太る場合に対応 43 桁の GS1-128 コードからチェックデジットの計算が出来る各種データ( メーカコード会社コードなど ) を指定することにより 44 桁の GS1-128 コードが出来る利用可能なメーカーコード企業負担企業負担顧客負担税料水道リアル

2 API 連携方式外部 DLL の呼び出し宣言外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要クラスの内部に以下のような外部 DLL の呼び出し宣言を加える // 外部 DLLの呼び出し (Ean128_API) private sealed class Ean128_API [DllImport("Ean128_API.dll", EntryPoint = "DrawEan128")] public static extern int DrawEan128(IntPtr hdc, int btani, int bpointx, int bpointy, int bheight, int bwidth, int badjust, string beancode); [DllImport("Ean128_API.dll", EntryPoint = "MakeEanData")] public static extern int MakeEanData(StringBuilder eanbuffer, string eanmakercd, string eancompcd, string eancode, string eanduedate, int eankingaku, int eankijungaku); [DllImport("Ean128_API.dll", EntryPoint = "CalCheckDigit")] public static extern int CalCheckDigit(StringBuilder Buffer, string EanCode); 外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual Basic.NET の場合 ) クラスの内部に以下のような外部 DLL の呼び出し宣言を加える ' 外部 DLL の呼び出し (Ean128_API) Private NotInheritable Class Ean128_API Public Declare Function DrawEan128 Lib "Ean128_API.dll" Alias "DrawEan128" (ByVal hdc As IntPtr, ByVal btani As Integer, ByVal bpointx As Integer, ByVal bpointy As Integer, ByVal bheight As Integer, ByVal bwidth As Integer, ByVal badjust As Integer, ByVal beancode As String) As Integer Public Declare Function MakeEanData Lib "Ean128_API.dll" Alias "MakeEanData" (ByVal eanbuffer As StringBuilder, ByVal eanmakercd As String, ByVal eancompcd As String, ByVal eancode As String, ByVal eanduedate As String, ByVal eankingaku As Integer, ByVal eankijungaku As Integer) As Integer Public Declare Function CalCheckDigit Lib "Ean128_API.dll" Alias "CalCheckDigit" (ByVal Buffer As StringBuilder, ByVal EanCode As String) As Integer End Class 'Ean128_API

3 DrawEan 桁の GS1-128 コードを受け取って目視文字付きバーコードを表示目視文字はデバイスコンテキストに選択されているフォントを使用引数 HDC LPCSTR バーコードを描画するデバイスコンテキストのハンドル表示位置高さ基本モジュール幅の単位 0 : 物理座標 ( ピクセル ) 1 :1/1000 インチ 2 :1/100mm バーコード表示左位置バーコード表示上位置バーコード表示高さバーコード基本モジュール幅解像度によるモジュール幅の調整を行うか否か 0 : 調整を行わない 1 : 調整を行う ( 解像度が 300 DPI 以下ならばスペースを 1 ドット広げ 300 DPI を超えるならばバーを 1 ドット狭める ) 2 : 調整を行う ( 解像度にかかわらずスペースを 1 ドット広げかつバーを 1 ドット狭める ) GS1-128 コード戻り値エラーコード 0 : 成功 8 : メモリ不足 87 : 引数エラー : メーカコードエラー : 試使用期限切れ主要コードは以上ですがほかにもエラーコードあり

4 DrawEan128 利用のサンプルコード (Microsoft Visual C#.NET の場合 ) private System.Drawing.Printing.PrintDocument printdocument1; ' 印刷作業 private void printdocument1_printpage(object sender, System.Drawing.Printing.PrintPageEventArgs e) StringBuilder bufcd = new StringBuilder(); int interrcheck; int w_tani; int w_pointx; int w_pointy; int w_height; int w_width; int w_adjust; IntPtr w_hdc; string w_eancd; // サンプルプログラム画面より取得した情報を関数パラメータにセット w_tani = int.parse(tx_tani.text); w_pointx = int.parse(tx_pointy.text); w_pointy = int.parse(tx_pointx.text); w_height = int.parse(tx_height.text); w_width = int.parse(tx_width.text); w_adjust = int.parse(tx_adjust.text); w_eancd = Tx_EAN.Text; // ダミー出力 e.graphics.drawstring("", printfont, Brushes.Black, 30, 30); // 関数呼び出し interrcheck = Ean128_API.DrawEan128(e.Graphics.GetHdc(), w_tani, w_pointx, w_pointy, w_height, w_width, w_adjust, w_eancd); // 印刷データの開放 e.graphics.releasehdc(); // 戻り値判定 if (interrcheck == 8) MessageBox.Show("Memory shortage"); // メモリ不足 else if (interrcheck == 87) MessageBox.Show("Argument Error"); // 引数エラー else if (interrcheck == ) MessageBox.Show("MakerCode Error"); // メーカコードエラー else if (interrcheck == ) MessageBox.Show("Being out of Trial Period "); else if (interrcheck!= 0) MessageBox.Show("Otherwise Error"); // その他のエラー // 試用期限切れ //// バーコード印字 private void Command_exec_Click(object sender, EventArgs e) this.printdocument1.printpage += new System.Drawing.Printing.PrintPageEventHandler(this.printDocument1_PrintPage); // 結果印刷 this.printdocument1.print(); 注意 : プログラムロジックにおいて DrawEan128 関数より以前の処理でプリンタへの出力を何も行っていない場合上記サンプルにあるようなダミー出力が必要となります

5 DrawEan128 利用のサンプルコード (Microsoft Visual Basic.NET の場合 ) Private printdocument1 As System.Drawing.Printing.PrintDocument ' 印刷作業 Private Sub printdocument1_printpage(byval sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Dim bufcd As New StringBuilder() Dim interrcheck As Integer Dim w_tani As Integer Dim w_pointx As Integer Dim w_pointy As Integer Dim w_height As Integer Dim w_width As Integer Dim w_adjust As Integer Dim w_eancd As String ' サンプルプログラム画面より取得した情報を関数パラメータにセット w_tani = Integer.Parse(Tx_Tani.Text) w_pointx = Integer.Parse(Tx_PointY.Text) w_pointy = Integer.Parse(Tx_PointX.Text) w_height = Integer.Parse(Tx_Height.Text) w_width = Integer.Parse(Tx_Width.Text) w_adjust = Integer.Parse(Tx_Adjust.Text) w_eancd = Tx_EAN.Text ' ダミーデータの出力 e.graphics.drawstring("", printfont, Brushes.Black, 30, 30) ' 関数呼び出し interrcheck = Ean128_API.DrawEan128(e.Graphics.GetHdc(), w_tani, w_pointx, w_pointy, w_height, w_width, w_adjust, w_eancd) ' プリントデータの開放 e.graphics.releasehdc() ' 戻り値判定 If interrcheck = 8 Then MessageBox.Show("Memory shortage") ' メモリ不足 ElseIf interrcheck = 87 Then MessageBox.Show("Argument Error") ' 引数エラー ElseIf interrcheck = Then MessageBox.Show("MakerCode Error") ' メーカコードエラー ElseIf interrcheck = Then MessageBox.Show("Being out of Trial Period ") ' 試用期限切れ ElseIf interrcheck <> 0 Then MessageBox.Show("Otherwise Error") ' その他のエラー End If ' 結果印刷 End Sub ' 印刷ボタン押下時 Private Sub Command_exec_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Command_exec.Click 'PrintPage イベントハンドラの追加 AddHandler printdocument1.printpage, AddressOf printdocument1_printpage ' 結果印刷 Me.printDocument1.Print() End Sub 注意 : プログラムロジックにおいて DrawEan128 関数より以前の処理でプリンタへの出力を何も行っていない場合上記サンプルにあるようなダミー出力が必要となります

6 MakeEanData 各項目データから 44 桁の GS1-128 コードを作成引数 LPSTR 作成 GS1-128 コード格納バッファ (45 バイト ) LPCSTR メーカーコード LPCSTR 企業コード LPCSTR コード LPCSTR 支払期限金額印紙基準金額戻り値エラーコード 0 : 成功 8 : メモリ不足 87 : 引数エラー : メーカコードエラー : 試使用期限切れデータは以下のように編集し 44 桁の GS1-128 コードを作成メーカーコードは 6 桁で設定支払期日がない場合を設定支払期日が 5 桁の場合システム時刻を基に先頭に 1 桁の数値を付加印紙基準金額が-1 の場合印紙フラグは 0 印紙基準金額 =< 金額の場合印紙フラグは 1 印紙基準金額 > 金額の場合印紙フラグは 0

7 MakeEanData 利用のサンプルコード (Microsoft Visual C#.NET の場合 ) //EAN コードの作成 private void EanGen_Click(object sender, EventArgs e) StringBuilder eanbuffer = new System.Text.StringBuilder(44); int interrcheck = 0; int w_amount = 0; int w_taxborder = 0; // サンプルプログラム画面より取得したバーコード情報を関数パラメータにセット w_amount = int.parse(tx_amount.text); w_taxborder = int.parse(tx_taxborder.text); // 関数呼び出し interrcheck = Ean128_API.MakeEanData(eanBuffer, Tx_MakerCD.Text, Tx_CompCD.Text, Tx_KanyuCD.Text, Tx_PayDate.Text, w_amount, w_taxborder); // 戻り値判定 if (interrcheck == 8) MessageBox.Show("Memory shortage"); // メモリ不足 else if (interrcheck == 87) MessageBox.Show("Argument Error"); // 引数エラー else if (interrcheck == ) MessageBox.Show("MakerCode Error"); // メーカコードエラー else if (interrcheck == ) MessageBox.Show("Being out of Trial Period "); // 試用期限切れ else if (interrcheck!= 0) MessageBox.Show("Otherwise Error"); // その他のエラー ////( 結果表示 ) チェックデジット追加済みEANコードを表示 Tx_EAN.Text = eanbuffer.tostring();

8 MakeEanData 利用のサンプルコード (Microsoft Visual Basic.NET の場合 ) 'EAN コードの作成 Private Sub EanGen_Click(ByVal sender As Object, ByVal e As EventArgs) Handles EanGen.Click Dim eanbuffer = New System.Text.StringBuilder(44) Dim interrcheck As Integer = 0 Dim w_amount As Integer = 0 Dim w_taxborder As Integer = 0 ' サンプルプログラム画面より取得したバーコード情報を関数パラメータにセット w_amount = Integer.Parse(Tx_Amount.Text) w_taxborder = Integer.Parse(Tx_TaxBorder.Text) ' 関数呼び出し interrcheck = Ean128_API.MakeEanData(eanBuffer, Tx_MakerCD.Text, Tx_CompCD.Text, Tx_KanyuCD.Text, Tx_PayDate.Text, w_amount, w_taxborder) ' 戻り値判定 If interrcheck = 8 Then MessageBox.Show("Memory shortage") ' メモリ不足 ElseIf interrcheck = 87 Then MessageBox.Show("Argument Error") ' 引数エラー ElseIf interrcheck = Then MessageBox.Show("MakerCode Error") ' メーカコードエラー ElseIf interrcheck = Then MessageBox.Show("Being out of Trial Period ") ' 試用期限切れ ElseIf interrcheck <> 0 Then MessageBox.Show("Otherwise Error") ' その他のエラー End If '//( 結果表示 ) チェックデジット追加済み EAN コードを表示 Tx_EAN.Text = eanbuffer.tostring() End Sub

9 CalCheckDigit 43 桁の GS1-128 コードからチェックデジットを計算引数 LPSTR チェックデジット文字の格納バッファ (2 バイト ) LPCSTR GS1-128 コード戻り値エラーコード 0 : 成功 8 : メモリ不足 87 : 引数エラー : メーカコードエラー : 試使用期限切れ

10 CalCheckDigit 利用のサンプルコード (Microsoft Visual C#.NET の場合 ) ////43 桁のEan128 コードからチェックデジットを計算 private void CalCheckDigit_Click(object sender, EventArgs e) int interrcheck; StringBuilder buffer = new StringBuilder(); String eancode = ""; // サンプルプログラム画面より取得した情報を関数パラメータにセット eancode = Tx_EAN.Text; // 関数呼び出し interrcheck = Ean128_API.CalCheckDigit(buffer, eancode); // 戻り値判定 if (interrcheck == 8) MessageBox.Show("Memory shortage"); // メモリ不足 else if (interrcheck == 87) MessageBox.Show("Argument Error"); // 引数エラー else if (interrcheck == ) MessageBox.Show("MakerCode Error"); // メーカコードエラー else if (interrcheck!= 0) MessageBox.Show("Otherwise Error"); // その他のエラー //// 計算したチェックデジットを追加 Tx_EAN.Text += buffer.tostring(); CalCheckDigit 利用のサンプルコード (Microsoft Visual Basic.NET の場合 )

11 '//43 桁の Ean128 コードからチェックデジットを計算 Private Sub CalCheckDigit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CalCheckDigit.Click Dim interrcheck As Integer Dim buffer As New StringBuilder() Dim eancode As [String] = "" ' サンプルプログラム画面より取得し情報を関数パラメータにセット eancode = Tx_EAN.Text ' 関数呼び出し interrcheck = Ean128_API.CalCheckDigit(buffer, eancode) ' 戻り値判定 If interrcheck = 8 Then MessageBox.Show("Memory shortage") ' メモリ不足 ElseIf interrcheck = 87 Then MessageBox.Show("Argument Error") ' 引数エラー ElseIf interrcheck = Then MessageBox.Show("MakerCode Error") ' メーカコードエラー ElseIf interrcheck <> 0 Then MessageBox.Show("Otherwise Error") ' その他のエラー End If '// 計算したチェックデジットを追加 Tx_EAN.Text += buffer.tostring() End Sub

GS1-128 の描画 DLL について (ver. 2.3) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS についてすべて日本語版を対象としております 32bit アプリケーションから呼び出される

GS1-128 の描画 DLL について (ver. 2.3) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS についてすべて日本語版を対象としております 32bit アプリケーションから呼び出される必要があります使用条件プリンタの解像度 300dpi 以上機能バーコードの基本幅を 1 ドット単位で指定できる

API 連携方式 外部 DLL の呼び出し宣言 外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要 クラスの内部に以下のような外部 D

API 連携方式外部 DLL の呼び出し宣言外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要クラスの内部に以下のような外部 D