Evitar que se congele mi aplicación!!

[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;