TZIP et Delphi 2009

Bonjour,

Je viens de migrer vers Delphi 2009 hors certaines de mes applications utilisent le composant TZIP version 1.4

Après avoir corrigé 2 problèmes de conversion lors de la recomilation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function TZip.OemStrToAnsiStr(const s: string): string; begin result := s; if (s = '') or not fRequiresOemAnsiConversion then exit; OemToChar(pansichar(s),pwidechar(result)); end; //---------------------------------------------------------------------   function TZip.AnsiStrToOemStr(const s: string): string; begin result := s; if (s = '') or not fRequiresOemAnsiConversion then exit; CharToOem(pwidechar(s),pansichar(result)); end;

---

Il s'avère que la décompression de fonctionne pas. Je pense que l'utilisation de pwidechar et pansichar ne sont pas bonnes.

Quelqu'un a t il trouvé une solution ou un nouveau composant.

Cordialement,

Laurent