Форум: "Начинающим";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Внизкак реализовать vb в Delphi Найти похожие ветки
← →
Ильин С. (2007-03-20 12:16) [0]Подскажите пожалуйста!! У меня есть код на VB его нужно реализовать на Delphi или можно подключить с помошью Com объекта. Очень нужно!
← →
Плохиш © (2007-03-20 12:26) [1]Я не понял "код на VB" или COM-объект?
← →
Ильин С. (2007-03-20 12:32) [2]есть код на VB а вот как его реализовать в delphi не знаю
← →
clickmaker © (2007-03-20 12:34) [3]
> [2] Ильин С. (20.03.07 12:32)
смотря какой код... но в большинстве случаев можно переписать
← →
Ильин С. (2007-03-20 12:39) [4]Dim connector
Set connector = CreateObject("v8.comconnector")
Dim Server
Set Server = connector.connectserver("server_name")
Server.addauthentication "...","....."
Dim ibdesc
Set ibdesc = Server.createinfobaseinfo()
ibdesc.Name = "base_name"
Dim connections
connections = Server.getibconnections(ibdesc)
Dim i
Dim connection
Dim storka As String
For i = LBound(connections) To UBound(connections)
stroka = connections(i).UserName
В vb нормально работает а в Delphi при вызове методов выдает ошибку что таких методов для данного соединения нет
← →
clickmaker © (2007-03-20 12:53) [5]а как в Дельфи этот код выглядит?
← →
Плохиш © (2007-03-20 12:56) [6]
> clickmaker © (20.03.07 12:53) [5]
> а как в Дельфи этот код выглядит?
Что-то мне подсказывает, что точно также как и в [4] :-(
← →
Ильин С. (2007-03-20 12:57) [7]var connections,connection,connector,server,ibdesc: variant;
s:string;
i:word;
begin
connector:=CreateoleObject("v8.comconnector");
Server:= connector.connect("Srvr=server_name;Ref=base_name;Usr=user;Pwd=pasword");
ibdesc:= Server.createinfobaseinfo();
connections:= Server.getibconnections(ibdesc);
For i:= 1 To 2 do
begin
s:= connections[i].UserName
end;
← →
BiN © (2007-03-20 13:02) [8]Server:= connector.connectserver("Srvr=server_name;Ref=base_name;Usr=user;Pwd=pasword");
← →
clickmaker © (2007-03-20 13:03) [9]
> [7] Ильин С. (20.03.07 12:57)
а отладчик что говорит? на какой строке ошибка?
← →
Elen © (2007-03-20 13:04) [10]
> For i:= 1 To 2 do
а неFor i = low(connections) To high(connections)
ли случайно?
← →
clickmaker © (2007-03-20 13:05) [11]
> [10] Elen © (20.03.07 13:04)
а не VarArrayHighBound?
← →
Ильин С. (2007-03-20 13:09) [12]>clickmaker © (20.03.07 13:03) [9]
>а отладчик что говорит? на какой строке ошибка?
Project1.exe raised exeption class eoleerror with massage "Method" getibconnections" not supported by automation object". Process stoped.
На строке ibdesc:= Server.createinfobaseinfo();
>Elen © (20.03.07 13:04) [10]
>а не For i = low(connections) To high(connections) ли случайно?
Да так наверно будет правельнее, просто не знал как написать
← →
Elen © (2007-03-20 13:09) [13]
> clickmaker © (20.03.07 13:05) [11]
Верно :), но скорее всего [8].
← →
Elen © (2007-03-20 13:10) [14]
> Да так наверно будет правельнее, просто не знал как написать
см. [11] - так правильнее.
← →
Ильин С. (2007-03-20 13:11) [15]хорошо, а что по поводу ошибки?
← →
BiN © (2007-03-20 13:13) [16]
> Ильин С. (20.03.07 13:11) [15]
>
> хорошо, а что по поводу ошибки?
Может, на [8] глянешь, наконец-то?
← →
Ильин С. (2007-03-20 13:13) [17]если использовать [8], то Delphi счтает что все что в скобка это компьютер
← →
clickmaker © (2007-03-20 13:19) [18]
> [17] Ильин С. (20.03.07 13:13)
судя по тексту ошибки, не понимает именно метод getibconnections...
а Server чему равен, если в Watch глянуть? VarType у него какой?
← →
Elen © (2007-03-20 13:23) [19]
> если использовать [8], то Delphi счтает что все что в скобка
> это компьютер
Естесственно. Видимо у тебя в connector есть два метода connectserver и connect, а вот какой тебе нужен это уж ты сообрази.
← →
Плохиш © (2007-03-20 13:27) [20]Хм, я тут у яху спросил: http://search.yahoo.com/search;_ylt=A0geu5mitf9FfG0BuoBXNyoA?p=delphi+%22v8.comconnector%22&ei=UTF-8&fr=yfp-t-501&fp_ip=DE&x=wrt&meta=0
← →
Ильин С. (2007-03-20 13:40) [21]>clickmaker © (20.03.07 13:19) [18]
>судя по тексту ошибки, не понимает именно метод getibconnections...
>а Server чему равен, если в Watch глянуть? VarType у него какой?
Server: Variant $12F554
← →
Сергей М. © (2007-03-20 13:59) [22]
> Ильин С. (20.03.07 13:40) [21]
> Server: Variant $12F554
>
И где здесь VarType ?
← →
Ильин С. (2007-03-20 14:04) [23]Variant
← →
Сергей М. © (2007-03-20 14:06) [24]
> Ильин С. (20.03.07 14:04) [23]
НЕТ такого VarType !
А ну бегом марш читать справку к ф-ции VarType() !
← →
Ильин С. (2007-03-20 14:10) [25]
> НЕТ такого VarType !
>
> А ну бегом марш читать справку к ф-ции VarType() !
Server $037914C8 Вот все что показывает watch
← →
Ильин С. (2007-03-20 14:12) [26]Прошу прощения вот что выдает vartype(server) Inaccessible value
← →
clickmaker © (2007-03-20 14:14) [27]
> [26] Ильин С. (20.03.07 14:12)
а примеры в [20] не помогли?
> vartype(server) Inaccessible value
по идее, должно быть там varDispatch, что будет означать, что объект таки создан
← →
Ильин С. (2007-03-20 14:18) [28]
> по идее, должно быть там varDispatch, что будет означать,
> что объект таки создан
Если воспользоваться специально процедурой, то выдает varDispatch
← →
Ильин С. (2007-03-20 14:19) [29]
> а примеры в [20] не помогли?
нет в примерах [20], ничего стоющего нет
← →
Сергей М. © (2007-03-20 14:23) [30]
> Ильин С
А почему ты уверен, что getibconnections - это именно метод, а не св-во ?
← →
Ильин С. (2007-03-20 14:26) [31]
> Сергей М. © (20.03.07 14:23) [30]
> А почему ты уверен, что getibconnections - это именно метод,
> а не св-во ?
Потомошто в книжке по 1с метод getibconnections() описан как метод
← →
Плохиш © (2007-03-20 15:29) [32]Импортируй библиотеку типов в проект и посмотри какие свойства/методы имеются у интерфейсов.
← →
Сергей М. © (2007-03-20 15:30) [33]
> Плохиш © (20.03.07 15:29) [32]
> Импортируй библиотеку типов
А она у их есть ?)
← →
clickmaker © (2007-03-20 15:34) [34]
> [31] Ильин С. (20.03.07 14:26)
Server := Connector.ConnectServer("server_name");
Base := Server.CreateInfoBaseInfo();
Base.Name := "Test";
Connections := Server.GetIBConnections(Base);
?
← →
Ильин С. (2007-03-20 15:39) [35]
> clickmaker © (20.03.07 15:34) [34]
> Server := Connector.ConnectServer("server_name");
> Base := Server.CreateInfoBaseInfo();
> Base.Name := "Test";
> Connections := Server.GetIBConnections(Base);
>
> ?
Пробовал и так, но в данном случае выдается ошибка недопустимое число параметров на строке Base := Server.CreateInfoBaseInfo();
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.049 c