Mahlzeit,
nachdem das Auslesen der Seriennummer funktioniert ( in
IDE und Standalone) bastle ich nun wieder an der
Transaktionssignatur.
Delphi-Quellcode:
// Vereinbarung:
procedure worm_transaction_response_signature
(const TRES:IntPtr;
SIGNA: Pointer ;
var siglen: UInt64 );
cdecl; external 'WormAPI.dll';
Type PPByte = ^PByte;
Var aktsig:PPByte;
siglen:UInt64;
getmem(aktsig, 512);
worm_info_read(WINF);
worm_transaction_response_signature
(Respob,
aktsig,
SIGLEN);
{
hier ist SIGLEN, d.h. die Länge der Antwort wieder
idiotisch hoch, nache 2^64
}
SetLength(bites, siglen); // (1)
for i:= 0 to SIGLEN-1 do
bites[i]:= aktsig^[i]; // (2)
Wie gestern bei der Seriennummer: Standalone gehts, in der
IDE knallts.
Starte ich in der
IDE mit Shift+Ctrl+F9 gehts auch.
Klar, daß es bei (1) schon rumst, zu (2) kommt er dann gar nicht mehr.
Es ist zum Auswachsen...
ism