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

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

Проблема с записью в BLOB-поле [D6]

Zabludshiy ©   (2004-08-05 17:19:00) 

Доброго всем времени. Oracle8i, Delphi-6. К базе подключаюсь с помощю ODAC.
Пытаюсь записать RichEdit в CLOB следующим образом:

procedure TNewDocVizard.Button11Click(Sender: TObject);
var FullDocText:string;
   BlobStream:tStream;
begin
     SmartQuery1.Active:=False;
     SmartQuery1.ParamByName('Cond').AsInteger:=465;
     SmartQuery1.Open;
     if SmartQuery1.State = dsBrowse then
       SmartQuery1.Edit;
     BlobStream:=SmartQuery1.CreateBlobStream(SmartQuery1.FieldByName('doc_text'),bmWrite);
     Try
       BlobStream.Seek(0, soFromEnd);
       BlobStream.Write(pChar(RichEdit1.Text)^,length(RichEdit1.Text));
//      BlobStream.WriteBuffer();
       SmartQuery1.Post;
       DMod1.OracleSession1.Commit;
     Finally
       BlobStream.Free;
       SmartQuery1.Close;
     end;
end;
В результате в 'doc_text' ничего не записывается (CLOB пустой), ошибок не выдаёт. 2-й день не могу понять где допустил ошибку?
Заранее спасибо за помощ.

---

Zabludshiy   (2004-08-05 19:17:00) [1]

Да, действительно.
Спасибо.

---

Johnmen   (2004-08-05 18:19:00) [2]

А-а.. Понятно
глянь  TBlobStreamMode+F1

---

Zabludshiy   (2004-08-05 18:12:00) [3]

> Johnmen ©   (05.08.04 17:49) [2]

Спасибо, но не помогло.

Что интересно, в новом (чистом) проекте на тестовой базе аналогичный код работает. Да и взят он из реально рабочего примера, одного из тех что шёл с ODAC.

Рабочий код, на нажатие кнопки:

begin
 if SmartQuery1.State = dsBrowse then
   SmartQuery1.Edit;
 BlobStream:=SmartQuery1.CreateBlobStream(SmartQuery1.FieldByName('tclob'),bmReadWrite);
 try
   BlobStream.Seek(0, soFromEnd);
   BlobStream.Write(PChar(memo1.Text)^,length(memo1.Text));
   SmartQuery1.Post;
 finally
   BlobStream.Free;
 end;
end;
А то что я модифицировал - никак не хочет работать.

---

Johnmen   (2004-08-05 17:49:00) [4]

>BlobStream.Write(pChar(RichEdit1.Text)^,length(RichEdit1.Text));

Видимо, либо
s:=RichEdit1.Text;
BlobStream.Write(pChar(s)^,length(s));
либо
BlobStream.Write(RichEdit1.Text[1],length(RichEdit1.Text));

---

Zabludshiy   (2004-08-05 17:22:00) [5]

В SmartQuery.sql такой запрос:
Select DIC.DOC_TEXT, DIC.RowId
from DIC
where COND = :Cond

---

Наверх