Paulo Henrique de Assis

Bom dia! Realmente só ocorre a mudança do cursor se clicar na linha! mas muito obrigado, pois o seu exemplo já me atendeu!

Gostaria em saber se tem como eu adicionar uma linha dentro de um memo que servirá como um link para eu abrir um arquivo pdf qualquer! Tipo eu irei reservar a linha 01 e 02 para informação texto e a linha 03 eu preciso informar o caminho de um pdf em minha máquina, com isso se o usuário clicar em cima desta linha, terá que abrir o pdf! Uma coisa que eu queria também é que no momento que eu colocasse o cursor do mouse em cima da linha, que este cursor mudasse para crHandPoint! Abs pessoal.

Olá pessoal, estou tentando instalar o JEDI versão Bild 4571 no meu delphi xe3 e dá o seguinte erro "installation failed check compiler output for details" Gostaria em saber se alguém sabe a solução para esse problema! Vlw pessoal!

Obrigado pela resposta, mas não é bem assim que eu gostaria de fazer, pois hoje eu tenho uma dll que se chama ECF.dll e dentro dela eu tenho uma função de leitura x da seguinte maneira: **forma ilustrativa** declaração função bematech declaração função daruma functon fleituraX(impressora : integer): boolean; begin case impressora of 0: leiturax bematech 1: leiturax Daruma end; o que eu queria fazer é separar as chamas das dll por diretivas, conforme dito antes definido por parametros! teria como? obrigado

Olá pessoal, estou precisando trabalhar com dos tipo de fabricantes de ECF em meu sistema, que seria a Bematech e Daruma, mas não gostaria em carregar as dll das duas fabricantes no iniciar do meu aplicativo e queria saber se tem como eu trabalhar com diretivas da seguinte maneira, no meu sistema eu setaria uma flag informando que irei trabalhar com a Bematech no meu sistema de retaguarda e quando eu abrisse o meu pdv só carregaria a dll da Bematech e caso eu mudasse essa flag em meu sistema de retaguarda para a daruma, posteriormente ao abrir o meu pdv só carregará as dll da daruma! T+

Boa noite pessoal. Por gentileza, gostaria em saber se é possível fazermos uma consição dentro de uma dll, como exemplo, eu tenho dois sistemas que usam uma mesma dll, porem um sistema trata de um retaguarda e o outro de um pdv, porem quando eu abro os dois juntos eles chamam as funções da impressora fiscal, mas o grande problema é que o pdv perde a referencia da conexão com a ecf por esse motivo, o que eu queria saber é se tem como eu fazer uma condição não qual quando eu chamar o sistema do retaguarda ele não chave as funções da ecf e deixando livre para o pdv. A grosso modo: if sistema = retaguarda.exe then outras funções else if sistema = pdv.exe begin function Bematech_FI_AbrePortaSerial: Integer; StdCall; External 'BEMAFI32.DLL'; function Bematech_FI_FechaPortaSerial: Integer; StdCall; External 'BEMAFI32.DLL'; function Bematech_FI_LeituraX: Integer; StdCall; External 'BEMAFI32.DLL'; end Nessa minha dll é usada diversas funções de impressoras fiscais e outras sem ser ecf e pois isso eu a uso nos dois sistemas e para não acontecer esse conflito, talvez teria que fazer essa condição, pois se a minha conexão fosse direto pela serial não aconteceria isso, mas a conexão é direto pela dll! Mas gostaria muito de uma sugestão para resolver esse probleminha! Att. vlw

OK amigo... Muito obrigado...

Olá pessoal. Por favor, gostaria em saber se alguém pode me enviar um exemplo de envio de e-mails usando o IdSMTP1 no delphi 2007! Pois achei alguns na net, porem não funcionaram bem, pois gostaria muito de que alguém pudesse me enviar um exemplo! T+

Olá pessoal, estou tentando excluir uma dll simples, que nem está carregada, na pasta Windows\System32 pelo comando DeleteFile e não está excluindo! Nem mensagem de erro dá! Conforme exemplo abaixo: DeleteFile(pchar('C:\Windows\System32\Teste.dll')); Att

Olá pessoal. Gostaria em saber se é possível trabalhar com ponteiro da seguinte maneira: function TForm1.fValor(Teste: string): integer; var pvalor: ^String; begin pvalor := @teste; pvalor^ := 'Retorno'; Result:=1; end; Quando for chamar a função, no evento do click do botão eu declaro uma variavel com o nome Valor do tipo String, conforme abaixo: procedure TForm1.Button3Click(Sender: TObject); var Valor : String; begin fValor(Valor); end; Quando eu executar a função eu gostaria em passar o valor do ponteiro pValor, que seria 'Retorno' para a minha variavel Valor do evento do botão! Do jeito que está, acontece a seguinte situação: quando estou debugando dentro função a minha variavel Valor recebe o 'Retorno', mas quando saio da função a minha variavel Valor simplismente zera! OBS: não quero inserir o var da assinatura da função (function TForm1.fValor(var Teste: string): integer). Gostaria em saber aonde estou errando?? T+

Boa tarde! Era isso mesmo que eu queria saber... rss, mas agradeço muito pela atenção.. Abraço..

amigo, voce está querendo colocar chifre em cabeça de cavalo ... rs isso não tem logica nenhuma function TForm1.testeDataHora(Data: String; Hora: String): Integer; begin Data:= FormatDateTime('ddmmyyyy',date); Hora:= FormatDateTime('hhmmss',now); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage(inttostr(testeDataHora('',''))); end; o certo seria: function DataHora: TDateTime; var SystemTime: TSystemTime; begin GetLocalTime(SystemTime); with SystemTime do Result := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMinute, wSecond, wMilliseconds); end; procedure TForm1.Button1Click(Sender: TObject); var teste1, teste2 : string; begin Teste1 := FormatDateTime('ddmmyyyy',DataHora); Teste2 := FormatDateTime('hhmmss',DataHora); showmessage(Teste1); showmessage(Teste2); Teste1 := datetostr(DataHora); Teste2 := timetostr(DataHora); showmessage(Teste1); showmessage(Teste2); end; se voce ainda tem dúvidas quanto a definição de functions no delphi, sugiro voce ver a unit SysUtils.pas ( ponha o cursor em FormatDateTime e tecle F1 ) ela mostra como são montadas as functions que o delphi usa abraço Tem lógica sim amigo, pois as funções que eu informei das dll da impressora fiscal, como exemplo, fazem esse processo! Eu dei exemplo de data hora para tentar explicar melhor, mas pelo jeito não consegui passar o que eu realmente quero! Mas muito obrigado pela ajuda... Você trabalha com impressora fiscal? caso sim, basta reparar na função da bematech que é a Bematech_FI_NumeroCupom(xCOO), pois essa variavel xCOO antes de passar pela função está vazia, mas depois que passar pela função, a própria função retornará o numero do COO do cupom para a variavel, como exemplo: xCOO:= ''; Bematech_FI_NumeroCupom(xCOO); O valor do número do cupom retornará da função e ai a minha variavel XCOO receberá esse valor. xCOO = '000001'. Entendeu, amigo? rs abraço

Pior que não é isso ainda! att Boa tarde. Abaixo está o meu exemplo,que funciona do jeito que estou querendo, porem a assinatura da função contém o "var". type TForm1 = class(TForm) Button1: TButton; function testeDataHora(var Data: String; var Hora: String): Integer; ------->>>> repare que tem o "var" antes do nome da variavel procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation procedure TForm1.Button1Click(Sender: TObject); var teste1, teste2 : String; begin testeDataHora(teste1,teste2); -----> após passar pela função a variavel teste1 receberá a date e a teste2 a hora, retornada pela função. end; function TForm1.testeDataHora(var Data: String; var Hora: String): Integer; begin Data:= FormatDateTime('ddmmyyyy',date); Hora:= FormatDateTime('hhmmss',now); Result:=1; end; Repara se eu tirar o "var" a função não retorna a data e a hora para a variavel teste1, teste2 da procedure TForm1.Button1Click(Sender: TObject). O que eu realmente queria fazer é que retorne o valor da função na variavel teste1, teste2 sem usar o "var" na declaração da função, o exemplo abaixo mostra como poderia ser: type TForm1 = class(TForm) Button1: TButton; function testeDataHora(Data: String; Hora: String): Integer; ------->>>> repare que não tem mais o "var" antes do nome da variavel procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation procedure TForm1.Button1Click(Sender: TObject); var teste1, teste2 : String; begin testeDataHora(teste1,teste2); -----Dessa forma o valor data e hora da função não retorna para a variavel teste1 e teste2 que seria data e hora. end; function TForm1.testeDataHora(Data: String; Hora: String): Integer; begin Data:= FormatDateTime('ddmmyyyy',date); Hora:= FormatDateTime('hhmmss',now); Result:=1; end; O que eu queria é arruma uma forma de retornar esse valor da funçao para as variaveis teste1 e teste2 sem a necessidade de incluir o "var" na assinatura ?? Att

Pior que não é isso ainda! att

Boa noite! Obrigado pela resposta, porem não é bem isso que eu procuro, abaixo está mais um exemplo da forma que eu preciso fazer: function TForm1.fTesteDataHora(Data: String; Hora: String): Integer; begin Data:= FormatDateTime('ddmmyyyy',date); Hora:= FormatDateTime('hhmmss',now); end; O retorno da função tem que ser do tipo inteiro e os parametros não podem conter o "var" nos parametros. quando eu chamar a função eu informo: var valor1, valor2:string; begin fTesteDataHora(valor1,valor2); end; OBS: Após passar pela função fTesteDataHora o valor1 receberá a data e o valor2 a hora! Lembrando que a data e hora é apenas um exemplo, pois pode ser qualquer tipo de variável! Eu gostaria em saber se tem como fazer esse mesmo procedimento sem usar o "var" no parametro? mas a idéia é esse mesmo. Não sei se tem que fazer uso de ponteiro, caso tenha gostaria de um exemplo se possível! Atenciosamente, Paulo

Boa tarde! Gostaria de continuar esse tópico pelo fato de ter ficado com mais uma dúvida nos valores de retorno do parametro! Da forma que você mencionou bastaria colocar o "var" na declarção do parametro da procedure, e deu certo, porem gostaria em saber se tem como adquirir o mesmo resultado sem colocar o "var"? Pois tem uma função da bematech que faz isso e tem o retorno da função sem informar o "var" como exemplo: declaração function Bematech_FI_DataHoraImpressora(Data: String; Hora: String): Integer; StdCall; External 'BEMAFI32.DLL'; uso da função minha procedure; var Data, Hora : String; begin for iConta :=1 to 6 do begin Data := Data + ' '; Hora := Hora + ' '; end; Retorno := Bematech_FI_DataHoraImpressora( Data, Hora ); end; Sendo que a variavel Data e hora retorna com valores após executar a função. Como é feito esse processo? Att

Consegui resolver com a sua dica! Muito obrigado.

Boa noite pessoal. Por gentileza, gostaria em saber qual é a lógica de uma função do tipo integer, que tenha você setar em seu parametro um SetLength, que o retorno da função seja em seu próprio parametro? Como é feito em algumas funções de impressora fiscal, como exemplo: SetLength(szDadosImpressora,4); Seto 4 posições em branco para ser alimentada pela função. Retorno := Daruma_FI_RetornaErroExtendido ( szDadosImpressora ); Após executar, a variavell szDadosImpressora retorna o status do caso, caso tenha. Neste caso o retorno da função da daruma é inteiro e a variavel do parametro szDadosImpressora retorna uma string. inté!

Função para tratamento do buffer geral enviado pela balança procedure Trata_Buffer(Buffer: String; var SWA, SWB, SWC, Peso, Tara: String); se o preço for a Tara, então voce pode fazer uma conversão de tipo valor := strtofloat(Tara) veja o que encontra na área de downloads http://www.igara.com.br/downloads/ abraço Bom dia! Por acaso você tem como disponibilizar essa procedure completa? Se possível, mande para o meu email pha_net@yahoo.com.br

Boa tarde! Pelo que eu entendi só irei capturar o peso da balança, correto? e paga gerar o preço em kilo que é informado na própria balança, tem como?

Boa tarde! Por gentileza, gostaria em saber se é possível Capturar Peso, Preço Kilo e Preço total Toledo Prix III? Queria saber se a Toledo tem alguma função na Dll eu que consiga enviar o preço em kilo e o preço total do menu aplicativo para a balança?? Ou até mesmo capturar esses valores da balança para o meu aplicativo? Pelo que eu vi dá para trabalhar com ela via dll, conforme tem no aplicativo de exemplo, que são : function AbrePorta(const Porta,BaudRate,DataBits,Paridade:Integer):Integer;stdcall;external 'P05.DLL'; function FechaPorta:Integer;stdcall;external 'P05.DLL'; function FechaPortaP05:Integer;stdcall;external 'P05.DLL'; function PegaPeso(const OpcaoEscrita:integer;Peso,Local:Pchar):Integer;stdcall;external 'P05.DLL'; function PegaPesoP05B(const OpcaoEscrita,PedeTara:integer;Peso,Local:Pchar):Integer;stdcall;external 'P05.DLL'; Pois tem um teste no roteiro do PAF-ECF que diz assim: REQUISITO XXXVIII-A TESTES (Observação: Este teste somente deverá ser realizado no caso de programa que funcione com balança interligada ou integrada ao ECF, devendo constar esta condição no laudo. Para a realização dos testes o desenvolvedor deverá disponibilizar balança computadorizada, vedado o uso de simulador) TESTE 93A: Controle, por meio do PAF-ECF, da interligação ou integração da balança ao ECF. Passo 1: Solicitar que a empresa instale o PAF-ECF com a balança integrada ou interligada ao ECF. Passo 2: Simule o fornecimento de alimentação a peso, colocando um objeto na balança. Passo 3: Capture os dados gerados pela balança (peso, valor unitário e valor total) e vincule . Por isso preciso capturar esses outros valores alem do peso! Atenciosamente, Paulo

Olá pessoal, por favor, gostaria de saber, se tem algum componente para usar no PDV que parece com uma bobina? que quando você vai lançando os itens, vai fazendo um efeito de impressão na tela de um cupom sendo impresso. att

ok... muito obrigado pela ajuda! abs

caso não imprima, estude o manual da linguagem de programação EPL da zebra e faça os testes basicos de configuração e impressão abraço Boa tarde! então, ele imprimiu o valor do memo direto para a etiqueta! sem nenhum padrão! att