Текущий архив: 2006.04.23;
Скачать: CL | DM;

Вниз

AdoDataSet   Найти похожие ветки 

← →
std ©   (2006-04-10 16:02) [0]

Добрый день

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);
подскажите в чем проблема

---

← →
Desdechado ©   (2006-04-10 16:18) [1]

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

---

← →
std ©   (2006-04-10 16:31) [2]

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

---

← →
stone ©   (2006-04-10 17:01) [3]

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

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

CoInitialize(nil)

---

← →
std ©   (2006-04-10 17:28) [4]

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

---

← →
stone ©   (2006-04-10 17:31) [5]

uses
 ActiveX;

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c