Multithreading Delphi XE，具有indy tcpclient的工作线程延迟导致异常
我当时正在用delphi制作一个程序，用它来实现worker thread tecnic 我想要实现的是，当调用延迟过程时，我需要向服务器发送一个TCP信号 当我在XE2和XE7中编译这段代码时，它工作了，但是内存一直在缓慢地逐渐增长。一周后该程序将挂起 但当我尝试在xe8中编译它时，它起了作用，但有时会出现问题 2:21:34:引发EAccessViolation错误，消息为：模块“form1.exe”中地址0063CA40处的访问冲突。读取地址00000000 如果我删除idTCPclient，它将正常工作。从延迟程序中删除 这是我的部分代码Multithreading Delphi XE，具有indy tcpclient的工作线程延迟导致异常,multithreading,delphi,indy,Multithreading,Delphi,Indy,我当时正在用delphi制作一个程序，用它来实现worker thread tecnic 我想要实现的是，当调用延迟过程时，我需要向服务器发送一个TCP信号 当我在XE2和XE7中编译这段代码时，它工作了，但是内存一直在缓慢地逐渐增长。一周后该程序将挂起 但当我尝试在xe8中编译它时，它起了作用，但有时会出现问题 2:21:34:引发EAccessViolation错误，消息为：模块“form1.exe”中地址0063CA40处的访问冲突。读取地址00000000 如果我删除idTCPclien
procedure TWorkerThread.Execute;
begin
//doing alot of stuff here
delay2(Stop2, result, rond, Datetxt);
//doing alot of stuff here also
FreeOnTerminate := true;
end;
procedure TWorkerThread.delay2(i: TDateTime; h: string; r: string; d: string);
var
TimeUp: Boolean;
T, comp: integer;
a: string;
OnTCP: TIdTCPClient;
begin
TimeUp := False;
try
OnTCP := TIdTCPClient.Create(Nil);
try
OnTCP.Host := '127.0.0.1';
OnTCP.Port := 5000;
OnTCP.Connect;
While TimeUp = False do
begin
try
comp := CompareDateTime(now, i);
except
on E: Exception do
logging(E.ClassName + ' error raised, with message : ' + E.Message);
end;
if (comp = 1) then
begin
TimeUp := True;
end
else
begin
TimeUp := False;
try
T := SecondsBetween(now, i);
except
on E: Exception do
logging(E.ClassName + ' error raised, with message : ' +
E.Message);
end;
a := IntToStr(T);
OnTCP.IOHandler.Write('OK' + h+d+r+a + sLineBreak);
TThread.Synchronize(nil,
procedure
begin // 1
Form1.Label8.Caption := IntToStr(T);
end); // 1
sleep(700);
end;
end;
OnTCP.Disconnect;
finally
OnTCP.Free;
end;
except
on E: Exception do
logging(E.ClassName + ' error raised, with message : ' + E.Message);
end;
end;
谢谢你的帮助 试着理解并遵循这里写的内容及其回复：我在代码中没有看到分配任何可能泄漏的内存的内容，除非它是在
logging（）Form1Label8TThread.Synchronize（）logging（）logging（）logging（）logging（）Form1Label8TThread.Synchronize（）logging（）logging（）logging（）