Método regPortaComunicação_DUAL

function regPortaComunicacao_DUAL_DarumaFramework(stParametro: String): Integer; StdCall; External 'DarumaFrameWork.dll' 
stPorta: string; 
boRetorno: Boolean; 
iRetorno: Integer;
stPorta := ''; 
boRetorno := InputQuery('Daruma DLL Framework', 'Digita a Porta de Comunicação:',stPorta);
  if ((boRetorno = True) and (stPorta'')) then 
  begin 
     iRetorno := regPortaComunicacao_DUAL_DarumaFramework(stPorta); 
     if (iRetorno = 1) then 
     begin 
       Application.MessageBox('Configuração realizada com sucesso.', 'Daruma DLL Framework', MB_OK + MB_ICONINFORMATION); 
     end 
     else 
     begin 
       Application.MessageBox('Erro ao Configurar a Porta de Comunicação, verifique-se a mesma encontra disponivel ou em conflito com outra aplicação','Daruma DLL Framework',MB_OK + MB_ICONERROR); 
     end; 
 end;

DllImport("DarumaFrameWork.dll")] 
public static extern int regPortaComunicacao_DUAL_DarumaFramework(string stParametro);
string STR_Retorno_CaixaInput; 
STR_Retorno_CaixaInput = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.InputBox("Digita a Porta de Comunicação:", "COM1"); 
if (STR_Retorno_CaixaInput != "Erro ao incluir dados no Registro(Registry)!"| DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno == 1) 
{ 
   MessageBox.Show("Realizando Configuração...", "Daruma DLL Framework",MessageBoxButtons.OK, MessageBoxIcon.Warning); 
   DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.regPortaComunicacao_DUAL_DarumaFramework(STR_Retorno_CaixaInput);
} 
if (DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno ==1) 
{ 
   DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.regPortaComunicacao_DUAL_DarumaFramework(STR_Retorno_CaixaInput);
   MessageBox.Show("Configuração realizada com sucesso", "Daruma DLL Framework", MessageBoxButtons.OK, MessageBoxIcon.Information); 
}else
{  
   MessageBox.Show("Erro ao incluir dados no Registro(Registry)!", "Daruma DLL Framework", MessageBoxButtons.OK, MessageBoxIcon.Error); 
}

Public Declare Function regPortaComunicacao_DUAL_DarumaFramework Lib "DarumaFrameWork.dll"
(ByVal stParametro As String) As Integer
Dim boRetorno As Boolean 
Dim boTexto As String 
Dim iRetorno As Integer 
boTexto = InputBox("Digita a Porta de Comunicação:", "Daruma DLL Framework") 
boRetorno = True 
If (boRetorno = False) Or (boTexto = "") Then 
  MsgBox "Erro ao incluir dados no Registro(Registry)!", vbInformation,"Daruma DLL Framework" 
Else 
  iRetorno = regPortaComunicacao_DUAL_DarumaFramework(boTexto) 
  If (iRetorno = 1) Then 
     MsgBox "Configuração realizada com sucesso.", vbInformation,  "Daruma DLLFramework" 
  Else 
     MsgBox "Erro ao Configurar a Porta de Comunicação, verifique-se a mesma encontra disponivel ou em conflito com outra aplicação.", vbInformation, "Daruma DLL Framework" 
  End If 
End If