Hi,
also...
Bisher sendest du so den Text:
ClientSocket1.Socket.SendText('Speech');
Du könntest zum Beispiel so den Text senden und den Befehl senden:
ClientSocket1.Socket.SendText('Speech:' + Edit1.Text);
Dann musst aber aufpassen, dass du auch die if-Abfrage änderst. Dazu
pos und
copy in der Delphi-Hilfe.
Die könnte dann zum Beispiel so aussehen:
Delphi-Quellcode:
if Pos('
SubStr:', MyString) = 1
then begin
// hantiere hier mit Copy herum...
oleVoice := CreateOLEObject('
SAPI.SpVoice');
oleVoice.Speak(MyString, 0);
end;
Chris