Thread killen

**_frank_**

hi,
bei der Entwicklung meines DFM_Editors musste ich festellen, das die ObjectBinaryToText-Funktion von Delphi 3 bei binären Delphi 7-Formularen (als Resource in exe/dll) manchmal in einer Endlosschleife festhängt:

procedure ConvertProperty
procedure convertValue
while not Reader.EndOfList do
begin
NewLine;
ConvertValue;
end;

Also hab ich mir gedacht, diesen code in einen Thread auszulagern, um ihn bei bedarf beenden zu können.

im TThread.execute mache ich nur das ObjectBinaryToText, und setze ein flag für waitforsingleobject (welche nach dem terminate noch 10 sek wartet bevor der thread hard gekillt wird)

der thread wird erzeugt und das terminate-event zu gewiesen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm_ChooseRes.ThreadTerminate(Sender: TObject);

begin

//Sender.Free;

convThread:=nil;

threadDone:=True;

Btn_StartThread.Enabled:=true;

Btn_StopThread.enabled:=false;

end;

convThread:=TConvertThread.create;

convThread.OnTerminate:=ThreadTerminate;

ThreadKilled:=false;

der thread wird so gestartet (suspended):

convThread.SetStreams(rs,ms); //die zu verarbeitenden Streams übergeben

convThread.setMethod(cmBinToTxt);

ResetEvent(hEvent);//flag für waitforsingleobject

convThread.resume;Thread starten

threadDone:=false;

while not (threadDone or ThreadKilled) do

application.ProcessMessages; //einfrieren der GUI verhindern

if not ThreadKilled then

begin

ms.position:=0;

s.LoadFromStream(Ms);

end;

und so versuche ich ihn zu beenden:

if assigned(convThread) then

begin

id:=convThread.ThreadID;

convThread.terminate;

res:=waitforsingleObject(hEvent,10000);

if res=WAIT_TIMEOUT then

begin

terminateThread(ID,0);

ThreadKilled:=true;

end;

end;

wenn der thread gekillt wird, bekomme ich eine external Exception (Zugriffsverletzung). ich kann mir nur nicht erklären, woran das liegt.

den kompletten source gibts unter:

www.fw-web.de/download/d....9.1_testing_src.zip
der thread ist in der thread_convert.pas definiert

Hoffe, ihr könnt mir helfen.

Gruß Frank

[edit=SirThornberry]Delphi-Tags gesetzt Mfg, SirThornberry[/edit]

Thread killen

Thread killen

Forumregeln