Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Вниз

Invalid BLOB handle in record buffer   Найти похожие ветки 

 
Ega23 ©   (2005-06-02 13:56) [0]

На строке кода

TBLOBField(DataSource.DataSet.FieldByName(DataField)).SaveToStream(ms);

получаю сабжевый exception. Поле - not IsNull, это проверено. Тип поля в базе - image. В DBGrid"е поле отображается как "BLOB".
В Query Analyzer"е вижу такую строку:
0x01000100000020F212000E0000000800780000001C00000000000000C0AE1C0AA0AE1C0A98A91C0A80F3120070F94200E4CF1C0AA57D4200847D42 00997E4200E4CF1C0ADCF742009CF312009CF31200E4CF1C0A9F2243009CF31200E4CF1C0AE4CF1C0AF80ED6043E060D0035010000EB0E011034060C 0000000000D8F312009CF212008764E177B906FFFF3E060D0035010000

В чём может быть дело???
Уже 2 часа голову ломаю. Посмотрите, может что проглядел?


procedure TGfxDBConnector.AddGfxObject;
var
ms:TMemoryStream;
GfxTag:TGfxTagStruct;
GfxPoly:TGFXPolyObject;
begin
ms:=TMemoryStream.Create;
try
 if TBLOBField(DataSource.DataSet.FieldByName(DataField)).IsNull then Exit;

 TBLOBField(DataSource.DataSet.FieldByName(DataField)).SaveToStream(ms);
 ms.Position:=0;
 ms.ReadBuffer(GfxTag, SizeOf(TGfxTagStruct));

 ms.Position:=GfxTag.Offset;
 if GfxTag.Tag<>GFXTAG_TYPE then Exit;
 Case GfxTag.wParam of
  POLY_OBJECT          : begin
                          GfxPoly:=TGFXPolyObject.Create;
                          GfxPoly.LoadFromStream(ms);
                          GfxPoly.UID:=DataSource.DataSet.FieldByName(IDField).AsInteger;
                          GFXDrawer.AddObject(GfxPoly);
                         end;
  RASTER_OBJECT        : begin
                          //
                         end;

 end;

finally
 ms.Free;
end;

end;



 
Ega23 ©   (2005-06-02 15:47) [1]

Всё, вопрос снят.
Там - мама не горюй получается....



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

Форум: "Базы";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.041 c
1-1119854690
$HiC0
2005-06-27 10:44
2005.07.18
Wizard-like application


1-1120031019
WasHer
2005-06-29 11:43
2005.07.18
TMaskEdit.EditMask - пропадает текст


14-1119529290
X9
2005-06-23 16:21
2005.07.18
Схема советских колонок S90


1-1119719649
NightStranger
2005-06-25 21:14
2005.07.18
Не могу закрыть Excel


1-1120025152
rooker
2005-06-29 10:05
2005.07.18
главное окно программы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский