Discussion :

[[ZiP]]

Bonjour,

Je suis en train de développer un plugin pour un logiciel sous la forme d'une DLL et je suis bloqué ici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function GetPluginPath:string;
var
     Path : array[0..MAX_PATH] of Char;
begin
     GetModuleFileName(ghWndPlugin, Path, SizeOf(Path));
     Result := ExtractFilePath(Path);
end;
 
procedure Analyze;
begin
     // On vérifie si le fichier de référence existe
     if not FileExists(GetPluginPath + ChangeFileExt(PluginFileName, '.dat')) then
     begin
          MessageBox(ghWndOlly, 'Reference file not found :' + #13 + PWideChar(GetPluginPath), 'Error', MB_OK+MB_ICONERROR);
          Exit;
     end;
end;

J'ai l'erreur suivante :

[DCC Erreur] DelphiAnalyzer.dpr(36): E2010 Types incompatibles : 'PWideChar' et 'string'

A la ligne :

Code :

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

1
2
 
MessageBox(ghWndOlly, 'Reference file not found :' + #13 + PWideChar(GetPluginPath), 'Error', MB_OK+MB_ICONERROR);

A ce niveau :

Code :

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

1
2
 
PWideChar(GetPluginPath)

Je ne trouve pas de solution pour corriger ce problème

Pouvez-vous m'aider ?

Merci,
ZiP

[Cl@udius]

Salut [Zip]

Le problème est au niveau du 2° paramètre (et du 3°) de MessageBox qui attend un PChar (ou PWideChar):

Code :

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

1
2
3
    MessageBox(ghWndOlly,
      PChar('Reference file not found :' + #13 + GetPluginPath),
      'Error', MB_OK+MB_ICONERROR);

@+ Claudius.

[[ZiP]]

Bonjour Cl@udius,

Effectivement, j'effectuais mon cast sur une seule partie du paramètre !

Ça fonctionne !

Merci,
ZiP