Hi,
der Source sieht soweit eigentlich schon ganz gut aus,
wie gesagt ich kenne die Kompo "TIdIRC" noch nicht aus persönlicher Erfahrung,
deshalb kann ich keine fehlerhafte Implementierung der Indys ausschliessen,
das würde mich aber sehr wundern. Welche Version der Indys verwendest Du ?
denn aktuellen Branch aus dem
SVN oder die mit Delphi ausgelieferte Version ?
Bekommst Du den das Event OnPrivateMessage, wenn Du die Komponente ohne Thread verwendest ?
Für Deinen Source habe ich eigentlich nur Änderungsvorschlag :
Delphi-Quellcode:
procedure TIRC.Execute;
var
ASender : TIDContext;
ANick,AHost,ANickTo,AMessage :
String;
begin
// ich würde den Thread suspended erzeugen, komplett connecten und erst danach den Thread starten/resumen
// dann kann hier auch auf connected geprüft werden
while (
not Self.Terminated)
and (
IRC.Connected)
do
begin
// if (FConnected) and (IRC.Connected) then
Sleep(25);
end;
IRC.Disconnect('
Ich hau ab!');
end;
Der Horizont vieler Menschen ist ein Kreis mit Radius Null, und das nennen sie ihren Standpunkt.