edu

Membros
  • Total de ítens

    3
  • Registro em

  • Última visita

Reputação

0 Neutral

Sobre edu

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Localização
    Itu/SP
  1. Não sei se isso o ajudará porque quase não uso WebBrowser e meu Delphi é 2009, mas algum tempo atrás tive problemas de compatibilidade. Meu programa rodava bem no Windows 7 mas quando migrei para o 10 os sites ficavam desfigurados. Após pesquisar descobri que o problema estava relacionado a emulação do Internet Explorer, o WebBrowser do meu programa trabalha de forma a emular o Internet Explorer 7. Para resolver é preciso fazer um ajuste no registro do Windows, com base nas informações do site da Microsoft criei uma função para automatizar isso: https://msdn.microsoft.com/en-us/library/ee330730(v=vs.85).aspx: // versões IE: 7, 8, 9 10 e 11 Procedure SetIEEmulation(VersaoIE : Integer); Var R : TRegistry; V : Integer; Begin V := 11001; Case VersaoIE Of 7 : V := 7000; 8 : V := 8888; 9 : V := 9999; 10 : V := 10001; 11 : V := 11001; End; // internet explorer 11 = 11000 ou 11001 // internet explorer 10 = 10000 ou 10001 // internet explorer 9 = 9000 ou 9999 // internet explorer 8 = 8000 ou 8888 // internet explorer 7 = 7000 // https://msdn.microsoft.com/en-us/library/ee330730%28v=vs.85%29.aspx // resumidamente, esta função grava um valor no registro que força a emulação da versão do Internet Explorer para o programa indicado // só é preciso o nome do programa, não é necessário o path completo R := TRegistry.Create; Try R.RootKey := HKEY_CURRENT_USER; R.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\',False); // código para emular o internet explorer 11 R.WriteInteger(ExtractFileName(ParamStr(0)),V); Finally R.CloseKey; R.Free; End; End; Para emular o Internet Explorer 11 chame a função do seu programa apenas uma vez, desta forma: SetIEEmulation(11); Não testei se isso funcionará no seu caso (também não tenho o XE7), mas talvez ajude.
  2. O erro que verifiquei ocorre nos campos posteriores a posição 37 devido ao incremento de um caractere, o seu parece não ter relação com isso.
  3. Olá, Fiz uma correção no arquivo de remessa do banco Sicredi, formato cnab 240: na linha 1566, função GerarRegistroTransacao240, estava assim: Space(2) + // 037 a 037 - Dígito verificador da coop/ag/conta Alterei para Space(1) + // 037 a 037 - Dígito verificador da coop/ag/conta O arquivo não passava na homologação devido ao deslocamento dos campos seguintes gerado pelo caractere extra. Como é possível ver no manual e no próprio comentário na linha, é esperado apenas um espaço nesta posição. ACBrBancoSicredi.pas