[Delphi 2006] Pb de cast sur une procédure

Version imprimable

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:

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' 8O

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:

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...:roll:

MODIF:
Je viens aussi d'essayer ça:

Code:

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' :evilred:
Je patine toujours...

30/04/2007, 16h43
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

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

Code:

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...

30/04/2007, 17h34
gb_68
Bonjour,
regarde le type de FZip.OnConfirmOverwrite ; je pense qu'il a du passer de
Code:

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:

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:

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

Essaye de remplacer string par WideString dans tes méthodes.
30/04/2007, 17h55
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
02/05/2007, 08h09
NewSoftVision

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