Jump to content
Fórum Script Brasil

Paulo Henrique de Assis

Membros
  • Content Count

    55
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Paulo Henrique de Assis

Perfil

  • Gender
    Male
  1. Bom dia! Realmente só ocorre a mudança do cursor se clicar na linha! mas muito obrigado, pois o seu exemplo já me atendeu!
  2. 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.
  3. 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!
  4. 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
  5. 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+
  6. 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 =
  7. 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+
  8. 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
  9. 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
  10. Boa tarde! Era isso mesmo que eu queria saber... rss, mas agradeço muito pela atenção.. Abraço..
  11. 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, wMillis
  12. 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 : Strin
×
×
  • Create New...