8 respuestas en este tema

[Diego827]

Hola amigos de Delphiaccess, es mi primera pregunta pero aquí están los compañeros de siempre.

Mi problema a detalle es el siguiente:

Tengo un servidor con Interbase SMP 2009 Versión ilimitada; he programado un programa cliente sencillo que accede a una base de datos en el servidor por medio del protocolo TCP/IP. Utilizo componenes InterBase (IBDataBase, IBTransaction... etc).

Hasta aqui todo ok, pues esta funcionando en una red de area local (LAN) y no tengo problemas. La empresa donde laboro utiliza un proxy para salir al internet y ahora me han puesto la tarea de que el cliente se conecte a travéz de internet. El servidor tendrá una IP publica fija pero mi duda es:

Cuando el cliente, dentro de la red de la empresa trate de conectarce al servidor por medio de la IP publica asignada, este tendria que pedir usuario y password del proxy y no se como hacer eso. No se si es correcto o posible conectar mi servidor desde el internet con una simple ip publica pero por favor, si la estoy arruinando en alguna parte diganlo que no sera ofensa de ninguna manera, ademas por supuesto de contestar mi duda acerca del proxy.

Gracias.

[escafandra]

Bienvenido, Diego827.

Mira a ver si esto te ayuda.


Saludos.

[escafandra]

Como complemento a lo dicho en el mensaje anterior, he publicado un truco que pide la autentificación en el proxy. Esto obliga a que el usuario conozca de anemano la contraseña. En el truco Autentificarnos en un proxy era la aplicación la que previamente conocía las credenciales. En el nuevo truco es el S.O. el que se ve oblidado a pedirlo.

Tu decides cual es la mejor opción. 

Saludos.

[Diego827]

Como complemento a lo dicho en el mensaje anterior, he publicado un truco que pide la autentificación en el proxy.

Disculpas escafandra, donde has publicado el truco? realmente me estas ayudando, gracias.

[escafandra]

Disculpas escafandra, donde has publicado el truco? realmente me estas ayudando, gracias.

Disculpa, no puse el enlace .  Está aquí. 


Saludos.

[Diego827]

Disculpas escafandra, donde has publicado el truco? realmente me estas ayudando, gracias.

Disculpa, no puse el enlace .  Está aquí. 


Saludos.

Gracias amigo, me parece que estos códigos son validos cuando lo que deseas mostrar es una página web. No posees algún código para una aplicación que se desee conectar a una ip, o sea un servidor como en mi caso??? Esta segunda forma que me muestras es la mas parecida a lo que quiero obtener para poder conectarme desde internet con mi servidor, que aparezca una venta ita tal cual la del explorador cuando te pide usuario y password.

Saludos,

[escafandra]

Mira a ver si esto te ayuda.


Saludos.

[escafandra]

Ahora que he tenido un momento libre, te muestro una versión del truco que funciona con IP y URL:

cpp

#pragma link "$(BCB)\\lib\\PSDK\\Wininet.lib"
 
void Authenticate(HWND hWnd, char *_URL)
{
  HINTERNET hInet,  hConnect, hRequest;
  DWORD dwErrorCode;
 
  char *URL = strnewdup(_URL);
  if(!strnicmp(URL, "http://", 7)) URL += 7;
  char *C = strchr(URL, '//');
  if(C) *C = 0;
  hInet = InternetOpen("Agent", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
  hConnect = InternetConnect(hInet, URL,
                              INTERNET_INVALID_PORT_NUMBER, NULL, NULL,
                              INTERNET_SERVICE_HTTP, 0,0);
 
  hRequest = HttpOpenRequest(hConnect, "GET", "", NULL, NULL, NULL,
                              INTERNET_FLAG_KEEP_CONNECTION, 0);
  HttpSendRequest(hRequest, NULL, 0, NULL, 0);
  dwErrorCode = hRequest ? ERROR_SUCCESS : GetLastError();
  InternetErrorDlg(hWnd, hRequest, dwErrorCode,
                    FLAGS_ERROR_UI_FILTER_FOR_ERRORS |
                    FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS |
                    FLAGS_ERROR_UI_FLAGS_GENERATE_DATA,
                    NULL);
  delete URL;
  InternetCloseHandle(hInet);
  InternetCloseHandle(hConnect);
  InternetCloseHandle(hRequest);
}

PD: He realizado una pequeña mejora en el código.

Saludos.

[escafandra]

A juzgar por le evolución del hilo y del  agradecimiento final sin añadir mas dudas, considero este hilo como resuelto. 


Saludos.