ProcedureDLL AttachProcess(Instance)

  Global astring.s
  Dim alotofstring.s(5)
  Structure stru
    s.s
    b.b
    l.l
  EndStructure
  Dim astructure.StrU(5)

EndProcedure

ProcedureDLL DetachProcess(Instance)

EndProcedure

ProcedureDLL set(value.s)
  astring = value
  For a = 0 To 4
    alotofstring(a)= value
  Next a
  For a = 0 To 4
    astructure(a)\s = value
    astructure(a)\b = 1
    astructure(a)\l = 180124
  Next a
EndProcedure

ProcedureDLL get()
 
  MessageRequester("Test : Global", astring)
  For a = 0 To 4
    MessageRequester("Test : Tableau", alotofstring(a))
  Next a
 
  For a = 0 To 4
    MessageRequester("Test : Structure", astructure(a)\s)
    MessageRequester("Test : Structure", "Devrait être égal à 1 : " + Str(astructure(a)\b))
    MessageRequester("Test : Structure", "Devrait être égal à 180124 : " + Str(astructure(a)\l))
  Next a
EndProcedure