Danke Jungs...
Ihr dürft hauen...
Zitat:
Sind die Events verdrahtet? Bedenkst du, daß die im Thread-Kontext aufgerufen werden? Machen die was mit dem Self-Parameter?
Ja sind sie. Im Handler wird nur die "Message" zusammengesetzt und dann wird
Synchronize(SyncOnLog). Self hat in diesem Falle nur statistische Wirkung. Paßt schon.
Delphi-Quellcode:
procedure TWorkerPollingServer.DoOnMail(Sender: TObject; Recipient, Subject: string);
begin
FMsgLog:= CreateLogMessage(msNormal);
try
FMsgLog.DeviceID:= 0; //Server
FMsgLog.MessageState:= msNormal;
FMsgLog.LogTime:= Now;
FMsgLog.LogText:= conTextMailInformation + 'versendet (' + conTextServer + ')';
Synchronize(SyncOnLog);
finally
FMsgLog.Free;
end;
end;
Zitat:
!man zerstört besser IMMER in umgedrehter Reihenfolg zur Erstellung!
...tja, das sind die Quellen der TidMessage der
Indy´s. Da bin ich unschuldig.
Schuldig im Sinne der Anklage! Den Mailer (TdMail) im
constructor des Threads erstellt und nicht im Kontext vom
Execute.
Das kann nicht funktionieren. Ich reiche Urlaub ein. Wer lädt mich ein?....
Komisch das man erst immer darüber schreiben muß bis einem so etwas auffällt.
