缩略图源码
㈠ C#中上传图片(并显示缩略图)源代码
我在 项目 中用的
读取 缩小举游局 显示的
string sqlstr = " SELECT FPhoto FROM T_EquEquipmentPhoto WHERE FID=" + id.ToString() ;
DataTable dt = new DataTable();
dt = GlobalValue.GlobalSQL["Master"].ExecuteDataset(CommandType.Text,sqlstr).Tables[0];
if (dt.Rows.Count <= 0)
return;
if (dt.Rows[0]["FPhoto"] == System.DBNull.Value)
{
return;
}
byte[] img = (byte[])dt.Rows[0]["FPhoto"];//
MemoryStream ms = new MemoryStream(img);//读取数据流,把数据流磨盯转换成MS
Image oldImage = Image.FromStream(ms);//
Image newimage = oldImage.GetThumbnailImage(200, 200, new Image.GetThumbnailImageAbort(istrue), IntPtr.Zero);//缩小图片
picBoxEqu.Image = newimage;// Image.FromStream(ms);//
一下 导入图片
int phtotoRecordid = (int)udw_EquEquipmentPhotoList.PrimaryData[udw_EquEquipmentPhotoList.CurrentRow, "FID"];
FileDialog fdimg;
fdimg = new System.Windows.Forms.OpenFileDialog();
fdimg.Filter = "正让图片文件|*.bmp;*.jpg;*.jpeg;*.gif;*.png";//"JPG 文件|*.jpg";
if (fdimg.ShowDialog() == DialogResult.OK)
{
string filename = fdimg.FileName;
FileInfo fi = new FileInfo(filename);
byte[] imgStream = new byte[fi.Length];
FileStream fs = new FileStream(filename, FileMode.Open, FileAccess.Read);
fs.Read(imgStream, 0, imgStream.Length);
char []cList=filename.ToCharArray();
for (int i = filename.Length; i > 0; i--)
{
if (((int)cList[i-1]) == 92)
{
filename = filename.Substring(i);
break;
}
}
StringBuilder strSql = new StringBuilder();
strSql.Append("update dbo.T_EquEquipmentPhoto set ");
strSql.Append("FPhoto=@FPhoto,FFileName=@FFileName");
strSql.Append(" where FID=@FID ");
SqlParameter[] parameters = {
new SqlParameter("@FID", SqlDbType.Int,4),
new SqlParameter("@FPhoto", SqlDbType.Image),
new SqlParameter("@FFileName", SqlDbType.VarChar)
};
parameters[0].Value = phtotoRecordid;
parameters[1].Value = imgStream;
parameters[2].Value = filename;
GlobalValue.GlobalSQL["Master"].ExecuteNonQuery(CommandType.Text, strSql.ToString(), parameters);
RemindInformation.ShowMessageOk("导入图片成功!");
㈡ ecshop 商品缩略图源码在哪个文件夹中啊,不是改缩略图大小,而是想改那个缩略图框的大小,谢谢
goods_list.lbi
㈢ 谁有asp上传图片自动产生缩略图的源码
'lj1 原图路径
'如雀tu 图片名称
'lj2 缩略图存放渣消早路径
function CreatePic(lj1,tu,lj2)
dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = server.mappath(lj1& "/" &tu) ' 图片所在位置
Jpeg.Open Path ' 打开
if Jpeg.OriginalWidth>Jpeg.OriginalHeight then ' 设置缩略图大小(这里比例桥哪设定为50%)
Jpeg.Width =90
Jpeg.Height = Jpeg.OriginalHeight / (Jpeg.OriginalWidth / 90 )
else
Jpeg.Height =90
Jpeg.Width = Jpeg.OriginalWidth / ( Jpeg.OriginalHeight/ 90)
end if
Jpeg.Save server.mappath(lj2 & "/"&tu) ' 保存缩略图到指定文件夹下
Set Jpeg = Nothing ' 注销实例
end function
㈣ 火车头如何采集还有缩略图的文章呢
1、首先在采集列表页的源码中将带有缩略图哪悔销的那部分源码复制下来,如图:
9、我们保存后测试一下,一起顺利,缩略图顺利采集下来了