F�rum Como acessar/enxergar ip externo? #385904

09/09/2010

Bom dia a todos. Estou com uma duvida, e como estou come�ando a mecher agora com componentes datasnap, indy e tudo mais sobre rede no delphi. A minha duvida � o seguinte, eu gostaria de fazer uma aplica��o que pudesse ser conectada por um cliente externo(ip externo), ou seja, rodo meu sistema num servidor numa empresa, e keria q esse sistema enxergasse o ip externo de uma filial desta empresa, para q a empresa acessasse o sistema com o mesmo banco de dados la da filial. Espero ter explicado direitinho, rs. Desde ja agrade�o pela aten��o. Grato, Cleber E. Lino.

Cleber Lino

Curtir t�pico

+ 0

Responder

Posts

09/09/2010

Leonardo Xavier

Cara da uma olhadinha neste c�digo aqui e ve se te ajuda.

procedure FindComputers(Workgroup: string; aResList: TStrings);
  var
  eNumHandle : THandle;
  WorkgroupRS : TNetResource;
  Buf : array[1..500] of TNetResource;
  BufSize : DWORD;
  Entries : DWORD;
  Result : integer;
  sComputer: String;
  begin
  if not Assigned(aResList) then
  Exit;
  aResList.Clear;
  WorkGroup := Workgroup + #0;
  FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0);
  with WorkgroupRS do begin
  dwScope := 2;
  dwType := 3;
  dwDisplayType := 1;
  dwUsage := 1;
  lpRemoteName := @Workgroup[1];
  end;
  WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS,
  ENumHandle);
  repeat
  Entries := 1;
  BufSize := SizeOf(Buf);
  Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize);
  if (result = NO_Error) and (Entries = 1) then begin
  sComputer:= StrPas(Buf[1].lpRemoteName);
  aResList.Add(Copy(sComputer, 3, Length(sComputer)-2));
  end;
  until (Entries <> 1) or (Result <> NO_Error);
  WNetCloseENum(ENumHandle);
  end;

Responder

Gostei + 0