IsInitNetwork()

[User_Russian]

If the program several times to call the function InitNetwork(), this will result in an error.

Code: Select all

InitNetwork()
InitNetwork()

When the program consists of separate modules, then we have to somehow check if already invoked the function or not.
Need a function, for example, IsInitNetwork()

Code: Select all

InitNetwork().
If IsInitNetwork()=0
  InitNetwork()
EndIf

[ts-soft]

WorkAround:

Code: Select all

CompilerIf Defined(InitNetworkEx, #PB_Procedure) = #False
Procedure InitNetworkEx()
  Static IsInit = #False

  If Not IsInit
    IsInit = InitNetwork()
  EndIf
  ProcedureReturn IsInit
EndProcedure

Macro InitNetwork()
  InitNetworkEx()
EndMacro
CompilerEndIf

InitNetwork()
InitNetwork()

Or in this way:

Code: Select all

Import ""
   PB_Network_Objects
EndImport

If Not PB_Network_Objects
   InitNetwork()
EndIf

[skywalk]

My network structure includes an InitNetwork Flag, but this is cool.

WorkAround:

Code: Select all

Import ""
   PB_Network_Objects
EndImport

If Not PB_Network_Objects
   InitNetwork()
EndIf

ts-soft is the King of undocumented PB goodies
Now I need KCC to make me an awesome GIF

[User_Russian]

Import ""
PB_Network_Objects
EndImport

Linker error:

POLINK: error: Unresolved external symbol '_PB_Network_Objects'.
POLINK: fatal error: 1 unresolved external(s).

[ts-soft]

In PB5.10 the objectname is changed, so use this one:

Code: Select all

CompilerIf #PB_Compiler_Version > 500
  Macro _NetworkObject_
    PB_Server_Objects
  EndMacro
CompilerElse
  Macro _NetworkObject_
    PB_Network_Objects
  EndMacro
CompilerEndIf

Import ""
  _NetworkObject_
EndImport

If Not _NetworkObject_
   InitNetwork()
EndIf

[uwekel]

I do it that way:

Code: Select all

DisableDebugger
InitNetwork()
EnableDebugger

Best regards
Uwe