Ich wollte durch die dvwin32.exe eine adresskarte anzeigen lassen. Nur wenn ich ihm die recno per /POS
Übergebe sagt mir David das es die Position in David archive nicht gibt.
P.s. Die objektnamen sind schon gewohnheit weil ich zu lange mit assembler gearbeitet habe. Aber ich komm
Gut klar damit.
Doch das ._ID Funktioniert kommt der selber wert heraus wie bei c.AddressItem.Fields.Item("RecNo").Value
Es ist erst ein Zeilentrenner wenn ein leezeichen vor dem unterstrich ist.
//Edit hat sich erledigt.
Hallo,
ich lese gerade alle Adressen eines David Server aus. Un möchte danach eine Adresskarte öffnen lassen mit folgendem befehl:
\\server\david\Clients\Windows\DVWIN32\DVWIN32.EXE /POS=???? /SA=34
ich komme nur nicht an die richtige /POS
Das _ID und UID funktioniert nicht, wie komme ich denn an die "RecNO" ?
habs rot markiert
mein Code in vb.net
Dim book As New List(Of adress_book.st_adresses)
Dim oApp As DvApi32.DavidAPI
Dim oAcc As DvApi32.Account = Nothing
Dim oArchive As DvApi32.Archive
' Dim oAddress As DvApi32.Address
Dim oAddressbook As DvApi32.AddressBook
Dim nc As New adress_book.st_adresses
TryoApp = CType(CreateObject("DVOBJAPILib.DvISEAPI"), DvApi32.DavidAPI)
oApp.LoginOptions = DvApi32.DvLoginOptions.DvLoginForceAsyncDuplicateoAcc = oApp.Logon("", "", "", "", "", "AUTH")
If pfad = "" Then Exit Sub
oArchive = oAcc.GetArchive(pfad)
oAddressbook = oArchive.AddressBook
If oAddressbook.Count = 0 Or Nothing Then
Exit Sub
End IfDim ac As Integer = 1000For Each c As DvApi32.Address In oAddressbook
ac += 1
nc.fax = c.AddressItem.FaxNumber
nc.firma = c.AddressItem.Company
nc.firstname = c.AddressItem.FirstName
nc.name = c.DisplayName
nc.ort = c.AddressItem.City
nc.plz = c.AddressItem.ZipCode
nc.tel_gesch = c.AddressItem.PhoneOffice
nc.tel_handy = c.AddressItem.PhoneMobile
nc.tel_home = c.AddressItem.PhonePrivate
nc.street = c.AddressItem.Street
nc.mail = c.AddressItem.EMail
nc.owner = "david"
nc.adress_time = Now.ToString
nc.david_id = c.AddressItem._ID.ToString
nc.david_id2 = c.UID.ToString
'c.Account.
Try
If IsNothing(c.AddressItem.Picture) = False Thennc.bild = Image.FromFile(CStr(c.AddressItem.Picture))
End If
Catch ex As Exception
nc.bild = Nothing
End Try
nc.id = ac
book.Add(nc)
Next
adress.adress_adddavidbook(book, pfad)
oAcc.Logoff()Me.Close()
Catch ex As Exceptionexep.send_error("error in d_import", "", ex.Message)
If Not oAcc Is Nothing Then
oAcc.Logoff()
End If
Exit SubEnd Try