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:
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]