Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.052 c