BorlandTalk.com

child · Guest

Now, simple put a TIdTCPServer to a form,

assign the OnExecute event a line code:

"
beep;
"

then True Active property.

Run this app,

the OnExecute not fire.

when close app, app will error.

child · Guest

Remy Lebeau (TeamB) · Guest

"child" <jn_child (AT) tom (DOT) com> wrote

child · Guest

child · Guest

Simple:

Put a TCPServer on form,

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.IdTCPServer1.Active := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Self.IdTCPServer1.Active := False;
end;

Press Button1, then
Press Button2, will cause error.

child · Guest

Solution:

// Add
LYarn.Thread.Resume;
LYarn.Thread.Free;
// remove FreeAndNil(LYarn);

When LYarn.Thread.Free, it should will free the yarn.

procedure TIdSchedulerOfThread.TerminateYarn(AYarn: TIdYarn);
var
LYarn: TIdYarnOfThread;
begin
LYarn := TIdYarnOfThread(AYarn);
if LYarn.Thread.Suspended then begin
// If suspended, was created but never started
// ie waiting on connection accept
LYarn.Thread.Resume;
LYarn.Thread.Free;
// FreeAndNil(LYarn);
end else begin
// Is already running and will free itself
LYarn.Thread.Stop;
// Dont free the yarn. The thread frees it (IdThread.pas)
end;
end;