Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 27. Jul 2016
  Oh Mann, du hast recht. Wie peinlich.
  Den Thread bitte schließen.
  Oder Löschen, das wär für mich noch besser :oops:
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 27. Jul 2016
  Jetzt hab ich mir mal einen kleinen Spaß gemacht:
  
  
  Function WasSolldas(Irgendwas: String): Double;
  Var
  J, M: Integer;
  BogNr, xBog, xTube, beta, Hbeta, eps, Heps, MDich, ZetaBogKM, DPBog, DpDlzphM: array of Double;
  begin
  M := 8;
  SetLength(BogNr, M);
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 27. Jul 2016
  Sehr diplomatisch?
  
  Die Situation ist etwas verzwickt. Ich habe einen etwas älteren Quellcode einer VB6 Anwendung und muss den "übersetzen". VB6 ist sehr fehlertolerant, das ist nicht unbedingt hilfreich.
  Eine Serie von 11(!!) dynamischen Array's wird verwendet um thermo- und physikalische Eigenschaften eines Kältemittels zu berechnen
  
  also
  
  Var
  Variable1, Variable2, Variable3,...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 27. Jul 2016
  Rätsel gelöst, ich hatte immer die DLL in Verdacht, da Anfangs in einer Funktion am End; der Fehler ausgelöst wurde. Durch Umbau von mehreren Berechnungsfunktionen welche Berechnungen aus der DLL benötigten, habe ich dann entdeckt, dass die Freigabe von dynamischen Array's am Ende einer Funktion die Ursache für die Schutzverletzung war. Diese Freigabe erfolgt normalerweise automatisch am End;...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 26. Jul 2016
  Stimmt theoretisch, passiert aber definitiv nicht. Da der dynamische Aufruf der dll ohnehin keine Besserung gebracht hat, werde ich wieder auf Statisch umbauen. Für die Ausführungsgeschwindigkeit (sollte ich die Sache endlich mal zum Laufen bringen) eindeutig ein Vorteil. Irgendwo ist der Wurm drin, ein paar Tage Pause oder Abstand zu dem Programm und vielleicht sehe ich dann das was ich bisher...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 26. Jul 2016
  Ich glaub ich werd welk...
  
  Der Tipp von Benedikt Magnus, das ist DER Tipp. Dachte ich mir. Habe das Programm so umgebaut, dass die DLL für jeden Aufruf dynamisch geladen wird. Die ganze Funktion sieht nun so aus:
  
  Function UDllCall(FType, FName: String; TKM, XVar: Double): Double;
  Type
  TFreon1Para = function(ref: PAnsiChar; var dlret: Double): Boolean; stdcall;
  TFreon2Para =...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 26. Jul 2016
  Der if / else if block greift immer, das wird wie schon weiter oben beschrieben vor dem Aufrufen der Funktion sichergestellt. 'res' ist der Rückgabewert aus der dll.
  Nun werden die dll-Aufrufe mit den übergebenen Werten und den Rückgaben in eine Log-Datei geschrieben. Alle läuft fehlerfrei bis zum 62. Aufruf einer x-beliebigen DLL-Funktion, nach 62. Aufruf wird beim Verlassen der Funktion...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 26. Jul 2016
  Boolean und WordBool sind beide logische Variablentypen. Boolean belegt ein 1 Byte, WordBool 2. Soviel sagt die Doku von Embarcadero.
  Hatte in meinem Programm schon auf WordBool umgestellt, macht keinen Unterschied. 62 DLL Aufrufe funktionieren, beim 63 gibt's den Crash :(
  In einem Log-File, das nun die DLL Aufrufe samt Parametern protokolliert, ist kein Fehler erkennbar. Dafür aber dass nach...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 25. Jul 2016
  Ja, im Rahmen dessen was die verfügbaren Dokus hergeben. Also das 17 Jahre alte PDF aus Russland und der VB6-Quellcode. Habe auch schon sehr viele andere Konventionen ausprobiert. Ergebnisse aus der DLL gibt es nur dann, wenn die Konventionen aus meinem ersten Post verwendet werden.
  Auf dem alten PDF ist eine Telefonnummer zu finden, die könnte möglicherweise geholfen haben. Es wird sich zeigen,...
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 25. Jul 2016
  Der Fehler wird in "function SysFreeMem(P: Pointer): Integer" aus Getmem.inc ausgelöst.
  
  
  function SysFreeMem(P: Pointer): Integer;
  asm
  {$ifdef CPU386}
  {---------------32-bit BASM SysFreeMem---------------}
  {On entry:
  eax = P}
  {Get the block header in edx}
• Forum: Object-Pascal / Delphi-Language

  AW: Zugriffsverletzung

   
    by schand99, 25. Jul 2016
  Schon mal Danke für die Hinweise.
  
  Es ist sichergestellt, dass 'Refr' niemals leer ist. 'FType' enthält immer den Name des Kältemittels, das wird schon vor dem Aufrufen der Funktion sichergestellt.
  Das mit dem if... else if... sieht nicht schön aus und es macht für die DLL auch keinen Unterschied ob Groß- oder Kleinbuchstaben übergeben werden. Allerdings, und das ist auch etwas was ich nicht...
• Forum: Object-Pascal / Delphi-Language

  Zugriffsverletzung

   
    by schand99, 25. Jul 2016
  Hallo liebe Entwickler,
  
  ich habe ein Problem mit Zugriffsverletzungen beim Aufrufen von Funktionen aus einer DLL. Die DLL "ref_calc32.dll" dient zum Berechnen von Stoffwertdaten von Kältemitteln, eine Dokumentation zu der DLL habe ich leider nicht. Nur ein Quellcodebeispiel geschrieben mit VB 6.0
  Daraus konnte ich mir mit viel Probieren die Funktionen der DLL in Delphi einbinden
  
  Zum...