Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Saber el nombre del PC o bien la IP (https://www.clubdelphi.com/foros/showthread.php?t=50789)

vivamotos 28-11-2007 12:40:44

Saber el nombre del PC o bien la IP
 
Saludos,

Quería saber como puedo saber el nombre del pc o la IP de mi PC mediante código Builder c++.

Solamente eso.

Grácias

Gabo 28-11-2007 12:58:01

Con la función GetComputerName.

Gabo 28-11-2007 13:39:57

Bueno aquí va una respuesta más detallada:

Código:


TCHAR szComputer[MAX_COMPUTERNAME_LENGTH + 1];
DWORD dwSize = sizeof(szComputer);
if (GetComputerName(szComputer, &dwSize))
{
  Edit1->Text = szComputer;
}

La incorporé a los trucos ya que sólo existía la forma de hacerlo en Delphi.

trohan 22-01-2008 21:57:22

PAra Gabo
 
Gabo podrias publicar el codigo para saber el nombre de una PC. Yo quiero hacerlo remoto desde otra maquina. Este es mi correo pa por si acaso no deseas publicarlo aqui aldx@uci.cu

cHackAll 22-01-2008 22:33:17

Cita:

Empezado por trohan (Mensaje 260099)
Gabo podrias publicar el codigo para saber el nombre de una PC. Yo quiero hacerlo remoto desde otra maquina. Este es mi correo pa por si acaso no deseas publicarlo aqui aldx@uci.cu

Código Delphi [-]
uses WinSock;
 
procedure TForm1.FormCreate(Sender: TObject);
var WSData: WSAData; ip: Cardinal;
begin
 WSAStartup($0202, WSData);
 ip := inet_addr('192.168.1.41');
 MessageBox(0, gethostbyaddr(@ip, 4, AF_INET).h_name, nil, 0);
end;

Hecho con puras APIs para que lo puedas traspasar a tu lenguaje; para que te sea más facil tambien te lo realicé una búsqueda y encontré éste link con lo mismo en el lenguaje que necesitas; de paso ví tu correo en el anterior post e hice un par de subscripciónes para Spam y otras cosas.

Código:

#include <iostream>
#include <winsock.h>

int main()
{
  using namespace std;
  WSAData wData;

  if (WSAStartup(MAKEWORD(2,2), &wData) == SOCKET_ERROR)
  {
    cout << "Winsock init error\n";
    return 1;
  }

  hostent *h = NULL;
  char ip[16];

  cout << "Enter Ip: ";
  cin >> ip;

  unsigned int addr;
  addr = inet_addr(ip);

  h = gethostbyaddr(reinterpret_cast<char *>(&addr), 4, AF_INET);
  if (h == NULL)
  {
    cout << "Could not resolve address" << endl;
    return 1;
  }
  cout << "Host: " << h->h_name << endl;
  return 0;
}


PD: Dejen de pedir sus soluciones por correo; esto es un foro!!! :mad:

Edito: He puesto el ejemplo de la URL, pues seá de utilidad.

trohan 22-01-2008 23:27:05

Para pedir disculpas
 
Quiero pedir disculpas no fue mi intencion. Tienes razon es un foro y es para compartir. El problema es que por el post de Gabo supuse que esta solucion ya habia estado posteada y por eso le pedi que si no queria repeptir lo ya dicho qu eme lo enviara por correo. En cualquier caso disculpen mi falta. Un saludo.


La franja horaria es GMT +2. Ahora son las 21:57:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi