Цитата:
Сообщение от
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;