Einzelnen Beitrag anzeigen

mumu

Registriert seit: 28. Okt 2003
Ort: Bamberg
519 Beiträge
 
#1

Integer übers Netzwerk versenden

  Alt 16. Dez 2004, 10:24
ich verwende die indy komponenten idudpclient und idupdserver. alle clients senden ab und zu den wert einer integer variablen an den server. nur leider kommt immer irgendein komischer wert an...

SERVER:
Delphi-Quellcode:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var anzahl: integer;
begin
  AData.Read(anzahl,sizeof(integer));

  Showmessage(inttostr(anzahl));
end;
CLIENT:
Delphi-Quellcode:
var anzahl: integer;
begin
  anzahl := 3;
  stream := tmemorystream.Create;
  stream.WriteBuffer(anzahl, sizeof(integer));
  IdUDPClient1.SendBuffer(server, port, stream, sizeof(stream));
end;
danke schonmal
  Mit Zitat antworten Zitat