Discussion :

[michel71]

Bonjour,

J'ai un type incompatible "image_test" dans "CopyFile" que je n'arrive pas à résoudre. Pouvez vous m'aider

Merci
(enregcollec.photo provient d'un type "record" et est sting[200] )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
image_photo:string;
image_test:PAnsichar;
begin
 
image_photo:=enregcollec.photo;
image_test:=PAnsiChar(image_photo);
if FileExists(ExtractFilePath(Application.ExeName)+ 'photo-timbre/'+dossier+'/'+enregcollec.photo) then
  begin
     CopyFile(ExtractFilePath(Application.ExeName)+ 'photo-timbre/'+dossier+'/'+image_test,ExtractFilePath(Application.ExeName)+ 'image/'+enregcollec.photo));
  end

[SergioMaster]

il suffit de transtyper les deux 'variables'

Code :

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

1
2
 
CopyFile(PChar(ExtractFilePath(Application.ExeName)+ 'photo-timbre/'+dossier+'/'+image_test),PChar(ExtractFilePath(Application.ExeName)+ 'image/'+enregcollec.photo)));

* PChar ou PAnsiChar d'ailleurs , cela dépendra de la version Delphi

[michel71]

pas assez de paramètres originaux

Code :

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

CopyFile(PAnsichar(ExtractFilePath(Application.ExeName)+ 'photo-timbre/'+dossier+'/'+enregcollec.photo),PAnsichar(ExtractFilePath(Application.ExeName)+ 'image/'+enregcollec.photo)));

[SergioMaster]

effectivement mais la touche :F1: l'aurait indiqué
j'ai répondu à l'erreur de transtypage en recopiant le code pas a un problème de syntaxe

BOOL CopyFile(
LPCTSTR lpExistingFileName,
LPCTSTR lpNewFileName,
BOOL bFailIfExists
);

donc en rajoutant un boolean , cela devrait être réglé , mais la touche F1 indique aussi à quoi correspond ce boolean , chose qu'il faut peut être savoir non

[michel71]

C'est vrai, dans mon dernier message j'ai omis de préciser que j'avais fait l'essai comme ceci
désolé

Code :

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

1
2
 
CopyFile(Pchar(ExtractFilePath(Application.ExeName)+ 'photo-timbre/'+dossier+'/'+enregcollec.photo),Pchar(ExtractFilePath(Application.ExeName)+ 'image/'+enregcollec.photo)),true);

Mais je viens de m'apercevoir que j'avais une apostrophe en trop et apparemment c'est ça qui provoquait l'erreur

Question subsidiaire comment avoir une numérotation automatique des lignes de code

Merci pour votre patiente