Discussion :

[NewSoftVision]

Bonjour,
Voilà j'essai de compiler un projet qui utilise (entre autre) ZipForge de
ComponentOne, ça fais longtemps que je n'est pas touché à Delphi et là sous le 2006 j'ai une erreur un peu bizarre dans cette procédure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TZipper.CheckEvents();
begin
  FZip.AfterOpen:= OnAfterOpen;
  FZip.OnConfirmOverwrite := OnConfirmOverwriteR;
  FZip.OnConfirmProcessFile:= OnConfirmProcessFile;
  FZip.OnCopyTempFileProgress:= OnCopyTempFileProgress;
  FZip.OnFileProgress:= OnFileProgress;
  FZip.OnOverallProgress:= OnOverallProgress;
  FZip.OnPassword := OnPassword;
  FZip.OnProcessFileFailure := OnProcessFileFailure;
  FZip.OnRequestBlankVolume := OnRequestBlankVolume;
end;

Pour chaque ligne entre begin et end j'ai l'erreur:
[Pascal Error] engine_Zipper.pas(501): E2010 Incompatible types: 'WideString' and 'string'

Surement que la version de zipforge utilisée n'était pas la même, en attendant il n'y a plus que cette version de dispo
J'ai essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 FZip.OnConfirmOverwrite := WideString(OnConfirmOverwriteR);

mais alors là ça devient un string et plus une procédure, et donc il me dis qu'il manque des paramètres...
sinon les procédures FZip.OnConfirmOverwrite et OnConfirmOverwriteR ont les mêmes paramètres.

S'il vous plaît si quelqu'un à une idée pour l'instant je patine...

MODIF:
Je viens aussi d'essayer ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 FZip.OnConfirmOverwrite := StringToWideString('OnConfirmOverwriteR',850);

(fonction stringToWideString provenant de http://www.swissdelphicenter.ch/en/showcode.php?id=1692)
Et nouveau message d'erreur pour cette ligne:
[Pascal Error] engine_Zipper.pas(535): E2010 Incompatible types: 'TZFConfirmOverwriteEvent' and 'WideString'
Je patine toujours...

[octal]

Moi ce que je voudrai voir c'est surtout comment tu définit dans ton code tes procedures
OnConfirmOverwriteR
OnConfirmProcessFile;
OnCopyTempFileProgress;
OnFileProgress;
Onxxxxxxx...


Cordialement

[NewSoftVision]

Voilà les déclarations d'une des procédure qui pose problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
private:
procedure OnConfirmOverwrite(Sender: TObject; SourceFileName: string; var DestFileName: string; var Confirm: Boolean);
 
 
procedure TZipper.OnConfirmOverwrite(Sender: TObject; SourceFileName: string;
  var DestFileName: string; var Confirm: Boolean);
begin
  /// This will never get fired because Overwrite <> omPrompt
  /// but I am just translating from the VCLZip component
  Log(WideFormat(Translator.GetMessage('332'),
      [SourceFileName, FFileName], FS), false, true);
end;

les autres sont déclarées de la même manière...

[gb_68]

Bonjour,
regarde le type de FZip.OnConfirmOverwrite ; je pense qu'il a du passer de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
procedure(Sender: TObject; SourceFileName : String ; var DestFileName: String ; var Confirm: Boolean) of object;
// http://www.componentace.com/help/zf_guide/onconfirmoverwrite.htm

à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure(Sender: TObject; SourceFileName : WideString; var DestFileName: WideString; var Confirm: Boolean) of object;

car dans le hpp ZipForge.hpp (que je viens de télécharger), il y a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

typedef void __fastcall (__closure *TZFConfirmOverwriteEvent)(System::TObject* Sender, WideString SourceFileName, WideString &DestFileName, bool &Confirm);

Essaye de remplacer string par WideString dans tes méthodes.

[octal]

entièrement d'accord ... je pesne qu'ils sont passé en WideString pour les chaines. rempalces les tiennes en WideString et refait un essai.
Cordialement

[NewSoftVision]

Bonjour,
Et désolé du retard, je viens d'essayer, et c'est ça. Merci à vous deux.