[Synalist] extract contained file from p7m file

[markbass72]

hi all

I've some problem on extracting content from a p7m file using
ssl_openssl_lib.
Can you help me with following code.
    
    procedure TForm1.Button1Click(Sender: TObject);
    var FBIO: PBIO;
        sfile: AnsiString;
        sl:TStringList;
        i: integer;
        p: SslPtr;
    begin
       sl:=TStringList.Create;
       sl.LoadFromFile(Edit1.Text);
       sfile:=sl.Text;
       sl.Free;
    
       fbio:=BioNew(BioSMem);
       i:=BioRead(FBIO, sfile, Length(sfile));
       p:= d2iPKCS12bio(FBIO,nil);
    
       BioFreeAll(FBIO);
    
    
    end;         
    

thanks
nomorelogic



_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public