Inilah alasannya tidak berfungsi:
Di 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;
Memang, mungkin masalah .
Solusinya adalah menambahkan aturan pemetaan yang mengubah dtWideHMemo ke dtMemo .
Setelah itu, baca dan tulis ke CLOB .AsString bekerja dengan baik.
Dilaporkan sebagai RSP-19600 di Portal Kualitas Embarcadero.
Untuk kelengkapan:karena pemetaan yang disebutkan dalam jawaban saya yang lain tidak lagi aktif, Anda harus mengubah akses ke parameter dengan .Value bukannya .AsString.
