TSmartCard für Delphi 2010

[Deep-Sea]

Immer noch der gleiche Fehler, dass er die DLL nicht finden kann? Mh, wie gesagt, das mir der Suche nach der DLL habe ich ebenfalls geändert - sicher nicht ohne Grund, aber welcher das war, weiß ich auch nicht mehr.

[schorsch666]

Nee - klappt immernoch nicht Vielleicht fällt dir (oder jemand anderem) ja doch nochwas ein.

Wäre super..

Tks trotzdem schonmal..

Schorsch

[Deep-Sea]

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ß:

Delphi-Quellcode:

procedure TSmartCard.SetActive(Value: Boolean);
var
  C,L,I: LongInt;
  S: AnsiString;
begin
  if Value = FActive then exit;
  try   SetCursor (LoadCursor (0, IDC_WAIT));

  if Value then begin
    if FLibHandle > 0 then FreeLibrary(FLibHandle);
    FLibHandle:=2;
    FLibHandle:=LoadLibrary(DllFile);
    if FLibHandle < HINSTANCE_ERROR then
      Error('Invalid/missing SmartCard library '+ DllFile +
            ' (Error code '+IntToStr(FLibHandle)+')'+#13#10+
            'Pls. download latest version at: http://www.towitoko.de');
    {$IFDEF SCARDDIR}
    FSCardComand:=SCardComand;
    {$ELSE}
    @FSCardComand:=GetProcAddress(FLibHandle, 'SCardComand');
    {$ENDIF}
    if not Assigned(FSCardComand) then begin
      FreeLibrary(FLibHandle);
      FLibHandle:=0;
      Error('Invalid SmartCard library '+StrPas(PAnsiChar(@DllFile[1]))+
            ' (version mismatch)'+#13#10+
            'Pls. download latest version at: http://www.towitoko.de');
    end;
    FTDevHandle:=0;
    L:=-1; C:=0;
    S:=cmSystem+cmAddHWndMsg+
       IntToStr(FWindowHandle)+','+IntToStr(TDEVMSG)+#0;
    I:=FSCardComand(L,@S[1],C,nil,C,nil,C);
    if (I > 0) or (L <= 0) then begin
      FreeLibrary(FLibHandle);
      FLibHandle:=0;
      Error('Cannot access SmartCard Server: '+IntToHex(I,4));
    end;
    FTDevHandle:=L;
    FActive:=True;
    GetDeviceList;
    InsertMenuItems;
  end else begin
    try Comand(cmSystem+cmDelHWnd+IntToStr(FWindowHandle),nil,0,nil,0); except end;
    try Comand(cmSystem+cmDestroy,nil,0,nil,0); except end;
    FreeLibrary(FLibHandle);
    FLibHandle:=0;
    FActive:=False;
  end;
  finally Screen.Cursor:=crDefault; end;
end;

[schorsch666]

Also der Text sieht absolut abders aus als der Meine. Wo bekommst du denn "DllFile" her? Hast du die global definiert?

Hast du denn die Sourcen noch irgendwo auf der Platte rumkreisen und könntest die mir zukommen lassen?

Jedenfalls mach ich gleich Feierabend - mache mich aber später daheim nochmal dran.

Tks nochmal..

[Deep-Sea]

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

[schorsch666]

Hallo nochmal,
also ich habe netterweise die geänderten Sourcen von "Deep-Sea" erhalten und hänge schon den ganzen Tag erfolglos dran die Kompo zum Laufen zu bringen

Ich bekomme die zwar compiliert und auch installiert (Package .. wurde installiert) aber ich sehe einfach keine Kompo auf der Kompo-Leiste

Vielleicht mache ich ja auch einfach nur etwas falsch?

Ich gehe auf Komponente, Komponente installieren, in ein neues Package, als Unitname wähle ich die scardc32.pas, Weiter, als Name gebe ich TSmartcard ein, Fertig stellen... ratter, ratter.. TSmartcard.bpl wurde installiert - aber ich seh nix. Auch ein Delphi-Neustart bringt nix.

In meinem Delphi 7 ist die auch drin und da wird sie mir auf einem sep. Reiter namens TOWITOKO angezeigt. Gehe ich mit der Maus drüber kommt SmartCard (SCardC32).

Vielleicht mache ich das ja auch nur komplett falsch. Jemand noch ne Idee?

Tks..

Schorsch

[Deep-Sea]

In neueren Version von Delphi kann man Komponenten ja nur noch in Packages hinzufügen. Und da musst du diese natürlich mittels RegisterComponents registrieren
Z.B. mit Hilfe einer extra Unit im Package:

Delphi-Quellcode:

unit Reg;

interface

procedure Register;

implementation

uses SCardC32;

procedure Register;
begin
  RegisterComponents('TOWITOKO', [TSmartCard]);
end;

end.