vb和java base64_java 写StrConv vbUnicode vbFromUnicode

/** Strconv.java

*

* Created on 12.01.2005, 1:25

*

* Copyright (c) 2005-2008, Eugene Stahov (evgs),http://bombus-im.org*

* This program is free software; you can redistribute it and/or

* modify it under the terms of the GNU General Public License

* as published by the Free Software Foundation; either version 2

* of the License, or (at your option) any later version.

*

* You can also redistribute and/or modify this program under the

* terms of the Psi License, specified in the accompanied COPYING

* file, as published by the Psi Project; either dated January 1st,

* 2005, or (at your option) any later version.

*

* This program is distributed in the hope that it will be useful,

* but WITHOUT ANY WARRANTY; without even the implied warranty of

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

* GNU General Public License for more details.

*

* You should have received a copy of the GNU General Public License

* along with this library; if not, write to the Free Software

* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA*/

/***

*@authorEugene Stahov*/

packageutil;importjava.io.ByteArrayOutputStream;importjava.io.DataOutputStream;public classStrconv {/*** Creates a new instance of Strconv*/

privateStrconv() {

}private staticByteArrayOutputStream baos;private staticDataOutputStream dos;public static byte[] stringToByteArray(String val) {try{

baos= newByteArrayOutputStream();

dos= newDataOutputStream(baos);

dos.writeUTF(val);byte[] raw =baos.toByteArray();byte[] result = new byte[raw.length - 2];

System.arraycopy(raw,2, result, 0, raw.length - 2);

raw= null;

raw= new byte[0];

dos.close();

baos.close();returnresult;

}catch(Exception e) {//Do nothing

}return null;

}public static final String convCp1251ToUnicode(finalString s){if (s==null) return null;

StringBuffer b=newStringBuffer(s.length());int len=s.length();for (int i=0;i0xbf) ch+=0x410-0xc0;if (ch==0xa8) ch=0x401;if (ch==0xb8) ch=0x451;

b.append(ch);//setCharAt(i, ch);

}returnb.toString();

}public static final String convUnicodeToCp1251(finalString s){if (s==null) return null;

StringBuffer b=newStringBuffer(s.length());int len=s.length();for (int i=0;i

if (ch==0x451) ch=0xb8; //Ñ

if (ch>0x409) ch+=0xc0-0x410;

b.append(ch);//setCharAt(i, ch);

}returnb.toString();

}public final staticString toBase64( String source) {

String alphabet= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";int len=source.length();char[] out = new char[((len+2)/3)<<2];for (int i=0, index=0; i

val|= (0xFF & source.charAt(i+1));

trip= true;

}

val<<= 8;if ((i+2)

val|= (0xFF & source.charAt(i+2));

quad= true;

}

out[index+3] = alphabet.charAt((quad? (val & 0x3F): 64));

val>>= 6;

out[index+2] = alphabet.charAt((trip? (val & 0x3F): 64));

val>>= 6;

out[index+1] = alphabet.charAt(val & 0x3F);

val>>= 6;

out[index+0] = alphabet.charAt(val & 0x3F);

}return newString(out);

}public final static String toBase64( byte source[], intlen) {

String alphabet= "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";if (len<0) len=source.length;char[] out = new char[((len+2)/3)<<2];for (int i=0, index=0; i

val|= (0xFF & source[i+1]);

trip= true;

}

val<<= 8;if ((i+2)

val|= (0xFF & source[i+2]);

quad= true;

}

out[index+3] = alphabet.charAt((quad? (val & 0x3F): 64));

val>>= 6;

out[index+2] = alphabet.charAt((trip? (val & 0x3F): 64));

val>>= 6;

out[index+1] = alphabet.charAt(val & 0x3F);

val>>= 6;

out[index+0] = alphabet.charAt(val & 0x3F);

}return newString(out);

}public staticStringBuffer toUTFSb(StringBuffer str) {int srcLen =str.length();

StringBuffer outbuf=newStringBuffer( srcLen );int c = 0;for(int i=0; i < srcLen; i++) {

c= (int)str.charAt(i);//TODO: åñêýéïèòü êîäû <0x20

if ((c >= 1) && (c <= 0x7f)) {

outbuf.append( (char) c);

}if (((c >= 0x80) && (c <= 0x7ff)) || (c==0)) {

outbuf.append((char)(0xc0 | (0x1f & (c >> 6))));

outbuf.append((char)(0x80 | (0x3f &c)));

}if ((c >= 0x800) && (c <= 0xffff)) {

outbuf.append(((char)(0xe0 | (0x0f & (c >> 12)))));

outbuf.append((char)(0x80 | (0x3f & (c >> 6))));

outbuf.append(((char)(0x80 | (0x3f &c))));

}

}returnoutbuf;

}public static byte[] fromBase64(String s) {returnbaosFromBase64(s).toByteArray();

}public staticString sFromBase64(String s) {returnbaosFromBase64(s).toString();

}private staticByteArrayOutputStream baosFromBase64(String s) {int padding=0;int ibuf=1;

ByteArrayOutputStream baos=new ByteArrayOutputStream(2048);for (int i=0; i

int base64=-1;if (nextChar>'A'-1 && nextChar'a'-1 && nextChar'0'-1 && nextChar=0) ibuf=(ibuf<<6)+base64;if (ibuf>=0x01000000){

baos.write((ibuf>>16) &0xff); //00xx0000 0,1,2 =

if (padding<2) baos.write((ibuf>>8) &0xff); //0000xx00 0,1 =

if (padding==0) baos.write(ibuf &0xff); //000000xx 0 =//len+=3;

ibuf=1;

}

}try { baos.close(); } catch(Exception e) {};returnbaos;

}public staticString unicodeToUTF(String src) {return toUTFSb(newStringBuffer(src)).toString();

}private static StringBuffer dst=new StringBuffer(0);public staticString toLowerCase(String src){

dst= new StringBuffer(0);

dst.append(src);int len=dst.length();charc;for (int i=0; i

c=dst.charAt(i);if (c>'A'-1 && c

if (c>0x40f && c<0x430) c+=0x430-0x410; //cyrillic chars//TODO: other schemes by request

dst.setCharAt(i, c);

}returndst.toString();

}

}

### 回答1: VB6.0中可以实现图片与base64格式的相互转换。 将图片转换为base64格式,可以先将图片读入到程序中,再使用Base64编码将其转换为字符串形式。具体实现如下: 1. 首先需要引用Microsoft ActiveX Data Objects库,即在工具栏菜单-项目-引用中勾选“Microsoft ActiveX Data Objects X.X Library”。 2. 读取图片到程序中,可以使用FileSystemObject对象的OpenTextFile方法实现。代码如下: Dim fs As Object Dim f As Object Dim s As String Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("C:\test.jpg", 1) '1表示只读模式 s = f.ReadAll f.Close 3. 将读取到的图片数据进行Base64编码处理,可以使用Microsoft.XMLDOM对象的transformNodeToObject方法,代码如下: Dim xmlDoc As Object Dim objNode As Object Dim outStream As Object Set xmlDoc = CreateObject("MSXML2.DOMDocument") Set objNode = xmlDoc.createElement("myNode") objNode.DataType = "bin.base64" objNode.nodeTypedValue = Stream_ImageRead("C:\test.jpg") '将读取到的图片数据传递进去 xmlDoc.appendChild objNode Set outStream = CreateObject("ADODB.Stream") outStream.Type = adTypeText outStream.Charset = "utf-8" outStream.Open xmlDoc.transformNodeToObject objNode, outStream s = outStream.ReadText outStream.Close 4. 最终得到的s就是图片的base64编码字符串。 将base64格式的字符串转换为图片,可以使用ADODB.Stream对象的LoadFromFile方法将base64字符串转换为二进制数据,再使用SaveToFile方法将二进制数据保存为图片文件。代码如下: Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") objStream.Type = adTypeBinary objStream.Open objStream.Write Replace(s, "data:image/jpeg;base64,", "") '将base64字符串中的头部去掉 objStream.SaveToFile "C:\test.jpg", adSaveCreateOverWrite objStream.Close 以上就是VB6.0中图片与base64格式的相互转换实现的方法。 ### 回答2: 在VB6.0中,需要将图片转换为Base64编码格式时,可以使用以下步骤: 1. 将图片文件打开并读取到内存中,使用FilesystemObject对象来处理文件操作。 2. 使用ADODB.Stream对象将图片读取到二进制(Byte)数组中。 3. 将二进制数组转换为Base64编码格式,可以使用MSXML2.DOMDocument对象来进行编码处理。 4. 将Base64编码后的字符串输出或者存储到需要的地方。 以下是一个VB6.0示例代码: ``` '打开图片文件 Dim fs As New FileSystemObject Dim fso As File Set fso = fs.GetFile("C:\test.jpg") '将图片文件读取到二进制数组中 Dim stream As New ADODB.Stream stream.Type = adTypeBinary stream.Open stream.LoadFromFile fso.Path Dim buffer() As Byte ReDim buffer(stream.Size - 1) stream.Read buffer '将二进制转换为Base64编码 Dim dom As New MSXML2.DOMDocument Dim elemBin As IXMLDOMElement Dim elemText As IXMLDOMText Set elemBin = dom.createElement("bin") elemBin.DataType = "bin.base64" elemBin.nodeTypedValue = buffer Set elemText = dom.createTextNode(elemBin.Text) Dim base64Str As String base64Str = elemText.Text '输出Base64字符串 MsgBox base64Str ``` 这个过程需要注意的是:大文件不能一次全部读入内存中,需要采用流方式处理。另外,还需要注意编码格式、块处理、格式化等问题。 ### 回答3: VB6.0是一种广泛应用于Windows平台上的编程语言,它可以轻松实现图片与base64的相互转换。 Base64是一种将二进制数据编码成ASCII字符的方法,通常用于在网络中传输图片、音频等二进制数据。在VB6.0中,可以通过以下方式将图片转换为base64编码: 1.将图片读取为二进制数据: Dim b() As Byte Open "C:\image.jpg" For Binary As #1 ReDim b(LOF(1) - 1) Get #1, , b Close #1 2.使用Microsoft.XMLDOM对象来生成base64编码: Dim xmlDoc As Object Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.LoadXML "<root/>" xmlDoc.DocumentElement.DataType = "bin.base64" xmlDoc.DocumentElement.NodeTypedValue = b Base64String = xmlDoc.DocumentElement.Text 如果想要将已经编码为base64的数据转换回原始图片数据,也可以通过以下方式实现: 1.将base64字符串转换为二进制数据: Dim b() As Byte b = StrConv(Base64String, vbFromUnicode) b = DecodeBase64(b) 其中,DecodeBase64是一个自定义函数,用于将base64字符串解码为二进制数据。 2.将二进制数据保存为图片文件: Open "C:\image.jpg" For Binary As #1 Put #1, , b Close #1 综上所述,通过VB6.0可以轻松地实现图片与base64的相互转换。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值