Скачать: CL | DM;

Еще одна проблема в D2010 - AV при доступе к Blob полям   Найти похожие ветки 

← →
Дмитрий Белькевич   (2009-11-12 13:33) [0]

Кусок из модуля IBCustomDataSet.pas:


 if FField is TWideMemoField then
 begin
   if FBlobStream.Database.CharacterSetCodePage = 0 then
     result := FBlobStream.Write(Buffer, Count)
   else
     Result := DecodeLength(FBlobStream.Database.CharacterSetCodePage);
 end
 else
   result := FBlobStream.Write(Buffer, Count);


В некоторых случаях (когда читается блобовское поле AsString, другие условия не ясны) почему-то FBlobStream.Database = nil.

Таких кусков кода три по модулю.

Проблема, предположительно, здесь:

function TIBCustomDataSet.CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream;


 if Buff = nil then
 begin
   fs := TIBBlobStream.Create;
   fs.Mode := bmReadWrite;
   FBlobStreamList.Add(Pointer(fs));
   result := TIBDSBlobStream.Create(Field, fs, Mode);
   exit;
 end;


Предположительно в этом куске не хватает fs.Database := Database;.

---

← →
имя   (2009-11-15 02:01) [1]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c