FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Visualizar la IP y el nombre del PC
Hola a todos, necesitaria mostrar en mi programa la Ip del equipo y el nombre del pc. Como puedo visualizar estos dos datos????
Un saludo y gracias. |
#2
|
||||
|
||||
Para el nombre del equipo:
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
#3
|
|||
|
|||
Gracias pero no me funciona, hay otra forma???
|
#4
|
||||
|
||||
Cita:
PD: Si hay otras formas: WNetGetUser o navegando el registro, por ejemplo. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
Al compilar me da un error (que no se muy bien que quiere decir). Hay otra forma para poder visualizar estos dos datos ya que tampoco entiendo mucho el codigo que me han puesto mas arriba, hay alguna otra forma mas sencilla???
Gracias, ya que me urge bastante. |
#6
|
||||
|
||||
Cita:
Por otro lado, embarcarse sin saber navegar no es una buena idea, te recomiendo leer un poco, interiorizarte en el tema. El código es mas que sencillo, define un puntero a carácter, reserva la memoria de ese puntero, llama a la WinApi GetComputerName, y asigna el resultado obtenido a un string, y libera la memoria.
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
|||
|
|||
Si, reconozco que la programacion no es mi fuerte pero me lo han pedido en en trabajo.....asi que me tengo que buscar la vida....Bueno, me da varios errores en la compilacion como si no reconociera las funciones o lo precedimientos, lo mas seguro es que no haya implementado bien el codigo o agradeceria mucho que me explicarais (paso a paso) como poner el codigo y que componentes necesito en el formulario. Muchisimas gracias.
|
#8
|
||||
|
||||
Bueno... ayudaría mucho que pusieras el texto del error... y en qué línea te falla.
Pero por lo que dices creo que te falta incluir algo en los uses... Ahora no tengo Delphi aquí, así que no te puedo decir qué te falta. Prueba a poner el cursor encima de, por ejemplo, GetComputerName y pulsar F1... En la ayuda de Delphi tienes la solución... Si no lo consigues quizás mañana pueda mirártelo.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
#9
|
||||
|
||||
Obtener Nombre de la PC
no se que error te pueda aparecer, yo copie el codigo de arriba tal cual y me funciono , trata de borrar todo lo q esta en el unit de un proyecto nuevo y pegar todo esto:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetComputerName:String; var pcComputer:PChar; dwCSizeWORD; begin dwCSize := MAX_COMPUTERNAME_LENGTH+1; GetMem(pcComputer,dwCSize); try if Windows.GetComputerName(pcComputer,dwCSize) then Result := pcComputer; finally FreeMem(pcComputer); end; end; end. Inserta un boton y un edit en la forma y dale doble click al boton, en esa parte pon este codigo: Edit1.text:=GetComputerName(); para que te quede de esta forma: procedure TForm1.Button1Click(Sender: TObject); begin Edit1.text:=GetComputerName(); end; Y asi obtienes el nombre de la pc. Última edición por raco fecha: 16-06-2005 a las 04:23:41. Razón: me falto poner algo |
#10
|
||||
|
||||
Obtener Ip y Nombre de la Pc
Tambien puedes hacerlo de otra forma, esta bastante sencillo. visita este hilo:
http://www.clubdelphi.com/foros/show...ener+direccion |
#11
|
||||
|
||||
IP y nombre
respecto al otro codigo, creo que estas poniendo la funcion en donde no debes o algo asi o tal vez la estas llamando mal, es dificil saber si no pones el error.
|
|
|
|