Probleme bei DLL - Rückgabewert

[sirius]

Zitat:

Zitat von DeddyH

Ich meine, irgendwo gelesen zu haben, dass StrAlloc/StrDispose veraltet sein sollen, kann mich aber auch fürchterlich irren. Funktionieren sollte es jedenfalls ;)

[edit] Mal wieder zu spät :? [/edit]

Jo, ich benutze auch lieber direkt die Strings. Ich dachte nur es ist für jemanden mit "theAuswIDT := '17';" ein Quantensprung zuweit :zwinker: Er darf sich ja gerne mal ansehen, wie, was und woher es kommt.

[BigBen]

Super 1000 Dank, Deddys Version haut so hin. Jetzt müsste nur noch der Kartenleser funktionieren.

Ne Idee, wie ich an die Fehlercodes rankomme?


Gruß
Benny

[DeddyH]

Der Errorcode ist ja laut Doku der Rückgabewert der Funktion.

Zitat:

0 Kein Fehler
1 Checksumme falsch
2 Startzeichen Telegramm unbekannt(bekannt: ACK,SOH und STX, NAK,DC4)
3 NAK empfangen
4 Unbekannter Fehler
5 Keine Antwort auf das Polling
6 Connect- oder Leserinitialisierungsfehler
7 Lesefehler: Der Leser konnte die Karte nicht richtig lesen.
5 Einträge in der Registry

[edit] Also nochmal im Ganzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   theAuswIDT: string;
   theLength: integer;
   theTimeOutMilliSeconds: integer;
begin
   SetLength(theAuswIDT,17);
   theLength := 16;
   theTimeOutMilliSeconds:= 300;
   case _ReadReaderStartStop(PChar(theAuswIDT),theLength,theTimeOutMilliSeconds) of
     0: ShowMessage('Kein Fehler');
     1: ShowMessage('Checksumme falsch');
     2: ShowMessage('Startzeichen Telegramm unbekannt');
     3: ShowMessage('NAK empfangen');
     4: ShowMessage('Unbekannter Fehler');
     5: ShowMessage('Keine Antwort auf das Polling oder Einträge in der Registry');
     6: ShowMessage('Connect- oder Leserinitialisierungsfehler');
     7: ShowMessage('Lesefehler: Der Leser konnte die Karte nicht richtig lesen.');
   end; 
   SetLength(theAuswIDT,StrLen(PChar(theAuswIDT)));
   Edit2.Text := theAuswIDT;
   Edit3.Text := IntToStr(theLength);
   Edit4.Text := IntToStr(theTimeOutMilliSeconds);
end;

Wieso die 5 zweimal vergeben wurde, musst Du den Programmierer der DLL fragen.[/edit]

[BigBen]

??? Laut diesem Abschnitt sollte doch eine Ausweisnummer in der Variablen AuswIDT stehen:

3.5 _ReadReaderStartStop
Deklaration:
function _ReadReaderStartStop(theAuswIDT: PChar;theLength: integer;
theTimeOutMilliSeconds: longint): integer; stdcall;
Übergabeparameter:
theAuswIDT ist ein char Pointer. Die Speichergrösse muss um 1 grösser sein als
theLength. Der Leser gibt immer eine 16 stellige Ausweisnummer zurück.
theAuswIDT sollte mindestens 17 char lang sein, entsprechend theLength auf 16
stehen. Eine Überprüfung, ob der übergebene Speicherbereich gültig ist, findet in
der DLL nicht statt.
theTimeOutMilliSeconds übergibt einen Timoutwert in Millisekunden.
Rückgabewert: Integer, beinhaltet den ERROR Code.

Mit dieser Funktion wird zunächst die Funktion _StartReader aufgerufen.
Anschliessend wartet die Funktion auf einen Lesevorgang. Erfolgt ein
Lesevorgang innerhalb der theTimeOutMilliSeconds Zeit, so wird die
Ausweisnummer in die Variable theAuswIDT geschrieben, _StopReader
aufgerufen und die Funktion beendet. Wird der Timeout überschritten, so wird
kein Fehler (ERROR Code = 0) zurückgegeben, aber theAuswIDT ist ein „NULL
String“.

Hier sollte doch dann wenigstens ein ERRIR Code stehen, bleibt aber leer.

Delphi-Quellcode:

Edit2.Text := theAuswIDT;

Gruß
Benny

[sirius]

Delphi-Quellcode:

var ErrorCode:integer;
...
ErrorCode:=_ReadReaderStartStop(PChar(theAuswIDT),theLength,theTimeOutMilliSeconds);

Wenn kein Ausweis innerhalb von TimeOut durchgezogen wurde ist ErrorCode 0 und theAuswIDT ist leer. Steht doch da!!!