Ja, ich habs dann auch oben gelesen. Da ich
Indy 9 habe kann ich dir nicht sagen, welches Ereignis da existiert. die beiden Versionen haben ziemlich große Unterschiede. Schau dir mal die Ereignisse an. Es muss ja eins geben, dass dir sagt, dass über das Netz eine neue NAchricht gekommen ist, die du auslesen kannst.
Dann etwa so (anhand deines Quelltextes; ob es mit diesem Konzept funktioniert kann ich nicht sagen):
Delphi-Quellcode:
procedure TForm1.TSReader_start;
begin
TCPClient.Connect;
end;
procedure TForm1.TSReader_fin;
begin
TCPClient.Disconnect;
VLCPlugin1.stop;
VLCPlugin1.addTarget('
http:wjonat.dyndns.org:80 :http-caching=3000)', null, VLCPlayListInsert, 0);
VLCPlugin1.play;
end;
procedure TForm1.getTCPMessage(...);
//Das ist das Ereignis deiner Komponente, so etwa wie Button1Click nur eben nicht Button sondern TCP Message angekommen; musst du mal schauen.
begin
msg:= TCPClient.IOHandler.ReadLn;
Memo1.Lines.Add(msg);
statusbar1.Panels[2].Text:=msg;
//Entweder auf die MEssage prüfen oder du nimmst einen Zähler
if msg='
...'
then TCPClient.IOHandler.WriteLn('
stop')
else if msg='
...'
then TCPClient.IOHandler.WriteLn(tune)
...
else if msg='
...'
then TCPClient.IOHandler.WriteLn('
play vlc1')
else TSReader_fin;
end;