Hi,
ich glaube, deine Schutzverletzung beim Beenden kommt daher:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Assigned(OSMParser) then
OSMParser.Destroy;
end;
Ich dächte, dass ist sicherer sollte der Thread noch immer da sein:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Assigned(OSMParser) then begin
OSMParser.Terminate;
OSMParser.WaitFor;
FreeAndNil(OSMParser);
end;
end;
Mehr hab ich nich nicht durchgesehen. Compiling ging auch noch nicht. Bei mir werden die Units ZConnection, ZDataSet angemeckert.
Gruß oki