Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: PCFJKG

PCFJKG (Level 1) - Jetzt verbinden

22.03.2010 um 09:10 Uhr, 5130 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
Kreuztabelle Access + VBA Code
Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

Datenbanken
Syntaxfehler VBA Access 2010
gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich habe (schon wieder) einen Fehler im Code und ich komm einfach nicht drauf warum es nicht ...

VB for Applications
VBA Code Änderung Access 2010
gelöst Frage von Dr.CornwallisVB for Applications6 Kommentare

Liebe Gemeinde, ein Kollege hat mir einmal einen VBA Code zur Ermittlung des 1. und 5. Arbeitstags eines Monats ...

VB for Applications

Mit Access VBA Office365 Aufgaben automatisieren

gelöst Frage von greatmgmVB for Applications2 Kommentare

Hallo zusammen, in einem Accessprojekt verschicke ich mails über VBA mit "CDO.Message". Aktuell besteht der Anspruch nicht einfach eine ...

Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 3 TagenWindows 71 Kommentar

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 5 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 6 TagenMicrosoft Office8 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 8 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Windows Installation
Windows10 Home Neuinstallation - Raketentechnik
Frage von spacyfreakWindows Installation15 Kommentare

"Kannst du den Rechner von der Tante von WindowsXP auf Windows10 Home upgraden" haben sie gefragt? "Sicher, was kann ...

Utilities
Teamviewer 9.x "out of date" ??
gelöst Frage von keine-ahnungUtilities13 Kommentare

Moin at all, mein topaktueller teamviewer (alles 9.x - releases) verweigert seit heute die Arbeit und bemeckert: "the remote ...

Windows 10
Windows 10 verwendet FritzBox per IPv6 als DNS-Server an Stelle des per DHCP vergebenen DNS-Servers
Frage von Datax87Windows 1010 Kommentare

Hallo, ich habe ein kleines Problem mit der Namensauflösung (DNS) unter Windows 10. Mir ist heute aufgefallen, dass ich ...

Windows 10
Netzlaufwerk verschwindet (aber nur bestimmter Laufwerksbuchstabe)
gelöst Frage von survial555Windows 1010 Kommentare

Hallo, ich habe ein ganz seltsames Problem. Systemumgebung: Server 2012 R2 als DC und Windows 10 Pro als Clients ...