Delphi Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Delphi Examples

Bounced Mail
Bz2
Character Encoding
CSV
DKIM / DomainKey
Digital Certificates
Digital Signatures
DH Key Exchange
DSA
Email
Email Object
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
NTLM
POP3
RSA
S/MIME
SMTP
Socket
Spider
SFTP
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Byte Array
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
Bzip2
LZW

Type Conversion

 

Article: Understanding COM References in Delphi

(Delphi) Create .p7s Signature with HSM / Smartcard

Delphi example showing how to create a .p7s Signature with HSM / Smartcard

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
ccs: TChilkatCreateCS;
certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
cert: CHILKATCRYPT2Lib_TLB.IChilkatCert;

begin
crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage(crypt.LastErrorText);
    Exit;
  end;

//  Find our digital certificate from the Current User certificate store.
//  Note: There are several other ways to load your certificate
//  into a Chilkat cert object.  You may load directly from a .cer file,
//  PEM file, pfx, etc.
ccs := TChilkatCreateCS.Create(Self);

certStore := ccs.OpenCurrentUserStore();

cert := certStore.FindCertBySubjectCN('Chilkat Software, Inc.') As CHILKATCRYPT2Lib_TLB.IChilkatCert;
if (cert = nil ) then
  begin
    ShowMessage(cert.LastErrorText);

    Exit;
  end;

//  Tell the crypt component to use this cert.
crypt.SetSigningCert(cert As CHILKATCRYPT2Lib_TLB.IChilkatCert);

//  We can sign any type of file, creating a .p7s detached signature as output:
success := crypt.CreateP7S('test.xml','test.p7s');
if (success = 0) then
  begin
    ShowMessage(crypt.LastErrorText);

    Exit;
  end;
ShowMessage(crypt.LastErrorText);
//  Verify the signature...
crypt.SetVerifyCert(cert As CHILKATCRYPT2Lib_TLB.IChilkatCert);

success := crypt.VerifyP7S('test.xml','test.p7s');
if (success = 0) then
  begin
    ShowMessage(crypt.LastErrorText);

    Exit;
  end;

ShowMessage('Success!');
end;

 

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.

Mail Component · .NET Email Component · XML Parser