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