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

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

← →
VitV ©   (2006-07-26 12:20) [0]

bs:= TBlobStream.Create(DataModule1.IBDataSet5.fieldbyname("FIELD") as TBlobField, bmwrite);-invalid class typecast

---

← →
Сергей М. ©   (2006-07-26 12:27) [1]

Есть же пример в справке ... почему бы не посмотреть его ?

---

← →
ЮЮ ©   (2006-07-26 12:43) [2]

Очевидно DataModule1.IBDataSet5.fieldbyname("FIELD") не является  TBlobField -ом,  а следовательно и использовать его в таком контексте нельзя

---

← →
StriderMan ©   (2006-07-26 13:04) [3]

bs:= DataModule1.IBDataSet5.CreateBlobStream(DataModule1.IBDataSet5.fieldbyname("FIEL D"), bmwrite);

---

← →
VitV ©   (2006-07-26 13:54) [4]

Я  сделал так:
procedure TForm1.sButton6Click(Sender: TObject);
var
 MemoryStream:TMemoryStream;
 s:TStream;
 begin
 MemoryStream:=TMemoryStream.Create;
 DataModule1.IBDataSet5.Edit;
 s:=DataModule1.IBDataSet5.CreateBlobStream(DataModule1.IBDataSet5.FieldByName("F IELD"),bmWrite);
 try
   RichEdit1.Lines.SaveToStream(MemoryStream);
   MemoryStream.Seek(0,soFromBeginning);
   s.CopyFrom(MemoryStream,MemoryStream.Size);
 finally
   MemoryStream.Free;
 end;
end;

> Очевидно DataModule1.IBDataSet5.fieldbyname("FIELD") не
> является  TBlobField -ом,  а следовательно и использовать
> его в таком контексте нельзя

Оно БЛОБ!

---

← →
StriderMan ©   (2006-07-26 13:56) [5]

нафига из одного потока в другой гонять?

RichEdit1.Lines.SaveToStream(s);

---

← →
VitV ©   (2006-07-26 14:04) [6]

Точно! Спасибо за совет!!!

---

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

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



Память: 0.46 MB
Время: 0.026 c