Discussion :

[cmali67]

Bonjour.
Je dispose de Delphi10 Pro sous Windows 7 et donc de Indy10.
Ma connection à Internet se fait par une LiveBox que j'ai configurée pour permettre l'accès entrant à mon poste en local.
Je souhaite échanger un fichier avec des postes connectés sur internet.
Dans la faq Delphi, "reisubar" donne une réponse complète à cette question en utilisant TidStreamVCL. Malheureusement, je ne dispose pas de cet objet dans ma version Pro de Delphi !!!!
Mes recherches n'ayant pas abouti, ma question est donc :
où peut-on trouver la dll contenant TidStreamVCL ?
Merci d'avance.

[Linkin]

Apparemment la classe est devenue: TIdStream

Edit: j'ai dit une bêtise, ça m'apprendra à rechercher trop vite.

[ShaiLeTroll]

Delphi 10 = Delphi 2007 ?
J'ai à la fois Indy 9 et Indy 10 dans mon dossier
CodeGear\BDS\5.0\Source\Indy\Indy9\IdStream.pas - non trouvé
CodeGear\BDS\5.0\Source\Indy\Indy10\System\IdStreamVCL.pas - J'ai au mieux une TIdStreamHelperVCL

Mes recherches n'ayant pas abouti, ma question est donc

Pense à Rechercher du forum, on y trouve rapidement Undeclared identifer TIdStreamVCL dont les liens indique la suppression de cette classe TIdStreamVCL dont l'utilité semble discutable, son but était de simplifier le code entre Indy VCL et Indy.NET

Il va falloir retirer cette classe intermédiare et manipulé directement le TMemoryStream !

où peut-on trouver la dll contenant TidStreamVCL ?

Pourquoi parles-tu de DLL ?
C'est soit dans un fichier .PAS comme IdStream.pas contenant TIdStream ou IdStreamVCL.pas contenant TIdStreamHelperVCL
C'est soit dans un BPL si tu utilises la compilation avec paquet d'éxécution mais cela ne change pas le uses !

[cmali67]

J'aurais dû, c'est sûr, rechercher dans le forum, sauf que je n'avais pas vu la case "Recherche" !! Manque de pratique sans doute.
J'ai utilisé TMemoryStream, avec SaveToFile et LoadFromFile.
Si je lance l'envoi du fichier à partir du Client.exe en double clickant sur son icône vers le Serveur en mode déboguage, le transfert est parfait !!!!
Mais si je lance l'envoi du fichier à partir du Client.exe vers le Serveur.exe en double-clickant sur leurs icônes respectives, le flux n'est pas récupéré par le serveur et le transfert ne se fait pas.
Compte tenu de ma faible culture en informatique, il m'est impossible de comprendre ce phénoméne. J'ai toujours été convaincu que le fichier .exe en mode compilation par "F9" devait avoir le même comportement que le fichier .exe lancé en double-clickant sur son icône.
Je reste donc bloqué et plus que perplexe, avec un futur bien sombre pour la suite de mon projet.
Où peut bien se nicher l'erreur ?
Merci d'avance pour vos éclairages.

[ShaiLeTroll]

tu indiques un nom complet de fichier : c:\dossier\sous-dossier\fichier.ext ?
Entre F9 et double-clic, le dossier courant peut être différent, ainsi que les variables d'environnement

[cmali67]

Il ne peut s'agir d'un problème de nom de fichier puisque ça fonctionne en faisant F9.
Pour l'environnement, pourquoi pas. Mais dans ce cas, comment fait-on pour s'en affranchir?
Ne pourrait-il pas s'agir d'un problème dr Thread? J'ai en effet le serveur et le client sur mon PC et j'essaie de transférer un fichier d'un dossier (client) vers un autre dossier (serveur), sur le Host 127.0.0.1.
Par ailleurs, j'envoie le fichier dans un MemoryStream et je le récupère dans un FileStream car je n'ai pas trouvé, dans l'aide, la méthode MemoryStream.SaveToFile.
Mais, comme je l'ai dit, ça fonctionne parfaitement par F9 pour le Serveur et double clic sur le Client.exe.
Merci d'avance.

[cmali67]

J'ai placé un mémo sur la fiche Serveur pour y afficher les résultats de chaque ligne de code.
Je constate
-que le nom de fichier est bien transféré,
-que le nom de fichier destination (NomFichier) est correct avec son chemin complet
-mais que le flux n'est pas créé par fStream:= TFileStream.Create(NomFichier,fmCreate).
Si je fais F9 sur Dephi, ce flux est créé sans problème.
Voilà une information complémentaire qui peut peut-être aider pour trouver une solution.

[ShaiLeTroll]

Peut-être l'UAC avec son VirtualStore, les fichiers ini par exemple ne sont pas forcément là ou l'on pense !
TFileStream renvoie une exception, tente un GetLastError (si c'est pas trop tard)
tente un CreateFile (API Windows)