Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   saber si estoy en red o local, o saber ip (https://www.clubdelphi.com/foros/showthread.php?t=50529)

Milperrimo 21-11-2007 04:16:21

saber si estoy en red o local, o saber ip
 
Saludos, necesito saber internamente en un programa ke tengo si el programa se esta corriendo a traves de la red o se esta corriendo en una maquina localmente alguien tiene alguna idea????? Me encontre una funcion de como poder obtener la direccion ip de la maquina donde estoy pero no se si esto me pueda servir de algo, alguien me comentaba ke podria obtener la ip de donde se esta corriendo la aplicacion y la de la maquina donde estoy y si las ips son iguales kiere decir que se esta corriendo localmente. pero no se como desarrollar esta idea mas, no se como obtener la ip de la red o del serividor si se esta corriendo en red. Alguien sabe???????

Neftali [Germán.Estévez] 21-11-2007 11:35:02

Supongo de cuando hablas de red, se trata deque estás ejecutando el EXE directamente sobre la máquina de red.
Creo que si obtienes el path del ejecutable, de ahí sacas la unidad y miras de qué tipo es, te puede servir.


Código Delphi [-]
var
  Unidad: string;
begin
  // Extraer la unidad del ejecutable
  Unidad := ExtractFileDrive(Application.ExeName);

  // Tipo de Disco?
  if (GetDriveType(PChar(Unidad)) = DRIVE_REMOVABLE) or
     (GetDriveType(PChar(Unidad)) = DRIVE_FIXED) then begin
    MessageDlg('LOCAL', mtInformation, [mbOK], 0);
  end
  else begin
    MessageDlg('No LOCAL', mtInformation, [mbOK], 0);
  end;

Milperrimo 22-11-2007 01:53:45

Exelentee, esto era justo lo que necesitaba, graciassss


La franja horaria es GMT +2. Ahora son las 03:10:38.

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