vb转化为delphi

Question

我要用到delphi实现对dso(决策支持对象)对象的编程，可是又没有找到这方面的例子，所以只能看那些vb程序，然后转化了。
dim dsoserver as new dso.server 
dim dsodb as dso.mdstore
dim dsocube as dos.mdstore
on error goto handlerr
dsoserver .connect"localhost"
这些应该是怎么转化过去的呢？

Answer 1

var
   dsoserver : variant;
begin
   dsoserver:=createoleobject('dso.server');
   dsoserver.connect('localhost');
这样改的时候说的createoleobject有问题，是不是引用那个单元，我不知道是哪一个？

Answer 2

combox1.additem();
我这个括弧中的参数应该怎么写，尤其是后面的那个，我前面的字符串用的是dsoserver.name,后面不知道该怎么写了。

Answer 3

我还想问一下，关于连接到dso.server的时候，我想连接本机或者是什么地方的服务器的话，可以怎么办呢？我应该怎么写这样的语句呢？还有就是我想显示所有的在局域网内的可以作为服务器的机子的名字，该怎么办呢？

Answer 4

dim dsoserver  as new dso.server 
dim dsodb as dso.mdstore
for each dsodb in dsoserver.mdstores
  listbox1.additem"dsodb.name"
如果改成delphi的语句因该是什么样子的呢？

Answer 5

Private Sub ListDatabases()
    Dim dsoServer As New DSO.Server
    Dim dsoDB As DSO.MDStore    ' Connect to the server.
    dsoServer.Connect "LocalHost"    ' For each MDStore database object on the server,
    ' print its name.
    For Each dsoDB In dsoServer.MDStores
        Debug.Print "Database: " & dsoDB.Name & _
            " - " & dsoDB.Description
    NextEnd Sub
高手帮忙吧，为什么我写出来的数据库的名称都是空的呢？
lstdatabase.Items.Clear ;
  dsoserver := CreateOLEObject ('DSO.server') ;
  dsoserver.connect(E_asserver.Text );
  dsodb:=CreateOLEObject('dso.mdstore');
for i :=0 to DSOServer.Mdstores.count do
    showmessage(DSOdb.name);