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

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

опшипка

Страницы:   < 1 2 >

опшипка ©   (2012-05-15 21:05:00) 


var
 vBlob: TStream;
 BmpDest: Tbitmap;
begin
 BmpDest := Tbitmap.Create;
 BmpDest.PixelFormat := pf24bit;

 vBlob := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Image'), bmRead);
 try
   vBlob.Seek(0, soFromBeginning); // sереход в начало потока BLOB
   // Image1.Picture.Bitmap.LoadFromStream(vBlob);
   BmpDest.LoadFromStream(vBlob);
 finally
   vBlob.Free;
 end;

 result := BmpDest;


First chance exception at $760ED36F. Exception class EOSError with message
'System Error.  Code: 87.
Параметр задан неверно'.

vBlob.Free; //вот тут ошибка. как так?

---

Нуилаги   (2012-05-15 22:22:00) [21]

блин не могут написать язык, который может внятно объяснить где ошибка (

---

Нуилаги   (2012-05-15 22:20:00) [22]

эм, а де же? если поставить брейк, то он на входе этой процедуры останавливается, следующий шаг в этой строке, и выходит из процедуры и отовсюду

---

Ega23   (2012-05-15 21:41:00) [23]

> Параметр задан неверно'.

и

> vBlob.Free; //вот тут ошибка. как так?


Сильно сомневаюс.

---

Страницы:   < 1 2 >

Наверх