关于串口的问题

[feaabb8866]

Declare Function init_com% Lib "sure32wc.dll" (ByVal port As Long) '串口选择
Declare Function sele_card% Lib "sure32wc.dll" (ByVal crdno As Long) '卡型选择
Declare Function power_on% Lib "sure32wc.dll" ()
Declare Function power_off% Lib "sure32wc.dll" () '卡下电，同时退卡
Declare Function close_com% Lib "sure32wc.dll" () '卡下电，同时退卡
Declare Function rd_asc% Lib "sure32wc.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal buffer$) '读卡中数据
Declare Function wr_asc% Lib "sure32wc.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal buffer$) '将数据写入卡中
Declare Function rd_str% Lib "sure32wc.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal buffer$) '读卡以ASCII码数据显示
Declare Function wr_str% Lib "sure32wc.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal buffer$) '把ASCII码作为数据写入
Declare Function chk_sc% Lib "sure32wc.dll" (ByVal i1 As Long, ByVal i2 As Long, ByVal str As String) '密码检查
Declare Function wr_sc% Lib "sure32wc.dll" (ByVal str As String) '密码改写
Declare Function inquire% Lib "sure32wc.dll" (ByVal str As String) '读取读写器状态
Declare Function chk_erk% Lib "sure32wc.dll" (ByVal i1 As Long, ByVal i2 As Long, ByVal str As String)
Declare Function era_at% Lib "sure32wc.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long)
Declare Function fuse% Lib "sure32wc.dll" ()

以上是用vb6.0 开发中用的动态DLL函数库，现在如何用JAVA来解决关于串口的问题。
在JAVA当中上面用VB6.0中的DLL函数库如何改写。如何用JAVA语言来连接这些动态的
串口函数。请帮助写出详细的代码，多谢！！！