RES: [delphi-br] Numero de usuários

2007-04-20 Por tôpico Marcelo Hoepfner \(SI\)
No sql server você pode usar a stored procedure sp_who2 e nela tratar as 
conexões de seu sistema. Eu uso assim. E sei exatamente quantos usuários estão 
no sistema, inclusive qual a maquina que esta logada, qual usuário, etc

 

 

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
Desenvolvimento (Anderson)
Enviada em: sexta-feira, 20 de abril de 2007 19:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Numero de usuários

 

Se for por esse lado, no mysql, vc pode fazer:

show processlist

e analisar quem tá on, pelo host.

- Original Message - 
From: Paulo Sérgio de Souza 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Friday, April 20, 2007 11:43 AM
Subject: Re: [delphi-br] Numero de usuários

Galera,

Se o aplicativo estiver usando o Interbase ou o Firebird pode-se utilizar o 
seguinte código:

Coloque no seu form principal o componente TIBDatabaseInfo da paleta InterBase 
com o name de:
InfoBanco;

No onShow do formulário coloque:

begin
InfoBanco.Database := ''Seu IBDataBase;
if InfoBanco.UserNames.Count  sua quantidade de cópias then
begin
ShowMessage('Número de conexões ao sistema excedido.');
Application.Terminate;
end;

Espero ter ajudado.

Sds,

Paulo Sérgio
Desenvolvedor
[EMAIL PROTECTED] mailto:paulosergio_desouza%40yahoo.com.br 
Belo Horizonte/MG

- Original Message - 
From: Desenvolvimento (Anderson) 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Friday, April 20, 2007 10:26 AM
Subject: Re: [delphi-br] Numero de usuários

tem uma solução q usa Ky...rsrsrsrs

vc pode usar um campo q escreva uma data/hora... assim, vc sabe se o usuario 
permanece usando o sistema.
coloca um timeout de 5 minutos para ver se o usuario ainda ta no sistema... e 
um timeout de 1 minuto no cliente.

- Original Message - 
From: Sérgio T. Uetanabaro 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Thursday, April 19, 2007 5:32 PM
Subject: RES: [delphi-br] Numero de usuários

Infelizmente só tem solução q dói... hehehe. Tentar ver algum esquema de dar
um broadcast na rede em que seu software responda a esse broadcast e conte o
nro de softwares rodando... tem muito softwares q estao fazendo isso.

[]´s

Sergio

_ 

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 Ricardo César Cardoso
Enviada em: quinta-feira, 19 de abril de 2007 16:06
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] Numero de usuários

CAD = CTRL + ALT + DEL. Imagine... abreviação da abreviação...

Alberto alberto.ferreira@ mailto:alberto.ferreira%40tan.com.br
tan.com.br escreveu: Obrigado Sergio, mas...

não tem nada mais simples? É que é um software distribuído, de prateleira
e sem manutenção. Teria que colocar esse autenticador como um serviço no
windows e tudo mais, me preocupar se ele está no ar, além do mais pode ser
que algumas máquinas desses usuários não possam nem ser chamadas de estação,
quem dirá de servidores.
O que é CAD?

[]s

- Original Message - 
From: Sérgio T. Uetanabaro 
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
Sent: Thursday, April 19, 2007 9:31 AM
Subject: RES: [delphi-br] Numero de usuários

Acho q a melhor opção seria vc ter um servidor de autenticacao de copia.
Toda vez que um usuario logar no seu sistema vc acessa esse servidor via
TCP, por exemplo, e autentica a copia, mantendo nele o nro de copia
rodando na rede interna, tratando devidamente o OnDisconnect para que não
haja problemas de matar o processo no CAD. Acho que eh a opcao mais correta
e facil de se fazer isso.

[]´s

Sergio Uetanabaro

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Alberto
Enviada em: quinta-feira, 19 de abril de 2007 08:34
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] Numero de usuários

Olá,

Existe alguma maneira de saber quantos usuários estão logados no sistema em
uma rede interna? Ou refazendo a pergunta: Preciso controlar o número de
copias, qual a melhor opção? 
Pensei no seguinte, o usuário pode instalar o sistema em várias máquinas,
mas se a sua copia dá direito a dois usuários, para o terceiro entrar alguém
precisa sair.
Poderia até gravar uma flag no banco e comparar algo como n_copias X
n_logados, mas existe a possibilidade de Ctrl+Alt+Del e daí o numero de
logados vai para o espaço.

obrigado.

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

__
Fale com seus amigos de graça com o novo 

RES: [delphi-br] Agenda Médica

2007-01-23 Por tôpico Marcelo Hoepfner \(SI\)
Bom rodrigo eu uso sql server e eu resolveria desta forma:

 

Os horários vazios (vagos) deixe o campo como null e os preenchidos ponho a 
data e a hora  resolveria o problema.

 

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo 
Magno
Enviada em: segunda-feira, 22 de janeiro de 2007 12:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Agenda Médica

 

Amigos,

Estou precisando fazer uma agenda aonde tenha a data e o horário, ate ai tudo 
bem ja fiz, so que eu quero pegar o intervalo de horas vagas disponivel no 
sistema. 

Exemplo :

O medico ele atende de 08:00 as 12:00

O primeiro horario dele e as 08:00 ja ta preenchido no banco esta tudo 
direitinho , a proxima consulta dele e as 08:40, que tb esta preenchido, cada 
consulta dele tem um intervalo de 40 a 40 minutos.

Gostaria de pegar no banco ou alguma funcao no delphi aonde eu possa descobrir 
o horario dele vago neste periodo de horas de 08:00 as 12:00.

Se alguem puder me ajudar ficarei grato.

Obs : os horarios ja preenchidos e gravados no banco ja fiz a coleta destes 
dados agora so quere pegar o horario vago que e o mais importante pra mim.

No mais agradeço a atenção de todos.

Rodrigo 

__
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/  

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Um programa para executar varias SQL's

2007-01-03 Por tôpico Marcelo Hoepfner \(SI\)
Voce podia ler todos os arquivos pra um memo, e depois pega o conteúdo do memo 
e executar...

 

Eu uso ado, e no ado tem um adocommand que executa varias instruções sql.

 

No zeus deve ter algum componente parecido.

 

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Weber 
Luvisa
Enviada em: quarta-feira, 3 de janeiro de 2007 17:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Um programa para executar varias SQL's

 

Olá, preciso criar uma rotina para executar varios SCript dentro de um
arquivo texto no meu aplicativo delphi, uso Zeos, porem quando vou
executar pelo Zeos da erro nos arquivos ele passa apenaso primeiro e
os após ; não executa.. agradeço se alguem tiver alguma idéia de como
fazer o mesmo!

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] re: Programa que gerencia a exe cução de outro programa

2007-01-02 Por tôpico Marcelo Hoepfner \(SI\)
O que voce pode fazer tambem é o seguinte, 

 

Cria uma pasta oculta no servidor e não divulga pra ninguem,

Faz o programa porteiro acessar esta pasta e copiar para a maquina local, ai 
você já impede que executem o programa diretamente..

 

 

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jesus
Enviada em: sexta-feira, 29 de dezembro de 2006 16:25
Para: lista delphi-br
Assunto: [delphi-br] re: Programa que gerencia a execução de outro programa

 

Oi Marcelo,

 Use a passagem de parametros do programa A para o programa X.

A sugestão é excelente, mas o problema é que não tenho disponivel o fonte do 
programa X e portanto ele não pode ser alterado para receber parametros.

O programa X, cujo autor ninguém encontra mais e muito menos o fonte que sumiu 
com ele, é atualmente usado em apenas um computador de uma pequena empresa. 
Essa empresa instalou uma rede e a idéia é que agora esse programa possa ser 
executado em mais do que um computador, e daí a necessidade de senhas 
individuais de acesso para ele.

Pensei então em criar um programa porteiro para o X... Mas parece que está 
dificil...

De qualquer forma agradeço imensamente a sua sugestão que, embora infelizmente 
não sirva para este caso, poderei utilizar com bastante proveito em outras 
situações menos traumáticas... hehehe..

Um grande abraço,
Jesus

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Programa que gerencia a exe cução de outro programa

2006-12-28 Por tôpico Marcelo Hoepfner \(SI\)
Use a passagem de parametros do programa A para o programa X.

 

Se o programa X for executado diretamente ele não vai ter nenhum parâmetro, ai 
vc da uma mensagem dizendo que só pode ser executado pelo programa A ou então 
vc fecha o aplicativo e executa o programa A automaticamente.

 

De uma procurada a respeito de parâmetros, pelo menos aqui na empresa eu uso 
assim e ninguém consegue executar o meu programa diretamente, somente através 
de um outro que valida a versão e manda pra meu programa um parâmetro. Qualquer 
coisa PVT: [EMAIL PROTECTED]

 

 

Marcelo Hoepfner

www.meh.com.br

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jesus
Enviada em: quinta-feira, 28 de dezembro de 2006 00:28
Para: lista delphi-br
Assunto: [delphi-br] Programa que gerencia a execução de outro programa

 

Ois,

Procurei nas mensagens anteriores da lista e não encontrei nada parecido...

Tenho um programa já pronto, que irei aqui chamar de X.EXE para exemplificar, e 
que não tenho o fonte. Esse programa pode ser executado diretamente do CD, sem 
ser instalado.

Preciso criar um programa que controle a execução do X.EXE, ou seja, que este 
programa não possa ser executado sem passar antes por um outro programa que irá 
administrar um sistema de senhas.

Vamos ver de outro angulo: um CD tem um programa A.EXE e um programa X.EXE.

Como fazer com que o programa X não possa ser executado independentemente? Em 
outras palavras, como fazer com 
que o programa X só possa ser executado através do programa A que controlará as 
senhas de seu acesso?

Abs:) Jesus

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Tab pelo Enter

2006-12-20 Por tôpico Marcelo Hoepfner \(SI\)
procedure Tfrmmultas.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin

IF NOT (SENDER IS TMEMO) THEN
BEGIN

key := #0;
perform(WM_NEXTDLGCTL, 0, 0);

END;
end;
end;

 

TENTA ASSIM 

 

 

Marcelo Hoepfner

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo 
Ravelli
Enviada em: quarta-feira, 20 de dezembro de 2006 15:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tab pelo Enter

 

Tenho o seguinte problema. Uso esse código abaixo para trocar o Enter pelo
Tab, ativando a propriedade KeyPreview do Form, isso funciona sem problemas,
mas o meu problema é quando eu uso o componente Memo, pois se eu der um
enter dentro dele vai para outro edit. Alguém tem alguma solução para
resolver esse problema.

Obrigado.
Ricardo Ravelli.
[]s.

procedure Tfrmmultas.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #0;
perform(WM_NEXTDLGCTL, 0, 0);
end;
end;

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] gerar arquivo ZIp

2006-12-20 Por tôpico Marcelo Hoepfner \(SI\)
Eu uso os componentes da jvcl para compactar o arquivo, e mando para o ftp 
usando os componentes do indy.

 

Marcelo Hoepfner

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Renato 
Lorandi
Enviada em: quarta-feira, 20 de dezembro de 2006 15:13
Para: Lista Delphi
Assunto: [delphi-br] gerar arquivo ZIp

 

Olá pessoal boa tarde!

Tchê gostaria de uma ajuda de vocês, ou uma dica para encontrar algo sobre como 
gerar arquivo .zip por exemplo quero gerar o arquivo de banco de dados meu o 
GDB para zip a cada 15 dias e mandar uma copia para ftp, como poderia fazer 
isso... alguma dica apenas algumas dicas ok, quero correr um pouco atrás 
sozinho das coisas...

abraço.

__
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/  

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: RES: RES: [delphi-br] Moeda

2006-12-20 Por tôpico Marcelo Hoepfner \(SI\)
Com o cast ficaria assim, tenta ai:

 

 

SELECT dtaent,dtasai,cast(unitario) as money ) as unitario, cast(total) as 
money ) as total FROM chos_diarias

 

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
BrancoRP2000
Enviada em: quarta-feira, 20 de dezembro de 2006 11:08
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: RES: [delphi-br] Moeda

 

Nossa que legal. Vou testar este CAST.
Mas acabei resolvendo desta maneira:

SELECT dtaent,dtasai,CONVERT(varchar, CONVERT(money, unitario), 1) as unitario, 
CONVERT(varchar, CONVERT(money, total), 1) as total FROM chos_diarias

Achei importante mandar o resultado porque pode ajudar outros amigos da lista!
Muito obrigado e boas festas à todos!

-
BRANCORP2000
http://brancorp2000.blogspot.com http://brancorp2000.blogspot.com 
MSN: [EMAIL PROTECTED] mailto:brancorp%40msn.com 

- Mensagem original 
De: Marcelo Hoepfner (SI) [EMAIL PROTECTED] mailto:M.EDUARDO%40BRAFER.COM 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 19 de Dezembro de 2006 13:40:07
Assunto: RES: RES: [delphi-br] Moeda

SELECT 

CAST( 

( 

SELECT SUM(qtde_exec * Pos_Peso) 

FROM VW_Apont_Fabrica 

WHERE (tipo_mov = 1) 

) 

as decimal(11,2) 

) as pos_peso_total 

END

_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
BrancoRP2000
Enviada em: terça-feira, 19 de dezembro de 2006 13:31
Para: [EMAIL PROTECTED] os.com.br
Assunto: Res: RES: [delphi-br] Moeda

To olhando no help sobre CAST e CONVERT mas nao to conseguindo usar.. se tiver 
um exemplo, ajuda bastante...

 - - ---
BRANCORP2000
http://brancorp2000 .blogspot. com http://brancorp2000 .blogspot. com 
MSN: [EMAIL PROTECTED] com mailto:brancorp% 40msn.com 

- Mensagem original 
De: Marcelo Hoepfner (SI) [EMAIL PROTECTED] COM mailto:M.EDUARDO% 40BRAFER. 
COM 
Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br 
Enviadas: Terça-feira, 19 de Dezembro de 2006 11:06:14
Assunto: RES: [delphi-br] Moeda

Voce pode dar um cast pra money na própria query trazendo o valor já em formato 
de moeda, pesquise no help do sql server a função CAST

Marcelo Hoepfner

_ 

De: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] Em 
nome de BrancoRP2000
Enviada em: terça-feira, 19 de dezembro de 2006 12:48
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Moeda

Pessoal,

Estou apanhando aqui. Tenho um campo do tipo float no SQL-SERVER. Entao quando 
o usuário digta o valor R$ 25,30 ele salva 25,3
O problema é que quero recuperar este valor para gerar um relatório e nao to 
conseguindo colocar ele no formato moeda, nem alterando CURRENCY para True.
Alguém pode ajudar?

BrancoRP2000 

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

 _ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger .yahoo.com/ http://br.messenger .yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

__
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/  

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Moeda

2006-12-19 Por tôpico Marcelo Hoepfner \(SI\)
Voce pode dar um cast pra money na própria query trazendo o valor já em formato 
de moeda, pesquise no help do sql server a função CAST

 

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
BrancoRP2000
Enviada em: terça-feira, 19 de dezembro de 2006 12:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Moeda

 



Pessoal,

Estou apanhando aqui. Tenho um campo do tipo float no SQL-SERVER. Entao quando 
o usuário digta o valor R$ 25,30 ele salva 25,3
O problema é que quero recuperar este valor para gerar um relatório e nao to 
conseguindo colocar ele no formato moeda, nem alterando CURRENCY para True.
Alguém pode ajudar?

BrancoRP2000 

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: RES: [delphi-br] Moeda

2006-12-19 Por tôpico Marcelo Hoepfner \(SI\)
 SELECT   

   CAST(

   (

  SELECTSUM(qtde_exec * Pos_Peso)  

  FROM   VW_Apont_Fabrica 

  WHERE(tipo_mov = 1) 

   )

   as decimal(11,2) 

   ) as pos_peso_total  

END

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de 
BrancoRP2000
Enviada em: terça-feira, 19 de dezembro de 2006 13:31
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Moeda

 

To olhando no help sobre CAST e CONVERT mas nao to conseguindo usar.. se tiver 
um exemplo, ajuda bastante...

-
BRANCORP2000
http://brancorp2000.blogspot.com http://brancorp2000.blogspot.com 
MSN: [EMAIL PROTECTED] mailto:brancorp%40msn.com 

- Mensagem original 
De: Marcelo Hoepfner (SI) [EMAIL PROTECTED] mailto:M.EDUARDO%40BRAFER.COM 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 19 de Dezembro de 2006 11:06:14
Assunto: RES: [delphi-br] Moeda

Voce pode dar um cast pra money na própria query trazendo o valor já em formato 
de moeda, pesquise no help do sql server a função CAST

Marcelo Hoepfner

_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
BrancoRP2000
Enviada em: terça-feira, 19 de dezembro de 2006 12:48
Para: [EMAIL PROTECTED] os.com.br
Assunto: [delphi-br] Moeda

Pessoal,

Estou apanhando aqui. Tenho um campo do tipo float no SQL-SERVER. Entao quando 
o usuário digta o valor R$ 25,30 ele salva 25,3
O problema é que quero recuperar este valor para gerar um relatório e nao to 
conseguindo colocar ele no formato moeda, nem alterando CURRENCY para True.
Alguém pode ajudar?

BrancoRP2000 

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

__
Fale com seus amigos de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/  

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Conecta a um banco de dados onLine

2006-12-14 Por tôpico Marcelo Hoepfner \(SI\)
Willer é um sistema que controla o caixa, cadastro dos clientes, emissão de 
notas, etc. todo no server,atualmente em uma das empresas tem 7 usuarios 
conectados e o desenpenho é muito bom, o que vai depender é o teu estilo de 
programação, a forma com que vc vai fazer suas consultas ao banco, eu sugiro 
que por exemplo nunca de um select numa tabela sem um where, coisinhas simples 
que numa estação normal não fazem muita diferença, mais na web o quando mais 
enxuto você deixar menos você se encomoda, se você quiser eu te dou 5 dias 
grátis pra você testar o serviço, ok.

 

Mensagem em PVT: [EMAIL PROTECTED]

MSN e Skype (Suporte): [EMAIL PROTECTED]

 

 

Espero poder ajudar.

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de willer
Enviada em: quarta-feira, 13 de dezembro de 2006 09:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Conecta a um banco de dados onLine

 

Gostaria de saber sobre o desempenho. É rápido mesmo? E qual o seu tráfego de 
informações? O que fazem os seus sistemas?
Só quero ter uma base, para fazer a coisa certa.

- Original Message - 
From: Marcelo Hoepfner (SI) 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Monday, December 11, 2006 10:33 AM
Subject: RES: [delphi-br] Conecta a um banco de dados onLine

No hosting 

www.meh.com.br http://www.meh.com.br/ http://www.meh.com.br/  

tenho 2 sistemas delphi (desktop) acessando o mysql (web) 100% funcionando.

Qualquer coisa manda um email.

_ 

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 Luiz Escobar
Enviada em: sábado, 9 de dezembro de 2006 14:22
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: Re: [delphi-br] Conecta a um banco de dados onLine

Bom duas coisas, faz ai e ve se conecta, SE não CONECTAR e vc tiver certeza que 
fez certo, porque não tem como errar, é só trocar o IP LOCAL pelo IP do seu 
mysql2.freehostia.com, ou pelo proprio nome, ai vc vai ter que pedir para eles 
abrierem o firewall para o seu IP ou para seu usuário, pois se não vc não chega 
ao servidor...

Eu tenho um banco na LOCAWEB, e é tudo fechado, se vc quizer acesso externo, 
tem que pedir pra eles, e eles liberam para o seu IP-fixo, para IP-dinamico eu 
não sei

Luiz Escobar

- Segue mensagem original! -

De: willer [EMAIL PROTECTED] mailto:willer%40personalcom.com.br com.br

Vamos considerar o seguinte:
Minha base de dados está em 'mysql2.freehostia.com' na porta 3306
O meu banco de dados é 'wilcos_db'.
Tô usando o host gratuito.

Como eu faria para conectar-me a esse banco?

- Original Message - 
From: Eduardo Silva dos Santos 

Qualquer um, a conexão é feita igual à na rede local.

eu uso myDAC www.crlab.com mas também ja usei ZEOS.

Em 08/12/06, willer escreveu:

 Que componente(s) eu usaria para fazer a conexão?

 - Original Message -
 From: Eduardo Silva dos Santos

 é perfeitamento possível, e te adianto que mysql funciona muuuito rapido
 em
 conexões via internet.
 de mais detalhes que eu te ajudo.

 Em 08/12/06, willer [EMAIL PROTECTED] mailto:willer%40personalcom.com.br 
 com.br
 escreveu:
 
  Alguém sabe se é possível fazer com que um aplicativo se comunique com
  um banco de dados onLine, banco de dados MySql.?
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com 
 Site: http://www.drdsiste http://www.drdsistemas.com/ 
 http://www.drdsistemas.com/  mas.com/

 [As partes desta mensagem que não continham texto foram removidas]

 __ Informação do NOD32 IMON 1911 (20061208) __

 Esta mensagem foi verificada pelo NOD32 sistema antivírus
 http://www.eset. http://www.eset.com.br http://www.eset.com.br  com.br

 [As partes desta mensagem que não continham texto foram removidas]

 


-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com
Site: http://www.drdsiste http://www.drdsistemas.com/ 
http://www.drdsistemas.com/  mas.com/

[As partes desta mensagem que não continham texto foram removidas]

__ Informação do NOD32 IMON 1912 (20061209) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset. http://www.eset.com.br http://www.eset.com.br  com.br

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

__ Informação do NOD32 IMON 1918 (20061212) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br http://www.eset.com.br 

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Conecta a um banco de dados onLine

2006-12-11 Por tôpico Marcelo Hoepfner \(SI\)
No hosting 

 

www.meh.com.br http://www.meh.com.br/  

 

tenho 2 sistemas delphi (desktop) acessando o mysql (web) 100% funcionando.

 

Qualquer coisa manda um email.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz 
Escobar
Enviada em: sábado, 9 de dezembro de 2006 14:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Conecta a um banco de dados onLine

 


Bom duas coisas, faz ai e ve se conecta, SE não CONECTAR e vc tiver certeza que 
fez certo, porque não tem como errar, é só trocar o IP LOCAL pelo IP do seu 
mysql2.freehostia.com, ou pelo proprio nome, ai vc vai ter que pedir para eles 
abrierem o firewall para o seu IP ou para seu usuário, pois se não vc não chega 
ao servidor...

Eu tenho um banco na LOCAWEB, e é tudo fechado, se vc quizer acesso externo, 
tem que pedir pra eles, e eles liberam para o seu IP-fixo, para IP-dinamico eu 
não sei

Luiz Escobar

- Segue mensagem original! -

De: willer [EMAIL PROTECTED] mailto:willer%40personalcom.com.br com.br

Vamos considerar o seguinte:
Minha base de dados está em 'mysql2.freehostia.com' na porta 3306
O meu banco de dados é 'wilcos_db'.
Tô usando o host gratuito.

Como eu faria para conectar-me a esse banco?

- Original Message - 
From: Eduardo Silva dos Santos 

Qualquer um, a conexão é feita igual à na rede local.

eu uso myDAC www.crlab.com mas também ja usei ZEOS.

Em 08/12/06, willer escreveu:

 Que componente(s) eu usaria para fazer a conexão?

 - Original Message -
 From: Eduardo Silva dos Santos

 é perfeitamento possível, e te adianto que mysql funciona muuuito rapido
 em
 conexões via internet.
 de mais detalhes que eu te ajudo.

 Em 08/12/06, willer [EMAIL PROTECTED] mailto:willer%40personalcom.com.br 
 com.br
 escreveu:
 
  Alguém sabe se é possível fazer com que um aplicativo se comunique com
  um banco de dados onLine, banco de dados MySql.?
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Eduardo Silva dos Santos
 DRD Sistemas.
 (27) 3218-4201
 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com 
 Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/

 [As partes desta mensagem que não continham texto foram removidas]

 __ Informação do NOD32 IMON 1911 (20061208) __

 Esta mensagem foi verificada pelo NOD32 sistema antivírus
 http://www.eset. http://www.eset.com.br com.br

 [As partes desta mensagem que não continham texto foram removidas]

 


-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com
Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/

[As partes desta mensagem que não continham texto foram removidas]

__ Informação do NOD32 IMON 1912 (20061209) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset. http://www.eset.com.br com.br

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Atualização automática

2006-12-08 Por tôpico Marcelo Hoepfner \(SI\)
Cara eu fiz um sistema desses, caso você tenha interesse podemos negociar.

 

Marcelo Hoepfner

msn: [EMAIL PROTECTED]

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Andrei 
Luís
Enviada em: sexta-feira, 8 de dezembro de 2006 13:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Atualização automática

 

Willer,

Uma idéia seria você utilizar no seu sistema 2 executáveis: 1 pequeno,
que será executado através de ícones na área de trabalho, etc, que faz
a atualização quando necessário e chama o 2º executável que é o
sistema em si.

[]
Andrei

Em 08/12/06, willer[EMAIL PROTECTED] mailto:willer%40personalcom.com.br  
escreveu:
 Como faço para fechar o meu programa após ter aberto outro?
 Estou implementando uma rotina de atualização automáticxa que deverá fzer 
 isso, baixa um arquivo(.exe), abre um programa auxiliar e fecha. O programa 
 auxiliar exclui o antigo, e renomeia o novo, abre-o e fecha-se;


 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Antivírus de email, como eles f azem?

2006-12-08 Por tôpico Marcelo Hoepfner \(SI\)
Voce poderia utilizar um endereço de email, 

 

Neste caso você conectaria ao server e verificaria se existem novos pedidos.

 

Por exemplo se os pedidos vem de pessoas de fora da empresa e esta indo pra um 
email que não é esse vc orienta a todos os usuários que quando quiserem efetuar 
pedidos que encaminhem para o email tal.

 

É uma solução bem eficiente, bom você consegue trabalha com o sistema que lê os 
email de forma mais ágil, pois saberá que todos os emails que caem lá são 
pedidos.

 

 

Marcelo Hoepfner

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe 
Henrique
Enviada em: sexta-feira, 8 de dezembro de 2006 15:34
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Antivírus de email, como eles fazem?

 

Olá amigos, estou querendo fazer um sistema parecido com um antivirus..
seguinte.. meu programa ficará residente na memória e quando o usuário abrir
seu outlook express ou qualquer outro, e mandar baixar os emails, meu
programa entra em ação.

Identifica o email, e se for um pedido, automaticamente cadastra na base de
dados.

o meu problema está na primeira parte, como interceptar os emails como um
antivirus faz? alguem tem alguma idéia?

Desde já agradeço.
[]s

-- 
_
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com 

Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Exceção em OpenDialog

2006-11-29 Por tôpico Marcelo Hoepfner \(SI\)
Tenta retirar o = true

 

 

procedure TfrmSkin.BuscaClick(Sender: TObject);
begin
if opDiag.Execute then
edit1.Text := ExtractFilePath(opDiag.FileName);
end;

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edilson 
Gonçalves
Enviada em: quarta-feira, 29 de novembro de 2006 10:57
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Exceção em OpenDialog

 

Pessoal, estou com o seguinte problema:
Tenho em um Form um componente TOpenDialog, um TButton e um TEdit pra
exemplificar.
Seria para o usuário escolher um dentre vários skins para o aplicativo.
O procedimento ocorre normalmente até a escolha do arquivo através do
openDialog. Acontece que
ao clicar no botão abrir do OpenDialog, ocorre uma exceção. Já vasculhei pra
todo lado e nao consigo encontrar
o que está causando esta exceção.

Project Papyrus.exe raised excpetion class EAccessViolation with message
'Access violation at address .
Read address 000'. Process stopped. Use Step or Run to continue

Abaixo o código que estou utilizando como exemplo:

unit uSkin;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TfrmSkin = class(TForm)
opDiag: TOpenDialog;
Busca: TBitBtn;
Edit1: TEdit;
Sair: TBitBtn;
procedure BuscaClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmSkin: TfrmSkin;

implementation

{$R *.dfm}

procedure TfrmSkin.BuscaClick(Sender: TObject);
begin
if opDiag.Execute = true then
edit1.Text := ExtractFilePath(opDiag.FileName);
end;

procedure TfrmSkin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

end.

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Problemas no SQL

2006-11-28 Por tôpico Marcelo Hoepfner \(SI\)
Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
se eu fizer essa pesquisa:
dmDados.ibqConsultaContasAPagar.SQL.add 

(' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ 
chr(39) + eDataInicial.text + chr(39) + ')' and '(contas_a_pagar.datalancamento 
= '+ chr(39) + eDataFinal.text + chr(39) + ')');

 

Corrigida

 

 

dmDados.ibqConsultaContasAPagar.SQL.add 

(' select * from contas_a_pagar where ((contas_a_pagar.datalancamento = '+ 
chr(39) + eDataInicial.text + chr(39) + ') and (contas_a_pagar.datalancamento 
= '+ chr(39) + eDataFinal.text + chr(39) + ')');

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis 
Júlio Bender
Enviada em: terça-feira, 28 de novembro de 2006 09:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problemas no SQL

 

Bom dia, estou com um problema no SQL e gostaria que alguém me ajudasse:
se eu fizer essa pesquisa:
dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' and '(contas_a_pagar.datalancamento = '+ chr(39) + eDataFinal.text + 
chr(39) + ')');

no delphi ele esta dando esse erro:
[Error] uRelatContasAPagar.pas(40): Operator not applicable to this operand type

Se eu colocar esse:
dmDados.ibqConsultaContasAPagar.SQL.add (' select * from contas_a_pagar where 
((contas_a_pagar.datalancamento = '+ chr(39) + eDataInicial.text + chr(39) + 
')' );
fica certo

não estou conseguindo implementar o AND para fazer a pesquisa entre duas 
datas.

outra coisa, eu informo no edit a data no formato dd/mm/ e ele pesquisa 
como mm/dd/
Como eu faço para converter?

Alguém pode me ajudar?
desde já, agradeço.

Abraço

sds

Bender Desenvolvimento de Sistemas 
e Serviços Contábeis (Régis)
(51) 98470699

Novo Hamburgo/RS
MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br 

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



RES: [delphi-br] Delphi .NET

2006-11-16 Por tôpico Marcelo Hoepfner \(SI\)
CARA EU TENHO UM PROVEDOR E DO SUPORTE A ACCESS TRANQUILO

 

ENTRE NO MEU SITE E VEJA OS PLANOS www.meh.com.br http://www.meh.com.br/ 

 

Mensagens em pvt e MSN: [EMAIL PROTECTED] 

 

 

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo
Enviada em: quinta-feira, 16 de novembro de 2006 17:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi .NET

 

Oi da uma vasculhada melhortodos que eu conheço da suporte ao ACCESS

LocaWeb - HostNet e outros por ai

o que mais tem eh suporte pra ACCESS.

Abs.

Rodrigo Mota.

- Original Message - 
From: Lucelio Domingos do Nascimento 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Thursday, November 16, 2006 2:10 PM
Subject: [delphi-br] Delphi .NET

Olá pessoal, estou com um tremendo problema: Estou desenvolvendo uma 
aplicaçãozinha em ASP.NET do Delphi 2006. Localmente consigo manipular 
normalmente o Banco de dados (Access) porém, quando procurei um seridor 
para hospedar a aplicação, nenhum dá suporte ao Access e o mais barato 
que achei só dá suporte ao MySQL. Tentei migrar para utilização do 
MySQL mas não consegui. Alguém teria uma receita de bolo pra eu 
utilizar o MySQL e conhece algum servidor em que possa hospedar minha 
aplicação? Obrigado!

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]