PC Toledo

Código: Selecionar todos

cPrinter := WIN_PRINTDLGDC( @cPrinter)

Código: Selecionar todos

oEnvCPrinter:='HP Laserjet Professional M1212nf MFP' //DA CERTO colocando o nome diretamente
oMxPaper:=Val(Retorna_INI( wD_IniExe+'CONFIG_MAQ.INI','Impressora_folha',oEnvCPrinter))
// hIni[cSecao][cKey] = oEnvCPrinter RETORNA VERDADEIRO

Código: Selecionar todos

//cPrinter é igual 'HP Laserjet Professional M1212nf MFP' //retornado da WIN_PRINTDLGDC( @cPrinter)

oEnvCPrinter:=cPrinter //NAO DA CERTO informando o nome da variavel preenchida
oMxPaper:=Val(Retorna_INI( wD_IniExe+'CONFIG_MAQ.INI','Impressora_folha',oEnvCPrinter)) //assim
oMxPaper:=Val(Retorna_INI( wD_IniExe+'CONFIG_MAQ.INI','Impressora_folha',cPrinter)) //ou assim
// hIni[cSecao][cKey] = oEnvCPrinter ou cPrinter  RETORNA FALSO

Código: Selecionar todos

FUNCTION Retorna_INI(cArq, cSecao, cKey) 
Local hIni  := HB_ReadINI(cArq)
Return hIni[cSecao][cKey] //DA ERRO AQUI

Código: Selecionar todos

/*
  Compilar usando: Exemplo.prg xhb.hbc hbwin.hbc
*/
Function Main()

 Clear Screen
 
 /* 
   WIN_PRINTDLGDC():
   Se não selecionar nada (dar ESC), retorna Null, e
   cPrinter não se altera, fica exatmante como estava antes...
 */
 
 cPrinter := "Nao selecionou Impressora Nenhuma!"  // conteudo de cPrinter...
 
 If !Empty( WIN_PRINTDLGDC( @cPrinter ) )

  iRead := HB_ReadIni("CONFIG_MAQ.INI" )
  
  @ 2,2 Say "Verifique se ambos nomes sao EXATAMENTE idênticos:"
  @ 4,2 Say cPrinter                                // nome real da impressora
  @ 5,2 Say "HP Laserjet Professional M1212nf MFP"  // nome como esta no INI
  @ 7,2 Say ""
   
  If cPrinter == "HP Laserjet Professional M1212nf MFP"
  
   i_PRINTER := iRead["Impressora_folha"][cPrinter]

   Hb_Alert( CStr( i_PRINTER ) )
  
  Else
  
   Hb_Alert( "Nomes de Impressoras nao batem!" )
  
  EndIf
   
 Else

  Hb_Alert( cPrinter )  // não selecionou nada, então sem alteração

 EndIf

Return Nil

Código: Selecionar todos

If HB_HHasKey( hIni, cSecao ) //a seção achei perfeitamente [Impressora_folha]
   //aqui eu precisava colocar para ver se a chave existe e hb_HhasKey não da certo
    //procurar aqui se a chave existe
    if localizar a chave 
       Return hIni[cSecao][cKey]
    endif 
EndI

Código: Selecionar todos

FUNCTION Retorna_INI(cArq, cSecao, cChave)  //ok funcionando
Local hIni   := HB_ReadINI(cArq) 
Local aSecao 
Local aRet   :="" 
If hb_HHasKey( hIni, cSecao )
   aSecao := hIni[cSecao]
   If hb_IsHash( aSecao )
      If hb_HHasKey( aSecao, cChave ) //é só pesquisar novamente em uma nova hash
         aRet := hb_HGet( aSecao, cChave ) //se achar, retorna a chave, senao retorna a ret vazia
      EndIf
   EndIf
EndIf 
Return aRet

Código: Selecionar todos

FUNCTION Retorna_INI(cArq, cSecao, cKey)  //ok funcionando função que retornar o valor da chave
Local hIni   := HB_ReadINI(cArq) 
Local aSecao 
Local aRet   :="" 
If hb_HHasKey( hIni, cSecao )
   aSecao := hIni[cSecao]
   If hb_IsHash( aSecao )
      If hb_HHasKey( aSecao, cKey )
         aRet := hb_HGet( aSecao, cKey )
      EndIf
   EndIf
EndIf 
Return aRet

Function Add_Secao_Key(cArq, cSecao, cKey, cValue )  //função que cadastra ou altera a hash de acordo com a necessidade
Local aRet := .F.
Local hIni := hb_IniRead(cArq,,.F.) 
Local hTemp := hb_HClone( hIni ) // clona a hash
If hb_HHasKey( hTemp, cSecao )   //se existir
   If hb_IsHash( hTemp[cSecao] )
      hb_HSet( hTemp[ cSecao ], cKey, cValue ) //altera o valor da chave 
      aRet:=.T. //retorna verdadeiro para nao entrar abaixo
   EndIf
EndIf
If aRet=.F.   //se nao existir 
   hb_HSet( hTemp, cSecao, { => } ) // cria a secao
   hb_HSet( hTemp[ cSecao ], cKey, cValue ) // cria a chave e atribuiu o valor
   aRet:=.T.
EndIf   
hIni := hb_HClone( hTemp ) // atualizo hIni 
hTemp := NIL
hb_IniWrite( cArq, hIni) //gravo a atualização em arquivo
Return aRet