FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con el manejo de punteros?
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!
__________________
Delphi fan |
|
|
|