Vielen Dank für eure Hinweise und Hilfestellungen,
ein paar Fragen tun sich mir aber noch auf
:
Delphi-Quellcode:
type TOwnTCPClient = class(TIdTCPClient)
[...]
procedure DoQuery; //müsste hier nicht class procedure DoQuery definiert sein,
//um mit dem TQueryThread darauf zugreifen zu können?
[...]
end;
type TQueryThread = class(TThread)
private
QT: TQueryThread; //Ist das so richtig?
[...]
end;
[...]
constructor TQueryThread.Create;
begin
QT := TQueryThread.Create(true); // suspended=True kann hier nicht übergeben werden
end;
procedure TQueryThread.Execute;
begin
InternalTCP.Query; //InternalTCP? Was verbirgt sich dahinter?
end;
procedure TOwnTCPClient.DoQuery;
begin
QT.Resume; //Wie kann TOwnTCPClient darauf zugreifen?
end;
Ich erwähnte schon, dass ich mit Threads noch nicht viel gemacht habe?
...
Lass nie die Lösung eines Problems wichtiger werden als die Liebe zu einem Menschen. (Barbara Johnson)