Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Encode Integer to Hex or Base64 using N BytesDemonstrates how to write an integer to N bytes (little-endian or big-endian) and return the bytes in any encoding such as hex, base64, etc. Note: This example requires Chilkat v9.5.0.77 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Crypt2; ... procedure TForm1.Button1Click(Sender: TObject); var crypt: HCkCrypt2; value: Integer; bLittleEndian: Boolean; s: PWideChar; begin crypt := CkCrypt2_Create(); // 1193046 decimal is equal to 0x123456 hex. value := 1193046; // Write the integer in 8 bytes using little-endian byte-order and return as hex bLittleEndian := True; s := CkCrypt2__encodeInt(crypt,value,8,bLittleEndian,'hex'); // The output is: 5634120000000000 Memo1.Lines.Add(s); // Now use big-endian... bLittleEndian := False; s := CkCrypt2__encodeInt(crypt,value,8,bLittleEndian,'hex'); // The output is: 0000000000123456 Memo1.Lines.Add(s); // Instead of hex, get the 8 bytes using base64. s := CkCrypt2__encodeInt(crypt,value,8,bLittleEndian,'base64'); // The output is: AAAAAAASNFY= Memo1.Lines.Add(s); CkCrypt2_Dispose(crypt); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.