Forum: Programmieren allgemein
by Deep-Sea,
12. Mai 2011
Du brauchst halt die MCSCM.DLL von SCM :wink:
Wahrscheinlich als Wrapper zwischen der alten SCard.dll von TOWITOKO und dem angeschlossenen Kartenlesen von SCM?! Ka, ich habe dieses ganze Chipkarten-Gedöns hier auf Arbeit noch nie leiden können :stupid:
Forum: Programmieren allgemein
by Deep-Sea,
9. Mai 2011
Absolut anders? Mh, also ein wenig habe ich schon verändert, aber nicht so gravierend. Scheint, als hätten wir verschiedene Versionen.
Ich habe doch gesagt, dass DllFile die Konstante ist, die bei dir DllFile32 oder so ähnlich heißen müsste.
Kann ich machen, musste mir nur mal deine E-Mail-Adresse per PN schicken :wink:
Forum: Programmieren allgemein
by Deep-Sea,
9. Mai 2011
Ja was hast du denn geändert?
Bei mir sieht SetActive so aus, wobei die Konstante DllFile vor meiner Änderung DllFile32 oder so ähnlich hieß:
procedure TSmartCard.SetActive(Value: Boolean);
var
C,L,I: LongInt;
S: AnsiString;
begin
if Value = FActive then exit;
try SetCursor (LoadCursor (0, IDC_WAIT));
Forum: Programmieren allgemein
by Deep-Sea,
3. Mai 2011
Mh, ich hatte auch mal ein Problem mit nicht angeschlossenem Kartenleser ... ich glaube das war, weil ich auf DeviceList zugegriffen habe, obwohl Active auf false stand - glaube ich :gruebel:
Vlt. greifst du auch auf etwas zu, was nicht existiert?!
Forum: Programmieren allgemein
by Deep-Sea,
3. Mai 2011
Und sonst funktioniert alles?!
Ich hab nämlich für D2009 u.a. noch folgende Funktionen angepasst:
function TSmartCard.ComandStr(const Cmd,DataIn: AnsiString): AnsiString;
begin
if DataIn = '' then
begin
SetLength(Result, 255);
SetLength(Result, Comand(Cmd,nil,0,@Result, Length(Result)));
end else begin