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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
| var
Form1: TForm1;
command : string;
implementation
{$R *.dfm}
function ChangeCommandString(commandstring : string) : string;
var anfang,ende : integer;
begin
showmessage('Commandstring: '+commandstring);
anfang:=pos('<',commandstring);
showmessage('Anfang: '+inttostr(anfang));
ende:=pos('>',commandstring);
showmessage('Ende: '+inttostr(ende));
result:=copy(commandstring,anfang+1,ende-anfang-1);
showmessage('result: '+result);
delete(commandstring,1,anfang);
showmessage('Commandstring nach Bearbeitung: '+commandstring);
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
command:=command+socket.receivetext;
memo1.lines.add(ChangeCommandString(command));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
serversocket1.socket.Connections[0].SendText('<getmouse#'+inttostr(mouse.cursorpos.x)+'#'+inttostr(mouse.CursorPos.Y)+'>');
timer1.enabled:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=true;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
showmessage('Auf Form geklickt');
serversocket1.socket.connections[0].SendText('<click#left>');
end; |