Új hozzászólás Aktív témák

• ArchElf addikt

  #1423

  #1422 #90999040

  2011-09-18 08:48:03

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  ArchElf

  addikt

  #1422 #90999040

  #1422 #90999040

  Ez így tökéletesen működik:

  Class RelStore
  'Cache Time 5 min
  
  Private d_Timer
  Private b_Member
  Private b_Init
  Private VALIDITY
  
  Private Sub Class_Initialize
  VALIDITY = 300
  d_Timer = 0
  b_Member = False
  b_Init = False
  End Sub
  
  Public Function Initialize(Membership)
  d_Timer = Timer
  b_Member = Membership
  b_Init = True
  End Function
  
  Public Sub Invalidate()
  Class_Initialize
  End Sub
  
  Public Function IsMember()
  IsMember = b_Member
  End Function
  
  Public Function IsValid()
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Function
  End Class
  
  Set rs = new RelStore
  DebugWrite rs.isvalid

  Szerintem ez: htCache(SearchString) nem RelStore classt ad vissza.

  Rájöttem közben mi lehet a probléma...
  Mivel a class futásidőben generálódik, így lehet, hogy két futáskor nem ugyanazt a signature-t adja neki a fordító. Így hiába tárolom el az osztályt egy ideiglenes tárban (a memóriában) két futtatás között, a következő futtatáskor már "más" RelStore class generálódik meg, amire a fordító nem talál leírást, és nem tud hozzáférni a metódusokhoz sem.
  Megnéztem közben, a helytelenül visszaadott osztályoknál a
  VarType(rs) 13-at ad vissza:
  vbDataObject - 13 - A data-access object
  A TypeName meg Unknown-t...
  Kénytelen leszek sima stringekkel dolgozni

  AE

Új hozzászólás Aktív témák