Evitar que se congele mi aplicación!!

[jmariano]

La verdad es que no he trabajado con esta API aún, pero, según encontré por ahí, el truco está en hacer la llamada a "InternetOpen" (la primera función que ha de invocarse y que inicializa el API WinInet) pasándole como parámetro (o "flags"): INTERNET_FLAG_ASYNC. De esta manera, todas las llamadas a las demás funciones, como "InternetOpenUrl", se ejecutarán de forma asíncrona, es decir, devolverá el control a la aplicación antes de que se termine su ejecución.

Saludos!

[acertij022]

Tenes razon pero pierdo el control mi codigo es :

Código Delphi [-]
    hInet := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY,nil,nil,INTERNE  T_FLAG_ASYNC);
    hConnect := InternetOpenUrl(hInet,PChar(HTTPserver),nil,0,0,0);


    if not Assigned(hConnect) then....//hConnet = nil

Todo esto porque necesito saber el contenido de la cabecera de una conexion TCP con protocolo HTTP para saber la IP y identificar si esta conectado a un proxy anonimo o no.

[jmariano]

Como ya te comenté no estoy muy familiarizado con esta API, pero, según leí en el MSDN de Microsoft, cuando se hacen llamadas asíncronas hay que crear una función "callback" de estado que sirve, precisamente, para monitorear el estado de una "petición" de Internet (y es, en esta función, donde creo que tendría que ir tu código de verificación).

Visita la siguiente dirección que te muestra como ha de crearse y usarse tal función:
http://windowssdk.msdn.microsoft.com..._functions.asp

Espero que te sirva!

Saludos!

[roman]

De lo mejor que he visto en español para usar WinInet:

http://www.lawebdejm.com/prog/delphi/index.html

// Saludos

[acertij022]

Gracias a todos con la info que me dieron me funciono, era como me habian dicho ustedes:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
hSession, hURL: HInternet;
lpBuffer: array[0..1024+1] of Char; 
dwBytesRead: DWORD;
begin
hSession := InternetOpen(PChar(ExtractFileName(Application.ExeName)),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
if Assigned( hSession ) then 
  begin
  hURL := InternetOpenUrl( hSession, PChar('http://www.xxxxxxxx.com.ar/ip.php'), nil, 0, 0, INTERNET_FLAG_ASYNC);
  if Assigned( hURL ) then
     while true do
          begin
          dwBytesRead := 1024;
          InternetReadFile( hURL, @lpBuffer, 1024, dwBytesRead );
          if dwBytesRead = 0 then break;
          lpBuffer[dwBytesRead] := #0;
          Memo1.Lines.Add( lpBuffer );
          end; //while
InternetCloseHandle( hURL );
end;
InternetCloseHandle( hSession );
end;