Ето причината да не работи:
В 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;
Наистина, вероятно може да има проблеми .
Решението е да добавите правило за съпоставяне, което преобразува dtWideHMemo към dtMemo .
След това четене и писане в CLOB .AsString работи добре.
Докладвано като RSP-19600 в портала за качество на Embarcadero.
За пълнота:тъй като картографирането, споменато в другия ми отговор, вече не е активно, трябва да промените достъпа до параметрите с .Value вместо .AsString.
