/**/
/
////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 传图片文件成功!!!!!!!!
////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 传图片文件成功!!!!!!!!