Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Access 2003, Speicherbereich mit VBA auslesen

Frage Microsoft Microsoft Office

Mitglied: PCFJKG

PCFJKG (Level 1) - Jetzt verbinden

22.03.2010 um 09:10 Uhr, 4996 Aufrufe, 2 Kommentare

Kartenlesegerät von Cherry, eine DLL schreibt in den RAM, wie finde ich die Adresse bzw. den von der DLL beschriebenen Speicherbereich zum auslesen ?

Ein VBA-Modul ruft die Funktion CT_Data auf: rc = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
Ich verstehe das so, dass nach erfolgreichem Aufruf von CT_Data, welches die DLL ctpcsc32kv.dll nutzt, die von CT_Data gelesenen Daten (hier von einer Chipkarte) in den RAM geschrieben werden. Wenn dem so ist, wie kann ich feststellen, wohin die Daten geschrieben wurden um diese zu lesen ? Oder verstehe ich die Arbeitsweise völlig falsch ?

Dank an jeden der helfen kann, wie auch immer.

Herzliche Grüße

PCFJKG


Deklariert wurden

a) in einem Public-Modul:

Public Declare Function CT_DATA Lib "ctpcsc32kv.dll" Alias "CT_data" _
(ByVal ctn As Integer, ByRef dad As Integer, _
ByRef sad As Integer, ByVal lenc As Integer, _
ByRef command As Byte, ByRef lenr As Integer, _
ByRef response As Byte) As Byte

b) in dem aufrufenden Modul:

Dim rc As Byte

Dim ctn As Integer
Dim dad As Integer
Dim sad As Integer
Dim lenc As Integer
Dim command(5) As Byte
Dim lenr As Integer
Dim response(100) As Byte


ctn = STD_CTN ' Use standard CTN

dad = &H1 ' Destination Adresse 01 = CT, 0 = ICC
sad = &H2 ' Source Address 02 = HOST, 05 = REMOTE_HOST
lenr = 100 ' Size of Receive Buffer

command(0) = &H20 ' CLA
command(1) = &H11 ' INS B0 = Read Binary
command(2) = &H1 ' P1 Select by FID
command(3) = &H1 ' P2 has to be 00
command(4) = &H0 ' Length of Data to be read (100 Bytes)
' Put 00 here if you want to read all data availiable

lenc = 5 ' Length of command

jetzt wie oben bereits gezeigt:

rc = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
Mitglied: SlainteMhath
22.03.2010 um 10:49 Uhr
Moin,

du musst kein RAM direkt auslesen - Dein Ergebins steht m.E. nach Aufruf von

01.
rc = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
in der Variable response. (zumindest legt das der Name nahe )

Response wird mit ByRef übergeben. D.h. Funktion kann die Variable ändern (im Gegensatz zu ByVal wo nur der Wert übergeben wird).

lg
Slainte
Bitte warten ..
Mitglied: PCFJKG
22.03.2010 um 14:06 Uhr
Hallo Slainte,
das ging ja schnell, dafür erst einmal danke. Ich hatte zunächst auch so gedacht und einfach einmal mit (zugegeben etwas einfach)

MsgBox response(0) & " " & response(1) & " " & response(2) & " " & response(3) & " " & response(4) & " " & response(5) & " " _
& response(6) & " " & response(7) & " " & response(8) & " " & response(9) & " " & response(17) & " " _
& response(21) & response(22) & response(23)
nachgesehen, was da so "drinsteht".

Ergebnisse:
- lenr (zurückgegeben) ist nur 8 Byte groß, somit erhalten wir als response nicht die Daten der Chipkarte.
- Die meisten Werte von response(x) sind = 0

Ggf. muss die Initialisierung über die command(x) Werte anders ausehen (oder ich mache noch etwas anderes falsch , vielleicht mit der vorherigen Initialisierung ?

Public Declare Function CT_INIT Lib "ctpcsc32kv.dll" Alias "CT_init" _
(ByVal ctn As Integer, ByVal pn As Integer) As Byte

Private Sub Initialisieren()

Dim rc As Integer
Dim ctn As Integer
Dim pn As Integer

ctn = STD_CTN
pn = STD_PN
rc = CT_INIT(ctn, pn)

End Sub

Auf jeden Fall nochmals danke, vielleicht fällt Dir ja noch ein anderer Hinweis ein ?
Viele Grüße

PCFJKG
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst VBA zum auslesen von einem Zellbereich Excel (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Datein auslesen (8)

Frage von schwalbepilot zum Thema Microsoft Office ...

Datenbanken
Access 2010 - Filter für Datum funkioniert nicht VBA (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

VB for Applications
gelöst Xml-Datei laden bzw. auf Festplatte kopieren und per VBA in eine Access-Tabelle speichern (22)

Frage von machohunk zum Thema VB for Applications ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
CMS
Lokales Wordpress im LAN - wie aufsetzen? (16)

Frage von Static zum Thema CMS ...

LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (14)

Frage von guntis zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
Devolo DLAN 500 pro Wireless+ (13)

Frage von IceAge zum Thema LAN, WAN, Wireless ...