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。