تصغير الصور vb3.5.3

[alqerqaa]

السلام عليكم ورحمة الله وبركاته

يعمل هذا الهاك على تصغير الصور ومن ضمنها التواقيع وطريقته سهله ومفيده لتزييّن شكل الأستايل .

الطريقه لتركيب :

أبحث في ملف (( includes/class_bbcode.php }} .

عن هذا الكود :

// ********************* REMOVE HTML CODES ***************************
if (!$do_html)
{
$text = htmlspecialchars_uni($text);
}
$html_allowed = $do_html;

$text = $this->parse_whitespace_newlines($text, $do_nl2br);

ثم أضف بعده :

// ملتقى منتديات القرقاع ، لتغيير حجم الصور الكبيره

// قم بضبط max_imgsize إلى المقـاس الذي ترغــب به .
global $max_imgsize;
$max_imgsize=400;


if (strstr(strtolower($bbcode),'<img') AND $dohtml) {
$tagstartcounter=0;
do {
$bbcodelength=strlen($bbcode);
// pull tag from bbcode
$tagopen=(strpos(strtolower($bbcode),'<img',$tagstartcounter));
$tagclose=(strpos($bbcode,'>',$tagopen));
$bbtag=substr($bbcode,$tagopen,($tagclose-$tagopen+1));
$bbtag = str_replace('\'','"',$bbtag);


$linkopen=(strpos(strtolower($bbtag),'<img'));
$linkopen2=(strpos(strtolower($bbtag),'"',$linkopen));
$linkclose=(strpos($bbtag,'"',$linkopen2+1));
$link=substr($bbtag,$linkopen2+1,($linkclose-$linkopen2-1));

$link = str_replace(' ', '', $link);


$image= ($link);
if (@fclose(@fopen("$image", "r"))) {

$img_width = getimagesize($link);
if ($img_width[0] > $max_imgsize) {
$bbtag = '<table><tr><td align="center"><a target="_blank" href="' . $link . '"><img ***="'
. $link . '" width="'.$max_imgsize.'" border="0"'.substr($bbtag,$linkclose+1,strlen($bbtag)-$linkclose+1).'<br>تم تصغـير الصورة تلقـائيـا ، اضغط هنا لمشاهدة الصورة بحجمها الطـبيعي .</a></td></tr></table>';
}
}
else {

$bbtag='<table border="1" cellpadding="0"><tr><td><FONT color="#FF0000">عفـواً .. الصـورة غير موجودة</font></td></tr></table>';
}

$bbcode=substr($bbcode,0,$tagopen).$bbtag.substr($ bbcode,$tagclose+1,$bbcodelength-$tagclose);


$tagopen=$tagopen+(strpos(strtolower($bbtag),'<img'));


$tagstartcounter=(strpos($bbcode,'>',$tagopen));
} while (strpos(strtolower($bbcode),'<img',$tagstartcounter));


}

//

كما يمكنك تغيير الحجم الذي ترغب بأستبدال الحجم الموجود وهو (( 400 )) .

وفي نفس الملف أبحث عن هذا الكود !

return '<img ***="' . $link . '" border="0" alt="" />';

ثم أستبدله بهذا الكود :


// return '<img ***="' . $link . '" border="0" alt="" />';

global $max_imgsize;

$image= ($link);

if (@fclose(@fopen("$image", "r"))) {
$img_width = getimagesize($link);
if ($img_width[0] > $max_imgsize) {
$biglink = '<table><tr><td align="center"><a target="_blank" href="' . $link . '" ><img ***="'
. $link . '" width="'.$max_imgsize.'" border="0" alt=""><br>تم تصغـير الصورة تلقـائيـا ، اضغط هنا لمشاهدة الصورة بحجمها الطـبيعي .</a></td></tr></table>';
return $biglink;
}
else {
return '<img ***="' . $link . '" border="0" alt="" />';
}
}
else {
return '<table border="1" cellpadding="2"><tr><td><FONT color="#FF0000">عفـواً .. الصـورة غير موجودة</font></td></tr></table>';
}

كما أنه يعمل على (( vb3.5.0 )) وقد جرب على الأثنين ويعمل 100 %

وبالتوفيق

[ظبيه البراري]

يجزاك ربي الف خير ويرزقك

انشاء الله والله يتمم افراحك

[prayer-2007]

بارك الله فيك.