powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DCom и Delphi?
12 сообщений из 12, страница 1 из 1
DCom и Delphi?
    #32165050
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ, помогите!
Есть DCom сервер, написанный на VB и установленный на удаленный компьютер. Как подключится к нему из Delphi?
В VB все просто
Set s = CreateObject("Data.CData", "xxx.xxx.xxx.xxx")
и юзай его потом, а в Delphi, что то я не разберу как это сделать.
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165064
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Он, зараза создается локально..
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165103
olga1999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Используя компонент DcomConnection на закладке DataSnap. Самое главное:

DcomConnection.Connected:=true;
YourServer:=DComConnection.AppServer;

Дальше, например
YourServer.Visible:=true;
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165115
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!
Я по другому не много разобрался. Через dcomcnfg.
Но тут возникла другая проблема.. Там в объекте методы возвращают ADODB.Recordset и куда его в Delphi засунуть, кроме как в variant. Хотелось бы потом эти рекордсеты в контролах Delphi юзать..
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165379
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну в общем то я проблему решил, но помоему через одно место...
Как то не красиво выходит, хотя и работает
var
v: variant;
r: variant;
f: file;
begin
try
assignfile(f,'data.rst');
erase(f);
except
end;
v:=createoleobject('Data.CData');
v.init;
r:=v.get_class;
r.save('data.rst');
tab.LoadFromFile('data.rst');
try
assignfile(f,'data.rst');
erase(f);
except
end;
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165424
DmitryV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У компонентов ADO типа dataset есть public свойство Recordset... И не надо так извращаться...
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165437
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Колесо уже до тебя изобрели
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165461
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну да.. Только у объектов ADO в делфи видимо какойто другой рекордсет -)) Говорю, что dcom на vb писался. Моим перевым движением и было присвоить
x.Recordset:=v.get_class;
Но вылетела несовместимость типов..
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165693
DmitryV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хм...
А интерфейс можешь показать? Что-то меня смущает строчка
Код: plaintext
 v.save('data.rst')

Что возвращает get_class?

Удачи
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32165775
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот код на VB

Function get_class() As ADODB.Recordset
On Error GoTo LErr:
Dim rs As New ADODB.Recordset



rs.Open "select * from ClassName (nolock)", cn
Set get_class = rs.Clone
rs.Close

Set rs = Nothing
LErr:
If Err.Number <> 0 Then

End If
End Function

И возвращает он ADODB.Recordset. Я пытался импортировать библиотеку типов из этого dcom, и создавать рекордсет того типа что в ней.. Но это проблему не решило, так как этот рекордсет в делфи я никуда приделать не могу.
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32166170
DmitryV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Возможно, они отличаются по реализуемым интерфейсам...
Попробовать мне не на чем, но из объявлений видно, что в Delphi тип _Recordset есть соответствующий интерфейс _Recordset из ADO... Может, в VB это что-то другое? Например, более ранней версии... Не знаю...

Удачи
...
Рейтинг: 0 / 0
DCom и Delphi?
    #32166208
Фотография Ден
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да вроде нет.. Я и там подрубал библиотек ADO2.6 и в Делфи...
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DCom и Delphi?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]