4 replies to this topic

[escafandra]

Como complemento al truco publicado, " Autentificarnos en un proxy", pedemos pedir la autentificación, de esta forma obligamos a que el usuario se sepa la contraseña.

La función en C/C++ sería esta:

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);
}

hWnd: Es la ventana padre del cuadro de dialogo de autentificación.
URL: Es una URL completa y válida.

Obtendremos un diálogo que nos pedirá autentificarnos. Una vez autenrificados, la autentificación persiste durante toda la vida de la aplicación.

Eljemplo de uso:

cpp

  Authenticate(Handle, "http://www.google.es");

En el siguiente mensaje publico una versión para delphi. 

Espero que sea de utilidad.



Saludos.

PD: Actualizo el código para admitir direcciones IP

[escafandra]

La versión delphi es idéntica a la versión C/C++, sólo le cambio el nombre para no tener conflicto con la función publicada aquí.
 

delphi

uses Wininet;
 
procedure Authenticate2(hWnd: THANDLE; URL: String);
var
  hInet, hConnect, hRequest: HINTERNET;
  dwErrorCode, i: DWORD;
begin
  URL:= StrLower(PCHAR(URL));
  i:= Pos('http://', URL); if i>0 then URL:= Copy(URL, 8, Length(URL)-7);
  i:= Pos('/', URL);      if i>0 then SetLength(URL, i-1);
  hInet:= InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hConnect:= InternetConnect(hInet, PCHAR(URL),
                              INTERNET_INVALID_PORT_NUMBER, nil, nil,
                              INTERNET_SERVICE_HTTP, 0,0);
 
  hRequest:= HttpOpenRequest(hConnect, 'GET', '',
                              nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
 
  HttpSendRequest(hRequest, nil, 0, nil, 0);
  if hRequest<>nil then dwErrorCode:= ERROR_SUCCESS else dwErrorCode:= GetLastError;
  InternetErrorDlg(hWnd, hRequest, dwErrorCode,
                    FLAGS_ERROR_UI_FILTER_FOR_ERRORS or
                    FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS or
                    FLAGS_ERROR_UI_FLAGS_GENERATE_DATA,
                    PPointer(0)^);
 
  InternetCloseHandle(hInet);
  InternetCloseHandle(hConnect);
  InternetCloseHandle(hRequest);

El uso es igual que su hermana en C/C++:

delphi

  Authenticate(Handle, 'http;//www.google.es');  // En el ejemplo sustituir http; por http:

Espero que sea de utilidad.


Saludos.


PD: Actualizo el código para admitir direcciones IP

[egostar]

Excelente solución amigo escafandra, ultimamente he tenido que incluir autenticación a proxy y lo he hecho con curl, ésta es otra forma pero indudablemente muy interesante.

Saludos

[escafandra]

En el anterior truco también nos autentificábamos aunque era la aplicación la que lo hacía conociendo de antemano las credenciales. Bien es cierto que podíamos crear un diálogo que nos pidiera el user y password.

En este truco obligamos al S.O. que nos lo pida. Este truco es de utilidad si deseamos que el usuario deba conocer las credenciales.


Saludos.

[escafandra]

En el hilo que originó este truco se precisó que la dirección para autentificarse en el proxy fuera una IP. Por ese motivo actualizo el código original, para que admita direcciones IP.

Saludos.