[podkashey]

Имеется база в firebird, требуется из нее выгрузить некоторые данные в .dbf-файлы, включая поля memo. Для этого использую компонент tDbf. В частности, поля типа memo заполняю через потоки следующим образом:

Код:

(Dbf1.FieldByName('P') as TBlobField).LoadFromStream(DBModule.query.CreateBlobStream(D BModule.query.FieldByName('P'),bmRead) as TStream);

Не знаю правильно так или не совсем, но вроде бы работает. Проблема возникает на процедуре Dbf1.Post; - выскакивает ошибка Division by zero. Пытался разглядеть, как такое получается (благо tDbf опенсурс) - оказалось, что в файле dbf_memo.pas есть следующий код:
В процедуре procedure

Код:

TMemoFile.WriteMemo(var BlockNo: Integer; ReadSize: Integer; Src: TStream);

код:

Код:

if ((bytesBefore + Src.Size + bytesAfter + RecordSize-1) div RecordSize)
<= ((ReadSize + RecordSize-1) div RecordSize) then

На этой строке и возникает ошибка деления на нуль. Собственно, непонятно, где в компоненте выставляется значение RecordSize. На сколько я понял, в нем передается размер мемо поля, которое планируется записать. Если по Cntrl+F7 просматривать это значение, то сначала оно имеет приемлемый вид, то есть примерно столько, сколько и передаю в потоке, потом не определено, потом 0. Самое странное, что если по Cntrl+F7 смотреть значение RecordSize, то будет 0, а если значение:
( Src.Size - Src.Size) + RecordSize, то будет уже: -1994891087. Хотя если слагаемые поменять местами, то снова будет 0.
Думал как-то избавиться от целочисленного деления, например сократив обе части на div RecordSize, но так ИМХО несколько нарушится логика программы. Также пытался сделать вместо div RecordSize: div ((Src.Size - Src.Size) + RecordSize), но все равно возникала та же ошибка.
Код:

Код:

rs: Int64;
rs:= (Src.Size - Src.Size) + RecordSize;
и замена условия на:
if ((bytesBefore + Src.Size + bytesAfter + rs-1) div rs)
<= ((ReadSize + rs-1) div rs) then

записывает в rs нуль и результат не меняется.
Самое странное, что было время, когда программа нормально отрабатывала, но что-то пошло не так и перестала... SVN не юзаю, так что откатиться не могу. Также странно, что по запросу "Division by zero tdbf" гугл молчит, значит ошибка не распространенная. Может я неправильно потоки использую для переноса blob firebird в memo .dbf? Хотя пробую наполнять memo из файла таким образом:

Код:

(Dbf1.FieldByName('P') as TBlobField).LoadFromFile('c:\ses.txt');

возникает та же самая ошибка. Хотя раньше такой вариант точно отрабатывал. Компоненту tDbf заново скачивал и переставлял уже много раз.
TDbf использовался не от Брусникина Игоря Викторовича (http://www.delphisources.ru/pages/so...comp_tdbf.html), а вот этот: http://tdbf.sourceforge.net/ Первый вроде как с memo работать не умеет.

MAD: пользуемся тегами, или последуют санкции.