異なる単位のDelphi列挙型

Question

私はDelphiを使用してSOAPサービスを消費していますが、列挙型の値を設定するのは難しいです。以下はenum宣言です：

Extension = (pdf, xls, txt, xlsx, docx, doc, xml, png, jpg, gif); 

これは、一度あなたがWSDLをインポートするとDelphiのインポートで宣言されます。 私のアプリはこのユニットを使用していますが、私は以下のオプションを試しましたが、役に立たないです。

オプション1：（コンパイルされません未定義の識別子： 'PDF'）

uses SOAPAPI_Unit 
type 
    Extension = SOAPAPI_Unit.Extension; 
.... 
procedure TForm1.Button2Click(Sender: TObject); 
var 
    Ext : Extension; 
begin 
    Document.Extension := pdf; 
end; 

オプション2：（コンパイルが、私は、オブジェクトの参照が設定されていないと言って、サーバエラーが出る）

uses SOAPAPI_Unit 

.... 
procedure TForm1.Button2Click(Sender: TObject); 
var 
    Ext : SOAPAPI_Unit.Extension; 
begin 
    Document.Extension := Ext(0); 
end; 

オプション3（再宣言メイン.PASファイルに列挙したが、その後、私は互換性のないタイプを取得します：「SOAPAPI_Unit.Extension」と「formMain.Extension」）

uses SOAPAPI_Unit 
type 
    Extension = (pdf, xls, txt, xlsx, docx, doc, xml, png, jpg, gif); 
.... 
procedure TForm1.Button2Click(Sender: TObject); 
var 
    Ext : Extension; 
begin 
    Document.Extension := pdf; 
end; 

デフォルトで

オプション4（コンパイルが、オブジェクトrefはサーバからエラーを設定しています）

uses SOAPAPI_Unit 
.... 
procedure TForm1.Button2Click(Sender: TObject); 
var 
    Ext : Extension; 
begin 
    Document.Extension := Ext.pdf; 
end; 

Answer 1

WSDL-インポータは、アクティブスコープの列挙を使用してコードを生成します。これには、その型の前にenumが必要です。実際のインポートファイルを知らなくても、私は、これはその後、動作するはず推測：

uses SOAPAPI_Unit 
.... 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
    Document.Extension := Extension.pdf; 
end;