هندل کردن خطا در کار کردن با Indy

[TrueFalse]

سلام به همه اساتید ، آقا این کد یه برنامه 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.

[vcldeveloper]

چرا اینقدر 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;

[TrueFalse]

ممنون ، من کد ( چست و چابک ) شما ( و کد پیچیده خودم ) ! رو Trace که میکنم ، بعد از رخداد خطا خارج میشه و دستور Free اجرا نمیشه. مشکلی نداره؟

[vcldeveloper]

دستور Free همیشه اجرا میشه.

[B_YAGHOBI]

دستور Free وقتی اجرا می شود که خط
idTcpClient1.Disconnect;
دارای Exception نباشد. یعنی خطا ندهد.

[TrueFalse]

درسته دستور Free اجرا میشه. ( با یه دستور Writeln بعد از دستور Free فهمیدم ) ولی چرا موقع Trace به محض رخداد خطا خارج میشه و اینطور به نظر میاد دستورات بخش Finally اجرا نشدند؟ باید Debugger را تنظیم کرد؟

[vcldeveloper]

چرا موقع Trace به محض رخداد خطا خارج میشه و اینطور به نظر میاد دستورات بخش Finally اجرا نشدند؟
بعد از مشاهده خطا، پیغام را ببندید و دوباره F7 یا F8 را بزنید.

[TrueFalse]

همین کارو می کنم.

[vcldeveloper]

یه BreakPoint روی خط idTcpClient1.Free بزارید.