CT - Api / Chipkarten

[Colonel Chris]

Einmal die CT_data:

Delphi-Quellcode:

function CT_data( ctn:       Word;
                  dad, sad: PByte;
                  lenc:      Word;
                  command:  PByte;
                  lenr:     PWord;
                  response: PByte ): ShortInt;
begin
  Result := ERR_TRANS;
  if @Function_CTdata <> nil
  // now calling function from driver DLL
  then try
    Result := Function_CTdata(ctn,dad,sad,lenc,command,lenr,response);
  except
    Result := ERR_INCOMPATIBLE;
  end;
end;

Und der DLL-Aufruf zu Beginn der Hauptprozedur:

Delphi-Quellcode:

function CTAPI_Load(path: PChar): Integer;
begin
  Result := ERR_UNKNOWN;
  DLLHandle := LoadLibrary(path);
  if DLLHandle <> 0 then begin
    @Function_CTinit := GetProcAddress(DLLHandle, 'CT_init');
    @Function_CTdata := GetProcAddress(DLLHandle, 'CT_data');
    @Function_CTclose:= GetProcAddress(DLLHandle, 'CT_close');
    if (@Function_CTinit = nil) or (@Function_CTdata = nil)
                                or (@Function_CTclose = nil)
    then Result := ERR_INCOMPATIBLE;
  end
  else Result := ERR_LIBRARY;
end;

[Colonel Chris]

Hi. Vielleicht wär's auch ganz sinnvoll, wenn du nicht sofort mit dem Select File um dich schlagen würdest. Ohne einen Reset der Karte wird der eh nur Fehlercodes ausgeben.

Also: Mühsam ernährt sich das Eichhörnchen. Fang doch lieber erst mal damit an, das CT zu resetten und den Status abzufragen. Die Definitionen zu den Befehlen findest du im Netz, u.a. bei Sourceforge!

[skullcrusher]

Halli Hallo !

Mit einigen Änderungen die ich aus Deinem Code ersehen konnte
habe ich das erste Mal bei CT_data und einem Reset des Gerätes
ein result von 0 !!!

COOL!Vielen Dank !

Ich werde mich jetzt erst mal aufs Ohr hauen, bin nämlich ziemlich
erkältet.

Morgen werde ich mal weiter machen.


Hast Du meine PP bekommen ?
Ich war mir da nämlich nicht so sicher ob das alles funktioniert hat.

Egal,

danke,

Stephan

[skullcrusher]

Äh,

ich meine natürlich PN !!
Ah, ab ins Bett..... ;-)

[Colonel Chris]

Ist angekommen. Morgen oder übermorgen bekommst du den Code. Hab momentan etwas viel zu tun.