Nicht wirklich,
mein Code schaut derzeit wie folgt aus:
Delphi-Quellcode:
type
ASN1_d2i_bio_xnew = function(): Pointer; cdecl;
Pd2i_of_void = function(p1: PPointer; p2: PPByte; p3: Integer): Pointer; cdecl;
TASN1_d2i_bio = function(xnew: ASN1_d2i_bio_xnew; d2i: Pd2i_of_void; _in: PBIO; var x: Pointer): pointer; cdecl;
var _ASN1_d2i_bio: TASN1_d2i_bio = nil;
...
_ASN1_d2i_bio:= GetProcAddr(SSLUtilHandle, 'ASN1_d2i_bio');
_i2d_OCSP_RESPONSE := GetProcAddr(SSLUtilHandle, 'i2d_OCSP_RESPONSE');
...
function ASN1_d2i_bio(xnew: ASN1_d2i_bio_xnew; d2i: Pd2i_of_void; _in: PBIO; x: Pointer): pointer;
begin
if InitSSLInterface and Assigned(_ASN1_d2i_bio) then
Result := _ASN1_d2i_bio(xnew, d2i, _in, x)
else
Result := nil;
end;
function i2d_OCSP_RESPONSE_bio(b: PBIO; x: Pointer): Pointer;
begin
result := ASN1_d2i_bio(OCSP_RESPONSE, _i2d_OCSP_RESPONSE, b, x);
end;
Wobei ich nicht verstehe wo das OCSP_RESPONSE deklariert ist.