Einzelnen Beitrag anzeigen

Blechwolf

Registriert seit: 9. Sep 2003
Ort: Aachen
126 Beiträge
 
Delphi 7 Professional
 
#11

Re: Welcher Dienst hinter welchem Port?

  Alt 5. Mär 2004, 15:28
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
Ein Schiff im Hafen ist sicher. Aber dafür werden Schiffe nicht gebaut. (engl. Sprichwort)
  Mit Zitat antworten Zitat