Kommando med parametere?

Det kan godt være, at jeg ikke er helt med på hvad du vil.

Ok. Håper dette kan være til hjelp:

Jeg bruker Indys ClientSocket og ServerSocket + MS Speech API:

Kode 

var
  SpeechEngines: TStringList;

function SpeechEngine(Index: Integer): String;
begin
  SpeechEngines := TStringList.Create;
  SpeechEngines.AddStrings(Speech.Engines);
  Result := SpeechEngines.Strings[Index];
  SpeechEngines.Free;
end;

procedure TServerFrm.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Recieved: String;
begin
  Recieved := Socket.ReceiveText;
  if Pos('/startspeech', Recieved) = 1 then
  begin
    Param1 := ?;
    Param2 := ?;
      Speech.SelectEngine(SpeechEngine(StrToInt(Param1)));
      Speech.Text.Text := Param2;
      Speech.Speak;
    except
    end;
  end;
end;

Når klienten sender teksten "/startspeech 0 hei", så ønsker jeg at parametrene skal deles:
Param1 = 0
Param2 = hei

Ex på klienten:

Kode 

Client.Socket.SendText('/startspeech ' + IntToStr(SpeechEngines.Items.IndexOf(EngineLbl.Caption)) + ' ' + SpeechText.Text);

// SpeechEngines er en liste med snakkemotorer.
// SpeechText er teksten som skal snakkes.
// EngineLbl er navnet på snakke motoren.

DiZpel

[Redigeret d. 13/01-04 21:00:14 af DiZpel]

Kode 

function TokenizeString(ASeperator : Char; AStr : String) : TStringList;
var
  I   : Integer;
  Tmp : String;
begin
  Result := TStringList.Create;
  Tmp := '';
  for I := 1 to Length(AStr) do
  begin
    if AStr[I] <> ASeperator then
      Tmp := Tmp+AStr[I]
    else
    begin
      Result.Add(Tmp);
      Tmp := '';
    end;
  end;
  if Tmp <> '' then
    Result.Add(Tmp);
end;

procedure TServerFrm.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Recieved: String;
  Params : TStringList;
begin
  Recieved := Socket.ReceiveText;
  Params := TokenizeString(' ', Recieved);
  if (Params.Strings[0] = '/startspeech') then
  begin
    try
      Speech.SelectEngine(SpeechEngine(StrToInt(Params.Strings[1])));
      Speech.Text.Text := Params.Strings[2];
      Speech.Speak;
    except
    end;
  end;
  Params.Free;
end;

Hvordan deler jeg inn "0" i Param1 og "Hei" i Param2?

Dette er kommandoen(string) med to parametre:
/startspeech [1]0 [2]Hei

Hvis jeg kan bruke dette, spør jeg: Hva skal det stå i "???"?
Param- 1 og 2 er string.
Param1 := Copy(Recieved, Pos('[1]', Recieved) + 3, ???);
Param2 := Copy(Recieved, Pos('[2]', Recieved) + 3, Length(Recieved));

DiZpel

Hvordan deler jeg inn "0" i Param1 og "Hei" i Param2?

Kode 

Param1 := Copy(Param1, 4, Length(ParamStr(1)) - 3);
Param2 := Copy(Param2, 4, Length(ParamStr(2)) - 3);

Hvordan deler jeg inn "0" i Param1 og "Hei" i Param2?

Dette er kommandoen(string) med to parametre:
/startspeech [1]0 [2]Hei

Hvis jeg kan bruke dette, spør jeg: Hva skal det stå i "???"?
Param- 1 og 2 er string.
Param1 := Copy(Recieved, Pos('[1]', Recieved) + 3, ???);
Param2 := Copy(Recieved, Pos('[2]', Recieved) + 3, Length(Recieved));

DiZpel

Kode 

var
 param:array [0..nn] of string;
begin
 for t:=0 to nn do
 begin
  if ( pos('['+inttostr(t+1)+']',recieved)>0) then
   Param[t] := Copy(Recieved, Pos('['+inttostr(t)+']', Recieved) + 3, pos('['+inttostr(t+1)+']',recieved)-pos('['+inttostr(t)+']',recieved)-4)
  else
   Param[t] := Copy(Recieved, Pos('['+inttostr(t)+']', Recieved) + 3, length(recieved));
 end;
end;

Prøv at kigge på http://www.swissdelphicenter.ch/torry/showcode.php?id=1478

Husk at læse den lange kommentar. Så vidt jeg husker, så virker den adresse der står angivet ikke, så du må lige ind på microsoft.com og søge.

Det kan godt være, at jeg ikke er helt med på hvad du vil.

Kode 

var
  SpeechEngines: TStringList;

function SpeechEngine(Index: Integer): String;
begin
  SpeechEngines := TStringList.Create;
  SpeechEngines.AddStrings(Speech.Engines);
  Result := SpeechEngines.Strings[Index];
  SpeechEngines.Free;
end;

procedure TServerFrm.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Recieved: String;
begin
  Recieved := Socket.ReceiveText;
  if Pos('/startspeech', Recieved) = 1 then
  begin
    Param1 := ?;
    Param2 := ?;
      Speech.SelectEngine(SpeechEngine(StrToInt(Param1)));
      Speech.Text.Text := Param2;
      Speech.Speak;
    except
    end;
  end;
end;

Kode 

Client.Socket.SendText('/startspeech ' + IntToStr(SpeechEngines.Items.IndexOf(EngineLbl.Caption)) + ' ' + SpeechText.Text);

// SpeechEngines er en liste med snakkemotorer.
// SpeechText er teksten som skal snakkes.
// EngineLbl er navnet på snakke motoren.

Hej,

Du kan bruge denne funktion:

Kode 

function TokenizeString(ASeperator : Char; AStr : String) : TStringList;
var
  I   : Integer;
  Tmp : String;
begin
  Result := TStringList.Create;
  Tmp := '';
  for I := 1 to Length(AStr) do
  begin
    if AStr[I] <> ASeperator then
      Tmp := Tmp+AStr[I]
    else
    begin
      Result.Add(Tmp);
      Tmp := '';
    end;
  end;
  if Tmp <> '' then
    Result.Add(Tmp);
end;

procedure TServerFrm.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Recieved: String;
  Params : TStringList;
begin
  Recieved := Socket.ReceiveText;
  Params := TokenizeString(' ', Recieved);
  if (Params.Strings[0] = '/startspeech') then
  begin
    try
      Speech.SelectEngine(SpeechEngine(StrToInt(Params.Strings[1])));
      Speech.Text.Text := Params.Strings[2];
      Speech.Speak;
    except
    end;
  end;
  Params.Free;
end;

Håber det hjælper.
/Michael.

[Redigeret d. 13/01-04 22:02:44 af Michael Skovslund]