1 pièce(s) jointe(s)
Rio, Indy FTP et fuite de mémoire
Bonjour,
j'ai beau faire un test que je pense simple
Pièce jointe 566220
il n'y a rien d'extraordinaire dans mon code
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 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
Citation:
An 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
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 os
Et le plus dingue :fou: c'est qu'en FMX , même programme, pas de fuites 8O