mDns4Delphi ServiceType taucht nicht in _services._dns-sd._udp.local auf

[QuickAndDirty]

Ich verwende mdns4Delphi testweise um einen Service zu registrieren

_mysrv._tcp._local

Der mitgelieferte Service Discovery Browser findet alle möglichen service typen bei abfrage von

_services._dns-sd._udp.local

aber nicht _mysrv._tcp._local

Ich kann aber wenn ich nach dem spezifischen Service typ _mysrv._tcp._local suche, meine Instanzen und ihre Daten finden.

Ich fände es gut wenn der service typ auch unter
_services._dns-sd._udp.local
mitgeteilt wird.

wie macht man das?

Dann habe ich da noch eine Frage...
warum lässt sich ein Dienstname
_mysrv._http._tcp._local
nicht registrieren?

[marsupilami79]

Hallo Andreas,

Zitat:

Zitat von QuickAndDirty (Beitrag 1547463)

Ich verwende mdns4Delphi testweise um einen Service zu registrieren
Ich kann aber wenn ich nach dem spezifischen Service typ _mysrv._tcp._local suche, meine Instanzen und ihre Daten finden.

Ich fände es gut wenn der service typ auch unter
_services._dns-sd._udp.local
mitgeteilt wird.

wie macht man das?

Ich habe da selbst eine Weile lang gesucht und nichts gefunden. Die API gibt das einfach nicht so richtig her. Zum einen hat mir das aber gereicht, da der Client ja in der Regel weiss, welchen Dienst er sucht. Zum anderen habe ich dann später festgestellt, dass Windows auf einmal meinen Servicetyp selbständig registriert hat. Ich habe dann aufgehört und vermutet, daß da Windows einfach was verbessert hat.

Zitat:

Zitat von QuickAndDirty (Beitrag 1547463)

Dann habe ich da noch eine Frage...
warum lässt sich ein Dienstname
_mysrv._http._tcp._local
nicht registrieren?

Da bin ich jetzt wirklich nicht Experte, aber ich vermute, dass du keinen "Unterdienst" unterhalb von "_http" registrieren kannst, dass das bei DNS-SD einfach nicht vorgesehen ist. Eine andere Möglichkeit ist, daß MIcrosoft einfach keine Lust hatte...

Grüße,

Jan

[QuickAndDirty]

Danke JAN!
Ich wünschte es gäbe sowas von Indy oder Embarcadero gleich im paket dabei.

Ich habe etwas 2 Units geändert (IFDEF VER185) Damit MDNSService unter D2007 compiliert.
Ich habe Leider keine Ahnung von Github und bin auch Git-Legastheniker (Ihr dürft also nicht über mich lachen, das ist eine angeborene Schwäche!)

Ich liebe diese Library. Und es wäre doch toll wenn sie auch älteren Delphis Verwendung findet.
Wenn Dir die Änderungen(2 oder 3 Zeilen) zusagen kannst Du sie ja vielleicht mergen.

Es sorgt dafür, dass die MdnsService Componente unter Delphi2007 (evtl auch niedriger) funktioniert,
Der Resolver wird dann vermutlich nicht funktionieren...Ich selbst teste gerade nur den Anouncer für eine Legacy Anwendung.

Edit:
Windns.pas aktualisiert damit es auch compiliert wenn Rangechecks an sind.

[marsupilami79]

Hallo Andreas,

danke für die Patches :) Ich habe deine Patches ein wenig angepasst und eingecheckt. Kannst du mal probieren, ob es so für dich funktioniert?

Grüße,

Jan

[QuickAndDirty]

Ich teste es auf D2007 ...das dauert nen moment, legacy Delphi VM starten und so

[QuickAndDirty]

Funzt in d2007 . teste es jetz in athens.

Bist du sicher das man in function GetSymbol(Name: String): Pointer;

Delphi-Quellcode:

  {$IFDEF VER185}
    Result := GetProcAddress(Lib, PAnsiChar(Name));
  {$ELSE}
    Result := GetProcAddress(Lib, PWideChar(Name));
  {$ENDIF VER185}

einfach durch

Delphi-Quellcode:

  Result := GetProcAddress(Lib, PChar(Name));

ersetzen kann?

[marsupilami79]

Hallo Andreas,

ich bin ziemlich sicher, daß die Verwendung von PChar genau das richtige ist. Mit der Einführung von Unicode Wurde PChar zu einem Alias für PWideChar und String wurde zu einem Alias für UnicodeString. Ich bin mir recht sicher, daß man damals auch die Windows Unit auf WideChar umgestellt hat. Das heißt PChar ist immer der richtige Typ - je nachdem, welches Delphi verwendet wird.

Grüße,

Jan

[QuickAndDirty]

Das macht es noch einfacher , auch wenn es irgendwie den Erwartungen wiederspricht.
Funktioniert auf jedenfall in Athens.

Ich habe jetzt übrigens auch miterlebt wie nach einer zeit auf einmal der Service auch in der allgemeinen Liste auftauchte. Vielleicht refreshed Windows die einfach nicht sehr oft....nur so alle 8 Stunden oder so...