Oto powód, dla którego to nie działa:
W 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;
Rzeczywiście, prawdopodobnie mogą być problemy .
Rozwiązaniem jest dodanie reguły mapowania, która konwertuje dtWideHMemo do dtMemo .
Następnie odczytywanie i zapisywanie do CLOB .AsString działa dobrze.
Zgłoszone jako RSP-19600 w portalu jakości Embarcadero.
Dla kompletności:ponieważ mapowanie wymienione w mojej drugiej odpowiedzi nie jest już aktywne, musisz zmienić dostęp do parametrów za pomocą .Value zamiast .AsString.
