|
|
", $descriacc1);
$catacc1 = $myrow["cat"];
$files = $myrow["fichero"];
$titularacc1 = $myrow["titular"];
$foro = $myrow["comments"];
$veri1 = substr_count($titularacc1, "(f)");
if ($veri1 == 1) {
// Función de Compresión de la Imagen
$opend = 'c:\maps\tumbs';
@$opend_result = mkdir ($opend , 0777);
$v1 = $files;
// Extrae el verdadero nombre del archivo
$pos = strrpos($v1, "/");
$rest = substr($v1, $pos+1);
$sz = 100;
$size = GetImageSize("c:/maps/tumbs/".$rest);
$an = $size[0];
$la = $size[1];
$ty = $size[2];
$an1 = round($an);
$la1 = round($la);
if ($an > $la) {
$la = $la * $sz;
$la = $la / $an;
$an = $sz;
}
if ($la > $an) {
$fc = $an / $sz;
$an = $sz;
$la = $la / $fc;
}
if ($la == $an) {
$an = $sz;
$la = $sz;
}
$pos = strpos($v1, "/");
$n_file = substr($v1, $pos);
$copyfile = "c:/maps/tumbs/images/".$rest;
$original_file ="c:/maps/tumbs/".$rest;
copy($original_file , $copyfile);
$dest = "c:\maps\\recipiente.jpg";
if ($ty == 1) {
$img_src=imagecreatefromgif("c:/maps/tumbs/".$rest);
}
if ($ty == 2) {
$img_src=imagecreatefromjpeg("c:/maps/tumbs/".$rest);
}
$img_dst=imagecreatetruecolor($an,$la);
imagecopyresampled($img_dst, $img_src, 0, 0, 0, 0, $an, $la, $an1, $la1);
$dest = "c:/maps/tumbs/images/".$rest.".jpg";
imagejpeg($img_dst, $dest, 100);
// Fin de la Función de Compresión de la Imagen
?>
|
Comentar
este tema... I
Comentarios
sobre este tema...
|
Comentar
este tema... I
Comentarios
sobre este tema...
- |
|
Manual
de Procesos y Procedimientos (Documentos obsoletos)
Archivo en formato ZIP
Tamaño aproximado : 81.3 MB (Actualización
septiembre 17 de 2008)
(
Click para descargar ) |
|
|
|