Bueno como siempre aprendiendo.
Tengo una funcion de un ejemplo que me chequea una URL en tiempo respuesta.
y me devuelve los codigos de respuesta http.
Esta funcion utiliza en el Uses la WinInet.
Estoy mirando las funciones que tiene la WinInet y no se donde se miran.
Pues quiero cambiar la funcion para que en vez de que me de los codigos. Me de las cabeceras de http como respuesta.
Supongo que se podran ver de alguna manera ¿no?
O si ya hay alguna funcion o un ejemplo que poniendo la direccion de la pagina ne devuelva las cabeceras de http, mucho mejor.
Con un ejemplo aprenderia mejor
A lo mejor es mucho pedir.
La funcion que tengo para aprender es:
Código Delphi
[-]
Function CheckUrl(url:string):boolean;
var
hSession, hfile, hRequest: hInternet;
dwindex,dwcodelen :dword;
dwcode:array[1..20] of char;
res : pchar;
begin
if pos('http://',lowercase(url))=0 then
url := 'http://'+url;
Result := false;
hSession := InternetOpen('InetURL:/1.0',
INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
if assigned(hsession) then
begin
hfile := InternetOpenUrl(
hsession,
pchar(url),
nil,
0,
INTERNET_FLAG_RELOAD,
0);
dwIndex := 0;
dwCodeLen := 10;
HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
@dwcode, dwcodeLen, dwIndex);
res := pchar(@dwcode);
form1.Memo1.Text:= res;
result:= (res ='200') or (res ='302');
if assigned(hfile) then
InternetCloseHandle(hfile);
InternetCloseHandle(hsession);
end;
end;
Muchas gracias