Firebird UDF mit Delphi für UUID

[Morphie]

Aufgrund meines Problems mit UUID_TO_CHAR habe ich mir gedacht, schreibe ich mir als Workaround mal eine UDF, die mir die richtigen Werte ausspuckt.

Das habe ich allerdings noch nie gemacht.
Ich brauche im Prinzip eine Funktion, die einen "CHAR(16) CHARSET OCTETS" entgegennimmt und einen "CHAR(36)" zurückgibt.
Den Algorithmus zum Berechnen des CHAR(36) kann ich wohl noch selbst schreiben, den habe ich in C# vorliegen, aber an der Funktionsdeklaration scheitere ich schon... Als was muss CHAR(16) OCTETS in Delphi deklariert werden? Als was muss CHAR(36) deklariert werden?

Kann mir jemand dabei helfen? :-)

Danke

[tsteinmaurer]

Vielleicht wirst du bei der FreeAdhocUDF Library fündig:
http://freeadhocudf.org/

Im Speziellen bei den UUID Funktionen:
http://freeadhocudf.org/dokumentatio..._deu_uuid.html

[Morphie]

Welche davon könnte mir denn weiterhelfen?
Bisher hatte ich damit noch keinen Erfolg.

[tsteinmaurer]

Keine Ahnung, hab sie nur erwähnt, ohne dabei konkret für deinen speziellen Fall etwas auszuprobieren. ;-)

Wenn sich in deinen Tests ergeben hat, dass sie für dich nicht einsetzbar sind, dann mußt du eh in eine andere Richtung schaun.

[Morphie]

Okay, ich habe jetzt doch den ADO.NET Firebird Provider geändert. Ist zwar auch nicht schön, da der Bug hoffentlich irgendwann in Firebird gefixt wird, und ich den .NET Provider dann wieder zurückändern muss, aber nu funktioniert es.

Falls es wen interessiert:
In der Datei FirebirdSql\Data\Entity\SqlGenerator.cs habe ich folgende Änderung durchgeführt

Code:

public override ISqlFragment Visit(DbConstantExpression e)
{
...
         case PrimitiveTypeKind.Guid:
            result.Append("CHAR_TO_UUID('");
            // result.Append(((Guid)e.Value).ToString()); < Originalzeile
            result.Append(GUID_TO_UUID(((Guid)e.Value).ToString().ToUpper())); // Workaround
            result.Append("')");
            break;
...
}

// Und diese Funktion hier bringt die Zeichenfolge in die "falsche" Reihenfolge, damit sie Firebird-Kompatibel ist:
private String GUID_TO_UUID(string UUID)
{
    return UUID.Substring(6, 2) +
        UUID.Substring(4, 2) +
        UUID.Substring(2, 2) +
        UUID.Substring(0, 2) +

        UUID.Substring(8, 1) +

        UUID.Substring(11, 2) +
        UUID.Substring(9, 2) +

        UUID.Substring(13, 1) +

        UUID.Substring(16, 2) +
        UUID.Substring(14, 2) +

        UUID.Substring(18);
}

Jetzt ist der Fehler weg ;-)

[tsteinmaurer]

Vielleicht kannst das Problem in firebird-net-provider Support-Liste schildern?

[Morphie]

Mir fällt es schon unglaublich schwer, das Problem auf deutsch zu schildern... Ich denke nicht, dass es jemand begreift, wenn ich dazu noch mein Englisch raushole ;-)