请输入大于5个字符的标题   /**//////////////////////////////////////////////////////////////////////////
 ////////////////////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.
/**//////////////////////////////////////////////////////////////////////////////
//////////Clientunit 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 ByteArrayComdivssedToImage(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.ByteArrayComdivssedToImage( 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;
ByteArrayComdivssedToImage(ByteArray);
end;
end.
/**////////////////////////////////////////////////////////////////////////////////////////////////////////为一个朋友面试做的小程序程序：
//通过WebServices 访问服务器上的一张图片
//开始的时候通过 服务器上加载 图片文件，然后通过WebService 直接传TPicture 对象到Client。
发现这条路不行；
//后来想到用 WebService传String到Client; 图片文件转成String成功。Client段接收WebService传过来的String，数据出现丢失
//用 TByteDynArray 传图片文件成功！！！！！！！！
本文来源：http://blog.csdn.net/jasph77/archive/2007/08/06/1728048.aspx |
站内文章搜索
