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

Вниз

Помогите создать TDataSetProvider в рантайме   Найти похожие ветки 

← →
mvg_first ©   (2002-11-13 20:22) [0]

Вообщем создал RemoteDataModule, положил в него Запрос и провайдер, соединил, написал клиент, в клиенте положил DComConnection, ClientDataSet все подключил - работает.

Решил усложнить задачу. В RDM используя TypeLibrary добавил метод TestExec(TabName :BSTR) и реализовал в нем следующий код


procedure TMainRDM.TestExec(const TabName: WideString);
begin
TestQ := TADOQuery.Create(self);
TestDSP := TDataSetProvider.Create(self);
TestQ.Connection := ADOConnection1;
TestQ.CursorLocation := clUseServer;
TestQ.CursorType := ctKeyset;
TestQ.SQL.Text := "SELECT * FROM "+TabName;
TestDSP.Exported := true;
TestDSP.DataSet := TestQ;
end;

Переменные TestQ -объявлены в Public секции модуля данных.
В клиенте делаю следующуе

procedure TForm2.ToolButton2Click(Sender: TObject);
var
ws : WideString;
begin
ws := "SC115";
DcoMConnection1.Connected := true;
DCOMConnection1.AppServer.TestExec(ws);
ClientDataSet1.ProviderName := "TestDSP";
ClientDataSet1.Open;
end;


При запуске - выдает ошибку:
Provider not exported: TestDSP
Почему? Что я делаю не так? Или провайдеров в рантайме нельзя создавать?

---

← →
Набережных С.   (2002-11-13 22:10) [1]

Попробуй TestDSP.Name:="TestDSP"; Авось...

---

← →
mvg_first ©   (2002-11-14 12:09) [2]

Спасибо :)
Помогло :)

---

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

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

Наверх

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