Domino 9 und frühere Versionen > Entwicklung

Nommal Chipkartenleser

(1/1)

Charly77:
Moin Moin und Frohes Neues  ;D

hab mein altes Leiden Chipkartenleser wiederentdeckt ... ich hab mit Unterstützung von Eknori folgendenden funktionierenden Code zusammengebastelt. ...


--- Code: ---"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

--- Ende Code ---

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

sloe:
Hi,

habe von dem Thema Null-Ahnung, aber vielleicht als Hint...
google ist Dein Freund:
http://www.heise.de/ix/artikel/2000/12/152/

Listing2 verwendet dabei CT_data.

Wenn Du noch weiter graben mußt, findest Du vielleicht hier einen Gesprächspartner:
http://www.coding-board.de/board/showthread.php?mode=hybrid&t=3572

HTH

Navigation

[0] Themen-Index