 |
 |
 |
 |
 |
|
Sprachen und Entwicklungsumgebungen
Sonstige Fragen zu Delphi
Delphi Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
Antwort
|
Registriert seit: 6. Feb 2012 Ort: Deutschland 272 Beiträge Delphi XE7 Professional |
#1
Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 11:28
Guten Morgen DP'ler,
ich arbeite derzeit mit dem Interface von dem CryptoSys PKI (  http://www.cryptosys.net/delphi.html)Hier mal ein Auszug aus dem Interface
Delphi-Quellcode:
szDataOut ist der Parameter den ich als Rückgabewert erwarte / mit dem ich arbeiten muss da dieser den entschlüsselten String enthält.
.
. function CMS_ReadSigDataToString(szDataOut : PAnsiChar; nDataOutLen : Integer; szFileIn : AnsiString; nOptions : Integer) : Integer; stdcall; external 'diCrPKI.dll'; . . Die Deklaration als normaler String fiel schonmal weg, dann hab ich es als strData: Array [0..40] of Ansichar; deklariert und bekomme auch die richtigen Rückgabewerte das Problem hierbei ist allerdings, dass damit die Länge des Rückgabewertes bereits vordefiniert ist und ich logischerweise ne dicke Exception bekomme, sobald der Output größer als 40 Chars ist. Was kann ich machen um die Länge des Arrays passend zu dem Output zu definieren, dass nichts fehlt/abgeschnitten ist? Beim Versuch ein dynamisches Array zu nutzen bekam ich:
Code:
Aufruf:
[dcc32 Fehler] uMain.pas(435): E2010 Inkompatible Typen: 'PAnsiChar' und 'Dynamic array'
nRet := CMS_ReadSigDataToString(strData, nDataLen, strSigFile, 0); Codeauszug:
Delphi-Quellcode:
var
strData: Array [0..40] of Ansichar; nDataLen: Integer; begin // Read in the recipient's private key strPrivateKey := rsaReadPrivateKey(strPriKeyFile, strPassword); if Length(strPrivateKey) = 0 then begin WriteDebugMessage('Schlüssel konnte nicht eingelesen werden.'); end else begin WriteDebugMessage('Schlüssel erfolgreich gelesen' + #13#10 + 'Schlüssellänge in Bits: ' + IntToStr(RSA_KeyBits(strPrivateKey))); end; // Intermediate file we will create strSigFile := strInputFile + '.i2.tmp'; // Read the encrypted data from the enveloped-data file nRet := CMS_ReadEnvData(strSigFile, strInputFile, '', strPrivateKey, 0); // WriteDebugMessage('CMS_ReadEnvData returns ' + IntToStr(nRet) + ' (expected 0)'); if nRet <> 0 then begin WriteDebugMessage('**ERROR** while reading the encrypted data from the enveloped-data file'); end else begin WriteDebugMessage('Extracted signed-data file ' + strSigFile); end; //How long is the content to be read? nDataLen := CMS_ReadSigDataToString('', 0, strSigFile, 0); if nDataLen <= 0 then begin WriteDebugMessage('Cannot read signed-data file'); end else begin nRet := CMS_ReadSigDataToString(strData, nDataLen, strSigFile, 0); WriteDebugMessage('CMS_ReadSigDataToString returns ' + IntToStr(nRet)); WriteDebugMessage('Data is [' + strData + ']'); Result := strData; end; 00111100001100110010000001000100011001010110110001 1100000110100001101001
|
Zitat
|
|
(Gast)
n/a Beiträge |
#2
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 12:01
geht das denn nicht mitvar strData : PAnsiChar;
|
|
Zitat
|
Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise |
#3
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 12:19
geht das denn nicht mitvar strData : PAnsiChar;
Sobald man die benötigte Länge kennt, bereitet man den Bereich entsprechend vor und übergibt den Pointer auf den Bereich. In diesen Bereich wird dann hinein geschrieben.
Kaum macht man's richtig - schon funktioniert's
 Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60) |
|
Zitat
|
|
Registriert seit: 10. Apr 2006 Ort: Leverkusen 972 Beiträge Delphi 6 Professional |
#4
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 12:32
Frage vorweg:
Hast Du Dir die Beschreibung der API mal angeschaut? http://www.cryptosys.net/pki/manpki/...aToString.html
Zitat:
Remarks
This function extracts the signed data from the signed-data CMS object without making any attempt to verify it. Call the function with an empty or NULL szOutput string or zero nOutChars parameter to find out the required length of the output string. Aus dem Bauch heraus:
Code:
function ReadSigData(AFileName : AnsiString):AnsiString;
var tmpBuffer : PChar; tmpBuferSize : integer; tmpRead : integer; tmpResult : integer; begin // Benötigten Buffer ermitteln tmpBuferSize := CMS_ReadSigDataToString(nil, 0,AFileName,0); if tmpBuferSize > 0 then begin // Buffer anlegen tmpBuffer := AllocMem(tmpBuferSize+1); try // Sicherheitshalber löschen FillChar(tmpBuffer,tmpBuferSize+1,0); // Funktionsaufruf tmpRead := CMS_ReadSigDataToString(tmpBuffer, tmpBuferSize,AFileName,0); // Wenn (wirklich) Daten vorhanden if (tmpRead > 0) then begin // .. zurückgeben. result := tmpBuffer; end; finally // Buffer wiedere freigeben FreeMem(tmpBuffer); end; end; end; |
|
Zitat
|
|
Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise |
#5
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 13:23
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60) |
|
Zitat
|
|
Registriert seit: 6. Feb 2012 Ort: Deutschland 272 Beiträge Delphi XE7 Professional |
#6
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 15:22
Das mit dem AnsiString
Parameter wundert mich doch schon sehr ... sicher, dass das kein PAnsiChar
ist?
Hat jetzt mit
Delphi-Quellcode:
geklappt
GetMem(strData, nDataLen + 1);
FreeMem(strData, nDataLen + 1); 
00111100001100110010000001000100011001010110110001 1100000110100001101001
|
|
Zitat
|
|
Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise |
#7
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 15:38
Ich hab dann auch nochmal geschaut und was sehen wir?
Delphi-Quellcode:
Also doch ein Pointer. Dass es mit AnsiString
funktioniert ist eher Zufall.
function CMS_ReadSigDataToString(
szDataOut:Pchar; nDataOutLen:longint; szFileIn:Pchar; nOptions:longint):longint;cdecl; external External_library name 'CMS_ReadSigDataToString'; Ach ja, das mit dem PChar haben die auch nicht verstanden.
Zitat:
Strings and byte arrays that receive output need to be pre-dimensioned to the correct length before calling a DLL function. Then pass a Pointer as the parameter.
Delphi-Quellcode:
These output parameters are expected as PChar PAnsiChar and PByte respectively. [PChar also seemed to work OK for us in early tests and the compiler didn't complain either].
buf : AnsiString;
//... buf := AnsiString(StringOfChar(#0,nchars)); ret := FOO_StringFunction(Pointer(buf), nchars, ...); arrbytes : Array of Byte; //... SetLength(arrbytes, nbytes); ret := FOO_ByteFunction(Pointer(arrbytes), nbytes, ...);
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60) Geändert von Sir Rufo ( 7. Sep 2015 um 15:40 Uhr) |
|
Zitat
|
|
Registriert seit: 6. Feb 2012 Ort: Deutschland 272 Beiträge Delphi XE7 Professional |
#8
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 15:54
00111100001100110010000001000100011001010110110001 1100000110100001101001
|
|
Zitat
|
|
Registriert seit: 5. Jan 2005 Ort: Stadthagen 9.454 Beiträge Delphi 10 Seattle Enterprise |
#9
AW: Problem mit PAnsiChar und Rückgabewert einer Funktion CryptoSys PKI
7. Sep 2015, 15:59
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60) |
|
Zitat
|
ForumregelnEs 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
|
|
Linear-Darstellung
