[javipes]

snif!


me he olfidado una funcion importante que es la que carga infocertificado, pues no lo hace directamente, ya que los valores hexadecimales me aparecen cruzados. Para cargar infocertificado cuando el usuario elige un certificado del combo utilizo esto:

Código Delphi [-]
procedure cmbCertificadosChange(Sender: TObject);
var certif:string; x:ansistring;
  function ReverseWord(s:ansistring):ansistring;
  var t:ansistring; l1,l2:ansichar; i:integer;
  begin
  t:='';
  for i:=length(s)div 2 downto 1 do
    begin
    l2:=s[2*i]; l1:=s[2*i-1];
    t:=t+l1+l2;
    end;
  result:=t;
  end;
begin
  certif:=cmbCertificados.Items[cmbCertificados.itemIndex];
  x:=DMEnvioLAF.SerialNum_Certificado(certif);
 infoCertificados:=ReverseWord(x);
end;

lamento la omisión