se não deu certo ainda tente mudar os pChar para pAnsichar ou ao contrario lembro que tive que fazer um monte de teste para consegui que as funções da BEMAFI32.DLL funcionassem corretamente.
Att.: Clairton E. Müller Em 25/08/2010 19:28, Iran Lima escreveu: > > > > Mudei tudo pra ANSI e não resolveu ainda > > function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: AnsiString; > Aliquota: AnsiString; TipoQuantidade: AnsiString; Quantidade: AnsiString; > CasasDecimais: Integer; ValorUnitario: AnsiString; TipoDesconto: > AnsiString; > Desconto: AnsiString): Integer; StdCall; External 'BEMAFI32.DLL'; > > De: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > [mailto:delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br>] Em > nome de Clairton > Enviada em: terça-feira, 24 de agosto de 2010 18:54 > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Assunto: Re: [delphi-br] Delphi 2010 ta doido? > > a Declaração das funçoes tbm tem que estar com o Ansi... > > function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: > AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString; > Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario: > AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer; > StdCall; External 'BEMAFI32.DLL'; > > Att.: > > Clairton Eloisio Müller > > Em 24/08/2010 18:46, Iran Lima escreveu: > > > > Já tentei com pansichar.... > > > > E nada. > > > > -----Mensagem original----- > > De: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br> > > [mailto:delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > <mailto:delphi-br%40yahoogrupos.com.br>] Em > > nome de Roni Rodrigo > > Enviada em: terça-feira, 24 de agosto de 2010 18:27 > > Para: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > Assunto: Re: [delphi-br] Delphi 2010 ta doido? > > > > tenta converter em pansichar... > > ex: > > Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao), > > PAnsiChar(aliquota)... > > > > Em 24/08/2010 17:01, Iran Lima escreveu: > > > Gente to com um problema ao passar parâmetros strings no Delphi 2010 , > > > > > > Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica > > nome > > > "a" sem extensão. > > > > > > Outro Exemplo ao chamar o método da Bemafi32.dll > > > > > > Bematech_FI_VendeItem( 'codigo', descricao, aliquota, > > > > > > sTipoQtde, FormatFloat('0', quantidade), iDecimal, > > > > > > FormatFloat('0.00',valorUnitario), > > > > > > sTipoDesconto, FormatFloat('0.00',0) ); > > > > > > so vai a primeira letra de cada parâmetro > > > > > > 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da > > > impressora), no > > > Debug passa tudo blz mas a impressora recebe errado > > > > > > O que pode ser isso??? > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > ------------------------------------ > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > -- > > *"Inovação é o combustível do crescimento".* > > *Clairton Eloísio Müller* > Depto. Desenvolvimento > E-mail: clair...@dessis.com.br <mailto:clairton%40dessis.com.br> > <mailto:clairton%40dessis.com.br> > <mailto:clair...@dessis.com.br <mailto:clairton%40dessis.com.br> > <mailto:clairton%40dessis.com.br> > > Site: http://www.dessis.com.br > > *Dessis Sistemas de Gestão Empresarial* > > Rua José Marangoni, 380 - Vila Nova Cx. Postal 417 > > CEP: 89259-500 - Jaraguá do Sul - SC > > Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144 > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > -- *"Inovação é o combustível do crescimento".* *Clairton Eloísio Müller* Depto. Desenvolvimento E-mail: clair...@dessis.com.br <mailto:clair...@dessis.com.br> Site: http://www.dessis.com.br *Dessis Sistemas de Gestão Empresarial* Rua José Marangoni, 380 - Vila Nova Cx. Postal 417 CEP: 89259-500 - Jaraguá do Sul - SC Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144 [As partes desta mensagem que não continham texto foram removidas]
