Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Djalma Jr.

Membros
  • Posts

    12
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Djalma Jr.'s Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputation

  1. Olá EMBarbosa Quando eu tentei como ponteiro eu declarei o ponteiro com a estrutura que a documentação pede, conforme vc disse, e ele me retorna esse tal de $1 já desistimos de usar essa DLL diretamente, estamos fazendo agora um sistema em .net que fará a intermediação entre o meu sistema Delphi e essa porqueira de DLL...
  2. Bom dia Sim, tentei colocar como int64 por que quando coloco do tipo Pointer ele me retorna $1 o que me causa access violation
  3. também acho, pois no metodo que esotu usando é só um get sem qualquer parâmetro e ele me retornaria um ponteiro para uma lista, e esta função já não funciona. Não, tenho só em VB6/vb.net/java/visual.c Delphi que é bom nada hehehe,
  4. Outra coisa interessante que descobri agora... o programa TDUMP do delphi que serve para podermos pegar as funções exportadas das dlls nesta dll dá erro : "ERROR: Internal error at 0x414f59 with base 0x400000" na outra que já faço uso normalmente o programa funciona diretinho
  5. Bom dia, analisando o SDK vi que usam stdcall, fiz a alteração, mudei a declaração da função para algo do tipo function SmartComm_GetDeviceList2(out P_Lista: int64 ) : int64; stdcall; external 'SmartComm2.dll'; stdcall; mas contínua do mesmo jeito Em uma conversa com o pessoal do suporte (que não tá ajudando muito) levantaram a possibilidade de ser alguma inconsistência com o fato do do delphi7 trabalhar com ANSI e o componente com Unicode, será que isso procede?
  6. Olá pessoal, estou tendo alguns problemas com essa impressora. ela é do tipo que você pode gravar o cartão (contact less) e depois o imprime o que preciso fazer para isso é comanda-la para que ela posicione o cartão para que eu possa grava-lo e logo após imprimi-lo para isso tenho uma dll (SmartComm2.dll) que disponibiliza alguns comandos como: Código: var SmartComm_GetDeviceList2: function (out P_Lista: int64 ? int64; register ; SmartComm_OpenDevice2 : function (out HSMART: PHandle; const szDevice: widestring; const nDevType: int64):boolean; register; a 1° coisa que faço é carregar a dll e suas funções Código: hInstanceDll:= LoadLibrary(pAnsiChar('SmartComm2.dll')); if hInstanceDll > 0 then begin Result.Msg := 'Dll SmartComm2 Carregada com sucesso'; SmartComm_GetDeviceList2:= GetProcAddress(hInstanceDll, pAnsiChar('SmartComm_GetDeviceList')); SmartComm_GetDeviceInfo2:= GetProcAddress(hInstanceDll, pAnsiChar('SmartComm_GetDeviceInfo2')); SmartComm_OpenDevice2 := GetProcAddress(hInstanceDll, pAnsiChar('SmartComm_OpenDevice2')); end; meu problema está no usos destas funções, pois quando as usos como por exemplo Código: Result.Ok := SmartComm_OpenDevice2(print, 'SMART', SMART_OPENDEVICE_BYID); ou Código: res := SmartComm_GetDeviceList2(tst) as funções vem com retorno, só que os parâmetros out não são alterados, eles permanecem os mesmo que antes da chamada das funções obs.: estou criando essas funções como variáveis pois no sistema já consigo tratar outra impressora da marca Evolin e pra não ficar toda hora perguntando se estou usando uma impressora ou outra eu jogo essas "variaveis / funções" dentro de outra que me servirá como uma espécie de "roteador" (não sei o nome desta técnica) Código: if impressora = evolin then cmdPosiciona := PosicionaCartaoEvolin else cmdPosiciona := PosicionaCartaoSmart; Desta forma independente de qual impressora estou usando eu só chamo o comando cmdPosiciona obs2: o parametro de saída estou colocando como out, mas, já tentei com var e também não funcionou obs3: em vez de register já tentei pascal, cdecl, stdcall , safecall e nada deu certo qualquer sugestão será bem vinda
  7. Boa tarde, estou tentando enviar nfse para Salvador através da DLL deles e estou recebendo a seguinte mensagem de erro "Não foi possível estabelecer uma relação de confiança para o canal protegido SSL/TLS com a autoridade 'notahml.salvador.ba.gov.br' alguém teria alguma idéia de o que está acontecendo e como eu posso resolver isso ? Desde já muito obrigado.
  8. Boa tarde, estou tentando gerar nfses para salvador, e estou sem saber como faço para gerar uma nfse sem identificação do tomador, ou seja, sem o CPF, como eu devo preencher o xml nesse casos, desde já obrigado
  9. Boa tarde pessoal, estou com o mesmo problema, meu ambiente é o seguinte: Delphi 7 Trunck Salvador - homologação Como é o primeiro projeto que tenho usando esses componentes estou tentando usar o aplicativo de exemplo, o meu certificado vence em março de 20016, as configurações das "Opções da internet" estão iguais as recomendações do Italo o log que tenho do problema é seguinte: exception class : Exception exception message : The certificate authority is invalid or incorrect - URL:https://notahml.salvador.ba.gov.br/rps/ENVIOLOTERPS/EnvioLoteRPS.svc?wsdl - SOAPAction:http://tempuri.org/IEnvioLoteRPS/EnviarLoteRPS. main thread ($d54): 00781f50 +e40 Demo_ACBrNFSe.exe ACBrNFSeWebServices 4350 +274 TNFSeEnviarLoteRPS.Executar 7c90e485 +009 ntdll.dll KiUserExceptionDispatcher 006828e4 +108 Demo_ACBrNFSe.exe SOAPHTTPTrans THTTPReqResp.Execute 006826b9 +061 Demo_ACBrNFSe.exe SOAPHTTPTrans THTTPReqResp.Execute 007815ea +4da Demo_ACBrNFSe.exe ACBrNFSeWebServices 4203 +127 TNFSeEnviarLoteRPS.Executar 0077f590 +044 Demo_ACBrNFSe.exe ACBrNFSeWebServices 3631 +3 TWebServices.Envia 007b3cf8 +118 Demo_ACBrNFSe.exe ACBrNFSe 300 +20 TACBrNFSe.Enviar 00866e56 +092 Demo_ACBrNFSe.exe Frm_Demo_ACBrNFSe 746 +11 TfrmDemo_ACBrNFSe.btnGerarEnviarLoteClick 004cc9e8 +064 Demo_ACBrNFSe.exe Controls TControl.Click 004c25d0 +01c Demo_ACBrNFSe.exe StdCtrls TButton.Click 004c26c4 +00c Demo_ACBrNFSe.exe StdCtrls TButton.CNCommand 004cc850 +188 Demo_ACBrNFSe.exe Controls TControl.WndProc 004cf8af +157 Demo_ACBrNFSe.exe Controls TWinControl.WndProc 004c2494 +06c Demo_ACBrNFSe.exe StdCtrls TButtonControl.WndProc 004cc620 +024 Demo_ACBrNFSe.exe Controls TControl.Perform 004cf9e7 +023 Demo_ACBrNFSe.exe Controls DoControlMsg 004d003f +00b Demo_ACBrNFSe.exe Controls TWinControl.WMCommand 004cc850 +188 Demo_ACBrNFSe.exe Controls TControl.WndProc 004cf8af +157 Demo_ACBrNFSe.exe Controls TWinControl.WndProc 004cf52c +02c Demo_ACBrNFSe.exe Controls TWinControl.MainWndProc 00487f80 +014 Demo_ACBrNFSe.exe Classes StdWndProc 7e3792de +044 user32.dll SendMessageW 7e37a993 +016 user32.dll CallWindowProcA 004cf993 +0d7 Demo_ACBrNFSe.exe Controls TWinControl.DefaultHandler 004ccdf0 +010 Demo_ACBrNFSe.exe Controls TControl.WMLButtonUp 004cc850 +188 Demo_ACBrNFSe.exe Controls TControl.WndProc 004cf8af +157 Demo_ACBrNFSe.exe Controls TWinControl.WndProc 004c2494 +06c Demo_ACBrNFSe.exe StdCtrls TButtonControl.WndProc 004cf52c +02c Demo_ACBrNFSe.exe Controls TWinControl.MainWndProc 00487f80 +014 Demo_ACBrNFSe.exe Classes StdWndProc 7e3696c2 +00a user32.dll DispatchMessageA 004ebd73 +083 Demo_ACBrNFSe.exe Forms TApplication.ProcessMessage 004ebdaa +00a Demo_ACBrNFSe.exe Forms TApplication.HandleMessage 004ebfda +096 Demo_ACBrNFSe.exe Forms TApplication.Run 00869de7 +03b Demo_ACBrNFSe.exe Demo_ACBrNFSe 17 +3 initialization Tenco como você fez essa alteração que fez o sistema funcionar ?
  10. Ok, Obrigrado, mas, visto os posts anteriores vou tentar instalar o Trunk para usar com mais tranquilidade a NFSE. PS.: só corrigindo a cidade é Feira de Santana BA e não Alagoinhas
  11. OK por hora eu troquei o FPRetornorWS por TAGResposta só pra compilar o pacote, fico na expectativa então da versão corrigida Estou precisando deste pacote para poder fazer um módulo de nfses em lote para Salvador / Alagoinhas, tem alguma restrição ? ou já posso usar essa versão mesmo ? É a primeira vez que uso algum componente de vocês, tive boas indicações de colegas.
  12. Bom dia, Sou novo aqui no forum e estou tentando instalar o componente ACBr_NFSe no Delphi 07 e estou tendo o seguinte problema "ACBrNFSeWebServices.pas(831) Error: Undeclared identifier: 'FPRetornorWS' " Os componentes adicionais instalados são : ACBr_synapse, ACBr_Comum, ACBr_OpenSSL, ACBr_Diversos, ACBr_PCNComum, ACBr_TXTComum, ACBr_TCP, ACBr_DFeComum, ACBr_TEFD Analisando o arquivo ACBrNFSeWebServices.pas vi que o problema está na função TNFSeWebService.ExtrairRetorno ( if Result = '' then Result := FPRetornorWS; ) Alguém saberia me dizer qual o valor correto que deveria estar ali ? Ou onde essa variável está declarada ?
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.