1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var rec:String;
Command:String;
Commando: String;
Parameter: String;
Parameter1: String;
Parameter2: String;
Parameter3: String;
Parameter4: String;
Parameter5: String;
Parameter6: String;
begin
rec:=Socket.ReceiveText; <------- ohne das hier geht es aber warum?
Command:= COPY(rec,2,6);
Parameter:= COPY(rec,9,Length(rec)-8);
Commando:=copy(rec,0,pos(',',rec) - 1);
Parameter1:=copy(rec,pos(',',rec) + 1,pos('.',rec)- pos(',',rec) - 1);
Parameter2:=copy(rec,pos('.',rec) + 1,pos(':',rec)- pos('.',rec) - 1);
Parameter3:=copy(rec,pos(':',rec) + 1,pos('_',rec)- pos(':',rec) - 1);
Parameter4:=copy(rec,pos('_',rec) + 1,pos('*',rec)- pos('_',rec) - 1);
Parameter5:=copy(rec,pos('*',rec) + 1,pos('#',rec)- pos('*',rec) - 1);
Parameter6:=copy(rec,pos('#',rec) + 1,pos('ý',rec)- pos('#',rec) - 1);
...
...
end; |
