Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как реализовать vb в Delphi [D7, WinXP]

Страницы: < 1 2
Ильин С. © (2007-03-20 12:16:00)
Подскажите пожалуйста!! У меня есть код на VB его нужно реализовать на Delphi или можно подключить с помошью Com объекта. Очень нужно!

Ильин С. (2007-03-20 13:11:00) [21]
хорошо, а что по поводу ошибки?

Elen (2007-03-20 13:10:00) [22]

> Да так наверно будет правельнее, просто не знал как написать

см. [11] - так правильнее.

Elen (2007-03-20 13:09:00) [23]

> clickmaker © (20.03.07 13:05) [11]

Верно :), но скорее всего [8].

Ильин С. (2007-03-20 13:09:00) [24]
>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) ли случайно?
Да так наверно будет правельнее, просто не знал как написать

clickmaker (2007-03-20 13:05:00) [25]

> [10] Elen © (20.03.07 13:04)

а не VarArrayHighBound?

Elen (2007-03-20 13:04:00) [26]

> For i:= 1 To 2 do

а не For i = low(connections) To high(connections)ли случайно?

clickmaker (2007-03-20 13:03:00) [27]

> [7] Ильин С. (20.03.07 12:57)

а отладчик что говорит? на какой строке ошибка?

BiN (2007-03-20 13:02:00) [28]
Server:= connector.connect server('Srvr=server_name;Ref=base_name;Usr=user;Pwd=pasword');

Ильин С. (2007-03-20 12:57:00) [29]
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;

Плохиш (2007-03-20 12:56:00) [30]

> clickmaker © (20.03.07 12:53) [5]
> а как в Дельфи этот код выглядит?

Что-то мне подсказывает, что точно также как и в [4] :-(

clickmaker (2007-03-20 12:53:00) [31]
а как в Дельфи этот код выглядит?

Ильин С. (2007-03-20 12:39:00) [32]
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:34:00) [33]

> [2] Ильин С. (20.03.07 12:32)

смотря какой код... но в большинстве случаев можно переписать

Ильин С. (2007-03-20 12:32:00) [34]
есть код на VB а вот как его реализовать в delphi не знаю

Плохиш (2007-03-20 12:26:00) [35]
Я не понял "код на VB" или COM-объект?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »