Welcher Dienst hinter welchem Port?

[Blechwolf]

Zitat von neolithos:

Delphi-Quellcode:

var p : servent;
    sTmp : String;
begin
  p := getservbyport(22, nil);
  if p = nil then
     begin
       sTmp := p^.s_name; // Kopiere inhalt
       Edit1.Text := sTmp;
     end;
end;

Mal dumm gefragt, wäre if p <> nil nicht geschickter ?

Grüße

Wolf

[jackie]

Hi!
Also wenn ich die Version mit if p = nil then ... benutze dann bekomme ich eine AV.
Bei if p <> nil then ... tut sich gar nichts, wenn ich auf den Button drücke.

[neolithos]

Erstmal Ups.

Zitat von jackie:

if p <> nil then ...

So ist es richtig!

Hast du

WSAStartup bzw. WSACleanUp gerufen?

[neolithos]

Meine Weisheiten kann man unter

MSDN (Microsoft)

nachlesen.

[jackie]

Zitat:

Hast du

WSAStartup bzw. WSACleanUp gerufen?

Nein. Wie soll ich das denn aufrufen?

[Chewie]

Zitat von jackie:

Nein. Wie soll ich das denn aufrufen?

So, wie in dem Codebeispiel in deinem ersten Post

Allerdings sollte dann keine Access Violation ausgelöst werden, sondern ein WSAENOTINITIALIZED (oder so ähnlich, ich hab grad kein PSDK da, auf Jeden Fall eine 5stellige Zahl mit einer 1 vorne ).

[APP]

öhmm jackie, Du machst es ja doch:

Zitat:

Hast du
WSAStartup bzw. WSACleanUp gerufen?

Nein. Wie soll ich das denn aufrufen?

Nämlich genau hier (Dein 1. Post):

Zitat von jackie:

...
if WsaStartup(MakeWord(1, 1), W) = 0 then
...
WSACleanup;
...

Allerdings würde ich Dir empfehlen, diese beiden Aufrufe
in einen Ressourcenschutzblock TRY/FINALLY zu legen,
weil mit WSAStartup die WS2_32.dll dynamisch nachgeladen
wird, und Du dann sicherstellt, dass am Ende alles wieder
aufgeräumt wird.

[jackie]

@APP: Ich hab das mit dem getservbyport gar nicht in die erste funktion eingebaut, sondern wollte es einfach im OnClick eines Buttons aufrufen, da ich keine Ahnung habe, wo ich es in der oben gezeigten Funktion einbinden soll.
Wenn es mir jemand zeigen kann, wäre ich sehr dankbar.

[APP]

Hallo Gregor,
mal schnell zusammengezimmert:

Delphi-Quellcode:

VAR
  p                                : PServEnt;
  WSAData                          : TWSADATA;
  Port                             : DWORD;
BEGIN
  // FTP
  Port := 21;
  IF WsaStartup(MakeWord(2, 0), WSAData) = 0 THEN
  TRY
    // Achtung, Port muss in  Network Byte Order vorliegen
    p := getservbyport(hTons(Port), NIL);
    IF WSAGetLastError = 0 THEN
      BEGIN
        IF p <> NIL THEN
          BEGIN
            Edit1.Text := p^.s_name;
          END;
      END
    ELSE
      BEGIN
        CASE WSAGetLastError OF
          WSANOTINITIALISED: ShowMessage('A successful WSAStartup call must occur before using this function');
          WSAENETDOWN: ShowMessage('The network subsystem has failed.');
          WSAHOST_NOT_FOUND: ShowMessage('Authoritative Answer Service not found.');
          WSATRY_AGAIN: ShowMessage('A nonauthoritative Service not found, or server failure.');
          WSANO_RECOVERY: ShowMessage('Nonrecoverable errors, the services database is not accessible.');
          WSANO_DATA: ShowMessage('Valid name, no data record of requested type.');
          WSAEINPROGRESS: ShowMessage('A blocking Windows Sockets 1.1 call is in progress, or the service provider is still processing a callback function.');
          WSAEFAULT: ShowMessage('The proto parameter is not a valid part of the user address space.');
          WSAEINTR: ShowMessage('A blocking Windows Socket 1.1 call was canceled through WSACancelBlockingCall.');
        END;
      END;
  FINALLY
    WSACleanup;
  END;
END;

[jackie]

Hallo APP!
Danke, das funktioniert wunderbar.