Discussion :

[sondo]

Bonjour,

Je veux copier un fichier vers un lecteur réseau. J'ai trouver cette fonction 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Function ConnecteLecteurReseauTest(Lecteur,Chemin,MotPasse:String):Boolean;
Var LocalNameAZT   :Array[0..79]Of Char;
    RemoteNameAZT  :Array[0..80]Of Char;
    Longueur       :Cardinal;
    Retour         :Integer;
Begin
  // Recherche du chemin existant si existant
  Longueur:=80;
  Retour:=WNetGetConnection(StrPCopy(LocalNameAZT,Lecteur),RemoteNameAZT,Longueur);
  If Retour=NO_ERROR
  Then Begin // Lecteur déjà défini
    If UpperCase(StrPas(RemoteNameAZT))=UpperCase(Chemin)
    Then Begin  // Lecteur déjà existant
      Result:=True;
    End
    Else Begin  // Lecteur exitant mais chemin incorrect
      Retour:=WNetCancelConnection2(StrPCopy(LocalNameAZT,Lecteur),CONNECT_UPDATE_PROFILE,False);
      If Retour=NO_ERROR
      Then Begin // Deconnection du précédent lecteur OK => Connection du nouveau
        Result:=ConnecteLecteurReseau(Lecteur,Chemin,MotPasse);
      End
      Else Begin
        AffErreurLecteur(Retour);
        Result:=False;
      End;
    End;
  End
  Else Begin
    If Retour=ERROR_Not_CONNECTED
    Then Begin // Lecteur non connecté => Connection du nouveau
      Result:=ConnecteLecteurReseau(Lecteur,Chemin,MotPasse);
    End
    Else Begin
      AffErreurLecteur(Retour);
      Result:=False;
    End;
  End;
End;

Pour copier j'ai cette fonction dans la faq

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 CopyFile(Source, Destination: String ) : boolean;
var
  fos : TSHFileOpStruct;
begin
  FillChar(fos, SizeOf(fos),0);
  with fos do
  begin
    wFunc := FO_COPY;
    pFrom := PChar(Source+#0); 
    pTo   := PChar(Destination+#0); 
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  result := (0 = ShFileOperation(fos));
end;

Dans un bouton j'ai :

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
    if CopyFile('c:\dossier1\test.exe', 'ici')then
     ShowMessage('Copie effectuée avec succès') else
     ShowMessage('Copie non effectuée');
end;

la fonction ConnecteLecteurReseauTest renvoie boolean. Qu'est ce que je dois mettre dans if CopyFile('c:\dossier1\test.exe', 'ici') ?.
Merci d'vance.

[anapurna]

salut

tu as defini un lecteur tu met donc le nouveau lecteur

@+ Phil

[sondo]

Salut,

Si je fais ceci

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
    if CopyFile('c:\dossier1\test.exe', 'ConnecteLecteurReseauTest')then
     ShowMessage('Copie effectuée avec succès') else
     ShowMessage('Copie non effectuée');
end;

le fichier n'est pas copié.

[Andnotor]

Gères GetLastError pour avoir plus d'info sur l'erreur:

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
    if CopyFile('c:\dossier1\test.exe', ConnecteLecteurReseauTest(...))then
     ShowMessage('Copie effectuée avec succès') else
     ShowMessage(SysErrorMessage(GetLastError));
end;

Tu défini aussi un mot de passe mais pas d'utilisateur

[sondo]

J'ai utiliser GetLast error. Mais il n'ya pas d'erreur. Ca renvoie toujours 'Copie effectuée avec succès', Alors que rien n'est copié.
Je ne renseigne pas de mot de passe car je connecte à une ressource partagé sur le réseau. Je renseigne le lecteur par exemple J:, et chémin \\admin\fact.

[Andnotor]

Désolé, j'ai pas assez bien regardé ton code. C'est le résultat de ShFileOperation qu'il faut contrôler.

Tu peux aussi passer plus simplement par CopyFile défini dans Windows.pas.

Un chemin UNC doit être supporté. Inutile de passer par un mapping.
Ensuite, le fichier de destination doit être défini. Pas uniquement le chemin.

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
    //Windows.pas
    if CopyFile('c:\dossier1\test.exe', '\\admin\Fact\test.exe', TRUE) then
     ...
end;

[anapurna]

salut

Gères GetLastError pour avoir plus d'info sur l'erreur:

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
    if CopyFile('c:\dossier1\test.exe', ConnecteLecteurReseauTest(...))then
     ShowMessage('Copie effectuée avec succès') else
     ShowMessage(SysErrorMessage(GetLastError));
end;

Tu défini aussi un mot de passe mais pas d'utilisateur

Argh il a pas tout compris effectivement

j'aurai pluto fait

Code :

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

1
2
3
4
5
6
7
if ConnecteLecteurReseauTest('Z',...) Then
 begin
     if CopyFile('c:\dossier1\test.exe','Z:\')then
     ShowMessage('Copie effectuée avec succès') else
     ShowMessage(SysErrorMessage(GetLastError));

  end;

@+ Phil

[sondo]

si je fais

Code :

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

if CopyFile('c:\dossier1\test.exe', '\\admin\Fact\test.exe', TRUE) then

il y'a [Erreur] copie.pas(239): Trop de paramètres originaux.
Si j'enlève le true et j'exécute, il n'ya pas de copie.
Que veut-tu dire en parlant de windows.pas?

[Andnotor]

Bien sûr, tu as 2x le même nom de procédure et le compilateur utilise le dernier trouvé (Copie placé après Windows dans la clause Uses).

Commentes Copie.pas dans le Uses ou pour essai, écris comme ceci:

Code :

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

1
2
if Windows.CopyFile('c:\dossier1\test.exe', '\\admin\Fact\test.exe', TRUE) then
...

Et pour anuapurna qui a tout compris..., que te retourne GetLastError en cas d'échec à la copie ?

[sondo]

Voilà ce que j'ai fais:

Code :

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

1
2
3
4
5
6
7
8
9
 
begin
   if Windows.copyFile('c:\dossier1\test.exe', '\\admin03\fact\test.exe', true) then
       ShowMessage('Copie effectuée avec succès') else
       begin
         ShowMessage(SysErrorMessage(GetLastError));
         ShowMessage('Copie non effectuée');
       end;
     end;

GestLastError donne : Accès réfusé.

[Andnotor]

Donc tu n'as pas les droits en écriture sur ce répertoire .

[sondo]

J'ai changé de poste et ca marche, il doit avoir un problème avec le windows 2003 server.
Merci à vous tous de m'avoir aider.