//Edit
//Edit2
//Edit3
Quellcode von Senden sieht nun so aus(Ob das der Grund des Fehlers ist, weiss ich nicht):
Delphi-Quellcode:
procedure SendeKoordinaten;
var
Send: ^TSend;
MsgSize:Integer;
begin
New(Send);
Send.X := (Form1.Edit1.Text);
Send.Y := (Form1.Edit2.Text);
MsgSize := SizeOf(TSend);
Form1.DXPlay1.SendMessage(DPID_ALLPLAYERS, Send, MsgSize);
Form1.DXPlay1.SendMessage(Form1.DXPlay1.LocalPlayer.ID, Send, MsgSize);
end;
Und das Empfangen sieht so aus:
Delphi-Quellcode:
procedure TForm1.DXPlay1Message(Sender: TObject; Player: TDXPlayPlayer;
Data: Pointer; DataSize: Integer);
var
s: string;
begin
SetLength(s, 2);
StrLCopy(PChar(s), @TSend(Data^).X, Length(s)); //*Frage1
showmessage(s); //*Frage2
Memo1.Lines.Add(Format('%s> %s', [Player.Name, s]));
end;
folgendes noch dazu:
Delphi-Quellcode:
type
TSend = record
x, y: String;
end;
*Frage1: Is das das dann Send.X??
*Frage2: Gibt irgendeine komischen Zeichen aus