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

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

AdoDataSet [D7, Access]

std ©   (2006-04-10 16:02:00) 

Добрый день

if not FileExists(filename) then Exit;
TreeView1.Items.Clear;
ADODataSet1.LoadFromFile(filename);
SetLength(userarr,ADODataSet1.RecordCount+1);
n:=0;
while not ADODataSet1.Recordset.EOF do
 begin
 user.fname:=ADODataSet1.FieldValues['fname'];
 user.lname:=ADODataSet1.FieldValues['lname'];
 user.sname:=ADODataSet1.FieldValues['sname'];
 user.email:=ADODataSet1.FieldValues['email'];
 user.ip:=ADODataSet1.FieldValues['ip'];
 ADODataSet1.Next;
 userarr[n]:=user;
 inc(n);
 end;
for i:=0 to Length(userarr) do
 begin
   user:=userarr[i];
   TreeView1.Items.AddObject(nil,user.fname,p);
 end;

вот такой кусок кода, аньше все работало нормально а седня компилю и мне выдает ошибку
Небыл произведен вызов CoInitialize
ADODataSet1.LoadFromFile(filename);
подскажите в чем проблема

---

stone   (2006-04-10 17:31:00) [1]

uses
 ActiveX;

---

std   (2006-04-10 17:28:00) [2]

написал, но ругается:
Undeclared identifier: 'coinitialize'

---

stone   (2006-04-10 17:01:00) [3]

> Небыл произведен вызов CoInitialize

Ну так произведи его

CoInitialize(nil)

---

std   (2006-04-10 16:31:00) [4]

ну собсно файл который filename я получаю по сети через tcpip потоково...

---

Desdechado   (2006-04-10 16:18:00) [5]

где-то с потоками начал играться?

---

Наверх