Ich bekomm den Fehler
Quelltext
1:
| Asynchronous socket error 10053 |
gefolgt von einem
Quelltext
1:
| Windows Socket Error: Eine Anforderung zum Senden oder Empfangen von Daten wurde verhindert, da der Socket nicht verbunden ist [...] und keine addresse angegeben wurde |
Dummerweise ging das ganze noch mit SendText, nur jetzt wo ichs mit SendBuf mach, wills nimmer. Dabei hab ich gar nichts an den .open oder .host geändert.
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:
| type
CustomRec = record
x: byte;
y: byte;
end;
//[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
Server.Port:=10024;
Server.Open;
Client.Port:=10024;
Client.Host:='127.0.0.1';
Client.Open;
end;
procedure TForm1.setmouseposClick(Sender: TObject);
var Rec: CustomRec;
begin
//Unserem Record werden Werte zugewiesen
with Rec do begin
x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
end;
Client.Socket.SendBuf(Rec,sizeof(Rec));
end;
procedure TForm1.serverClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Rec: CustomRec;
begin
Server.Socket.ReceiveBuf(Rec,SizeOf(Rec));
with Rec do begin
movemouse(x,y,10);
end;
end; |
movemouse bewegt die maus einfach an die die position x,y mit speed 10.
Wodurch wird dieser Error jetzt verursacht?!
Thx, Ciao
E:
ich hab noch was gefunden... vielleicht kann damit jmd was anfangen...
Quelltext
1:
| 10053 - FTP 500 - Syntax error, command unrecognized. |
