🚀 go-pugleaf

W dniu 2011-12-29 14:46, AbiX pisze:
> Witam.
> Mam taki kawałek kodu który tekst z memo powinien podpisać wybranym
> certyfikatem. Jednak przy wywołaniu Sing wypada błąd "Podana para kluczy
> nie istnieje". Grzebię po MSDN'ie już drugi dzień i nie mogę namierzyć
> jak podpisać dane certyfikatem kwalifikowanym.
>
> var
> store: TStore;
> signer: TSigner;
> sData: TSignedData;
> certificates: ICertificates2;
> certificate: ICertificate2;
> I: integer;
> begin
> store := TStore.Create(nil);
> store.Open(CAPICOM_CURRENT_USER_STORE, 'My',
> CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or
> CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY);
>
> certificates := (store.Certificates as ICertificates2).Select('Podpis
> danych', 'wybierz certyfikat', false);
> if certificates.Count=0 then
> begin
> Application.MessageBox('Nie znaleziono odpowiedniego certyfikatu.', '',
> MB_OK + MB_ICONWARNING);
> Exit;
> end;
> certificate:=IInterface(certificates.Item[1]) as ICertificate2;
> signer:=TSigner.Create(self);
> signer.Certificate:=Certificate;
>
> mmo1.Lines.Add('');
> mmo1.Lines.Add(certificate.SubjectName);
>
> sData:=TSignedData.Create(self);
> sData.Connect;
> sData.Content:=mmo1.Text;
> mmo1.Text:=sData.Sign(signer.DefaultInterface, true,
> CAPICOM_ENCODE_BASE64);
> sData.Disconnect;
> sData.Free;
> signer.Free;
> store.close();
> store.Free;
> end;
>
Temat nieaktualny. Napisałem w C# (dosłownie kilka linijek - masakra). A 
z komunikatem "Podana para kluczy nie istnieje" okazało się że 
certyfikat się źle zainstalował. Po ponownej, ręcznej instalacji 
certyfikatu, pyta się już o PIN.
-- 
Pozdrawiam
AbiX