AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Swissbit DLL - Diverse Fragen

Ein Thema von hhcm · begonnen am 16. Dez 2019 · letzter Beitrag vom 13. Jul 2023
Antwort Antwort
Seite 1 von 8  1 23     Letzte »    
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#1

Swissbit DLL - Diverse Fragen

  Alt 16. Dez 2019, 12:39
Hallo zusammen,

da sich ja manche schon als Nutzer der Swissbit TSE "geoutet" haben, werde ich hier vielleicht die ein oder andere Frage los.
Nachdem ich 10x in der Doku überlesen habe, dass der erste Selbsttest mit einem Fehler abschmiert und das völlig in Ordnung ist, ging es auch weiter.
Selbst-Test, Setup, Diverse Info´s auslesen, Zeit updaten, Einloggen - Soweit so gut.

Ich versuche jetzt seit Stunden das Log-Zertifikat auszulesen

Code:
WORMAPI WormError WORMAPI_CALL worm_getLogMessageCertificate    (    
      WormContext *     context,
      unsigned char *     certificate,
      uint32_t *     certificateLength
   )
( wurde bisher in der gefühlt 100 Fassung zu )

function worm_getLogMessageCertificate(context: IntPtr; out certificate: PBytes; out certificateLength: PUInt32): Integer; cdecl; external 'WormAPI.dll';

Egas was ich anstelle, entweder gibt entweder eine AV oder das Result ist WORM_ERROR_INVALID_PARAMETER.
In der Doku steht, das man den Buffer (in dem Fall certificate) selbst initialisieren muss. Selbst da habe ich von GetMem bis SetLength mit den unterschiedlichsten Typen alles durch.

Hat da jedmand mal nen Tip?
Chris
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

AW: Swissbit DLL - Diverse Fragen

  Alt 16. Dez 2019, 12:51
Bei mir ist Certificate als PByte deklariert (ohne out). Ich rufe dann die Funktion einmal mit nil auf, um die Länge zu ermitteln, reserviere mir dann mit GetMem den entsprechenden Speicher und rufe die Funktion erneut mit dem entsprechenden Pointer auf. Zum Schluss das FreeMem nicht vergessen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Swissbit DLL - Diverse Fragen

  Alt 16. Dez 2019, 13:08
Ich glaub das jetzt nicht. Das hab ich 5x ausprobiert. Sowohl mit PBytes als auch PByte.
Das zweimalige aufrufen steht bei mir schon die ganze Zeit im Code. Die Länge habe ich auch immer zurück bekommen. Der zweite Aufruf wurde immer mit einer AV gekrönt.

Warum auch immer, jetzt gehts. Danke !
Chris
  Mit Zitat antworten Zitat
Alt 16. Dez 2019, 19:13     Erstellt von Frühlingsrolle
Dieser Beitrag wurde von Daniel gelöscht. - Grund: Verdacht auf SPAM und den damit verbundenen verschwenderischen Umgang von wertvollen Bits und Bytes
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Swissbit DLL - Diverse Fragen

  Alt 17. Dez 2019, 18:28
Hat schon mal jemand einen "extrahierbaren" Tar Export hinbekommen?

Ich bekomme keine Fehler aber das Tar-Archiv lässt sich mit keinem Programm extrahieren.

Delphi-Quellcode:
  TWormExportTarCallback = function(chunk: PBytes; chunkLength: Cardinal; callbackData: PBytes): Integer; cdecl;

  function worm_export_tar(context: IntPtr; callback: TWormExportTarCallback; callbackData: Pointer): Integer; cdecl; external 'WormAPI.dll';
Chris
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#5

AW: Swissbit DLL - Diverse Fragen

  Alt 18. Dez 2019, 07:36
Bei mir sieht das so aus:
Delphi-Quellcode:
// TChunkLength = UINT32
function Callback(const Chunk: PByte; ChunkLength: TChunkLength;
  CallbackData: Pointer): integer; Cdecl;
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream(CallbackData);
  Stream.Write(Chunk^, ChunkLength);
  Result := 0;
end;
Anschließend erzeuge ich einen MemoryStream und übergebe diesen als CallbackData an worm_export_tar.
Delphi-Quellcode:
Stream := TMemoryStream.Create;
try
  worm_export_tar(Context, Callback, Stream);
finally
  Stream.Free;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Swissbit DLL - Diverse Fragen

  Alt 18. Dez 2019, 08:18
Dann muss es was anderes sein.
Auch in dieser Variante sagt 7-Zip mir, Die Datei kann nicht als Archiv geöffnet werden.

Entpacken über Linux bringt mich aber glaube ich weiter.

Code:
time stamp 2019-12-18 09:07:44 is 3133.460484916 s in the future
Chris
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#7

AW: Swissbit DLL - Diverse Fragen

  Alt 18. Dez 2019, 08:21
Hast Du die aktuelle Version von 7-zip? Ich hatte auch erst eine veraltete, die aktuelle kann aber mit dem Archiv umgehen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Neumann

Registriert seit: 6. Feb 2006
Ort: Moers
536 Beiträge
 
Delphi 12 Athens
 
#8

AW: Swissbit DLL - Diverse Fragen

  Alt 18. Dez 2019, 10:07
Ich habe da auch noch einige Probleme mit meiner Swissbit-TSE.

Es geht einiges: Reset, Init,Setup, Settime, Transactionen, Seriennummer auslesen, PublicKey auslesen.

Was (noch) nicht geht ist:

Zusätzlichen Client anlegen Fehler 3 (IO Error), versuche ich so:

Function worm_tse_registerClient(context:pointer;clientid:p ansichar):integer;cdecl; external 'WormAPI.dll';

Clients auslesen Fehler 1 Wrong Input Parameter

Dann noch Dinge die mich um die Praxistauglichkeit fürchten lassen:

Nach Startendes Rechners aus dem Ruhezustand oft keine Funktion; nicht mal Init geht dann.
Abhilfe ist dann Karte rausnehmen und wieder einstecken.



Beim Einstecken fast regelmäßig Meldung von Windows das Laufwerk muss repariert werden, was ich Windows auch machen lasse da sonst oft kein Funktion
Ralf
Gruß vom Niederrhein
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Swissbit DLL - Diverse Fragen

  Alt 18. Dez 2019, 10:08
Zitat:
Hast Du die aktuelle Version von 7-zip? Ich hatte auch erst eine veraltete, die aktuelle kann aber mit dem Archiv umgehen.
Oh mann. Was soll ich dazu jetzt sagen Danke ! Das war´s
Chris
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Swissbit DLL - Diverse Fragen

  Alt 18. Dez 2019, 10:23
Function worm_tse_registerClient(context:pointer;clientid:p ansichar):integer;cdecl; external 'WormAPI.dll';
Wie rufst du die Funktion auf?

worm_tse_registerClient(context, PAnsiChar('Client4711')); Bei mir geht das ohne Fehler.
Chris
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 8  1 23     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz