Res: Res: [delphi-br] Impressao papel continuo razao
Ja sim .. procurei nas propriedades da impressora e nao tive sucesso ... nao tem nada de quebra de paginas obrigado - Mensagem original De: Luciano Calenzani Simões <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 31 de Julho de 2008 17:39:10 Assunto: Res: [delphi-br] Impressao papel continuo razao Já tentou configurar sua impressora para papel contínuo sem quebra de página nas preferências de impressão no painel de controle de impressoras? Luciano Calenzani Simões - Mensagem original ---- De: Delphi Sql <[EMAIL PROTECTED] com.br> Para: [EMAIL PROTECTED] os.com.br Enviadas: Quinta-feira, 31 de Julho de 2008 16:19:27 Assunto: [delphi-br] Impressao papel continuo razao Boa tarde !!! Estou tentando imprimir notas fiscais usando o qreport e delphi 7 porem a nf é do tamanho de um papel continuo razao* porem qdo eu imprimo uma nf da tudo certo .. porem a impressora se posiciona na proxima folha continua ou seja nao para no meio dela onde há tbem um picotado ... Alguem pode me ajudar como configurar esta pagina Obs. podem me corrigir se estiver escrevendo errado .. porém nao sei se este tipo de papel com um picotado no meio da folha tem o nome de papel continuo razao obrigado Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail..com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressao papel continuo razao
Boa tarde !!! Estou tentando imprimir notas fiscais usando o qreport e delphi 7 porem a nf é do tamanho de um papel continuo razao* porem qdo eu imprimo uma nf da tudo certo .. porem a impressora se posiciona na proxima folha continua ou seja nao para no meio dela onde há tbem um picotado .. Alguem pode me ajudar como configurar esta pagina Obs. podem me corrigir se estiver escrevendo errado .. porém nao sei se este tipo de papel com um picotado no meio da folha tem o nome de papel continuo razao obrigado Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail..com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar o MySqL em serviço
Tenta desativar o componente que faz a conexao com o banco de dados
- Mensagem original
De: Bollasette <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 2 de Julho de 2008 15:39:11
Assunto: Re: [delphi-br] Colocar o MySqL em serviço
Olá,,, b. Tarde a todos
Consegui colocar em serviço o MYSQL através da função
function ServiceStart( ServiceName: string) : boolean;
mas na hora de parar o serviço pela função
function ServiceStop( sMachine, sService: string ) : boolean;
o aplicativo trava, e só consigo fechá-lo pelas tecla Cntrl+Alt+Del.
O aplicativo é encerrado e o serviço do MYSQL também.
Como resolver ?
Abaixo segue a função:
{Parar o MySQL}
function ServiceStop( sMachine, sService: string ) : boolean;
var
schm,
schs : SC_Handle;
ss : TServiceStatus;
dwChkP : DWord;
begin
schm := OpenSCManager( PChar(sMachine) ,Nil,SC_MANAGER_ CONNECT);
if(schm > 0)then
begin
schs := OpenService( schm,PChar( sService) ,SERVICE_ STOP or SERVICE_QUERY_
STATUS);
if (schs > 0)then
begin
if (ControlService( schs,SERVICE_ CONTROL_STOP, ss))then
begin
if (QueryServiceStatus (schs,ss) ) then
begin
while (SERVICE_STOPPED <> ss.dwCurrentState) do
begin
dwChkP := ss.dwCheckPoint;
Sleep(ss.dwWaitHint );
if (not QueryServiceStatus( schs,ss)) then
begin
break;
end;
if (ss.dwCheckPoint < dwChkP) then
begin
break;
end;
end;
end;
end;
CloseServiceHandle( schs);
end;
CloseServiceHandle( schm);
end;
Result := SERVICE_STOPPED = ss.dwCurrentState;
end;
Abçs a todos
Henrique
WebSistemas
S.Paulo,SP
- Original Message -
From: Bollasette
To: [EMAIL PROTECTED] os.com.br
Sent: Wednesday, July 02, 2008 3:34 AM
Subject: Re: [delphi-br] Colocar o MySqL em serviço
A/C Alexandre, grato, vou à luta.
Abçs, Henrique
- Original Message -
From: Alexandre Rodrigues
To: [EMAIL PROTECTED] os.com.br
Sent: Wednesday, July 02, 2008 2:03 AM
Subject: Re: [delphi-br] Colocar o MySqL em serviço
Aqui mostra como matar um processo, talvez seja um caminho.
http://cc.codegear. com/Item/ 24320
Bollasette escreveu:
>
>
> A/C Alexandre Rodrigues,
>
> Em Ferramentas Administrativas tem opções de inicialização do MYSQL
> Automático, manual e desativar.
>
> Como fazer isso pelo D7 ?
>
> ABçs, Henrique
>
> - Original Message -
> From: Alexandre Rodrigues
> To: [EMAIL PROTECTED] os.com.br
> Sent: Tuesday, July 01, 2008 12:57 PM
> Subject: Re: [delphi-br] Colocar o MySqL em serviço
>
> Como assim colocar ele a rodar como serviço? Isso tu define na
> instalação do MySQL.
>
> Bollasette escreveu:
> >
> >
> > Olá,,, B.dia a todos,,,
> >
> > Meus amigos, gostaria d saber se há como colocar o MySQL
> > em serviço de dentro do D7 ?
> >
> > Uma função, uma procedure ?
> >
> > Chequei esta propriedade //ServiceStartName
> > mas é da CLasse (TService).
> >
> > Obrigados a todos,
> >
> > Henrique
> > WebSistemas
> > S.Paulo,SP
> >
> >
>
> _ _ _ _ ___
> Yahoo! Mail - Sempre a melhor opção para você!
> Experimente já e veja as novidades.
> http://br.yahoo. com/mailbeta/ tudonovo/
>
Res: [delphi-br] Modelos Layout de sistema
Com certeza .. layout é uma tarefa que vai muito da sua criatividade mas valw pela dica mas creio eu que tem algumas dicas ou ideias a serem seguindas .. pois na faculdade onde estudo tem uma materia (Interface Homem Maquina)"nao fiz esta mateira ainda" que o assunto que ela trata .. é a parte de interface de sistema .. grato Obrigado - Mensagem original De: Onjahyr - GMAIL <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 2 de Julho de 2008 15:49:07 Assunto: Re: [delphi-br] Modelos Layout de sistema Layout é uma coisa difícil de encontrar, cada um vai ter sua criatividade. Eu por exemplo vou criando um programa de um jeito e 99% das vezes termina de outro jeito :)... Mas, quando tenho imaginação de criar um programa novo, eu costumo ir no Baixaqui, ou SuperDownload ou outro da vida e baixo um programa da área que eu estou a desenvolver. E vejo as telas dos programas para ter uma imaginação maior de como será meu aplicativo. Claro que não vou imitar a tela de outros programas, mas dá uma idéia de como iniciar um layout. Não conheço outra forma, se alguém souber uma outra maneira quero conhecer também. Onjahyr Delphi Sql escreveu: > > Ai galera alguem tem um link ai .. que dê exemplos de layout de > sistema .. ou até mesmos dicas de como montar um interface bacana ... > pois o layout é um ponto a mais na apresentacao de um sistema a seu > cliente hehehe > > Obrigado > > Novos endereços, o Yahoo! que você conhece. Crie um email novo com a > sua cara @ymail.com ou @rocketmail. com. > http://br.new. mail.yahoo. com/addresses > <http://br.new. mail.yahoo. com/addresses> > > [As partes desta mensagem que não continham texto foram removidas] > > Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Modelos Layout de sistema
Ai galera alguem tem um link ai .. que dê exemplos de layout de sistema .. ou até mesmos dicas de como montar um interface bacana ... pois o layout é um ponto a mais na apresentacao de um sistema a seu cliente hehehe Obrigado Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagens no Botao
Ai galera seguinte.. Eu uso um botao que tem como colocar imagem ... basta mostrar o caminho nas propriedades Glyph .. até ai tudo bem.. como q faz pra mim colocar como defaut q as imagem esta na pasta "imagens" q fica dentro da pasta do meu projeto .. ou seja qq lugar q eu coloco a pasta do meu projeto ele puche as imagens Obrigado Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Voltar data um mes a tras
Boa noite tenho duas variaves DataAtual e DataUmMesAtras do tipo TDate Pra DataAtual e coloco DataAtual := now; Como faço pra DataUmMesAtras receber a data de 1 mes atras ou seja DataAtual = 16/6/2008 DataUmMesAtras = 16/5/2008 Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar ip em placa wireless
Blz cara .. deu certo com o Netsh
se alguem interessar o codigo fica assim
WinExec(PChar('netsh interface ip set dns "wireless" source=static
addr=201.38.214.10 register=PRIMARY'),SW_HIDE);
ou veja no link
http://www.microsoft.com/brasil/technet/Colunas/GuilhermeCarnevale/FerramentaNETSH.mspx
- Mensagem original
De: Daniel Bastos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 13 de Junho de 2008 14:15:00
Assunto: Re: [delphi-br] Colocar ip em placa wireless
Um chute ...
vc tentou mudar com o Netsh?
2008/6/13 Delphi Sql <[EMAIL PROTECTED] com.br>:
> Alguem sabe como adicionar IP .. mascara .. gateway .. dns pelo delphi7 ...
> em uma placa wireless
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> http://br.mail. yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
Abs
Daniel A. Bastos
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: select com case
Vc esta fazendo este sql direto no Delphi ou Banco msm ? - Mensagem original De: lidio.zucchi <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:59:20 Assunto: [delphi-br] Re: select com case --- Em [EMAIL PROTECTED] os.com.br, Berdam escreveu > > 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+ '' WHEN ''+F+'' THEN ''+Fisica+'' END AS "tipo", SALDO_ATUAL_ ADT FROM FORNECE '; > > Galera, estou executando este sql Mas, qual o problema .? Se te ajudar faça assim case when (Tipo = ' + #39 + 'J'+ #39 + ') then ' + #39 + 'Juridica' + #39 else '+ #39 + 'Fisica'+ #39 + ' end as tipox; Zucchi > > - - - - - - > Uberdam Cavaletti > Formado em Tecnologia da Informação - Unoesc - Xxe > Pós-graduado em desenvolvimento Java - Unoesc - Xxe > > http://www.curricul ar.com.br/ berdam > > Visite > http://passandovene no.blogspot. com > - - - - - - > > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! > http://br.mail. yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colocar ip em placa wireless
Alguem sabe como adicionar IP .. mascara .. gateway .. dns pelo delphi7 ... em uma placa wireless Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Documentação de Software
Bom dia !! Preciso fazer uma comentação de um Software, o que esta dando mais trabalho é o fluxograma devido, qual metodo usar, ferramenta, e um bom exemplo de fluxograma, procurei mas o que encontrei esta muito superficial, onde não foi possivel tirar duvidas. Alguem tem ou sabe onde encontrar um bom exemplo como fazer esta ducumentaoção. Obrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] Exceção de bloque ios de teclas
Bom dia .. ai galera deu certo a dica foi 100 % .. é o seguinte com o programinha(pesado hemmm) do Lidio ele simula a combinção das teclas ou seja qdo vc tecla Ctrl +c ele disse q é o 3 e Ctrl +v é o 22 é só acrescentar no codigo > > > if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f', #3 , #22]) Obrigado Vlw - Mensagem original De: lidio.zucchi <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 15 de Maio de 2008 22:54:23 Assunto: Re: Res: Res: [delphi-br] Exceção de bloqueios de teclas Desculpem Retificação... Onde foi ---> Poste na sessão. Leiam ---> Postei na sessão --- Em [EMAIL PROTECTED] os.com.br, "lidio.zucchi" escreveu > > Boa noite a todos > > Poste na sessão de arquivos um programinha que desenvolvi na época de > clippeiro e que me ajudou muito. > > Ele retorna o código da tecla ou das teclas pressionadas. > Se servir façam bom proveito dele. > > []'s > > Zucchi > > > --- Em [EMAIL PROTECTED] os.com..br, Joao Morais escreveu > > > > Delphi Sql wrote: > > > Seguinte ... nenhuma dica resolveu meu problema .. > > > coloquei no OnKeyPress o seguinte > > > > > > if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'...'f']) > > > then > > > begin > > > Beep; > > > Key := #0; > > > end; > > > > > > porém com esta exceção bloquiei tbem o "Ctrl + c" e "Ctrl + v" ou > seja não > > > posso copiar nem nem colar nada no edit devido o bloqueio das > teclas ... > > > > Significa que Ctrl+C e Ctrl+V passam pelo OnKeyPress. Se passam, > eles > > tem um código. Se tem um código, você pode recuperar seu valor. Meu > > palpite é que Ctrl+C tenha código #3 e Ctrl+V tenha código #22, mas > eu > > recomendo você testar por conta própria. Após descobrir os códigos, > > acrescente-os na lista. > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Exceção de bloqueios de teclas
Seguinte ... nenhuma dica resolveu meu problema .. coloquei no OnKeyPress o seguinte if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end; porém com esta exceção bloquiei tbem o "Ctrl + c" e "Ctrl + v" ou seja não posso copiar nem nem colar nada no edit devido o bloqueio das teclas ... - Mensagem original De: Ricardo César Cardoso <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 15 de Maio de 2008 11:17:47 Assunto: Re: Res: [delphi-br] Exceção de bloqueios de teclas Bom dia ! Em qual evento vc vai usar isso? Se for em OnKeyDown, Key é do tipo Word e vc vai ter um erro quando usar a comparação que vc usa. Obrigatoriamente vc vai ter que trabalhar com os valores ASC II dessas teclas ( 0-9, A-F e a-f ) Abraço, Ricardo. André Luis <[EMAIL PROTECTED] com.br> escreveu: if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end; if ssCTRL in Shift then begin Beep; Key := #0; end; [As partes desta mensagem que não continham texto foram removidas] - - --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Exceção de bloqueios de teclas
Olha não posso colocar assim pois o usuario só pode digitar letras q seja de "a" até "f" .. se eu colocar dessa maneiro só vou liberar o "a" e o "f", mesmo assim não resolveria o problema de liberar a tecla Ctrl + c ou v - Mensagem original De: Jorge Ericsson <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 13 de Maio de 2008 23:17:02 Assunto: Re: [delphi-br] Exceção de bloqueios de teclas Tente if not(Key in['0'..'9', #8 , 'A','a' , 'F','f']) then begin Beep; Key := #0; end; 2008/5/12 Delphi Sql <[EMAIL PROTECTED] com.br>: > > > - Mensagem original > De: Delphi Sql <[EMAIL PROTECTED] com.br > > Para: [EMAIL PROTECTED] os.com.br > Enviadas: Sexta-feira, 9 de Maio de 2008 16:35:53 > Assunto: [delphi-br] Exceção de bloqueios de teclas > > > Boa Tarde > > é o seguinte em um edit coloquei o seguinte codigo no evento OnKeyPress > > if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'...'f']) > then > begin > Beep; > Key := #0; > end; > > ou seja se o usuario nao digitar este caracteres ele não aceita .. entao > só que bloqueou tbem o "Ctrl + c" e o "Crtl + v" > como faria pra libera-los > > Icaro Ferreira > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail. yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail. yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso n.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Exceção de bloqueios de teclas
- Mensagem original De: Delphi Sql <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 9 de Maio de 2008 16:35:53 Assunto: [delphi-br] Exceção de bloqueios de teclas Boa Tarde é o seguinte em um edit coloquei o seguinte codigo no evento OnKeyPress if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'...'f']) then begin Beep; Key := #0; end; ou seja se o usuario nao digitar este caracteres ele não aceita .. entao só que bloqueou tbem o "Ctrl + c" e o "Crtl + v" como faria pra libera-los Icaro Ferreira Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exceção de bloqueios de teclas
Boa Tarde é o seguinte em um edit coloquei o seguinte codigo no evento OnKeyPress if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end; ou seja se o usuario nao digitar este caracteres ele não aceita .. entao só que bloqueou tbem o "Ctrl + c" e o "Crtl + v" como faria pra libera-los Icaro Ferreira Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
