Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 8. Dez 2016
  Sooo....feddich.
  
  Mit ein paar Einschränkungen funktioniert das ganze jetzt. :)
  
  
  Einschränkungen:
  
  Gleitkommawerte (Floats):
  
  Da Delphi intern alles auf Extended castet, kann die Liste nur Parameter als Extended (od. Currency) handhaben.
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 6. Dez 2016
  hmmm....da hast jetzt auch wieder recht.
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 6. Dez 2016
  @Stevie
  Jaein.
  
  Ich muss zumindest die Info mit in der Liste verwalten, damit ich die Parameterliste des Events mit
  der Parameterliste des Eventhandlers abgleichen kann (und ggf. mit der beim Aufruf übergebenen Parametern) prüfen kann.
  
  hmmm.....da werd ich wohl um ein redesign des ganze nicht ganz rumkommen.
  
  Der String ist letztlich nur eine ID, die den Code etwas lesbarer macht :)
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  Ich weiß.
  
  Sobald ich eine neuere Delphi Version in die Finger bekomm, kann ich das entsprechend anpassen.
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  gefixt.
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  Ja...kommt gleich....Browser streikt grad :)
  
  
  So..da isser :)
  
  
  Edit1: Zip updated: enthält jetzt auch die DFM
  
  Edit2: HINWEIS: Das Projekt verwendet FastMM4 !
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  Geschaft.....MultiEvent-Liste funktioniert soweit (siehe Testprojekt im Anhang).
  
  Tests, Anregungen usw. sind natürlich immer willkommen :)
  
  Auf meiner TODO-Liste dafür:
  
  
  - Records als Parameter
  - autom. Type-Konvertierung (versch. String-Typen z.B.)
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  Auch erledigt. Bei Stringkonstanten (execute(...,); wird automatisch ein AnsiString draus gemacht. Wenn die ZielMethode natürlich Widestring erwartet ist das nicht gut.
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  Jut...auch das Problem ist gelöst. Lag an der Stackgröße die bei Boolean und Char falsch berechnet wurde.....dafür ist nu ein neues aufgetreten.
  
  Nämlich wenn ich mehrere Widestrings übergeben will....mal guggen.
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 5. Dez 2016
  Jup...weiß ich. Bin inzwischen ein wenig weiter gekommen.
  
  Statt der Methode aus der ObjAuto, verwend ich deine Routine aus DSharp.
  
  Dabei bau ich den PParameters selbst zusammen, anhand der Typen.
  
  
  //Fillup PParameters for calling the method and handling the stack
  //and calculating the Stacksize
  New(para);
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 4. Dez 2016
  So..hab ein wenig weiter probiert. Folgende Methode ist dabei soweit rausgekommen:
  
  (Gekürzt...Problem ist der ASM-Teil):
  
  
  procedure TEventList.CallInvoke(method: TMethod; params: array of const);
  var
  :
  Regs : array of Cardinal;
  doStack : boolean;
• Forum: Sonstige Fragen zu Delphi

  AW: Multi-Event-Liste

   
    by Ghostwalker, 2. Dez 2016
  Jep...und auch in DSharp. Beides ist für mich aber nicht wirklich brauchbar. Mein Delphi (und der Rechner) sind dafür schon ein bischen alt :)
  
  
  Bei der Suche nach einer Lösung bin ich auf diesen Beitrag gestoßen:
  
  http://www.delphipraxis.net/171641-assembler-routine-korrekt-so.html
  
  Problem ist der Parametertyp PParameters. Den kennt mein Delphi nicht, also hab ich das
  mal einfach als...
• Forum: Sonstige Fragen zu Delphi

  Multi-Event-Liste

   
    by Ghostwalker, 2. Dez 2016
  Hi,
  
  ich bin gerade drüber mir eine "Multi-Event-Liste" zu bauen, die verschiedene Event-Typen mehrfach
  speichert und ggf. auch ausführt.
  
  
  
  TYPE
  PEventEntry = ^TEventEntry;
  TEventEntry = record