通过WebServices 访问 服务器文件 (delphi6上编译通过)

/**/ /
////Web Service 
unit Unit3;

interface
uses InvokeRegistry,Graphics,Classes,Unit2,Types;

type
  TQueryCapital  =   class (TInvokableClass, IQueryCapital)
   public
    function GetPic:TByteDynArray; stdcall;
    function GetPicSize:LongInt; stdcall;
  end;

implementation

function ByteArrayFromStream( inStream : TMemoryStream ) : TByteDynArray;
var pTemp : pointer;
begin
  SetLength(Result, inStream.Size );
  pTemp : =  @Result[ 0 ];
  inStream.Position : =   0 ;
  inStream.Read(pTemp ^ , inStream.Size);
end;

// TByteDynArray 做返回值 是重点
function TQueryCapital.GetPic:TByteDynArray;
var
  tfs : TMemorystream;
  outByAr : TByteDynArray;
begin
  tfs: = TMemorystream.Create;
  tfs.LoadFromFile( ' 1.jpg ' );
  tfs.Position   : =     0 ;

  Result : =  ByteArrayFromStream(tfs);
end;

function TQueryCapital.GetPicSize: LongInt;
var
  Pic : TPicture;
  tfs : TMemorystream;
  ss : string ;
begin
  ss : = '' ;
  tfs: = TMemorystream.Create;
  tfs.LoadFromFile( ' 1.jpg ' );
  tfs.Position   : =     0 ;

  SetLength(ss,   tfs.Size);
  tfs.Read(ss[ 1 ],   tfs.Size);
  Result : =  Length(ss);
end;

initialization
  InvRegistry.RegisterInvokableClass(TQueryCapital ... {, ShakespeareFactory} );
end.

/**/ /////
//Client
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,iquerycapital1,Types, ExtCtrls, StdCtrls, Rio, SOAPHTTPClient,jpeg;

type
  TForm1  =   class (TForm)
    HTTPRIO1: THTTPRIO;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
   private
    procedure ByteArrayCompressedToImage( const  ByteArray :
      TByteDynArray);
     ... { Private declarations }
   public
     ... { Public declarations }
  end;

var
  Form1: TForm1;

implementation

... {$R *.dfm}


procedure CopyToStream(  const  InArray : TByteDynArray ; outStream : TStream );
var pTemp : Pointer;
begin
  pTemp : =  @InArray[ 0 ];
  outStream.Write( pTemp ^ , Length(InArray));
end;


procedure TForm1.ByteArrayCompressedToImage(  const  ByteArray : TByteDynArray);
var MStream : TMemoryStream;

    Jpg : TJpegImage;
begin
  MStream : =  TMemoryStream.Create;
  CopyToStream( ByteArray, MStream );
  MStream.Position : =   0 ;
  Jpg : = TJpegImage.Create;
   try
    Image1.Picture.Graphic: = Jpg;        // 设置图片框的格式
    Image1.Picture.Graphic.LoadFromStream(MStream);        // 将地址下的文件通过内存流写入图片框中
    Image1.Repaint;


   finally
    MStream.Free;

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ByteArray : TByteDynArray;
begin
  ByteArray : =  (HTTPRIO1  as  IQueryCapital).GetPic;
  ByteArrayCompressedToImage(ByteArray);
end;

end.
/**/ /////
// 为一个朋友面试做的小程序程序：
// 通过WebServices 访问服务器上的一张图片
// 开始的时候通过 服务器上加载 图片文件，然后通过WebService 直接传TPicture 对象到Client。发现这条路不行；
// 后来想到用 WebService传String到Client; 图片文件转成String成功。Client段接收WebService传过来的String，数据出现丢失
// 用 TByteDynArray 传图片文件成功！！！！！！！！