Discussion :

[Bernard B]

Bonjour,
Je suis sous Delphi 2010 et la distribution Indy incluse dans D2010 je pense que c'est Indy 10.
Je fais un client FTP pour transferrer des images jpg afin les faire tirer chez Photoways pour ne pas les citer.
La connexion se fait bien, le changement ou la création de répertoire tout fonctionne.
La transmission des images vers le serveur se déroule sans erreurs.
Par contre les images transmises sont dégradées : voir le résultat :
couleurs modifiées, bords désalignées, transmission des données incomplète bien que tout le fichier soit transmis. Ces défauts sont systématiques et répétitifs !

Voici le code de la procédure d'envoie:

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
procedure TFen_Photoways.Bt_TransferClick(Sender: TObject);
var i : integer;
begin
   try
     Bt_Transfer.Caption:='Interrompre le transfer';
     Bt_Transfer.OnClick:=Bt_TransferAbortClick;
     AbandonnerTransfer:=False;
     IdFTP1.ChangeDir('/'+AlbumDestination.Caption+'/');
     while (Photos.count>0) and (not AbandonnerTransfer) do
     begin
          Application.ProcessMessages;
         try
            IdFTP1.TransferType := ftBinary;
            FileName:=ExtractFileName(Photos.Items.Strings[0]);
            IdFTP1.Put(Photos.Items.Strings[0],FileName);
            Photos.Items.Delete(0);
         except
         end;
 
     end;
     IdFTP1.ChangeDir('/');  //Retour à la racine)
   finally
          Bt_Transfer.OnClick:=Bt_TransferClick;
          Bt_Transfer.Caption:='Transferrer les photos';
   end;
end;

Le client est en mode passif.

Que puis-je corriger ou changer ?

Merci
Bernard

[Paul TOTH]

à quel moment constates-tu la dégradation ?

si tu envoie et récupère l'image sur le site FTP est-elle altérée ou est-ce que sur leur site un traitement postérieur au téléchargement FTP altère l'image ?

[Bernard B]

Je constate la dégradation sur leur site en regardant les vignettes de présentation qu'ils en font (c'est la copie d'écran jointe à mon premier post) ou en essayant d'utiliser les images pour faire un album par exemple.
Je ne crois pas que je puisse redescendre les images chez moi.
Les mêmes images transferrées avec le client FTP de TotalCommander ne sont pas dégradées.

[Bernard B]

J'ai trouvé pourquoi le upload ne se passe pas bien :

Le passage de la transmission en mode binaire :

Code :

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

     IdFTP1.TransferType := ftBinary;

ne se fait pas !

L'affectation de la propriété TransferType se fait dans cette procéfure :

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
 
procedure TIdFTP.SetTransferType(AValue: TIdFTPTransferType);
begin
  if AValue <> FTransferType then
  begin
    FTransferType := AValue;
    if not Assigned(FDataChannel) then
    begin
      if Connected then
      begin
        SendTransferType;
      end;
    end;
  end;
end;

Procedure qui était comme cela à l'origine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TIdFTP.SetTransferType(AValue: TIdFTPTransferType);
begin
  if AValue <> FTransferType then
  begin
    if not Assigned(FDataChannel) then
    begin
      if Connected then
      begin
        SendTransferType;
      end;
    FTransferType := AValue;
    end;
  end;
end;

il me semble que la ligne

Code :

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

    FTransferType := AValue;

n'est pas au bon endroit elle me parait devoir aller en ligne 6 de la procédure.

Mais malgré tout, cette affectation de valeur ne se fait pas et seul le mode mis dans l'inspecteur d'objet est actif ?? j'ai fais du pas à pas pour le pister.
On passe dans la procédure mais l'affectation ne se fait pas ?????

En mettant la bonne valeur dans l'inspecteur d'objet tout baigne même si je transfer la liste des répertoires en mode binaire !!

Si quelqu'un comprend je suis interressé.

Bernard

[Paul TOTH]

je ne connais pas bien ce composant mais il me semble qu'il regarde s'il y a une connexion et si un transfert de données est en cours...dans ce dernier cas il ne tient pas compte du changement de mode....ça se discute...