Changing Objects on the Fly (COOF)

[ablievn_imported]

таким:

WHILE (lFile.READ(lChar) > 0) DO BEGIN
lVariant := lChar;
lAdoRS.Fields.Item('BLOB').AppendChunk(lVariant);
END;

lAdoRS.Update;

[Seer_imported]

Цитата:

Сообщение от ablievn

таким:

WHILE (lFile.READ(lChar) > 0) DO BEGIN
lVariant := lChar;
lAdoRS.Fields.Item('BLOB').AppendChunk(lVariant);
END;

lAdoRS.Update;

Если делать так, то ругаться не должен:

Objects.SETRANGE(Тип, Objects.Тип :: Codeunit);
Objects.SETRANGE(ID, 12);
IF Objects.FIND('-') THEN BEGIN
Objects."BLOB Ссылка".IMPORT('C:\MyFile.txt');
Objects.MODIFY;
END;