Indy10 problèmes de upload de fichiers en FTP

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 :cry: :
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 !
http://bernard.bourguignon.free.fr/ErreurFTP.jpg
Voici le code de la procédure d'envoie:

Code:

---

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

à 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 ?

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.

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

Le passage de la transmission en mode binaire :

Code:

---

IdFTP1.TransferType := ftBinary;

---

ne se fait pas !

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

Code:

---

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:

---

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:

---

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

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