GetComputerName Delphi 2009

[D0N]

Hallo

ich hab ne frage...

ich hab in der Code Library

diese Funktion gefunden

Delphi-Quellcode:

function GetComputerName(IPAddr: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr := inet_addr(IPAddr);
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt <> nil then
    Result := StrPas(Hostent^.h_name)
  else
    Result := '';
end;

nun wollte ich es mit Delphi 2009 compilieren nun zeigt er mir an

[DCC Fehler] Multi5.pas(73): E2010 Inkompatible Typen: 'Char' und 'AnsiChar' ich kenn mich noch net so gut aus mit Delphi 2009 daher weiß ich nicht was ich tun muss vllt willst ihr ja wie ich es zum laufen bekomme

mfg

[Achim Kalwa]

Hallo,

Zitat von D0N:

nun wollte ich es mit Delphi 2009 compilieren nun zeigt er mir an

[DCC Fehler] Multi5.pas(73): E2010 Inkompatible Typen: 'Char' und 'AnsiChar' mfg

Das WinSock-API ist nicht Unicode-fähig und arbeitet intern mit AnsiChars. Ab Delphi 2009 ist "String" aber Unicode. Die Funktion muss so angepasst werden, dass Unicode-Strings rein und raus gehen, intern aber wieder auf AnsiString umgewandelt wird:

Delphi-Quellcode:

function GetComputerName(IPAddr: String): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr := inet_addr(PAnsiChar(AnsiString(IPAddr))); // <-- IP-Addr nach AnsiString wandeln
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt <> nil then
    Result := string(StrPas(Hostent^.h_name)) // <- Hostname nach String wandeln
  else
    Result := '';
end;

Dieser Code funktioniert unverändert auch mit D2007.

HTH
Achim

[D0N]

Cool funktioniert.

danke



nur ne kurze frage noch was benutz ich am besten um ne exe auszuführen.

auch mit parametern

z.b. kann man ja vnc.exe mit der ip hintendran ausführen dann muss man nurnoch (falls vorhanden) das Passwort angeben.

ich hab mal irgendwo WinExec gelesen

und auch irgendwas mit ShellExecute


was benutz ich am besten?

[Bernhard Geyer]

WinExec ist veraltet (Win16-Zeiten). ShellExecute ist oft die beste Methode. Ab und Zu auch CreateProcess. Beispiele findest du genügend im Forum.

[D0N]

okay danke