UDPSockUtil, Senden von Binärdaten

Knulli · Verfasst: Mi 15.11.06 14:14

Moin,

Beim UDPSockUtil knallts ab und an in der zweiten Assert-Anweisung (Rückgabewert). Hab ich erstmal so eingebaut, weil ich sehen wollte, obs wirklich passiert. Es passiert gelegentlich.

markieren

Delphi-Quelltext

1:
2:
3:
4:

  
  Assert(BytesToSend <= USU_MAX_DGRM_SIZE); // Programmierer geschlampt
  BytesSend := m_UdpSock.SendBuf(aCommand, BytesToSend);
  Assert(BytesToSend = BytesSend);          // Und nun, wie weiter???

Was ist das beste, wenn BytesSend <> BytesToSend ist, solange wiederholen, bis es klappt? Wie lange Pause zwischen den Versuchen? Muß ich "Application.ProcessMessages" oder sowas ähnlichen zwischendurch aufrufen?

Jemand schonmal das gleiche Problem gehabt und vernünftig gelöst? Was sind sinnvolle Timeouts?

Knulli

Narses · Verfasst: Mi 15.11.06 14:38

Moin!

Sendest du Broadcasts? Setz mal .CloseInactiveSockets := TRUE; und probier´s dann nochmal. Tritt der Fall dann immer noch auf?

Allgemein: WARUM nicht alle übergebenen Bytes gesendet wurden, ist ja nun eigentlich die interessante Frage. Hab leider so auf dem Stehgreif auch keine Antwort drauf. Allerdings macht der UdpSockUtil an dieser Stelle nix anderes, als den WSA-Returncode weiterzureichen. So gesehen wäre mal in der WSA-Doku zu stöbern, welche Gründe ein UDP-Socket haben könnte, nicht alle Daten gesendet zu haben. Haste da schonmal nachgesehen?

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Knulli · Verfasst: Mi 15.11.06 15:41

CloseInactiveSockets habe ich auf false gelassen, weil ich irgenwie im Hinterstübchen hatte, daß dann jedesmal nach dem Senden eines Paketes wieder der Socket freigegeben wird. Das klingt performancemäßig nicht so gut. Kann man nicht im Bedarfsfall (also z.B. wenn BytesSend = 0 zürückkommt) so ne Art GarbageCollector anschubsen? Habs aber gerade auch noch mal ausprobiert, CloseInactiveSockets immer auf true stehen zu lassen, es passiert trotzdem.

Interessanter und vielleicht sehr wichtiger Punkt ist, daß wenn es nicht klappt, gar nichts gesendet wurde (BytesSend=0). Zumindest bei mir auf meinen Rechnern. Gibts da auch andere Beobachtungen?

Ich will aber ehrlich gesagt auch lieber erstmal gar nicht darüber nachdenken, was ist, wenn von den zu sendenden Daten nur die Hälfte gesendet wird. Da UDP die Reihenfolge nicht einhält, kommt da sicherlich kompletter Blödsinn bei raus, wenn man dann in einer while-Schleife solange sendet, bis das Paket komplett raus ist. Das Paket, was ich hier verschicken will ist außerdem schon die kleinste Einheit einer Sequenz aus Paketen. Also müßte eine Wiederholung des kompletten Paketes doch das Beste sein, oder? Nur wie lange sollte man mindestens warten?

Broadcasts kommen zwischendurch auch vor. Ich habe einen Timer, der alls 5 Sekunden einen Broadcast mit in den Sendepuffer packt, um den anderen Rechnern im Verbund ein Lebenszeichen zu geben. Die Senderoutine schaltet dann immer um.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TPartnerPC.SendCommand(var aCommand: TNetPaket);
var
  n: Integer;
  BytesToSend, BytesSend: Integer;
begin
  m_UdpSock.Broadcast := (IP_Addr = cBroadCastAddress) OR (Length(IP_Addr) = 0);
  if Not m_UdpSock.Broadcast then m_UdpSock.RemoteHost := IP_Addr;
  for n := 1 to cLenDSKennung do aCommand.Kennung[n] := cDSKennung[n]; // Kennung noch eintragen

  BytesToSend := aCommand.NetID.Size + SizeOf(TNetID) + cLenDSKennung;

  Assert(BytesToSend <= USU_MAX_DGRM_SIZE);
  BytesSend := m_UdpSock.SendBuf(aCommand, BytesToSend);
  if BytesToSend <> BytesSend then Network.frmNetwork.Caption := Format('BytesToSend: %d, BytesSend: %d', [BytesToSend, BytesSend]);
  //Assert(BytesToSend = BytesSend);
end;

Ich bin am Überlegen, ob ich den Rückgabewert einfach ignoriere. Eine Kontrolle, ob ich eine Antwort auf das Paket bekommen habe, gibt es ja auch noch und die wiederholt das Paket dann (idR. eine Sekunde später) sowieso noch ein paar mal, bis ein richtiger Timeout zuschlägt. War halt nur die Frage, ob man mit dem Rückgabewert irgendetwas anfangen sollte.

Die WSA Doku schweigt sich übrigens aus, WARUM es sein kann, daß weniger gesendet werden, als gewollt. Ich hätte da WSAGetLastError aufrufen, um mehr rauszubekommen, aber das machst Du ja schon im Control. Warum wird eigentlich "WSAEWOULDBLOCK" dabei rausgefiltert?

Noch ne ganz andere Frage:
Sollte ich meine Daten noch mit einer CRC absichern? Kann es mir passieren, daß ein Paket beim Sender (UdpSock.SendBuf)ordnungsgemäß raus geht und beim Empfänger (UdpSock.ReceiveBuf) zerstümmelt ankommt?

Knulli

Narses · Verfasst: Mi 15.11.06 20:34

Moin!