Printable View
سلام به همه اساتید ، آقا این کد یه برنامه Client هستش . ببینیدMemory leak داره یا نه ؟ ( فرض کنید Server فعال یا موجود نیست و Exception رخ میده )
Begin
idTcpClient1 := TIdTcpClient.Create(nil);
try
idTcpClient1.Host := '127.0.0.1';
idTcpClient1.Port := 1234;
try
idTcpClient1.Connect;
except on E:Exception do
begin
Writeln(E.Message);
Exit;
end;
end;
try
// send , receive data
finally
idTcpClient1.Disconnect;
end;
finally
idTcpClient1.Free;
end;
end.
چرا اینقدر try-finally پیچش کردی؟!
begin
idTcpClient1 := TIdTcpClient.Create(nil);
try
try
idTcpClient1.Host := '127.0.0.1';
idTcpClient1.Port := 1234;
idTcpClient1.Connect;
//Send/Recieve data
except on E:Exception do
Writeln(E.Message);
end;
finally
idTcpClient1.Disconnect;
idTcpClient1.Free;
end;
end;
ممنون ، من کد ( چست و چابک ) شما ( و کد پیچیده خودم ) ! رو Trace که میکنم ، بعد از رخداد خطا خارج میشه و دستور Free اجرا نمیشه. مشکلی نداره؟
دستور Free همیشه اجرا میشه.
دستور Free وقتی اجرا می شود که خط
idTcpClient1.Disconnect;
دارای Exception نباشد. یعنی خطا ندهد.
درسته دستور Free اجرا میشه. ( با یه دستور Writeln بعد از دستور Free فهمیدم ) ولی چرا موقع Trace به محض رخداد خطا خارج میشه و اینطور به نظر میاد دستورات بخش Finally اجرا نشدند؟ باید Debugger را تنظیم کرد؟
بعد از مشاهده خطا، پیغام را ببندید و دوباره F7 یا F8 را بزنید.نقل قول:
چرا موقع Trace به محض رخداد خطا خارج میشه و اینطور به نظر میاد دستورات بخش Finally اجرا نشدند؟
همین کارو می کنم.
یه BreakPoint روی خط idTcpClient1.Free بزارید.