как реализовать 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

> [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], ничего стоющего нет

> Ильин С

А почему ты уверен, что getibconnections - это именно метод, а не св-во ?

← →
Ильин С. (2007-03-20 14:26) [31]

> Сергей М. © (20.03.07 14:23) [30]
> А почему ты уверен, что getibconnections - это именно метод,
> а не св-во ?

Потомошто в книжке по 1с метод getibconnections() описан как метод

Импортируй библиотеку типов в проект и посмотри какие свойства/методы имеются у интерфейсов.

> [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();

как реализовать vb в Delphi Найти похожие ветки