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

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

TIBValidationService [D7, FB 1.5]

StriderMan ©   (2007-08-01 19:39:00) 

кто-нибудь юзал сабж?

в инете не нашел нормального описания. Кстати когда искал нашел интересный идентичныйглюк у Яндекса и Гугла

 ibvs.Attach;
 try
//    ibvs.ServiceStart;

   while not ibvs.Eof do
     Memo1.Lines.Add(ibvs.GetNextLine);
 finally
   ibvs.Detach;
 end;

Вот таким кодом пытаюсь выцепить хоть какую-нибудь инфу. Если раскомментить ibvs.ServiceStart, то на нем валится Service not attached, хотя отладчик показывает Active=true. Если закоментить, то на GetNextLineвалится Query Parameters missing or incorrect.

что я делаю не так? или поделитесь плз описанием сервисных IBX компонентов

---

StriderMan   (2007-08-02 11:16:00) [1]

> ibvs.Options := [.............];

опции в дизайнере заполнил. Теперь ошибка другая: please retry, specifying an option.

попробовал в ран-тайме так:

 ibvs.Options := [CheckDB];
 try
   ibvs.Active := true;
   ibvs.ServiceStart;
   while not ibvs.Eof do
     Memo1.Lines.Add(ibvs.GetNextLine);
 finally
   ibvs.Active := false;
 end;

та же песня

---

PEAKTOP   (2007-08-01 20:50:00) [2]


ibvs.Options := [.............];
try
  ibvs.Active := true;
  ibvs.ServiceStart;
  while not ibvs.Eof do
    Memo1.Lines.Add(ibvs.GetNextLine);
finally
  ibvs.Active := false;
end;


---

Наверх