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

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]

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

---

← →
Johnmen ©   (2005-05-24 16:51) [3]

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;

---

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

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



Память: 0.45 MB
Время: 0.025 c