Mehrere Webservices und Shared-types

[mjustin]

Zitat von Sergej_Molotov:

Aber genau das möchte ich nicht.

Dieses TBla wird generell als DTO (Daten-Transfer-Object) verwendet und in eine andere Klasse konvertiert. Ich müsste dazu Konverterier-Routine duplizieren und wenn ich Webservice-Funktionen befüttern möchte, müssten ich dann ebenfalls zwei (n) Funktionen zum Konvertieren zu einen DTO erstellen, die das identische machen.

Wenn ich es richtig verstehe soll dies gescheehen:

Delphi-Quellcode:

function Convert(const ABla: Unit1.TBla): TMeineAndereKlasse;
begin
  Result := TMyAndereKlasse.Create;

  // ... fülle Result mit Daten aus ABla (Typ aus Unit1)
end;

function Convert(const ABla: Unit2.TBla): TMeineAndereKlasse;
begin
  Result := TMyAndereKlasse.Create;

  // ... fülle Result mit Daten aus ABla (Typ aus Unit2)
end;

Ich habe keine Lösung, aber ich bewundere das Problem