TClientSocket/Server - Befehl senden mit edit text Speech???

[CalganX]

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