Bonjour,
j'ai beau faire un test que je pense simple
il n'y a rien d'extraordinaire dans mon code
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 uses idftplist; procedure TForm113.btnConnectClick(Sender: TObject); begin memo1.Clear; idFtp1.Connect; end; procedure TForm113.BtnDeconnexionClick(Sender: TObject); begin if Idftp1.Connected then idFtp1.Disconnect; end; procedure TForm113.BtnDirClick(Sender: TObject); var i : integer; begin if not idFtp1.Connected then idFTP1.Connect; idFtp1.List('fichiers'); for i:=0 to Pred(IdFtp1.DirectoryListing.Count) do begin if idFtp1.DirectoryListing[i].ItemType=ditfile then Memo1.Lines.Add(idFtp1.DirectoryListing[i].FileName); end; end; procedure TForm113.IdConnectionIntercept1Connect( ASender: TIdConnectionIntercept); begin Memo1.Lines.Add('Connexion'); end; procedure TForm113.IdConnectionIntercept1Disconnect( ASender: TIdConnectionIntercept); begin Memo1.Lines.Add('Déconnexion'); end;
je me retrouve avec une erreur en sortie et plein de petites fuites
Un patch que j'aurais loupé ? C'est la première fois que j'utilise IDFTP version 10.6.2.5366 avec Rio, pour une fois que je fais du VCL pour faire des tests je tombe sur cet osAn unexpected memory leak has occurred. The unexpected small block leaks are:
1 - 12 bytes: TIdWin32ea x 3, TIdStackWindows x 1
13 - 20 bytes: TIdFTPKeepAlive x 1, TIdThreadSafeBoolean x 1, TIdFTPClientIdentifier x 1, UnicodeString x 4, Unknown x 7
21 - 28 bytes: TIdFtpProxySettings x 1, TIdFTPTZInfo x 1, TId8BitEncoding x 1, UnicodeString x 16, Unknown x 1
29 - 36 bytes: TIdFTPListItems x 1, TIdCriticalSection x 1, TIdReplyFTP x 3, EAccessViolation x 1, UnicodeString x 7
37 - 44 bytes: TList<System.Classes.TCollectionItem> x 1, TIdBuffer x 1, TList<System.Classes.TComponent> x 1, TIdUTF8Encoding x 1, UnicodeString x 4, Unknown x 6
53 - 60 bytes: UnicodeString x 1
61 - 68 bytes: UnicodeString x 1
69 - 76 bytes: TStringList x 8, UnicodeString x 2
77 - 84 bytes: TIdFTPListResult x 1
85 - 92 bytes: Unknown x 1
109 - 116 bytes: TIdConnectionIntercept x 1, UnicodeString x 1
117 - 124 bytes: TIdMLSTFTPListItem x 3, UnicodeString x 2
205 - 220 bytes: UnicodeString x 1
237 - 252 bytes: UnicodeString x 3
269 - 284 bytes: Unknown x 1
349 - 380 bytes: TIdSSLIOHandlerSocketOpenSSL x 1
573 - 620 bytes: TIdFTP x 1
957 - 1052 bytes: TForm113 x 1
Et le plus dingue c'est qu'en FMX , même programme, pas de fuites
Partager