Guia de Referência › Arquivos wrapper e em lotes › Acesso programático ao arquivo de opções do DNA

Acesso programático ao arquivo de opções do DNA

Você pode acessar e manipular de forma programática as opções em um arquivo de opções do DNA.

O arquivo DNAXMLAccess.dll é um ATL COM DLL que suporta a interface IDispatch. Esse arquivo permite que o componente seja chamado diretamente de um programa Visual Basic ou de qualquer linguagem de script que suporte controles ActiveX. Alguns exemplos de funções membro utilizadas neste acesso são mostradas a seguir:

• Abra o arquivo especificado por bstrFile para acesso. O arquivo deve ser um arquivo válido de opções do DNA no formato do DNAOptions.xml.

  HRESULT SetFile([in] BSTR bstrFile);
  

• Adicione ou substitua a opção de seqüência de caracteres especificada por bstrOption ao valor bstrValue.

  HRESULT SetStringOption([in] BSTR bstrOption, [in] BSTR bstrValue);
  

• Recupere a opção de seqüência de caracteres especificada por bstrOption.

  HRESULT GetStringOption([in] BSTR bstrOption, [out, retval] BSTR* bstrValue);
  

• Adicione ou substitua a opção Booleana especificada por bstrOption ao valor fValue.

  HRESULT SetBoolOption([in] BSTR bstrOption, [in] VARIANT_BOOL fValue); [out, retval] VARIANT_BOOL* fValue);
  

• Recupere a opção Booleana especificada por bstrOption.

  HRESULT GetBoolOption([in] BSTR bstrOption,
  

• Adicione ou substitua a opção de número inteiro especificada por bstrOption ao valor 1Value.

  HRESULT SetIntOption([in] BSTR bstrOption, [in] LONG lValue);
  

• Recupere a opção de número inteiro especificada por bstrOption.

  HRESULT GetIntOption([in] BSTR bstrOption, [out, retval] LONG* lValue);
  

Exemplo do Visual Basic:

• Para acessar um arquivo de opções do DNA utilizando o Visual Basic (pseudocódigo):

  REM Criar objeto CPM para acessar 
  Arquivo de opções
  DIM XMLAccess As CNAXMLAccessor
  Set XMLAccess = New DNAXMLAccessor
  
  REM Definir o arquivo para ser usado nas próximas
  chamadas XML, usar o caminho do arquivo que você copiou acima.
  XMLAccess.SetFile
  "c:\SomeFile\Path\To\MigrationSpecific\
  XMLFile.xml"
  
  REM Definir qualquer opção que precise ser personalizada para esta migração
  REM As opções BOOL, INT e STRING são definidas assim:
  XMLAccess.SetBoolOption "Network log
  

• Para acessar um arquivo de opções do DNA quando a linha de comando exceder o limite de 255 caracteres:

  XMLAccess.SetStringOption "command line",
  "/D" "c:\MyDNAFile.DNA" "/T"
  "C:\MyTemplateFile.dtf"" /M /X"
  

• Para utilizar chamadas Get* para que o arquivo de opções recupere dados de pós-migração:

  REM Obtenha qualquer opção que precise ser recuperada após esta migração
  REM As opções BOOL, INT e STRING são recuperadas assim:
  Dim StringVal As String
  DIM BoolVal as Boolean
  Dim IntVal As Integer
  BoolVal = XMLAccessGetBool-Option("Network log enabled?’)
  StringVal = XMLAccess.GetStringOption("Network log level")