delphi - Delphi のジェネリック型制約であるインターフェイスとしてオブジェクトをキャストするにはどうすればよいですか

Question

一連の .Net Web サービスと対話する必要があります。現在約 150 あります。delphi 2010 はこれを実現するために Thttprio を使用するため、適切な SOAP サービス クライアントを作成するために呼び出すことができる汎用プロキシをクライアント側で作成しようとしています。httprio オブジェクトを汎用インターフェイス型にキャストする方法を知っている人はいますか?

ありがとう

以下は、私が使用しようとしているプロキシ関数です。

class function Web.Proxy<T>(svc: string): T;
var
  HTTPRIO : THTTPRIO;
begin
  HTTPRIO := THTTPRIO.Create(nil);
  HTTPRIO.URL := GetServiceURL(svc);
  Result:= HTTPRIO as T; //<-- Fails with "operator not applicable to this operand type"
  // Result:= T(HTTPRIO); //<-- also fails, but with "invalid typecast"
end;

アイデアは、これを次のように呼び出すことができるということです:

Web.Proxy<AutmobileServiceSoap>('svc.asmx').GetAutomobile(125);

WSDL インポートには、次のように定義された AutmobileServiceSoap があります。

AutmobileServiceSoap = interface(IInvokable)

また、すべての wsdl インポートには、同様の方法でキャストされた httprio オブジェクトを返す関数があります。

function GetAutomobileServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): AutomobileServiceSoap;
const
  defWSDL = 'http://localhost:8732/Cars.Server/Data/AutomobileService.asmx?WSDL';
  defURL  = 'http://localhost:8732/Cars.Server/Data/AutomobileService.asmx';
  defSvc  = 'AutomobileService';
  defPrt  = 'AutomobileServiceSoap12';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as AutomobileServiceSoap);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;