TADOBlobStream

← →
aleliko © (2005-05-24 16:12) [0]

var
MemoryStream:TMemoryStream;
BlSt: TADOBlobStream;
Im1: TGraphic;

begin
MemoryStream:=TMemoryStream.Create;
Im1:= TBitmap.Create;
form1.Image1.Picture.Bitmap.SaveToStream(MemoryStream);
Im1.LoadFromStream(MemoryStream);
//-------------
BlSt:=TADOBlobStream.Create(TBlobField(Im1), bmReadWrite);
//-------------
// datamodule2.ADOQuery3.Parameters[0].LoadFromStream(BlSt, ftBlob);
// datamodule2.ADOQuery3.ExecSQL;
BlSt.Free;
Im1.Free;
MemoryStream.Free;
end;
1. ПОдскажите, пожалуйста, правильно ли я создаю поток TADOBlobStream (выделенная строка) - при компиляции не ругается, но при запуске экзешника выдает ошибку :
Access violation at address 42540707. Read of Address 42540707.

← →
Johnmen © (2005-05-24 16:31) [1]

Честно говоря, это просто глупость.
см. TADOBlobStream+F1 и далее по See also, там даже примеры есть...

← →
aleliko © (2005-05-24 16:35) [2]

тебе легко говорить, у меня урезаная инфа и в ней я нашел только общие слова, иначе не спросил бы.
Если не трудно, напиши, пожалуйста пару примеров. Буду очень благодарен.

var MemoryStream:TMemoryStream; begin MemoryStream:=TMemoryStream.Create; form1.Image1.Picture.Bitmap.SaveToStream(MemoryStream); datamodule2.ADOQuery3.Parameters[0].LoadFromStream(MemoryStream, ftBlob); datamodule2.ADOQuery3.ExecSQL; MemoryStream.Free; end;

TADOBlobStream Найти похожие ветки