ObjectBinaryToText 内存流转文本问题。

52vc 2010-11-03 10:50:06 


	AnsiString Value="   " ;

        TMemoryStream*	pms=new TMemoryStream();

        TStringStream*  pws=new  TStringStream(Value);

        pms->LoadFromFile("D:\\x.txt");

        pms->Seek(0, soFromBeginning);

        ObjectBinaryToText(pms, pws); //运行至些出错 'Invalid stream format'

        pws->Position=0;

        Value = pws->DataString;
...全文
210 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccrun.com 2010-11-04
  • 打赏
  • 举报
 回复
zzbinfo 2010-11-04
  • 打赏
  • 举报
 回复
上面的代码我是网上超的,只改了一点,就等你来顶贴了..用的时候,添加ba64.cpp到项目,大概的代码如下
#include "Ba64.h"





   _di_IXMLNode Node = NewDataSetNode->AddChild("PepolePhoto",0);

   TMemoryStream* pmem=new TMemoryStream( );

   pmem->LoadFromFile("1.jpg");

   pmem->Seek(0,soFromBeginning);

   TMemoryStream *buf = new TMemoryStream( );

   buf->Size = pmem->Size* 4 / 3 + 1;

   Base64Encode( ( char * )( buf->Memory ), ( unsigned char * )(pmem->Memory),pmem->Size );

   Node->SetNodeValue(AnsiString( ( char * )(buf->Memory)));

   delete buf;

   delete pmem;
解码的时候大概是这样
      _di_IXMLNode Node;

      Node = NodeList->FindNode(WideString("PepolePhoto"));

      AnsiString  PhotoString = Node->GetNodeValue();

      TMemoryStream *pmem = new TMemoryStream();

      pmem->Size = PhotoString.Length() + 1;

      Base64Decode( ( unsigned char * )( pmem->Memory ), PhotoString.c_str( ) );

      pmem->SaveToFile(SaveFilePath);

      delete pmem;
只是摘录原来的代码,没有专门写测试,你试试看
ccrun.com 2010-11-04
  • 打赏
  • 举报
 回复
这不是猛禽哥写的代码么？
zzbinfo 2010-11-04
  • 打赏
  • 举报
 回复 
//---------------------------------------------------------------------------

//  MIME(QP & Base64) Encode/Decode unit. (H)

//  Copyright (c) 2000, 02 Mental Studio - http://mental.mentsu.com

//  Author : Raptor - raptorz@163.com

//---------------------------------------------------------------------------

#ifndef mimeb64H

#define mimeb64H

//---------------------------------------------------------------------------



#ifdef __cplusplus

extern "C" {

#endif



int QPEncode(     char * const aDest, const unsigned char * aSrc, int aLen );

int QPDecode(     unsigned char * const aDest, const char * aSrc );

int Base64Encode( char * const aDest, const unsigned char * aSrc, int aLen );

int Base64Decode( unsigned char * const aDest, const char * aSrc );





#ifdef __cplusplus

}

#endif

//---------------------------------------------------------------------------

#endif

#define DEC 1

#define ENC 2

//extern AnsiString Base64( AnsiString aSrc, int aOp )
zzbinfo 2010-11-04
  • 打赏
  • 举报
 回复
我改过的ba64.cpp,


#include "ba64.h"

#include <stdlib.h>

#include <string.h>

#include <mbstring.h>



//---------------------------------------------------------------------------

#pragma package(smart_init)

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

//  MIME(QP & Base64) Encode/Decode unit. (C)

//  Copyright (c) 2000, 01 Mental Studio - http://mental.mentsu.com

//  Author : Raptor - raptorz@163.com

//---------------------------------------------------------------------------

//

//  如要用于 Delphi ，请用如下命令编译本单元，产生 mimeb64.obj 文件：

//  bcc32 -c -pr -O2 -C -K -N- -k- -d -3 -r- mimeb64.c

//  各参数意义分别为：

//  -c  编译为 obj 文件

//  -pr 产生 Pascal 的 fastcall 调用方式

//  -O2 优化选项为2

//  -C  允许嵌套注释

//  -K  默认使用无符号字符

//  -N- 不对栈溢出作检查

//  -k- 不使用标准栈框架

//  -d  合并重复的字符串

//  -3  使用 386 指令

//  -r- 未知^_^

//

//  为方便使用，在 BCB 中可编写下面这个函数：





//  在 Delphi 中则要编写下面这个单元：



//----------------------------------------------------------------------------

/*

AnsiString Base64( AnsiString aSrc, int aOp )

{

    int n;

    TMemoryStream * buf;

    AnsiString s = "";



    buf = new TMemoryStream( );

    try

    {

        n = aSrc.Length( );



      if ( aOp == 2 )

        {  //  Base64Encode

            buf->Size = n * 4 / 3 + 1;

            Base64Encode( ( char * )( buf->Memory ), ( unsigned char * )( aSrc.c_str( ) ), n );

        }





      if ( aOp == 1 ) //  Base64Decode

        {

         buf->Size = n + 1;

         n = Base64Decode( ( unsigned char * )( buf->Memory ), aSrc.c_str( ) );

            ( ( char * )( buf->Memory ) )[n] = 0;

        }

        s = AnsiString( ( char * )( buf->Memory ) );

    }

    __finally

    {

        delete buf;

    }

    return s;

}   */

//--------------------------------------------

//  4bit binary to char 0-F

char Hex2Chr( unsigned char n )

{

    n &= 0xF;

    if ( n < 10 )

        return ( char )( n + '0' );

    else

        return ( char )( n - 10 + 'A' );

}

//---------------------------------------------------------------------------

//  char 0-F to 4bit binary

unsigned char Chr2Hex( char c )

{

    if ( c >= 'a' && c <= 'z' )  //  it's toupper

        c = c - 'a' + 'A';

    if ( c >= '0' && c <= '9' )

        return ( int )( c - '0' );

    else if ( c >= 'A' && c <= 'F' )

        return ( int )( c - 'A' + 10 );

    else

        return -1;

}

//---------------------------------------------------------------------------

//  Base64 code table

//  0-63 : A-Z(25) a-z(51), 0-9(61), +(62), /(63)

char  Base2Chr( unsigned char n )

{

    n &= 0x3F;

    if ( n < 26 )

        return ( char )( n + 'A' );

    else if ( n < 52 )

        return ( char )( n - 26 + 'a' );

    else if ( n < 62 )

        return ( char )( n - 52 + '0' );

    else if ( n == 62 )

        return '+';

    else

        return '/';

}

//---------------------------------------------------------------------------

unsigned char Chr2Base( char c )

{

    if ( c >= 'A' && c <= 'Z' )

        return ( unsigned char )( c - 'A' );

    else if ( c >= 'a' && c <= 'z' )

        return ( unsigned char )( c - 'a' + 26 );

    else if ( c >= '0' && c <= '9' )

        return ( unsigned char )( c - '0' + 52 );

    else if ( c == '+' )

        return 62;

    else if ( c == '/' )

        return 63;

    else

        return 64;  //  无效字符

}

//---------------------------------------------------------------------------

//  aLen 为 aSrc 的大小， aDest 所指的缓冲区必须至少为 aLen 的 3 倍！！！

//  返回 aDest 的长度

int QPEncode( char * const aDest, const unsigned char * aSrc, int aLen )

{

    char * p = aDest;

    int    i = 0;



    while ( i++ < aLen )

    {

        *p++ = '=';

        *p++ = Hex2Chr( *aSrc >> 4 );

        *p++ = Hex2Chr( *aSrc++ );

    }

    *p = 0;  //  aDest is an ASCIIZ string

    return ( p - aDest );  //  exclude the end of zero

}

//---------------------------------------------------------------------------

//  aDest 所指的缓冲区必须至少为 aSrc 长度的 1/3 ！！！

//  返回 aDest 的长度

int QPDecode( unsigned char * const aDest, const char * aSrc )

{

    unsigned char * p = aDest;

    int             n = strlen( aSrc );

    unsigned char   ch, cl;



    while ( *aSrc )  //  aSrc is an ASCIIZ string

    {

        if ( ( *aSrc == '=' ) && ( n - 2 > 0 ) )

        {

            ch = Chr2Hex( aSrc[1] );

            cl = Chr2Hex( aSrc[2] );

            if ( ( ch == ( unsigned char )-1 ) || ( cl == ( unsigned char )-1 ) )

                *p++ = *aSrc++;

            else

            {

                *p++ = ( ch << 4 ) | cl;

                aSrc += 3;

            }

        }

        else

            *p++ = *aSrc++;

    }

    return ( p - aDest );

}

//---------------------------------------------------------------------------

//  aLen 为 aSrc 的长度， aDest 所指的缓冲区必须至少为 aLen 的 1.33 倍！！！

//  返回 aDest 的长度

int Base64Encode( char * const aDest, const unsigned char * aSrc, int aLen )

{

    char        * p = aDest;

    int           i;

    unsigned char t;



    for ( i = 0; i < aLen; i++ )

    {

        switch ( i % 3 )

        {

        case 0 :

            *p++ = Base2Chr( *aSrc >> 2 );

            t = ( *aSrc++ << 4 ) & 0x3F;

            break;

        case 1 :

            *p++ = Base2Chr( t | ( *aSrc >> 4 ) );

            t = ( *aSrc++ << 2 ) & 0x3F;

            break;

        case 2 :

            *p++ = Base2Chr( t | ( *aSrc >> 6 ) );

            *p++ = Base2Chr( *aSrc++ );

            break;

        }

    }

    if ( aLen % 3 != 0 )

    {

        *p++ = Base2Chr( t );

        if ( aLen % 3 == 1 )

            *p++ = '=';

        *p++ = '=';

    }

    *p = 0;  //  aDest is an ASCIIZ string

    return ( p - aDest );  //  exclude the end of zero

}

//---------------------------------------------------------------------------

//  aDest 所指的缓冲区必须至少为 aSrc 长度的 0.75 倍！！！

//  返回 aDest 的长度

int Base64Decode( unsigned char * const aDest, const char * aSrc )

{

    unsigned char * p = aDest;

    int             i, n = strlen( aSrc );

    unsigned char   c, t;



    for ( i = 0; i < n; i++ )

    {

        if ( *aSrc == '=' )

            break;

        do {

         if ( *aSrc )

        c = Chr2Base( *aSrc++ );

            else

             c = 65;  //  字符串结束

        } while ( c == 64 );  //  跳过无效字符，如回车等

        if ( c == 65 )

         break;

        switch ( i % 4 )

        {

        case 0 :

            t = c << 2;

            break;

        case 1 :

            *p++ = ( unsigned char )( t | ( c >> 4 ) );

            t = ( unsigned char )( c << 4 );

            break;

        case 2 :

            *p++ = ( unsigned char )( t | ( c >> 2 ) );

            t = ( unsigned char )( c << 6 );

            break;

        case 3 :

            *p++ = ( unsigned char )( t | c );

            break;

        }

    }

    return ( p - aDest );

}

//---------------------------------------------------------------------------
zzbinfo 2010-11-04
  • 打赏
  • 举报
 回复
你这个就用不到你上面说的那些函数呀,你先读取文件-->转成ba64-->放到XML节点中-->读取XML节点-->解码ba64-->写文件.
52vc 2010-11-04
  • 打赏
  • 举报
 回复
当然各个类型的文件都有可能，不一定是文本的，有可能是二进制的。
52vc 2010-11-04
  • 打赏
  • 举报
 回复
我的需求是：
1.把本地的文件编码成可见字符，放在XML文档的节点中。
2.从XML文档中将这个节点的可见字符转回，再次生成原来的文件。
zzbinfo 2010-11-04
  • 打赏
  • 举报
 回复
其实那个变量可以省
      int k = Base64Decode( ( unsigned char * )( pmem->Memory ), Value.c_str( ) );

      pmem->Size = k;
52vc 2010-11-04
  • 打赏
  • 举报
 回复
至此，文件上传的方案得到完美解决，谢谢各位的参与。
52vc 2010-11-04
  • 打赏
  • 举报
 回复
不好意思，后面一段没有看到，稍微改进了下
1.编码


   TMemoryStream* pmem=new TMemoryStream( );

   pmem->LoadFromFile(AnsiString(iCount)+".zip");

   pmem->Seek(0,soFromBeginning);

   TMemoryStream *buf = new TMemoryStream( );

   buf->Size = pmem->Size* 4 / 3 + 1;

   Base64Encode( ( char * )( buf->Memory ), ( unsigned char * )(pmem->Memory),pmem->Size );

   strValue=(AnsiString( ( char * )(buf->Memory)));

   int iSize= pmem->Size;//在node节点中记下内存值大小。

   delete buf;

   delete pmem;

2.解码。


  AnsiString  striSize = m_xKey->GetAttribute("iSize");

   int  iSize=   StrToInt(striSize);

   if (strDataType == "BlobField" && strTemp != "") {

   AnsiString s = strTemp;

   TMemoryStream *pmem = new TMemoryStream();

   pmem->Size = s.Length() + 1;

   Base64Decode( ( unsigned char * )( pmem->Memory ), s.c_str( ) );

   pmem->SetSize(iSize);//重新设置原来记录的大小

   pmem->SaveToFile(AnsiString(iCount)+".zip");

   delete pmem;
52vc 2010-11-04
  • 打赏
  • 举报
 回复
这样处理的结果是，如果转base64的里面有\0 ,就转不回来了。
对于文件中，出现\0是很多的，有没有其它解决方案，可以反转回来的。
ccrun.com 2010-11-03
  • 打赏
  • 举报
 回复
首先你需要确认，x.txt文件中存放的对象信息是文本格式的还是二进制格式的？
ccrun.com 2010-11-03
  • 打赏
  • 举报
 回复
可以考虑ObjectResourceToText

BTW：C++Builder的帮助相当恶心，关于ObjectBinaryToText的例子代码错误百出。
zzbinfo 2010-11-03
  • 打赏
  • 举报
 回复
换个思路,呵呵
  AnsiString Value="   " ;

        TMemoryStream*    pms=new TMemoryStream();

        TStringStream*  pws=new  TStringStream(Value);

        pms->LoadFromFile("1.txt");

        pms->Seek(0, soFromBeginning);

        //ObjectTextToBinary(pms,pws);

        //ObjectBinaryToText(pms, pws); //运行至些出错 'Invalid stream format'



        pws->Write((void *)pms->Memory,pms->Size);

        pws->Position=0;

        Value = pws->DataString;

        ShowMessage(pms->Size);

        ShowMessage(Value);

        delete pms;

        delete pws;
ccrun.com 2010-11-03
  • 打赏
  • 举报
 回复
果然是文本的。说说你的需求吧，想实现什么效果？
52vc 2010-11-03
  • 打赏
  • 举报
 回复
是文本的。
Call 和 Return 使用
关于 Call 和 Return 使用方法的汇编源代码
delphi 字符串与内存流和文件的快速转换函数
在delphi中没有能把字符串直接保存为文件的方法，也没有将文件直接作为字符串读出的方法。 没有能把字符串转化为内存流的方法，也没有能把内存流转化为字符串的方法。而这里有四个函数恰能做到。 代码如下： function StringToFile(mString: string; mFileName: TFileName): Boolean; { 返回字符串保存到文件是否成功 } var
把窗体读到内存流然后转为text
procedure TfrmBiaoBLBWH.Button1Click(Sender: TObject);var ABinary,AText:TMemoryStream;begin inherited; ABinary:=TMemoryStream.Create; ABinary.WriteComponent(Self); ABinary.Position:=0; AText:=TM...
FFMPEG把H264或者H265格式的内存流转换为MP4格式并输出到内存流中
因为项目的需要，需要把H264或者H265的视频流转换为MP4格式的内存流，网上搜索出来的结果只有MP4格式输出到文件的，就是没有找到一个输出到内存流中的，没办法，只能去看FFMPEG的源码，分析相应的函数，经过连续几天的测试验证，终于实现了H264或者H265与MP4内存流之间格式的转换，也就是说H264或者H265格式的视频流进来，出去的时候是MP4格式的内存流，如果需要写文件的话直接把流写入一个文件就可以，不需要做其他的操作。 #include <vector> /**********
jvm性能调优 - 05对象在JVM内存中的分配和流转
文章目录前文回顾大部分正常对象都优先在新生代分配内存到底什么情况下会触发新生代的垃圾回收？长期存活的对象会躲过多次垃圾回收老年代会垃圾回收吗？关于新生代和老年代的对象分配，这就完了吗？思考题 前文回顾 经过上一篇文章铺垫了一些对象分配的基础知识后，想必大家现在都心里非常有数了，咱们平时代码里创建出来的对象，一般就是两种： 一种是短期存活的，分配在Java堆内存之后，迅速使用完就会被垃圾回收 另外一种是长期存活的，需要一直生存在Java堆内存里，让程序后续不停的去使用 第一种短期存活的对象，是
C++ Builder

13,873

社区成员

102,696

社区内容

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章