Delphi 读取 c# webservice XML的base64编码图片字符串转化图片并显示

Delphi 读取 c# webservice XML的base64编码图片字符串转化图片并显示



在 开发中遇到应用c#及asp.net的在的webservice 保存图片并以xml文件形式现实出来 并用delphi调用



的方法：

1.c#的webservice现实见

 http://www.greensoftcode.net/techntxt/20127118441582992373 之前的文章。

2.在客户端用delphi显示 发现asp.net xml形式输出的图片是base64字符串形式。用delphi解析很困难

 所以这里我先用c#解析读取图片并显示 然后在用delphi显示主要看看显示的xml图片是否可以显示。



 c#的代码是：

    private void button1_Click(object sender, System.EventArgs e)

  {

   long len;

   byte[] byt = new byte[] { 0x00 };   

  //string base64String=Convert.ToBase64String(this.textBox1.Text);

   byt=Convert.FromBase64String(this.textBox1.Text);

  string str = System.Text.Encoding.Default.GetString(  byt );



   System.IO.MemoryStream ms=new System.IO.MemoryStream();

   ms.Write(byt,   0,   byt.Length) ;

          ms.Seek(0,   System.IO.SeekOrigin.Begin) ;

   len=ms.Length;

           pictureBox1.Image   =   Image.FromStream(ms) ;



  }

  图片显示没有问题！这就证明啦asp.net webservice 以XML字符串显示图片没有问题 ，只要delphi的



算法正确就可以。

3.下面用delphi实现说实话我研究啦很长时间终于研究出来啦 结果见：

  

先引用 EncdDecd单元  EncdDecd单元是delphi自带的

  uses  EncdDecd

var ss:TStringStream;

    ms:TMemoryStream;

    JpgFile:TjpegImage ;

begin

  ss:=TStringStream.Create(Memo1.Text);

  ms:=TMemoryStream.Create;

  DecodeStream(ss,ms);

  ms.Position:=0;

  JpgFile:=TjpegImage.Create ;

  JpgFile.LoadFromStream(ms);

  ss.Free;

  ms.Free;

 Image1.Picture.Bitmap.Assign(JpgFile);

end;

就这样就可以读出c#的webservice 的图片文件

• delphi读取asp.net webservice 中dataset数据集数据的的方法，并且与dbgrid的绑定

delphi读取asp.net webservice 中dataset数据集数据的的方法并且与dbgrid的绑定

delphi 访问c#中webservice 的函数如果不带dataset数据表那么不是很复杂！

如果访问返回表的函数相对就复杂啦些！



下面我讲下如何用delphi访问c#些的webservice函数

 

1.web端函数为：

              [WebMethod] 

  public string gettable(int  pageIndex , int pageSize , out int  recordCount, out int pageCount ,string keyword)

  {

                  recordCount=0;

   pageCount=0;

   DataTable tb=null;

   DataSet ds=new DataSet();

   if (Validate())

   {

    try

    {

     a   App=new    Pa() ;

     tb=App.gettable(  pageIndex , pageSize , out  recordCount, out  pageCount ,  keyword );  

    }

    catch

    {

        

    }

    ds.Tables.Add(tb);

    

   }

                     //这里不要return ds; 因为delphi识别C#的webservice函数XMl文档很费劲 所以采用下面的方法

   System.Text.StringBuilder strbuilder=new System.Text.StringBuilder(); 

   StringWriter writer=new StringWriter(strbuilder); 

   ds.WriteXml(writer,System.Data.XmlWriteMode.IgnoreSchema); 

   return strbuilder.ToString();



  }

2.客户端

SOAP定义端

procedure Sev_gettable(const pageIndex: Integer; const pageSize: Integer; const keyword: WideString; 

                                         out gettableResult: WideString; out recordCount: Integer; out pageCount: Integer); stdcall;

//注意这是个过程不是函数 它的返回值是通过OUT输出参数做到的。 soap定义可以通过DELPHI建立 FILE-new-other-webservice -wsdl impoerts建立这个类把这个类文件加载到你的工程里就OK啦

 



function Sev_gettable(const pageIndex: Integer; const pageSize: Integer; const keyword: WideString,out recordCount: Integer; out pageCount: Integer):



WideString;

var

  HTTPRio : THTTPRIO ;

  Ahttprio:   ClientServiceSoap;



  val: WideString;

begin

  HTTPRio:= THTTPRIO.Create(Application);

  Try

  HTTPRio.WSDLLocation:=''http://www.xxx.com/abc/getab.asmx?wsdl'';

  Ahttprio := (HTTPRio as  Cli entServiceSoap); 

 Ahttprio.gettable( pageIndex, pageSize,keyword,val,  recordCount,  pageCount) ;

 Ahttprio:=nil;

 Pointer(Ahttprio) := nil;

 soapHeader.Free;

finally

End;

Result:=val;

End;



那么通过上面的函数我们可以获得xml数据集文档

下面就对这个文档进行分析与数据的提取

我们建立一个FORM1在上面加入 Tstringlist控件 为什么用 Tstringlist控件不用Tdbgrid能  因为 Tstringlist可以自由的编写行和列 与tdbgrid绑定数据表效果一样

看实现函数



 //读取xml数据集到stringlist中

//这个xmlstr参数 就是我们上面函数 Sev_gettable获得asp.ent webservice 返回的数据集



procedure   iningrd(strdrg:TStringGrid;xmlstr:string);

 var

  fieldval: string;

  node: IXMLNode;

  XMLDoc:TXMLDocument;

  nodeList: IXMLNodeList;

  nodecount,i,j:integer;



 begin

    for   i:=0   to    strdrg.rowcount-1   do

      for   j:=0   to   strdrg.colcount-1   do 

         strdrg.Cells[j,i]:= '';

    strdrg.Cells[0,0]:='编号';

    strdrg.Cells[1,0]:='类型';

    strdrg.Cells[2,0]:='状态';

     strdrg.Cells[3,0]:='工号';

    strdrg.Cells[4,0]:='姓名';

    strdrg.Cells[5,0]:='电话';

    strdrg.Cells[6,0]:='所收';

    strdrg.Cells[7,0]:='姓名';

    strdrg.Cells[8,0]:='电话';

    strdrg.Cells[9,0]:='姓名';

    strdrg.Cells[10,0]:='电话';

    strdrg.Cells[11,0]:='所属';

    strdrg.Cells[12,0]:='日期';

     strdrg.ColWidths[0]:=100;

     strdrg.ColWidths[1]:=56;

     strdrg.ColWidths[2]:=62;

     strdrg.ColWidths[3]:=70;

     strdrg.ColWidths[4]:=65;

     strdrg.ColWidths[5]:=100;

     strdrg.ColWidths[6]:=120;

     strdrg.ColWidths[7]:=120;

     strdrg.ColWidths[8]:=120;

     strdrg.ColWidths[9]:=80;

     strdrg.ColWidths[10]:=80;

     strdrg.ColWidths[11]:=120;

     strdrg.ColWidths[12]:=120;

  XMLDoc:=TXMLDocument.Create(Application);

  XMLDoc.XML.Text:=xmlstr;

   XMLDoc.Active:=true;

  nodecount:=XMLDoc.DocumentElement.ChildNodes.Count;

  for i:=0 to nodecount -1 do

  begin

  node := XMLDoc.DocumentElement.ChildNodes[i];

  nodeList := node.ChildNodes;

  for j := 0 to nodeList.Count - 1 do

   begin

    //fieldval:= nodeList[j].NodeName;

    if nodeList[j].IsTextElement then

      begin

        fieldval := nodeList[j].NodeValue;

        strdrg.Cells[j,i+1]:=fieldval;

      end;

   end;

  end;

 end;



这个现实过程是我通过实践测试成功的 ！基本方法全部给出只有你稍加改动就可以现实 ！遇到错误不要放弃！

由于项目需要为包括c/s和b/s的多个平台提供统一业务逻辑，写个webservice来完成这个任务，通过webservice封装业务逻辑，为其他平台提供接口，以供调用，于是用delphi写一个webservice，起初没有任何采用任何编码，当然在调用的时候delphi客户端可以正常传输数据，c#网页部分调用却是乱码，肯定是两种语言的编码方式问题，引起的乱码，原因有了，最终也没有想到解决的办法。所以想两端提供一种统一的编码，通过编码和解码来达到编码方式的统一，这样应该就不会有乱码的问题了吧，我选择base64编码方式，base64在网络上良好的性能，这是满足这个所需要的，又折腾了一阵子，终于完成了，各个平台数据的统一，测试代码如下：

1 delphi 部分 ：

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,EncdDecd;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Edit3: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s:AnsiString;

begin

s:=edit1.text;

edit2.Text:= EncodeString((s));

// 超越软件 http://www.cyhlw.com

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit3.Text:=  DecodeString(edit2.text)

end;

end.

 

2  c# 部分：

 using System;

using System.Configuration;

using System.Data;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.HtmlControls;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Text;

public partial class _Default : System.Web.UI.Page

{

    protected void Page_Load(object sender, EventArgs e)

    {

     //Response.ContentEncoding = System.Text.Encoding.GetEncoding( "GB2312" );



    }

    protected void Button1_Click(object sender, EventArgs e)

    {

       

        string str="";

       

       

        localhost.IIHelloservice oserver = new localhost.IIHelloservice();

        str=oserver.sayHello("超越软件 http://www.cyhlw.com");

        //localhost.WebService1 oService = new localhost.WebService1();

        //Label1.Text = oService.About();

        this.TextBox1.Text = str;

        byte[] bytes = System.Convert.FromBase64String(str);

        str = "";

        str = Encoding.Default.GetString(bytes);

        TextBox2.Text = str;

        //TextBox1.Text=Encoder.get

            //byte[] bytes

        //this.TextBox1.Text = Sys

 

Base64 三种语言间的加解密问题(delphi、C#、Java)

1. delphi 需要引用EncdDecd单元.

 

    oStream:= TStringStream.Create(sBase64Str);    try      oStream.Position := 0;      oMStream := TMemoryStream.Create;      try        EncdDecd.DecodeStream(oStream, oMStream);    //对二维码进行解base64, EncdDecd为delphi自带的base64单元        oMStream.Position := 0;        oMStream.SaveToFile('D:/base64Pic.jpg');     //保存二维码图片      finally        oMStream.Free;      end;    finally      oStream.Free;    end;

2. C# 调用代码

 

 

                    byte[] imgData = System.Convert.FromBase64String(sBase64Str); //解bas464字符串                    FileStream fs = new FileStream("D://OutPic.jpg", FileMode.CreateNew);                    fs.Write(imgData, 0, (int)imgData.Length);                    fs.Close();                    pictureBox1.Load("D://OutPic.jpg");

 

 

3. java  java的解决办法其实也很简单，把base64字符串的（大括号内的内容） ｛ 
 ｝全部替换为空即可，即换行符，上代码：

 

		FileInputStream fis = new FileInputStream("d:/base64Img.txt");		int size = fis.available();		byte[] buffer = new byte[size];		fis.read(buffer, 0, size);		fis.close();		String tmp = new String(buffer);			tmp = tmp.replaceAll("
", "");		byte[] outData = Base64.decodeBase64(tmp);		FileOutputStream fos = new FileOutputStream("D:/aaa.jpg");			fos.write(outData, 0, outData.length);		fos.close();

在网上看到相关的资料，说的是java中加密生成base64串，delphi在解密base64时需要替换掉换行符，现在却反了过来，不知道是java改了还是delphi 改了。对了，delphi使用的版本为delphi XE1， C# 为 VS2010。