Twixtel-API 

Wie kommt man zur twxapi32.dll

Vor der Installation von Twixtel eine leere Datei namens twxapi32.dll ins Verzeichnis windows/system32 legen, wird dann von einer aktuellen Version überschrieben

Code

'DLL funktionen einbinden
Public Declare Function TwixInitializeEngine Lib "twxapi32.dll" (ByVal laufwerk _
  As String) As Integer
    Public Declare Function TwixUnInitializeEngine Lib "twxapi32.dll" () As _
    Integer
    Public Declare Function TwixSetSearchFirstName Lib "twxapi32.dll" (ByVal _
    fname As String) As Integer
    Public Declare Function TwixSetSearchName Lib "twxapi32.dll" (ByVal fname _
    As String) As Integer
    Public Declare Function TwixSetSearchZipCity Lib "twxapi32.dll" (ByVal zip _
    As String) As Integer
    Public Declare Function TwixSetSearchPhone Lib "twxapi32.dll" (ByVal nr As _
    Integer) As Integer
    Public Declare Function TwixSearch Lib "twxapi32.dll" () As Integer
    Public Declare Function TwixGetSearchResult Lib "twxapi32.dll" (ByVal id As _
      Integer) As Integer
    Public Declare Function TwixGetMainEntry Lib "twxapi32.dll" (ByVal nr As _
    Integer, ByVal value As String, ByVal k As Integer) As Integer

'Sub zur Suche nach Daten und ausgabe:

        Dim i, j, rescnt As Integer
        Dim value As String

        'value = ""

        TwixInitializeEngine("E:")
        TwixSetSearchName("thommen")
        TwixSetSearchZipCity("5615")
        rescnt = TwixSearch()

        'MsgBox(rescnt) 'Anzahl gefundener Datensätze

        For i = 0 To rescnt - 1
            TwixGetSearchResult(i + 1)
            'For j = 2 To 49
                TwixGetMainEntry(2, value, 100)
                TextBox1.Text = TextBox1.Text & j & ":" & value & vbCrLf
            'Next j
        Next i

        TwixUnInitializeEngine()

Quelle: http://www.vbarchiv.net/forum/id22_i4078t4063.html

-- BeatDoebeli - 27 Apr 2008