程序博客网 > java手动释放内存

[VB.NET]关于EXIF读取的详细问题,高手请进

来源：互联网发布：java手动释放内存编辑：程序博客网时间：2024/05/01 02:51

VB.NET源码-156个实用实例哦……

<script type="text/javascript"></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
关于EXIF读取的详细问题,高手请进
我要读取一个图片的EXIF信息, 信息中有汉字读不出来。
请大家给点源码吧~~THANK YOU
__________________________________________________________________________
我也想要。顶
__________________________________________________________________________
自己 up 下
__________________________________________________________________________
这里有段 c#的代码那位高手帮我写成VB.NET

private void WriteNewDescriptionInImage(string Filename,string NewDescription)
{
Image Pic;
PropertyItem[] PropertyItems;
byte[] bDescription=new Byte[NewDescription.Length];
int i;
string FilenameTemp;
Encoder Enc=Encoder.Transformation;
EncoderParameters EncParms=new EncoderParameters(1);
EncoderParameter EncParm;
ImageCodecInfo CodecInfo=GetEncoderInfo( image/jpeg );

// copy description into byte array
for (i=0;i
// load the image to change
Pic=Image.FromFile(Filename);

// put the new description into the right property item
PropertyItems=Pic.PropertyItems;
PropertyItems[0].Id=0x010e; // 0x010e as specified in EXIF standard
PropertyItems[0].Type=2;
PropertyItems[0].Len=NewDescription.Length;
PropertyItems[0].Value=bDescription;
Pic.SetPropertyItem(PropertyItems[0]);

// we cannot store in the same image, so use a temporary image instead
FilenameTemp=Filename+ .temp ;

// for lossless rewriting must rotate the image by 90 degrees!
EncParm=new EncoderParameter(Enc,(long)EncoderValue.TransformRotate90);
EncParms.Param[0]=EncParm;

// now write the rotated image with new description
Pic.Save(FilenameTemp,CodecInfo,EncParms);

// for computers with low memory and large pictures: release memory now
Pic.Dispose();
Pic=null;
GC.Collect();

// delete the original file, will be replaced later
System.IO.File.Delete(Filename);

// now must rotate back the written picture
Pic=Image.FromFile(FilenameTemp);
EncParm=new EncoderParameter(Enc,(long)EncoderValue.TransformRotate270);
EncParms.Param[0]=EncParm;
Pic.Save(Filename,CodecInfo,EncParms);

// release memory now
Pic.Dispose();
Pic=null;
GC.Collect();

// delete the temporary picture
System.IO.File.Delete(FilenameTemp);
}
__________________________________________________________________________
上面的是写入EXIF信息
__________________________________________________________________________

Private Sub WriteNewDescriptionInImage(ByVal Filename As String, ByVal NewDescription As String)
Dim Pic As Image
Dim PropertyItems() As PropertyItem
Dim bDescription() As Byte = New Byte(NewDescription.Length) {}
Dim i As Integer
Dim FilenameTemp As String
Dim Enc As Encoder = Encoder.Transformation
Dim EncParms As EncoderParameters = New EncoderParameters(1)
Dim EncParm As EncoderParameter
Dim CodecInfo As ImageCodecInfo = GetEncoderInfo( image/jpeg )

copy description into byte array
For i = 0 To NewDescription.Length- 1 Step i + 1
load the image to changePic=Image.FromFile(Filename)
Next

put the new description into the right property item
PropertyItems=Pic.PropertyItems
PropertyItems(0).Id=0x010e 0x010e as specified in EXIF standard
PropertyItems(0).Type=2
PropertyItems(0).Len=NewDescription.Length
PropertyItems(0).Value=bDescription
Pic.SetPropertyItem(PropertyItems(0))

we cannot store in the same image, so use a temporary image instead
FilenameTemp=Filename+ .temp

for lossless rewriting must rotate the image by 90 degrees!
EncParm=New EncoderParameter(Enc,CType(EncoderValue.TransformRotate90, Long))
EncParms.Param(0)=EncParm

now write the rotated image with new description
Pic.Save(FilenameTemp,CodecInfo,EncParms)

for computers with low memory and large pictures: release memory now
Pic.Dispose()
Pic=Nothing
GC.Collect()

delete the original file, will be replaced later
System.IO.File.Delete(Filename)

now must rotate back the written picture
Pic=Image.FromFile(FilenameTemp)
EncParm=New EncoderParameter(Enc,CType(EncoderValue.TransformRotate270, Long))
EncParms.Param(0)=EncParm
Pic.Save(Filename,CodecInfo,EncParms)

release memory now
Pic.Dispose()
Pic=Nothing
GC.Collect()

delete the temporary picture
System.IO.File.Delete(FilenameTemp)
End Sub
__________________________________________________________________________
zzy1254(逍遥)
Dim CodecInfo As ImageCodecInfo = GetEncoderInfo( image/jpeg )

这个GetEncoderInfo有波澜线

上面的代码我已经改过
功能算是可以实现英文字母可以写入但要是写入的是汉字信息就写不进去。

那位高人给点相关资料
__________________________________________________________________________
for (i=0;i 这句也有错
__________________________________________________________________________
zzy1254(逍遥) 写成。NET写错
正确写法应该是下面这个
For i = 0 To NewDescription.Length - 1
bDescription(i) = Asc(NewDescription(i))
Next i
__________________________________________________________________________
噢，这样啊，不好意思，转换完了也没有试就给你贴上来了
__________________________________________________________________________
这个我试拉能够添加英文的信息但汉字信息添加不了
找高人呀
__________________________________________________________________________

java手动释放内存

java手动释放内存

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子民教网怎么样民教网查学历民教网可查民教网网址民学网民教网民教网哪个是真的民教网地址民教网那个是真的民教网有用吗有几个民教网民学网和民教网民教网和民学网的区别民教网证书验证民教网的学历有用吗民教网的毕业证有用吗民教网毕业证书查询民教网证书查询系统民教网学历证书查询有权决定乡民族乡镇的建置中国民族历史中国民族史民族史中国民族品牌血泪史民族品牌血泪史民族学大连民族学院校历云南大学民族学民族学考研科目民族学通论民族学专业民族学就业方向云南大学民族学与社会学学院西南民族大学学工网系统登录中央民族大学民族学考研广西民族大学民族学中央民族大学民族学民族志少数民族的民风民俗少数民族文艺云南民族村旅游民族村门票