Här är anledningen till att det inte fungerar:
I FireDAC.Stan.Option :
procedure TFDFormatOptions.ColumnDef2FieldDef()
...
dtWideHMemo:
// Here was ftOraClob, but then will be created TMemoField,
// which does not know anything about Unicode. So, I have
// changed to ftFmtMemo. But probably may be problems ...
ADestFieldType := ftWideMemo;
Faktum är att förmodligen kan vara problem .
Lösningen är att lägga till en mappningsregel som konverterar dtWideHMemo till dtMemo .
Därefter kan du läsa och skriva till CLOB .AsString fungerar bra.
Rapporterad som RSP-19600 i Embarcadero Quality Portal.
För fullständighetens skull:eftersom kartläggningen som nämns i mitt andra svar inte längre är aktiv måste du ändra åtkomst till parametrarna med .Value istället för .AsString.