Как выставить тип набора Delphi через Soap

Question

В настоящее время я создаю мыльные оболочки для некоторых функций Delphi, чтобы мы могли легко использовать их из PHP, C # и Delphi.

Интересно, как лучше выставить декорации?

type
  TCountry     = (countryUnknown,countryNL,countryD,countryB,countryS,countryFIN,countryF,countryE,countryP,countryPl,countryL);
  TCountrySet  = set of TCountry;

function GetValidCountrySet(const LicensePlate:string; const PossibleCountriesSet:TCountrySet):TCountrySet;

Я сейчас обертываю это так для сервера мыла:

type 
  TCountryArray = array of TCountry;

function TVehicleInfo.GetValidCountrySet(const LicensePlate:string; const PossibleCountriesSet:TCountryArray):TCountryArray;

Это работает, но мне нужно написать много бесполезного и уродливого кода для преобразования наборов -> массивов и массивов -> наборов.

Есть ли более простой, изящный или более общий способ сделать это?

Answer 1

Мыло должно использоваться независимо от платформы и языка - я бы разработал все объекты передачи данных (DTO) на основе простых типов, например array of string, без языковых особенностей. Затем сопоставьте DTO с соответствующими бизнес-объектами. Это также даст вам «антикоррупционный слой».

Answer 2

Вы можете использовать TypInfo и немного умного кастинга.

uses TypInfo;

type
  TCountry = (cnyNone, cnyNL, cnyD, cnyGB, cnyF, cnyI);
  TCountrySet = set of TCountry;

  TCountryArray = array of TCountry;
  TEnumIntegerArray = array of Integer;
  TEnumByteArray = array of Byte;

function GetEnumNamesInSet(const aTypeInfo: PTypeInfo; const aValue: Integer; const aSeparator: string = ','): string;
var
  IntSet: TIntegerSet;
  i: Integer;
begin
  Result := '';
  Integer( IntSet ) := aValue;
  for i := 0 to SizeOf(Integer) * 8 - 1 do begin
    if i in IntSet then begin
      if Result <> '' then begin
        Result := Result + ',';
      end;
      Result := Result + GetEnumName(aTypeInfo, i);
    end;
  end;
end;

function SetToIntegerArray(const aTypeInfo: PTypeInfo; const aValue: Integer): TEnumIntegerArray;
var
  IntSet: TIntegerSet;
  i: Integer;
begin
  SetLength(Result, 0);
  Integer( IntSet ) := aValue;
  for i := 0 to SizeOf(Integer) * 8 - 1 do begin
    if i in IntSet then begin
      SetLength(Result, Length(Result) + 1);
      Result[Length(Result) - 1] := i;
    end;
  end;
end;

function SetToByteArray(const aTypeInfo: PTypeInfo; const aValue: Byte): TEnumByteArray;
var
  IntSet: TIntegerSet;
  i: Integer;
begin
  SetLength(Result, 0);
  Integer( IntSet ) := aValue;
  for i := 0 to SizeOf(Byte) * 8 - 1 do begin
    if i in IntSet then begin
      SetLength(Result, Length(Result) + 1);
      Result[Length(Result) - 1] := i;
    end;
  end;
end;

Тогда используйте как:

procedure TEnumForm.FillMemo;
var
  Countries: TCountrySet;
//  EIA: TEnumIntegerArray;
  EBA: TEnumByteArray;
  CA: TCountryArray;
  i: Integer;
  cny: TCountry;
begin
  Countries := [cnyNL, cnyD];
  CountriesMemo.Text := GetEnumNamesInSet(TypeInfo(TCountry), Byte(Countries));
//  if SizeOf(TCountry) > SizeOf(Byte) then begin
//    EIA := SetToIntegerArray(TypeInfo(TCountry), Integer(Countries));
//  end else begin
    EBA := SetToByteArray(TypeInfo(TCountry), Byte(Countries));
//  end;
  CountriesMemo.Lines.Add('====');
  CountriesMemo.Lines.Add('Values in Array: ');
//  if SizeOf(TCountry) > SizeOf(Byte) then begin
//    CA := TCountryArray(EIA);
//  end else begin
    CA := TCountryArray(EBA);
//  end;
  for i := 0 to Length(CA) - 1 do begin
    CountriesMemo.Lines.Add(IntToStr(Ord(CA[i])));
  end;
  CountriesMemo.Lines.Add('====');
  CountriesMemo.Lines.Add('Names in Array: ');
//  if SizeOf(TCountry) > SizeOf(Byte) then begin
//    CA := TCountryArray(EIA);
//  end else begin
    CA := TCountryArray(EBA);
//  end;
  for i := 0 to Length(CA) - 1 do begin
    cny := CA[i];
    CountriesMemo.Lines.Add(GetEnumName(TypeInfo(TCountry), Ord(cny)));
  end;
end;

Вам нужно будет выбрать правильный кастинг в зависимости от размера перечисления TCountry. Если в нем 8 членов, это будет байт, больший по размеру и целое число. В любом случае Delphi будет жаловаться на приведение Байта (Страны) или Целого числа (Страны), если вы ошиблись.

Обратите внимание: Функции теперь принимают TypeInfo TCountry - элементы TCountrySet. Они могут быть изменены, чтобы принять TypeInfo (TCountrySet). Однако это означало бы, что функции решают, какие элементы находятся в наборе, и у меня просто еще не было времени или желания сделать это.