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 : Sélectionner tout - Visualiser dans une fenêtre à part
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