3.5.2
BisOpenPacket
3-10
3.5.2. BisOpenPacket
•
Function name long BisOpenPacket
•
Usage
Opens communication.
•
Argument
[IN] char*strIP
// A character string indicating the IP address
// (for example, "127.0.0.1"Return value
// "127.0.0.1": indicates itself.
// "xxx.xxx.xxx.xxx": The IP address used when
// connected to LAN.
char*strBD
// A letter string representing a board identifier
// ("0" ~ "3").
[OUT] long*lngPID
// A connection identifier. Set this value to the first
// argument of each API function to specify
// the connection destination.
•
Return value
0:
Indicates a normal termination.
A value other than 0: Indicates an error generation
(for details, see
•
Description
TCP/IP socket communications are opened, and the packet ID is saved in the
variable specified in lngPID.
Long BisOpenPacket must be executed before each BAPI function is executed.
•
Example
For Visual Basic 6.0
Public Declare Function BisOpenPacket Lib "bis.dll" _
(ByVal strIP As String, ByVal strBD As String, ByRef lngPID As Long)
As Long
Private Sub cmdOpen_Click()
Dim lngPID As Long
Dim lngErr As Long
lngErr = BisOpenPacket("127.0.0.1", "0", lngPID)
' If "local."
If (lngErr <> 0) Then
MsgBox "Invalid open the Communication Port.(" _
& Str(lngErr) & ")", vbOKOnly
Else
lngErr = BisSystPres(lngPID)
End If
End Sub
