Moin Moin und Frohes Neues
hab mein altes Leiden Chipkartenleser wiederentdeckt ... ich hab mit Unterstützung von Eknori folgendenden funktionierenden Code zusammengebastelt. ...
"Deklarationen"
Declare Function xCT_init Lib "ChyCTApiSP.dll" Alias "CT_init" (Byval ctn As Integer, Byval ct_port As Integer) As Integer
Declare Function xCT_close Lib "ChyCTApiSP.dll" Alias "CT_close" (Byval ctn As Integer) As Integer
Declare Function CT_data Lib "ct32.dll" (Byval ctn As Integer, dad As Integer, sad As Integer, Byval lc As Integer, cmd As String, lr As Integer, rsp As String) As Integer
"Querysave"
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ct_port As Integer
Dim ctn As Integer
Dim erg As Integer
Dim doc As notesdocument
Set doc = Source.Document
test = doc.Unbenannt(0) 'Textfeld
Msgbox test
ctn = 1 ' logische Terminalnummer
ct_port = 1 ' hier COM1
erg = xCT_init(ctn, ct_port) ' hier geht die Lampe an
If erg = 0 Then
Msgbox "CT_init => OK"
Else
Msgbox "CT_init => Error"
End If
!!! Hier fehlt CT_data !!!
ctn = 1
erg = xCT_close(ctn) ' hier geht die Lampe aus
End Sub
Ich hab nun das Problem, das ich die Methode CT_data nicht zum laufen bekomme.
Hab`s mit der Print-Methode probiert, das will aber leider nich so wie ich, und ich glaube ich bin auch vom Gedankengang auf dem Holzweg.
Bin für jeden noch so kleinen Denkanstoss unendlich dankbar
