AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Über FireDac auf MariaDB zugreifen: Nicht unterstütze MySQL-Version
Thema durchsuchen
Ansicht
Themen-Optionen

Über FireDac auf MariaDB zugreifen: Nicht unterstütze MySQL-Version

Ein Thema von Kostas · begonnen am 25. Okt 2017 · letzter Beitrag vom 25. Okt 2017
 
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
10.052 Beiträge
 
Delphi 12 Athens
 
#3

AW: Über FireDac auf MariaDB zugreifen: Nicht unterstütze MySQL-Version

  Alt 25. Okt 2017, 10:18
In der aktuellen Delphiversion ist das übrigens gefixt, da funktioniert es auch so.

Ich habe für die Version vorher (ich glaube Seattle) schlicht die Funktion im Speicher gepatcht, dann braucht man keine Kopie der Unit. Das sieht dann schlicht so aus:
Delphi-Quellcode:
uses
  Winapi.Windows, System.SysUtils,
  FireDAC.Stan.Consts, FireDAC.Phys.MySQLWrapper;

procedure AllowFireDACMariaDBVersions;

implementation

type
  THackMySQLLib = class(TMySQLLib);

function GetIncrement: Integer;
begin
  Result := 0;
  if CompilerVersion >= 31 then
  begin
    Result := $73;
  end else if CompilerVersion <= 27 then
  begin
    Result := $77;
  end;
end;

procedure SetMaxMySQLLib(const AValue: Integer);
var
  ConstAddr: PByte;
  OldProtect: DWORD;
  Increment: Integer;
begin
  ConstAddr := PByte(@THackMySQLLib.LoadEntries);
  Increment := GetIncrement;
  Inc(ConstAddr, Increment);
  VirtualProtect(ConstAddr, SizeOf(mvMySQL060200), PAGE_READWRITE, OldProtect);
  if mvMySQL060200 <> PInteger(ConstAddr)^ then
  begin
    raise Exception.Create('Interner Fehler: Maximale MySQL Versionsnummer konnte nicht korrigiert werden!');
  end;
  PInteger(ConstAddr)^ := AValue;
  VirtualProtect(ConstAddr, SizeOf(mvMySQL060200), OldProtect, OldProtect);
end;

procedure AllowFireDACMariaDBVersions;
begin
  SetMaxMySQLLib(2000000000);
end;
Ich habe allerdings nicht noch andere Versionen von Delphi ausführlich getestet. Mit Seattle sollte es auf jeden Fall gehen.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz