Probleme beim Empfangen von UDP-Paketen

[MichaelT]

Ferndiagnosen sind schwierig... Das ist schon ein wenig alt.
https://ask.wireshark.org/questions/...with-wireshark

Was steht in den Packeln drinnen?

Zitat von heltef:

Guten Abend zusammen,

ich habe folgendes Problem...
Delphi empfängt nur die Daten Udp Pakete, wenn Wireshark geöffnet ist. ...

[himitsu]

IdUDPServer1.OnUDPRead wird doch bestimmt im Thread der er Connection ausgeführt, was nicht der HauptThread ist.
Die VCL ist nicht threadsicher und man darf "niemals" unsynchronisiert außerhalb des Hauptthreads drauf zugreifen.

Wireshark häckt sich böse in die Connections rein, verstellt hier und da etwas und wer weiß was dadurch alles verändert wird, welches hier eine Auswirkung zeigt.

[Mavarik]

Zitat von himitsu:

IdUDPServer1.OnUDPRead wird doch bestimmt im Thread der er Connection ausgeführt, was nicht der HauptThread ist.

"wird doch bestimmt?"

emmm... nööö

Zitat von ..\Source\Indy10\Core\IdUDPServer.pas:

Delphi-Quellcode:

        // and only synchronize the OnUDPRead event handler so that descendants
        // do not need to be synchronized unnecessarily. Probably just have
        // TIdUDPServer.DoUDPRead() use TIdSync when ThreadedEvent is false...
        if FServer.ThreadedEvent then begin
          UDPRead;
        end else begin
          Synchronize(UDPRead);
        end;

Mavarik

[Sir Rufo]

Schön dass man gar nicht hoffen/glauben muss ob da was in welchem Thread-Kontext läuft, mann kann es einfach abfragen:

Delphi-Quellcode:

if TThread.Current.ThreadId = MainThreadID then
  // ich im MainThread
else
  // ich NICHT im MainThread

[mjustin]

Zitat von Sir Rufo:

Schön dass man gar nicht hoffen/glauben muss ob da was in welchem Thread-Kontext läuft, mann kann es einfach abfragen:

Delphi-Quellcode:

if TThread.Current.ThreadId = MainThreadID then
  // ich im MainThread
else
  // ich NICHT im MainThread

Für Anwender von Delphi 2009: das kompiliert zwar, ist aber erst in einer späteren Version (Build 14.0.3455.22156) brauchbar: http://qc.codegear.com/wc/qcmain.aspx?d=67726 (darin ist auch ein Workaround enthalten)

Siehe auch: Delphi TThread.CurrentThread and EAccessViolation - Is This a Bug or My Incompetence..?

[heltef]

Hallöchen zusammen,

ich habe es mal gemacht wie Captnemo es vorgeschlagen hatte.. Ich hab ein Windows Programm geschrieben und siehe da... Es funktioniert alles ohne Wireshark.

So ist Delphi ausgeschlossen und muss somit wohl am Mikrocontroller liegen. Ich werde jetzt mal mit Wireshark die Pakete vergleichen und mal sehen wo sie sich unterscheiden.

Dankeschön für eure Hilfe. Noch ein schönes Restwochenende
Fabi

[pertzschc]

Ich werfe mal noch die Vermutung in den Raum, dass Dein Microcontroller die Pakete an die falsche IP-Adresse sendet. In Deinem Coding war zumindest eine Destination "hardgecoded".
byte ipDestination[] = {192, 168, 2, 99}; //Ziel Ip Des Paketes Wenn das so ist, dann könnte der Rechner mit dem Delphiprogramm ein andere Adresse als die obige zugewiesen bekommen und empfängt dann natürlich nichts. Soweit funktioniert es dann korrekt, nur dass Du Dein Ziel vom Mikrocontroller aus gesehen nicht erreichst.

Was dann Wireshark beim Starten auf dem Rechner macht ist, den Empfangsmodus auf den Promiscuous Mode umzustellen, um alle Pakete des Netzwerkes zu empfangen. Damit landen dann auch alle nicht richtig adressierten Pakete auf dem Rechner.

Grüße, Christoph

[heltef]

Ich hab hier mal ein Screenshot von einem Paket in Wireshark
Wire1.jpg

Wire2.jpg


@himitsu
Ich habe in Delphi mit Threads noch nie gearbeitet. Könntest du mir zeigen wie ich es korrekt lösen würde? Danke

[Captnemo]

Naja, wenn's auf einem jungfräulichen Rechner ohne Wireshark auch nicht geht, wird's wohl am Source liegen. Poste doch mal den kompletten Source.

[heltef]

Hier ist der Komplette Code... Viel ist da zwar nicht drin, aber vielleicht habe ich auch was vergessen

Code:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdUDPServer, IdGlobal, IdSocketHandle,
  IdComponent, Vcl.StdCtrls, IdBaseComponent, IdUDPBase;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    IdUDPServer1: TIdUDPServer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure IdUDPServer1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: string);
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      const AData: TIdBytes; ABinding: TIdSocketHandle);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdUDPServer1.DefaultPort:=50001;
  IdUDPServer1.Active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  IdUDPServer1.Active:=false;
end;

procedure TForm1.IdUDPServer1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
  Memo1.Lines.Add('Status'+AStatusText);
end;

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  sText:String;
begin
  sText := BytesToString(AData);
  Memo1.Lines.Add(sText);
end;

end.