À l'aide de minilzo en delphi

A l'aide de minilzo en delphi

A l'aide de minilzo en delphi : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment utiliser le miniLZO bibliotheque ecrite en C ANSI dans votre delphi application sans une dll
Introduction
LZO est une compression sans perte algorithme de compression qui offre EXTREMEMENT rapide de la vitesse de decompression tout en vous donnant un decent taux de compression. J'ai lu que LZO est deux fois plus rapide que ZLib lors de la decompression, alors que seulement environ 5% de moins de compression.
miniLZO
Est une bibliotheque de l'auteur de LZO qui comprend LZO1X_1 de compression et de LZO1x de decompression. J'ai compile pour une .fichier obj, qui peuvent etre relies a une unite delphi en utilisant le {$LINK}/{$L} directive de compilation. Ci-dessous vous trouverez le programme complet de l'unite. miniLZO est distribue sous la Licence Publique GNU, c'est donc naturellement que ce code est sous licence GNU trop. Remarque pour obtenir des instructions detaillees sur la façon d'UTILISER ces fonctions, veuillez visiter le site officiel LZO page d'accueil http://www.oberhumer.com/opensource/lzo/.
// & & & & & & & & & & & & - COMMENCER a l'UNITE & & & & & & & & & & & & -//
unite Lzo
interface
// 'C' routines necessaires par la lie LZO fichier OBJ
fonction _memcmp (s1,s2: Pointeur numBytes: LongWord): integer cdecl
procedure _memcpy (s1, s2: Pointeur de n: Entier) cdecl
procedure _memmove(dstP, srcP: pointeur numBytes: LongWord) cdecl
procedure _memset (s: Pointeur c: Octet n: Entier) cdecl
{$LIEN 'minilzo.obj'}
fonction lzo1x_1_compress(const Source: Pointeur SourceLength: LongWord Dest: Pointeur de var DestLength: LongWord WorkMem: Pointeur): integer stdcall externe
fonction lzo1x_decompress(const Source: Pointeur SourceLength: LongWord Dest: Pointeur de var DestLength: LongWord WorkMem: Pointeur (* NON UTILISE! *)): Integer stdcall externe
fonction lzo1x_decompress_safe(const Source: Pointeur SourceLength: LongWord Dest: Pointeur de var DestLength: LongWord WorkMem: Pointeur (* NON UTILISE! *)): Integer stdcall externe

fonction lzo_adler32(Adler: LongWord const Buf: Pointeur Len: LongWord): LongWord stdcall externe
fonction lzo_version: mot stdcall externe
fonction lzo_version_string: PChar stdcall externe
fonction lzo_version_date: PChar stdcall externe
application
procedure _memset(s: Pointeur c: Octet n: Entier) cdecl
demarrer
& nbsp & nbsp FillChar(s^, n, c)
fin
procedure _memcpy(s1, s2: Pointeur de n: Entier) cdecl
demarrer
& nbsp & nbsp Deplacer(s2^, s1^, n)
fin
fonction _memcmp (s1, s2: Pointeur numBytes: LongWord): entier cdecl
var
& nbsp & nbsp i: integer
& nbsp & nbsp p1, p2: ^octet
demarrer
& nbsp & nbsp p1 := s1
& nbsp & nbsp p2 := s2
& nbsp & nbsp pour j'ai := 0 de numBytes -1 ne
& nbsp & nbsp demarrer
& ! & ! & ! & nbsp si p1^ <> p2^
& ! & ! & ! & nbsp demarrer
& ! & ! & nbsp & nbsp & nbsp & nbsp si p1^ < p2^
& ! & ! & ! & ! & ! & ! & ! & nbsp Result := -1
& ! & ! & ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := 1
& ! & ! & ! & ! & ! & nbsp sortie
& ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp inc(p1)
& ! & ! & ! & nbsp inc(p2)
& nbsp & nbsp fin
& nbsp & nbsp Resultat := 0
fin
procedure _memmove(dstP, srcP: pointeur numBytes: LongWord) cdecl
demarrer
& nbsp & nbsp Deplacer(srcP^, dstP^, numBytes)
& nbsp & nbsp FreeMem(srcP, numBytes)
fin
a la fin.
// & & & & & & & & & & & & - FIN de l'UNITE & & & & & & & & & & & & -//

Le C miniLZO source, minilzo.obj et de cet appareil peut etre downloade a partir d'ici.
C'est elle! Je m'excuse aupres de mes parfois mal l'anglais et le style d'ecriture.