Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Invalid class typecast   Найти похожие ветки 

 
DelphiNew   (2005-06-21 15:44) [0]

Есть вот такая процедура:

var
BlobStream: TBlobStream;
StrStream: TStringStream;
s: string;
begin

BlobStream:=TBlobStream.Create(IBQFndProc.fieldByname("OBJ_BODY")
 as TBlobField, bmRead);
StrStream := TStringStream.Create(s);
try
 ObjectBinaryToText(BlobStream, StrStream);
 s:=StrStream.DataString;
finally
 StrStream.Free;
 BlobStream.Free;
end;

FormProc:= TFormProc.Create(self);
FormProc.Memo1.lines.text:= s;
FormProc.Show;
end;
При попытке выполнения строчки BlobStream:=TBlobStream.Create(IBQFndProc.fieldByname("OBJ_BODY")as TBlobField, bmRead); вылетает ошибка Invalid class typecast. В чём может быть причина?


 
Ega23 ©   (2005-06-21 15:53) [1]


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

 TBLOBField(FDataLink.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:=FDataLink.DataSet.FieldByName(IDField).AsInteger;
                          FGFXDrawer.AddObject(GfxPoly);
                         end;
  RASTER_OBJECT        : begin
                          //
                         end;

 end;

finally
 ms.Free;
end;

end;


 
DelphiNew   (2005-06-21 15:57) [2]

Спасибо попробую



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

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1120922185
KyRo
2005-07-09 19:16
2005.07.31
Как убрать стандартную реакцию


1-1121388904
Antonn
2005-07-15 04:55
2005.07.31
Отскроллировать таблицу StringGrida к последней записи


1-1121028705
DDDsa
2005-07-11 00:51
2005.07.31
Проблема с кириллицей при поиске.


14-1121064075
pavel_guzhanov
2005-07-11 10:41
2005.07.31
В продолжение вопроса про видеокамеру....


1-1121323224
Руслана
2005-07-14 10:40
2005.07.31
Объясните почему