OleVariantToString?

[Thanatos81]

Na, damit kann ich dienen

Name der DLL: IBHNet.dll
beschreibender Name: IBHNet 1.0 Type Library (Version 1.0)

Der relevante VB-Code:

Code:

Dim netex As IIIBHnet2

Private Sub Command1_Click()
  Dim Liste As Variant
  Dim aktiv As String
  List1.Clear

  netex.LifeList Text1.Text, Liste

  For i = 1 To 127

    If (Liste(i) = 48) Then
        aktiv = Str(i - 1) & " (Aktiv)"
        List1.AddItem (aktiv)
    End If

    If (Liste(i) = 32) Then
        aktiv = Str(i - 1) & " (Passiv)"
        List1.AddItem (aktiv)
    End If

  Next i

End Sub

Und mein Versuch in Delphi:

Delphi-Quellcode:

var
  test: IIIBHnet2;
  ole: OleVariant;
begin
  test := CreateComObject(CLASS_IIBHnet) as IIIBHnet2;
  test.LifeList('TestS7', ole);

  showMessage(ole);
end;

Hoffentlich hilft es jemanden beim Helfen Danke schon mal im Voraus fürs Grübeln.