| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TADOBlobStream

aleliko ©   (2005-05-24 16:12:00) 

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:51:00) [1]

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;

---

aleliko   (2005-05-24 16:35:00) [2]

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

---

Johnmen   (2005-05-24 16:31:00) [3]

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

---

Наверх