пытаюсь подписать сообщение на lazarus с помощью cades plugin:


function SignData(bl_Detached: boolean; S_in: ANSIString; var S_out: AnsiString; g_Cert:OleVariant; g_Cert_Pass:string) :boolean;
const
CADESCOM_CADES_TYPE = 1; // Тип усовершенствованной подписи
CADESCOM_BASE64_TO_BINARY = 1;
var
v_Signer, v_SignedData : Variant;

begin
Result := False;
try
v_Signer := CreateOLEObject('CadesCOM.CPSigner');
v_Signer.Certificate := g_Cert;

if g_Cert_Pass<>'' then
v_Signer.KeyPin := g_Cert_Pass;

v_Signer.Options := 1;// CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN := 1;

V_SignedData := CreateOLEObject('CAdESCOM.CadesSignedData');

v_SignedData.ContentEncoding := CADESCOM_BASE64_TO_BINARY;

s_in := EncodeStringBase64(s_in);
v_SignedData.Content := s_in;
s_out := v_SignedData.SignCades(v_Signer, CADESCOM_CADES_TYPE, bl_Detached,0);

Result := True;
finally
if not VarIsNull(v_Signer) then v_Signer := Unassigned;
if not VarIsNull(v_SignedData) then v_SignedData := Unassigned;
end;
end;

на этапе v_SignedData.Content := s_in; получаю ошибку "Параметр задан не верно".

на входе:
s_in := 'LTHNSNHGVUSLTDARDNXDKZATUJHTBK';

в base64:
TFRITlNOSEdWVVNMVERBUkROWERLWkFUVUpIVEJL

что я делаю не так? уже голову сломал...
в delphi вся конструкция работает нормально.

да, спасибо, все получилось, проблемы была не совсем в этом, я 2 раза преобразовывал в base64 )))

уже в работе gateway для честного знака (подписывает/преобразует запросы и т.д.), клиенты на win2k3/winxp/linux сервер на win10

Подскажите, а параметр g_Cert:OleVariant как заполнить? Т.е. как получить сертификат? И g_Cert_Pass:string - это пароль на подпись?

смотрите в документацию, описание интерфейсов, методов\свойств.
В данном случае - GetSignerCertificate в примере: Создание подписанного сообщения