dynarraydemoserverimpl.pas

来自「Delphi开发webservice的一套例子」· PAS 代码 · 共 41 行

unit DynArrayDemoServerImpl;

interface

uses
  DynArrayDemoServerIntf, InvokeRegistry, Forms, Types, Classes, SysUtils;

type
  TDynArrayDemoServer = class(TInterfacedObject, IDynArrayDemoServer)
  private
    function GetServerPath : String;
  public
    function GetFileNames(out iCount: Integer): TStringDynArray; stdcall;
    function GetFileByDynArray(const FileName: string; out Size: Integer): TByteDynArray; stdcall;
  end;

implementation

uses fWSDynArrayMain;

procedure DynArrayDemoServerFactory(out Obj: TObject);
begin
  Obj := TDynArrayDemoServer.Create;
end;

{ TDynArrayDemoServer }

function TDynArrayDemoServer.GetFileByDynArray(const FileName: string;
  out Size: Integer): TByteDynArray;
var
  sFilename: String;
  ams: TMemoryStream;
begin
  frmDynArray.MediaPlayer1.Play;
  Size := 0;
  SetLength(Result, Size);

  sFilename := GetServerPath + FileName;

  if not FileExists(sFilename) then
    raise Exception.Create('岿粇, 礚猭т