Hallo!
Ich sende aus einem Client Daten an einen Server mit folgender procedure:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Nachricht.TypeOfMessage := 1;
Nachricht.MSG := Edit3.Text;
ClientSocket1.Socket.SendBuf(Nachricht,sizeOf(Nachricht));
Label1.Caption := Nachricht.MSG;
Label2.Caption := IntToStr(Nachricht.TypeOfMessage);
end; |
Label1 und 2 dienen nur der Kontrolle ob die Daten dem Record Nachricht(Eigenschaften:TypeOfMessage:byte,MSG: String) auch richtig übergeben wurde (Die wurden richtig übergeben die Labels geben immer das richtige aus).
Jetztz empfange ich den Record mit folgender procedure:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.ReceiveBuf(Nachricht,sizeOf(Nachricht));
Label3.Caption := Nachricht.MSG;
Label4.Caption := IntToStr(Nachricht.TypeOfMessage); |
Jetztz gibt Label4 das richtige aus aber Label3 nicht mehr. dort steht komischer weise immer 'u'. Was geht da bei der übermittlung schief?
thx und mfg
Patti
