Hola gente:
Estoy haciendo una rutina para manejar cookies pero estoy haciendo algo mal, del debuger no me dice en que linea esta el error, pero me presenta la ventana de debug del cpu con la linea erronea en assembler....
si alguno le da una miradita al codigo por ahi me puede decir donde podria estar el error, o alguna pista (se me hace que tiene que ver con el puntero Pinfo y el GetMem/FreeMen)
var
info: INTERNET_CACHE_ENTRY_INFOA;
Pinfo: PInternetCacheEntryInfoA;
Buffer: DWORD;
Handle: THandle;
esEsta: string;
begin
esEsta:='';
Buffer := 0;
Pinfo:=@info;
//primera vez obtengo el tamaño del buffer correcto
Handle := FindFirstUrlCacheEntry(nil, info, Buffer);
if (Handle=0) and (GetLastError()= ERROR_INSUFFICIENT_BUFFER) then
begin
GetMem(Pinfo,Buffer);
Handle := FindFirstUrlCacheEntry(nil, info, Buffer);
if Handle <> 0 then //exito
begin
repeat //bucle
if (info.CacheEntryType = NORMAL_CACHE_ENTRY) then
begin
if StrPos(info.lpszSourceUrlName,PChar(CmbPattern.Text)) <> nil then
begin
esEsta:= info.lpszSourceUrlName;
break;
end;
end;
FreeMem(Pinfo, Buffer); // se borra el buffer
Buffer := 0;
FindNextUrlCacheEntry(Handle, info, Buffer);
GetMem(Pinfo, Buffer);
until FindNextUrlCacheEntry(Handle, info, Buffer) = False;
//fin bucle
FindCloseUrlCache(Handle);
end;
end;
end;
una vez mas les agradezco mucho su ayuda.
Saludos!