[delphi-br] Compro Fontes de PAF Homologado

2010-08-28 Por tôpico Iran Lima
Compro fontes de sistema Homologado PAF com o mínimo necessário  para
homologar...

 

Contato:

Iran Lima 

 i...@sgisolution.com.br

 

Grato. 



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



RES: [delphi-br] Delphi 2010 ta doido?

2010-08-26 Por tôpico Iran Lima
Acho que não precisaria postar pois da pra mudar tudo em 10s usando o
Replace de String para AnsiString

 

Mas to aqui pra ajudar no que puder Tb.

 

Valeu pessoal.

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: quarta-feira, 25 de agosto de 2010 18:33
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Delphi 2010 ta doido?
Prioridade: Alta

 

  

Poste as declarações que você usou no RAD Studio 2010! Assim você ajuda
aqueles outros colegas que tem (ou poderão vir a ter) o mesmo problema que
você, além de ser uma forma de ser grato à lista! Porque só o “‘venha a
nós’, e ‘ao vosso reino’ nada” é meio chato, não?

Sds.

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 Iran Lima
Enviada em: quarta-feira, 25 de agosto de 2010 12:51
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: RES: [delphi-br] Delphi 2010 ta doido?

Resolvido.

O problema era exatamente nas declarações.

Obrigado amigo.

De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
] Em
nome de Clairton
Enviada em: terça-feira, 24 de agosto de 2010 18:54
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: Re: [delphi-br] Delphi 2010 ta doido?

a Declaração das funçoes tbm tem que estar com o Ansi...

function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: 
AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString; 
Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario: 
AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer; 
StdCall; External 'BEMAFI32.DLL';

Att.:

Clairton Eloisio Müller

Em 24/08/2010 18:46, Iran Lima escreveu:
>
> Já tentei com pansichar
>
> E nada.
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br> 
<mailto:delphi-br%40yahoogrupos.com.br> 
<mailto:delphi-br%40yahoogrupos.com.br> 
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Roni Rodrigo
> Enviada em: terça-feira, 24 de agosto de 2010 18:27
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Delphi 2010 ta doido?
>
> tenta converter em pansichar...
> ex:
> Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
> PAnsiChar(aliquota)...
>
> Em 24/08/2010 17:01, Iran Lima escreveu:
> > Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
> >
> > Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica 
> nome
> > "a" sem extensão.
> >
> > Outro Exemplo ao chamar o método da Bemafi32.dll
> >
> > Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
> >
> > sTipoQtde, FormatFloat('0', quantidade), iDecimal,
> >
> > FormatFloat('0.00',valorUnitario),
> >
> > sTipoDesconto, FormatFloat('0.00',0) );
> >
> > so vai a primeira letra de cada parâmetro
> >
> > 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
> > impressora), no
> > Debug passa tudo blz mas a impressora recebe errado
> >
> > O que pode ser isso???
> >
> > [As partes desta mensagem que não continham texto foram removidas]
>
> 
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> 

-- 

*"Inovação é o combustível do crescimento".*

*Clairton Eloísio Müller*
Depto. Desenvolvimento
E-mail: clair...@dessis.com.br <mailto:clairton%40dessis.com.br>
<mailto:clairton%40dessis.com.br>
<mailto:clairton%40dessis.com.br>
<mailto:clair...@dessis.com.br <mailto:clairton%40dessis.com.br>
<mailto:clairton%40dessis.com.br>
<mailto:clairton%40dessis.com.br> >
Site: http://www.dessis.com.br

*Dessis Sistemas de Gestão Empresarial*

Rua José Marangoni, 380 - Vila Nova Cx. Postal 417

CEP: 89259-500 - Jaraguá do Sul - SC

Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144

[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 2010 ta doido?

2010-08-26 Por tôpico Iran Lima
 

Mudei tudo pra ANSI e não resolveu ainda 

 

function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: AnsiString;
Aliquota: AnsiString; TipoQuantidade: AnsiString; Quantidade: AnsiString;
CasasDecimais: Integer; ValorUnitario: AnsiString; TipoDesconto: AnsiString;
Desconto: AnsiString): Integer; StdCall; External 'BEMAFI32.DLL';

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Clairton
Enviada em: terça-feira, 24 de agosto de 2010 18:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi 2010 ta doido?

 

  

a Declaração das funçoes tbm tem que estar com o Ansi...

function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: 
AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString; 
Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario: 
AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer; 
StdCall; External 'BEMAFI32.DLL';

Att.:

Clairton Eloisio Müller

Em 24/08/2010 18:46, Iran Lima escreveu:
>
> Já tentei com pansichar
>
> E nada.
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Roni Rodrigo
> Enviada em: terça-feira, 24 de agosto de 2010 18:27
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Delphi 2010 ta doido?
>
> tenta converter em pansichar...
> ex:
> Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
> PAnsiChar(aliquota)...
>
> Em 24/08/2010 17:01, Iran Lima escreveu:
> > Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
> >
> > Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica 
> nome
> > "a" sem extensão.
> >
> > Outro Exemplo ao chamar o método da Bemafi32.dll
> >
> > Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
> >
> > sTipoQtde, FormatFloat('0', quantidade), iDecimal,
> >
> > FormatFloat('0.00',valorUnitario),
> >
> > sTipoDesconto, FormatFloat('0.00',0) );
> >
> > so vai a primeira letra de cada parâmetro
> >
> > 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
> > impressora), no
> > Debug passa tudo blz mas a impressora recebe errado
> >
> > O que pode ser isso???
> >
> > [As partes desta mensagem que não continham texto foram removidas]
>
> 
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> 

-- 

*"Inovação é o combustível do crescimento".*



*Clairton Eloísio Müller*
Depto. Desenvolvimento
E-mail: clair...@dessis.com.br <mailto:clairton%40dessis.com.br>
<mailto:clair...@dessis.com.br <mailto:clairton%40dessis.com.br> >
Site: http://www.dessis.com.br



*Dessis Sistemas de Gestão Empresarial*

Rua José Marangoni, 380 - Vila Nova Cx. Postal 417

CEP: 89259-500 - Jaraguá do Sul - SC

Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144

[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 2010 ta doido?

2010-08-25 Por tôpico Iran Lima
Resolvido.

O problema era exatamente nas declarações.

 

Obrigado amigo.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Clairton
Enviada em: terça-feira, 24 de agosto de 2010 18:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi 2010 ta doido?

 

  

a Declaração das funçoes tbm tem que estar com o Ansi...

function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao: 
AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString; 
Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario: 
AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer; 
StdCall; External 'BEMAFI32.DLL';

Att.:

Clairton Eloisio Müller

Em 24/08/2010 18:46, Iran Lima escreveu:
>
> Já tentei com pansichar
>
> E nada.
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br> 
> [mailto:delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br>  
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de Roni Rodrigo
> Enviada em: terça-feira, 24 de agosto de 2010 18:27
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Delphi 2010 ta doido?
>
> tenta converter em pansichar...
> ex:
> Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
> PAnsiChar(aliquota)...
>
> Em 24/08/2010 17:01, Iran Lima escreveu:
> > Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
> >
> > Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica 
> nome
> > "a" sem extensão.
> >
> > Outro Exemplo ao chamar o método da Bemafi32.dll
> >
> > Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
> >
> > sTipoQtde, FormatFloat('0', quantidade), iDecimal,
> >
> > FormatFloat('0.00',valorUnitario),
> >
> > sTipoDesconto, FormatFloat('0.00',0) );
> >
> > so vai a primeira letra de cada parâmetro
> >
> > 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
> > impressora), no
> > Debug passa tudo blz mas a impressora recebe errado
> >
> > O que pode ser isso???
> >
> > [As partes desta mensagem que não continham texto foram removidas]
>
> 
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> 

-- 

*"Inovação é o combustível do crescimento".*



*Clairton Eloísio Müller*
Depto. Desenvolvimento
E-mail: clair...@dessis.com.br <mailto:clairton%40dessis.com.br>
<mailto:clair...@dessis.com.br <mailto:clairton%40dessis.com.br> >
Site: http://www.dessis.com.br



*Dessis Sistemas de Gestão Empresarial*

Rua José Marangoni, 380 - Vila Nova Cx. Postal 417

CEP: 89259-500 - Jaraguá do Sul - SC

Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144

[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 2010 ta doido?

2010-08-24 Por tôpico Iran Lima
Já tentei com pansichar 

E nada.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Roni Rodrigo
Enviada em: terça-feira, 24 de agosto de 2010 18:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi 2010 ta doido?

tenta converter em pansichar...
ex:
Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao), 
PAnsiChar(aliquota)...



Em 24/08/2010 17:01, Iran Lima escreveu:
> Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
>
> Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica nome
> “a” sem extensão.
>
> Outro Exemplo ao chamar o método da Bemafi32.dll
>
> Bematech_FI_VendeItem( ‘codigo’, descricao, aliquota,
>
> sTipoQtde, FormatFloat('0', quantidade), iDecimal,
>
> FormatFloat('0.00',valorUnitario),
>
> sTipoDesconto, FormatFloat('0.00',0) );
>
> so vai a primeira letra de cada parâmetro
>
> 2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da 
> impressora), no
> Debug passa tudo blz mas a impressora recebe errado
>
> O que pode ser isso???
>
> [As partes desta mensagem que não continham texto foram removidas]






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





[delphi-br] Delphi 2010 ta doido?

2010-08-24 Por tôpico Iran Lima
Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,

Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica nome
“a” sem extensão.

Outro Exemplo ao chamar o método da Bemafi32.dll

 

Bematech_FI_VendeItem( ‘codigo’, descricao, aliquota,

  sTipoQtde, FormatFloat('0', quantidade), iDecimal,

  FormatFloat('0.00',valorUnitario),

  sTipoDesconto, FormatFloat('0.00',0) );

 

so vai a primeira letra de cada parâmetro 

 

2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da impressora), no
Debug passa tudo blz mas a impressora recebe errado

 

O que pode ser isso???

 

 

 



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



RES: [delphi-br] [OFF] Sistema de Comissão p or Conta Corrente

2010-08-09 Por tôpico Iran Lima
Acho que não é bem isso que meu cliente quer.

Ele vende com três preços em três situações diferentes.

Ex: Produto 1  preco1= 1,00, preço2 = 2,00 preço3 = 3,00

Se ele vender na situação 2 o preço deve ser 2,00 mas se o vendedor vender
abaixo de 2,00 diminui a comissão(%) dele se for acima aumenta a
comissão(%).

O mesmo acontece nas outras situações, cada uma tem um preço 'base'.


Daí conforme ele vender abaixo ou acima do preço base o percentual de
comissão dele varia

Ex:

Preço base 100,00
Preco de Venda 90,00
% de desconto = 10% (parte desse desconto pra este cliente(1/3) será abatido
na comissão padrão.)

Comissão = 10% (Comissão Fixa) - (1/3 de 10%) = 6,67%  <--  (Comissão Final)



A questão é eu devo gravar o preço base na venda né?
Mas eu terei de gravar os três preços pois não saberei em qual situação a
venda se dará.



[delphi-br] [OFF] Sistema de Comissão por Conta Corrente

2010-08-09 Por tôpico Iran Lima
Gente um cliente meu me pediu para implementar um relatório de comissões de
venda por Conta Corrente

 onde a comissão do vendedor diminui conforme ele aumenta o desconto e
aumenta quando ele da um acréscimo no preço tb.

 

Alguém pode me explicar como funciona? algum material ?

 

Desde já agradeço.

 

Iran Lima



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



RES: [delphi-br] [OFF] - Motivação

2010-07-27 Por tôpico Iran Lima
Cara gostei da dica do heavy metal, já me ajudou bastante na concentração e
no ritmo do trabalho.
Mas aqui onde trabalho fico com o fone só de um lado. Queria eu, usar um
fone do grandão pra não ouvir nenhum som externo, mas tenho que atender
telefone(suporte) e toda hora um vem alguém falar e tirar minha
concentração.  

E depois ainda vem um e fala "Porque ainda não ta pronto??? Vai demorar
quanto tempo..."

Fico puto com essas perguntas, como farei previsão de tempo se não posso
prever as interrupções???



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de JB
Enviada em: terça-feira, 27 de julho de 2010 15:59
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [OFF] - Motivação

caro Irã,

trabalho a 11 anos como analista, programador, documentador, testador,
trocador de galão de água, treinador, polidor, dba, suporte,
secretário, gerente de projetos, saco de pancadas e as vezes fazendo
um cafézinho rs, nada que alguém do segmento não precise pra se (des)
motivar rs.

Após todo esse tempo hoje estou em plenitude, ams o caminho foi duro.

Siga os conselhos de Jhosef Marks. Palavras sábias, mas entenda a
diferença da busca por motivação e de macaco que pula de galho em
galho, num currículo conta muito o tempo de experiência em cada
empresa, as vezes vc pensa que não está evoluindo mas sempre se tira
algo, mentalize que você precisa melhorar sempre e não a empresa, a
empresa é a cara dos funcionários, se tiver uns FDP que fazem
panelinha então vc ta fudido mesmo rs.

Trilhe o caminho com pedras, no final vai encontrar uma casa de
massagens para os pés.

No mais, programe ouvindo muito heavy metal e as vezes música
clássica, fique off-line quando estiver "compondo" seus códigos rs

ah férias? programador não tira férias rapah!

boa sorte

JB

2010/7/27 Fabiano Moura :
> *Boa tarde!*
>
>  Irã, acredito que sua desmotivação é associado por falta de trabalhos
> interessantes, por isso, eu acho que primeiramente deve tentar na empresa
> que trabalha, caso não consiga nada para se motivar, procure outra
empresa.
> Irá te ajudar!
>  Bons programadores querem desafios, sem desafios se sentem desmotivados,
> então amigo, procura algo desafiador, ou como o companheiro Dirlei falou,
> consiga algo open-source para você contribuir e aumentar a motivação.
>
>
>
> *Obrigado,*
> *
> *
> *Fabiano*
>
> Em 27 de julho de 2010 14:03, Luis Alberto - Yahoo! <
> luisalbertolo...@yahoo.com.br> escreveu:
>
>> Todos no mercado de trabalho, independente do segmento, está sujeito a
>> isso.
>>
>> Ou a empresa tem que criar mecanismos de motivação ou você tem que
>> procurar,
>> na empresa, alguma motivação.
>>
>> Caso não seja possível, o melhor é mudar de ares mesmo.
>>
>>
>>

>> ___
>> Luis Lopes
>> Belo Horizonte - MG
>> luisalbertolo...@yahoo.com.br
>> (31) 9741-7473
>>
>>
>> -Mensagem original-
>> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
>> nome de Jhosef Marks
>> Enviada em: terça-feira, 27 de julho de 2010 13:46
>> Para: delphi-br@yahoogrupos.com.br
>> Assunto: Re: [delphi-br] [OFF] - Motivação
>>
>> Se tu entende que não tem mais para onde crescer na empresa que vc esta
>> atualmente, procura outra... rs
>>
>> Foi o que eu fiz até chegar em uma empresa que eu realmente tenho muito
>> para
>> aprender e crescer...
>>
>> Att,
>>
>> Jhosef Marks de Carvalho
>> Blog: http://www.jhosefmarks.com.br
>> Jesus está voltando
>>
>> "E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e
buscar
>> a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
>> céus, e perdoarei os seus pecados, e sararei a sua terra." (2 Cr 7:14)
>>
>>
>>
>> Em 27 de julho de 2010 13:33, Iran Lima 
>> escreveu:
>>
>> >
>> >
>> > Olá pessoal, sei que estou fugindo do tema do grupo, porém acredito que
>> > este
>> > assunto seja de importância a todos.
>> >
>> > Trabalho no desenvolvimento de sistemas a 3 anos. Ultimamente meu
>> > rendimento
>> > caiu muito e anda muito abaixo do que já foi.
>> >
>> > Sempre gostei de programar e projetar sistemas, porem a rotina e o
stress
>> > tornou meu trabalho um “saco”. Ainda gosto de programar e estudar porém
>> da
>> > área que eu trabalho.
>> >
>> > Gostaria de saber a opinião de alguém que já passou ou esta passando
por
>> > isso.
>> >
&g

RES: [delphi-br] [OFF] - Motivação

2010-07-27 Por tôpico Iran Lima
Pessoal gostaria primeiramente de agradecer aos que responderam.

Acho que o meu problema é serio mesmo, já cheguei a ficar catatônico com os
olhos grudados na tela do Delphi.
To cansado de fazer as mesmas tarefas, e o pior como a empresa é pequena
tenho que fazer os testes também.

To sem férias a mais de 2 anos. E nem tenho previsão para isso.

Se eu pudesse procuraria outro emprego mas aqui no interior da Bahia na área
de TI não é fácil.



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fabiano Moura
Enviada em: terça-feira, 27 de julho de 2010 14:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [OFF] - Motivação

*Boa tarde!*

  Irã, acredito que sua desmotivação é associado por falta de trabalhos
interessantes, por isso, eu acho que primeiramente deve tentar na empresa
que trabalha, caso não consiga nada para se motivar, procure outra empresa.
Irá te ajudar!
  Bons programadores querem desafios, sem desafios se sentem desmotivados,
então amigo, procura algo desafiador, ou como o companheiro Dirlei falou,
consiga algo open-source para você contribuir e aumentar a motivação.



*Obrigado,*
*
*
*Fabiano*

Em 27 de julho de 2010 14:03, Luis Alberto - Yahoo! <
luisalbertolo...@yahoo.com.br> escreveu:

> Todos no mercado de trabalho, independente do segmento, está sujeito a
> isso.
>
> Ou a empresa tem que criar mecanismos de motivação ou você tem que
> procurar,
> na empresa, alguma motivação.
>
> Caso não seja possível, o melhor é mudar de ares mesmo.
>
>
>

> ___
> Luis Lopes
> Belo Horizonte - MG
> luisalbertolo...@yahoo.com.br
> (31) 9741-7473
>
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
> nome de Jhosef Marks
> Enviada em: terça-feira, 27 de julho de 2010 13:46
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] [OFF] - Motivação
>
> Se tu entende que não tem mais para onde crescer na empresa que vc esta
> atualmente, procura outra... rs
>
> Foi o que eu fiz até chegar em uma empresa que eu realmente tenho muito
> para
> aprender e crescer...
>
> Att,
>
> Jhosef Marks de Carvalho
> Blog: http://www.jhosefmarks.com.br
> Jesus está voltando
>
> "E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e
buscar
> a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
> céus, e perdoarei os seus pecados, e sararei a sua terra." (2 Cr 7:14)
>
>
>
> Em 27 de julho de 2010 13:33, Iran Lima 
> escreveu:
>
> >
> >
> > Olá pessoal, sei que estou fugindo do tema do grupo, porém acredito que
> > este
> > assunto seja de importância a todos.
> >
> > Trabalho no desenvolvimento de sistemas a 3 anos. Ultimamente meu
> > rendimento
> > caiu muito e anda muito abaixo do que já foi.
> >
> > Sempre gostei de programar e projetar sistemas, porem a rotina e o
stress
> > tornou meu trabalho um “saco”. Ainda gosto de programar e estudar porém
> da
> > área que eu trabalho.
> >
> > Gostaria de saber a opinião de alguém que já passou ou esta passando por
> > isso.
> >
> > Grato, Iran Lima.
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
>
>
>
> 
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>


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





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





[delphi-br] [OFF] - Motivação

2010-07-27 Por tôpico Iran Lima
Olá pessoal, sei que estou fugindo do tema do grupo, porém acredito que este
assunto seja de importância a todos. 

 

Trabalho no desenvolvimento de sistemas a 3 anos. Ultimamente meu rendimento
caiu muito e anda muito abaixo do que já foi.

Sempre gostei de programar e projetar sistemas, porem a rotina e o stress
tornou meu trabalho um “saco”. Ainda gosto de programar e estudar porém da
área que eu trabalho. 

 

Gostaria de saber a opinião de alguém que já passou ou esta passando por
isso.

 

Grato, Iran Lima.



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



[delphi-br] Sistema para Supermercado

2010-07-26 Por tôpico Iran Lima
Tenho um cliente em Vitória da conquista – BA interessado em um sistema para
supermercado de preferência homologado PAF 

 

Quem quiser fazer uma parceria favor entrar em contato.

 

 

Iran Lima.



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



RES: [delphi-br] Solução Venda Veiculo com NF-e

2010-07-24 Por tôpico Iran Lima
Acho que vou fazer desta forma mesmo.

 

Obrigado pela ajuda.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Tozelli
Enviada em: sexta-feira, 23 de julho de 2010 09:03
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Solução Venda Veiculo com NF-e

 

  

Bom dia!

Iran, já que está pensando em conexão 3G, porque não desenvolve um modulo em
camadas?? 

Utilizaria a mesma base e simplificaria seu trabalho nas verificações que
deveriam ser feitas.

Não precisaria criar outra série (evita burocracia e trabalho seu de ficar
controlando).

Já um problema é a cobertura 3g... mas se fizer algo legal com camadas no
Delphi até por GPRS (área 

de cobertura muito maior) você conseguiria emitir as notas mesmo porque
precisa do certificado para 

validar e ai não daria pra ter um em cada veículo...

[]´s

Leandro.

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 Iran Lima
Enviada em: quinta-feira, 22 de julho de 2010 15:32
Para: projeto_cooperar_...@yahoogrupos.com.br
<mailto:projeto_cooperar_nfe%40yahoogrupos.com.br> ;
delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Assunto: [delphi-br] Solução Venda Veiculo com NF-e

Já tenho a solução NFe usando o ACBRNFe

Preciso desenvolver uma solução para tirar as notas de dentro do veiculo. 

Emitindo as Notas com Notebook e impressora dentro do veiculo usando
Internet 3G.

Duvidas:

1 - Posso usar uma outra serie para não ter conflito com os números das
notas emitidas na empresa?

2- Tem como emitir o DANFE simplificado pelo ACBRNFE?

3- Qual seria a melhor solução? Usar um sistema integrado (Online ) ou um
sistema a parte?

[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] loja virtual

2010-06-14 Por tôpico Iran Lima
Pra mim, a melhor maneira de aprender é fazendo.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Walter Chagas (Bol)
Enviada em: domingo, 13 de junho de 2010 14:46
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] loja virtual

 

  

Se voce não conhece nada de desenvolvimento para WEB, como vai querer fazer
uma sem conhecimento???

Eu penso que voce deveria conhecer a tecnologia antes não??

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br  
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com  
SKYPE: WalterChagasJr

- Original Message - 
From: Alex 
To: delphi-br@yahoogrupos.com.br   
Sent: Friday, June 11, 2010 7:51 PM
Subject: [delphi-br] loja virtual

Deixa eu perguntar
Alguem teria um exemplo simples de uma loja virtual com banco de dados 
pra me enviar , to precisando fazer um aqui pra empresa só que nao 
conheço nada de desenvolvimento para web , ou pelo menos me diz o 
caminho por onde começar.

Agradeço muito pelas dicas

sds
Alex

[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] Firebird Corrompendo apos criar SP e Tiggers

2010-05-24 Por tôpico Iran Lima
Opa foi mau ai.

 

Seguinte... ta corrompendo apenas a tabela de movimentação do produto, nela
tem as triggers que alteram o estoque, e ela é povoada com SP que pegam o
pedido passado por parâmetro, e lança o movimento de estoque, é simples, já
tenhu outros bancos q funcionam assim e não da problema, só que neste após
ums 50 registros na  tabela de movimento ela corrompe. 

Quando corrompe so da pra recuperar com gbak se eu excluir a tabela.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Roni Rodrigo
Enviada em: sábado, 22 de maio de 2010 19:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Firebird Corrompendo apos criar SP e Tiggers

 

  

mas tem q ter tempo pra ler td isso né??
pq vc nao manda soh a procedure ou trigger q ta dando problema... e 
explica direito esse negócio de corrompendo.. corromprendo como? o 
problema é com a integridade dos dados ou com a estrutura da tabela??

o/

Em 22/05/2010 10:56, Iran Lima escreveu:
> Olá Pessoal,
>
> Estou com um problema aqui que começou após criar umas Procedures e 
> Triggers
> para controle de Estoque.
>
> Criei uma tabela de movimentação de produtos e nela as triggers de
> atualização de estoque na tabela do produto.
>
> Para gravar a movimentação do produto uso uma SP que passado um pedido 
> como
> parâmetro lança todos os itens do mesmo na tabela de movimentação
>
> Funcionou tudo certo como eu desejava porem a tabela de movimentação do
> produto começou a corromper.
>
> Se alguém poder me ajudar serei muito grato.
>
>
/***
> ***/
>
> / Stored Procedures
> /
>
>
/***
> ***/
>
> CREATE PROCEDURE SP_EXTB_COMPRA (
>
> NR_DOC VARCHAR(10),
>
> COD_FORN VARCHAR(5))
>
> AS
>
> BEGIN
>
> EXIT;
>
> END^
>
> CREATE PROCEDURE SP_EXTB_LOTE (
>
> COD_EMP INTEGER,
>
> COD_LOTE VARCHAR(6))
>
> AS
>
> BEGIN
>
> EXIT;
>
> END^
>
> CREATE PROCEDURE SP_EXTB_VENDA (
>
> COD_EMP INTEGER,
>
> COD_PED INTEGER)
>
> AS
>
> BEGIN
>
> EXIT;
>
> END^
>
> CREATE PROCEDURE SP_MOVB_COMPRA (
>
> NR_DOC VARCHAR(10),
>
> COD_FORN VARCHAR(5))
>
> AS
>
> BEGIN
>
> EXIT;
>
> END^
>
> CREATE PROCEDURE SP_MOVB_LOTE (
>
> COD_EMP INTEGER,
>
> COD_LOTE VARCHAR(6))
>
> AS
>
> BEGIN
>
> EXIT;
>
> END^
>
> CREATE PROCEDURE SP_MOVB_VENDA (
>
> COD_EMP INTEGER,
>
> COD_PED INTEGER)
>
> AS
>
> BEGIN
>
> EXIT;
>
> END^
>
> SET TERM ; ^
>
>
/***
> ***/
>
> / Tables
> /
>
>
/***
> ***/
>
> CREATE TABLE MOV_B (
>
> COD_MPROD INTEGER NOT NULL,
>
> COD_PROD VARCHAR(5) NOT NULL,
>
> TELA CHAR(1) NOT NULL,
>
> DATA_MOVI TIMESTAMP DEFAULT CURRENT_TIMESTAMP NOT NULL,
>
> QTD_MOV NUMERIC(12,3) DEFAULT 0 NOT NULL,
>
> COD_EMP INTEGER NOT NULL,
>
> COD_PED INTEGER,
>
> COD_FORN VARCHAR(5),
>
> NR_DOC VARCHAR(10),
>
> NR_PRO VARCHAR(6),
>
> COD_DEV VARCHAR(5),
>
> TIPO_SAI CHAR(1),
>
> COD_LOTE VARCHAR(6)
>
> );
>
>
/***
> ***/
>
> / Triggers for tables
> /
>
>
/***
> ***/
>
> /* Trigger: TG_ADD_ESTOQUE */
>
> CREATE TRIGGER TG_ADD_ESTOQUE FOR MOV_B
>
> ACTIVE BEFORE INSERT POSITION 0
>
> AS
>
> declare variable VQTDE NUMERIC(12,3);
>
> begin
>
> /* Adiciona Movimento ao estoque */
>
> IF(NEW.TIPO_SAI = 'S') THEN
>
> VQTDE = -NEW.QTD_MOV;
>
> ELSE IF(NEW.TIPO_SAI = 'E') THEN
>
> VQTDE = +NEW.QTD_MOV;
>
> IF ((NEW.TIPO_SAI = 'S') OR (NEW.TIPO_SAI = 'E')) THEN
>
> UPDATE EST_PROD SET
>
> QTD_ATU_B = QTD_ATU_B + :VQTDE
>
> WHERE COD_PROD = NEW.COD_PROD;
>
> end
>
> ^
>
> /* Trigger: TG_REM_ESTOQUE */
>
> CREATE TRIGGER TG_REM_ESTOQUE FOR MOV_B
>
> ACTIVE AFTER DELETE POSITION 0
>
> AS
>
> declare variable VQTDE NUMERIC(12,3);
>
> begin
>
> /* Adiciona Movimento ao estoque */
>
> IF(OLD.TIPO_SAI = 'S') THEN
>
> VQTDE = +OLD.QTD_MOV;
>
> ELSE IF(OLD.TIPO_SAI = 'E') THEN
>
> VQTDE = -OLD.QTD_MOV;
>
> IF ((OLD.TIPO_SAI = 'S') OR (OLD.TIPO_SAI = 'E')) THEN
>
> UPDATE EST_PROD SET
>

[delphi-br] Firebird Corrompendo apos criar SP e Tiggers

2010-05-22 Por tôpico Iran Lima
Olá Pessoal,

 

Estou com um problema aqui que começou após criar umas Procedures e Triggers
para controle de Estoque.

 

Criei uma tabela de movimentação de produtos e nela as triggers de
atualização de estoque na tabela do produto. 

Para gravar a movimentação do produto uso uma SP que passado um pedido como
parâmetro lança todos os itens do mesmo na tabela de movimentação

Funcionou tudo certo como eu desejava porem a tabela de movimentação do
produto começou a corromper.

Se alguém poder me ajudar serei muito grato.

 

 

/***
***/

/  Stored Procedures
/

/***
***/

 

CREATE PROCEDURE SP_EXTB_COMPRA (

NR_DOC VARCHAR(10),

COD_FORN VARCHAR(5))

AS

BEGIN

  EXIT;

END^

 

 

CREATE PROCEDURE SP_EXTB_LOTE (

COD_EMP INTEGER,

COD_LOTE VARCHAR(6))

AS

BEGIN

  EXIT;

END^

 

 

CREATE PROCEDURE SP_EXTB_VENDA (

COD_EMP INTEGER,

COD_PED INTEGER)

AS

BEGIN

  EXIT;

END^

 

 

CREATE PROCEDURE SP_MOVB_COMPRA (

NR_DOC VARCHAR(10),

COD_FORN VARCHAR(5))

AS

BEGIN

  EXIT;

END^

 

 

CREATE PROCEDURE SP_MOVB_LOTE (

COD_EMP INTEGER,

COD_LOTE VARCHAR(6))

AS

BEGIN

  EXIT;

END^

 

 

CREATE PROCEDURE SP_MOVB_VENDA (

COD_EMP INTEGER,

COD_PED INTEGER)

AS

BEGIN

  EXIT;

END^

 

 

 

SET TERM ; ^

 

 

/***
***/

/Tables
/

/***
***/

 

 

 

CREATE TABLE MOV_B (

COD_MPROD  INTEGER NOT NULL,

COD_PROD   VARCHAR(5) NOT NULL,

TELA   CHAR(1) NOT NULL,

DATA_MOVI  TIMESTAMP DEFAULT CURRENT_TIMESTAMP NOT NULL,

QTD_MOVNUMERIC(12,3) DEFAULT 0 NOT NULL,

COD_EMPINTEGER NOT NULL,

COD_PEDINTEGER,

COD_FORN   VARCHAR(5),

NR_DOC VARCHAR(10),

NR_PRO VARCHAR(6),

COD_DEVVARCHAR(5),

TIPO_SAI   CHAR(1),

COD_LOTE   VARCHAR(6)

);

 

 

 

 

 

/***
***/

/ Triggers for tables
/

/***
***/

 

 

 

/* Trigger: TG_ADD_ESTOQUE */

CREATE TRIGGER TG_ADD_ESTOQUE FOR MOV_B

ACTIVE BEFORE INSERT POSITION 0

AS

declare variable VQTDE NUMERIC(12,3);

begin

  /* Adiciona Movimento ao estoque */

  IF(NEW.TIPO_SAI = 'S') THEN

VQTDE = -NEW.QTD_MOV;

  ELSE IF(NEW.TIPO_SAI = 'E') THEN

VQTDE = +NEW.QTD_MOV;

 

  IF ((NEW.TIPO_SAI = 'S') OR (NEW.TIPO_SAI = 'E'))  THEN

UPDATE EST_PROD SET

   QTD_ATU_B = QTD_ATU_B + :VQTDE

   WHERE COD_PROD = NEW.COD_PROD;

end

^

 

 

/* Trigger: TG_REM_ESTOQUE */

CREATE TRIGGER TG_REM_ESTOQUE FOR MOV_B

ACTIVE AFTER DELETE POSITION 0

AS

declare variable VQTDE NUMERIC(12,3);

begin

  /* Adiciona Movimento ao estoque */

  IF(OLD.TIPO_SAI = 'S') THEN

VQTDE = +OLD.QTD_MOV;

  ELSE IF(OLD.TIPO_SAI = 'E') THEN

VQTDE = -OLD.QTD_MOV;

 

  IF ((OLD.TIPO_SAI = 'S') OR (OLD.TIPO_SAI = 'E'))  THEN

UPDATE EST_PROD SET

   QTD_ATU_B = QTD_ATU_B + :VQTDE

   WHERE COD_PROD = OLD.COD_PROD;

end

^

 

 

SET TERM ; ^

 

 

 

/***
***/

/  Stored Procedures
/

/***
***/

 

 

SET TERM ^ ;

 

ALTER PROCEDURE SP_EXTB_COMPRA (

NR_DOC VARCHAR(10),

COD_FORN VARCHAR(5))

AS

BEGIN

 

/* Deleta Movimento de Venda */

 

DELETE FROM MOV_B

  WHERE NR_DOC = :NR_DOC AND COD_FORN = :COD_FORN AND TELA = 'C';

 

END

^

 

ALTER PROCEDURE SP_EXTB_LOTE (

COD_EMP INTEGER,

COD_LOTE VARCHAR(6))

AS

BEGIN

 

/* Deleta Movimento de Lote */

 

DELETE FROM MOV_B

  WHERE COD_EMP = :COD_EMP AND COD_LOTE = :COD_LOTE AND TELA = 'L';

 

END

^

 

ALTER PROCEDURE SP_EXTB_VENDA (

COD_EMP INTEGER,

COD_PED INTEGER)

AS

BEGIN

 

/* Deleta Movimento de Venda */

 

DELETE FROM MOV_B

  WHERE COD_EMP = :COD_EMP AND COD_PED = :COD_PED AND TELA = 'V';

 

END

^

 

ALTER PROCEDURE SP_MOVB_COMPRA (

NR_DOC VARCHAR(10),

COD_FORN VARCHAR(5))

AS

BEGIN

 

/* Deleta Movimento de Venda */

 

DELETE FROM MOV_B

  WHERE NR_DOC = :NR_DOC AND COD_FORN = :COD_FORN AND TELA = 'C';

 

/* Inclui Movimento de Venda */

 

INSERT INTO MOV_B

  (COD_MPROD, COD_PROD, TELA, DATA_MOVI, QTD_MOV, COD_EMP, NR_DOC, COD_FORN,
TIPO_SAI)

SELECT GEN_ID (GEN_MOV_B, 1), ITN.COD_PROD, 'C', CURRENT_TIMESTAMP,
ITN.QTD_02, CAB.COD_EMP, ITN.NR_DOC, ITN.COD_FORN, IIF(CFO.TIPO_E_S = '1',
'E', iif(CFO.TIPO_E_S = '2', 'S', 'N'))

  FROM ENT_ITN ITN

 LEFT OUTER JOIN ENT_CAB CAB ON (CAB.NR_DOC = ITN.NR_DOC AND
CAB.COD_FO

[delphi-br] Procuro ERP com PAF-ECF + TEF + NFe

2010-05-20 Por tôpico Iran Lima
Procuro parceria para comercializar ERP na Região do Sudoeste da Bahia.

Tenho empresa de automação com vários clientes e mas ainda não tenho PAF,
nem TEF homologado.

 

Contato:

 

i...@sgisolution.com.br 



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



RES: [delphi-br] OFF TOPIC-Multiprocessamento com Firebird

2010-04-29 Por tôpico Iran Lima
Só usando o Classic, que utiliza um processo para cada conexão, e mesmo
assim com apenas uma conexão nunca atingirá 100% das CPUs pois o cada
processo so roda em uma CPU.

 

Ou aguarda o prometido firebird 3 com multi-processamento ou muda de SGBD.

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Yahoo
Enviada em: quinta-feira, 29 de abril de 2010 00:10
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] OFF TOPIC-Multiprocessamento com Firebird

 

  

Verifiquei que em computadores com multiprocessadores, o Firebird só usa um
núcleo do processador quando acessa o banco de dados. Dessa forma a
performance do servidor não é totalmente aproveitada. Como fazer para que o
firebird use todos os núcleos do processador? Existe alguma versão especial,
alguma configuração ou modo diferente de fazer a instalação do Firebird para
isso?

[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] Cupom fiscal e NF-e: o que precisa?

2010-04-22 Por tôpico Iran Lima
É necessário  fazer a homologação do sistema junto a sefaz do seu estado. 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fabiano Almeida
Enviada em: segunda-feira, 19 de abril de 2010 19:51
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Cupom fiscal e NF-e: o que precisa?

 

  

Olá, para a emissão de Cupom fiscal e NF-e, o que é necessário ter no 
software? É necessário algum tipo de licensa especial?





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



RES: [delphi-br] Protesto

2010-04-19 Por tôpico Iran Lima
Meu protesto não foi contra os moderadores, eu só queria saber como tornar-se 
um membro não moderado,  participo desta lista tem mais de um ano e nunca 
enviei spam,  o que devo fazer para ser um membro não moderado???

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de EMGF Doc
Enviada em: domingo, 18 de abril de 2010 14:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Protesto

 

  

Como um dos moderadores deste grupo, dou aqui minha opinião, deixando claro 
não se tratar da opinião da moderação.

Algumas vezes pode ocorrer uma demora maior entre a postagem e a liberação 
de mensagens de membros do grupo sujeitos ainda a moderação. O tempo em que 
os novos membros são mantidos em moderação aumentou recentemente.

A razão é cristalinamente simples (aliás como já dito por alguem): os 
moderadores podem levar algum tempo para ler e liberar a mensagem.

Porque levam mais tempo? Porque como já dito tambem eles podem estar 
ocupados fazendo alguma outra coisa, como por exemplo, trabalhando,se 
deslocando, indo ao cinema, tomando um chop etc afinal ser moderador do 
grupo não é um "emprego" e nem uma atividade que pressuponha dedicação total 
e exclusiva.

Agora vamos olhar o outro lado da moeda: Quem frequenta outros grupos 
talvez já tenha notado a quantidade de propaganda, spam, anuncios, correntes 
e outras porcarias que neles aparece (aqui mesmo de vez em quando aprece 
alguma coisa de membros já não moderados) . Pois bem, nós moderadores é 
quem lemos esta porcariada toda para livrá-los deste incomodo (ou será que 
algum de voces acha que este grupo é tão especial que o lixo apenas não 
chega?). Alem disto, aumentamos nosso trabalho aumentando o tempo de 
moderação por conta de inscrições que eram feitas apenas para enviar 
anuncios etc.

Como já disse alguem: não existe almoço gratis! Portanto que tal um 
pouquinho de paciência (e se não for pedir demais. principalmente aos 
sabados , domigos e feriados)

[]s Edison





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



RES: [delphi-br] Protesto

2010-04-18 Por tôpico Iran Lima
Cara, participo de outros grupos como o NDDV e sempre minhas mensagens chegam 
em minutos, 

enviei esta   14:52, e como você  mesmo disse chegou as 21:39, 

assim fica difícil participar.

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Ricardo César Cardoso
Enviada em: sexta-feira, 16 de abril de 2010 21:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Protesto

 

  

Não sei o que acontece não, mas só pra constar, a sua mensagem chegou 
exatamente agora, 21:39 do dia 16.04

Realmente, assim complica... mas acho que o problema deve ser com os servidores 
do Yahoo mesmo.

Abraço,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em sex, 16/4/10, Iran Lima mailto:iran%40sgisolution.com.br> > escreveu:

De: Iran Lima mailto:iran%40sgisolution.com.br> >
Assunto: [delphi-br] Protesto
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Data: Sexta-feira, 16 de Abril de 2010, 14:52

 

Estou no grupo há mais de 1 ano e até hoje minhas mensagens não são enviadas

diretamente,

demorando horas pra chegar ao grupo.

O que devo fazer pra me tornar um membro aqui. sem passar por isso?

Não da nem pra ajudar assim

Quando minhas respostas chegam o tópico já ta até encerrado.

[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]



RES: [delphi-br] Distibuição de Aplicação com Firebird

2010-04-16 Por tôpico Iran Lima
Olá galera estou finalizando o desenvolvimento de um aplicativo Delphi +
Firebird 2.0

Criei um instalador e no mesmo é instalado o firebird 2.0 também porém em
algumas maquinas 

ocorre erro para conectar ao banco de dados, devido a na maquina do cliente
já ter outra versão do firebird instalada ou mesmo um firewall

não sei bem se esta e a melhor forma de distribuir o aplicativo devido estes
problemas.

Gostaria de uma dica neste ponto. E vantagem usar o firebird embarcado?
Quais são as desvantagens dele?

É possível funcionar em rede usando o firebird embarcado?

Segue o link do instalador pra quem quiser dar uma olhada:

http://www.sgicheck.com.br/downloads/SGICheck.exe

Bem desde já agradeço e alguma sugestão. 

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





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



[delphi-br] Protesto

2010-04-16 Por tôpico Iran Lima
Estou no grupo há mais de 1 ano e até hoje minhas mensagens não são enviadas
diretamente,

 demorando horas pra chegar ao grupo.

O que devo fazer pra me tornar um membro aqui. sem passar por isso?

 

Não da nem pra ajudar assim

Quando minhas respostas chegam o tópico já ta até encerrado.

 

 

 



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



RES: [delphi-br] [1/2OFF] SQL Lento no Firebird

2010-04-16 Por tôpico Iran Lima
Fernando, valeu pela ajuda ai mas ficou lento do mesmo jeito, tava pensando
em criar uma tabela temporária com o segundo select e depois fazer o filtro
por ela que seria bem menor do que a tabela de pedidos original.

Alguem sabe como faz isso??

Grato.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fernando Nati
Enviada em: quinta-feira, 15 de abril de 2010 17:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [1/2OFF] SQL Lento no Firebird

Amigão,

Não usa o IN, usa o NOT Exists.

Ex:

SELECT CLI.COD_CLI, CLI.NOME_CLI
FROM CLIENTES CLI
WHERE CLI.SITUACAO = '2'
AND  NOT EXISTS (
SELECT 1
FROM SAI_CAB CAB
WHERE CAB.DIGITO = 'O' AND CAB.DT_PEDIDO > '01/01/2010'
AND  CAB.COD_CLI = CLI.COD_CLI
)

Testa aí e vê se resolveu!.

Fernando Nati.



2010/4/15 Iran Lima 

>
>
> Galera estou executando o sql:
>
> SELECT CLI.COD_CLI, CLI.NOME_CLI
>
> FROM CLIENTES CLI
>
> WHERE CLI.SITUACAO = '2'
>
> AND COD_CLI NOT IN (
>
> SELECT DISTINCT(CAB.COD_CLI)
>
> FROM SAI_CAB CAB
>
> WHERE CAB.DIGITO = 'O' AND CAB.DT_PEDIDO > '01/01/2010'
>
> )
>
> Nele tem 2 “Select” executando separadamente da certa de 1s cada um, como
> podem ver o segundo “select” é so para filtrar o primeiro.
>
> Quando executo o SQL completo o mesmo demora muito como se escutasse o
> segundo “Select” para cada registro do primeiro (burrice do firebird)
sendo
> assim como criar uma tabela temporária com os registros do segundo
“select”
> para fazer o filtro ficar + rápido.
>
> Grato
>
> Iran.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>


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





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





[delphi-br] [1/2OFF] SQL Lento no Firebird

2010-04-15 Por tôpico Iran Lima
Galera estou executando  o sql:

 

SELECT CLI.COD_CLI, CLI.NOME_CLI

  FROM CLIENTES CLI

WHERE CLI.SITUACAO = '2'

 

AND COD_CLI NOT IN (

 

SELECT DISTINCT(CAB.COD_CLI)

  FROM SAI_CAB CAB

WHERE CAB.DIGITO = 'O' AND CAB.DT_PEDIDO > '01/01/2010'

 

)

 

Nele tem 2 “Select” executando separadamente da certa de 1s cada um, como
podem ver o segundo “select” é so para filtrar o primeiro.

Quando executo o SQL completo o mesmo demora muito como se escutasse o
segundo “Select” para cada registro do primeiro (burrice do firebird) sendo
assim como criar uma tabela temporária com os registros do segundo “select”
para fazer o filtro ficar + rápido.

 

 

Grato

 

Iran. 



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



RES: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional

2010-03-27 Por tôpico Iran Lima
Cara tem up pirata ai tb é KKK brasileiro e foda viu... 
Aqui em Vitoria da Conquista so tem Velox de até 1MB (isso em alguns
bairros) e tem Up pirata de até 4MB 
Depois reclama de corrupção e dos seus representantes...(representante de
corruptos são corruptos não tem jeito).

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leonardo Quinino
Enviada em: sexta-feira, 26 de março de 2010 19:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional

Bem Próximo, lá nos Eua, já vai entrar a tecnlogia 4G aqui 3G nas
operadoras, em alguns locais, (bairros, ou cidades) é apenas um mito

E em alguns locais pelo Brasilão a fora, nem sinal de banda larga chega.
(isso dentro de muitos bairros dentro de alguns cidades).

Mesmo que aproximemos em algumas tecnologias, o Brasil peca pela falta de
estrutura

No meu bairro (onde trabalho é um exemplo), a operadora (a única
fornecedora), diz que só pode ofertar 1 mega, ae, vem um cidadão e me diz
que pode colocar 6 mega,, (fazendo um up pirata)



2010/3/26 Marcos Alexandre Lemos Rodrigues <
marcosalexandre.rodrig...@gmail.com>

>
>
> Também acredito nisso. Uma nota fiscal com certificado eletrônico além de
> ser muito mais seguro é mais difícil sonegar e mais fácil rastrear. Email
a
> gente cria de graça em qualquer lan house, acesso a computador não é mais
> tão dificil assim. Tanto que em outros países mais avançados eles estão
bem
> mais adiantados nesse quesito. É uma das poucas áreas que o Brasil está
> conseguindo caminhar próximo a vanguarda da tecnologia.
>
> Tudo bem que é uma área que interessa muito ao governo: aumentar a
> arrecadação e coibir a sonegação, mas é um avanço muito grande. Basta
> lembrar que quando surgiu o programa pra declarar impostos de renda pela
> Internet também muita gente reclamou dizendo que "nem todo mundo tem
acesso
> a um computador" e o programa propiciou um aumento de arrecadação
> formidável.
>
> Se essa economia gerou benefício é outra questão, mas o caminho é batalhar
> por aplicar melhor o dinheiro e não por facilitar a sonegação e dificultar
> fiscalização.
>
> Em 26 de março de 2010 17:11, Vitor Yahoo
> >escreveu:
>
>
> >
> >
> > Vou fazer um questionamento ao seu questionamento. Você realmente acha
> que
> > o
> > progresso (atrasado) tecnológico da receita federal deve parar porque
tem
> > alguns barnabés no Brasil que não tem e-mail? Quem não tem e-mail que
> faça!
> > Quem não recebeu o xml que reclame! Bem simples, do meu ponto de vista.
> >
> > Outra coisa, questionar a NFe sob esse ponto de vista é muito inocente,
> > sinceramente, já se o questionamento fosse quanto aos 9000% do seu
> > dinheiro que você terá de pagar por causa da NFe, que é praticamente
> > “insonegável” (ah não ser que os caras emitam pedidinhos por aí), aí eu
> > concordo.
> >
> > _
> >
> > De: delphi-br@yahoogrupos.com.br
 40yahoogrupos.com.br> [mailto:
> > delphi-br@yahoogrupos.com.br  40yahoogrupos.com.br>] Em
>
> > nome de Paulo Casagrande
> > Enviada em: sexta-feira, 26 de março de 2010 12:08
> > Para: delphi-br@yahoogrupos.com.br
 40yahoogrupos.com.br>
>
> > Assunto: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional
> >
> >
> > O texto abaixo é um pequeno manifesto que reflete a minha insatisfação,
é
> > possível que esse texto fique preso dentro desse grupo, mas com um pouco
> de
> > esforço e divulgação podemos almejar algo melhor para todos.
> >
> > -
> >
> > Cordiais Saudações...
> >
> > Existem detalhes que servem apenas para complicar e eu não consigo
> > entender o
> > sentido de algumas exigências do projeto NFe
> >
> > Quando a NF era apenas em papel (não digital),
> > o destinatário tinha acesso as informações no momento em que recebia a
> > nota em
> > seu estabelecimento. OK?
> >
> > Hoje além do DANFE devemos enviar o arquivo XML (que na realidade é a
> > nota) para
> > o destinatário.
> >
> > Aqui entra o meu questionamento:
> >
> > Se a nota já esta na SEFAZ porque devemos envia-la?
> >
> > Não seria muito mais fácil o destinatário entrar com a chave e baixar a
> > NFe ou
> > através de uma conexão com o Certificado Digital (que somos obrigados a
> > comprar)
> > o usuário acessaria uma área com todos os documentos emitidos contra
ele?
> > Ou ainda porque não desenvolvem um XML para baixar a NFe?
> >
> > Será que o pessoal do projeto Nacional não tem a visão de que nem todos
> os
> > destinatários tem e-mail, ou/e de que nem todos os e-mails chegam aos
> > destinatários, pode parecer incrível, mas tem pessoas no Brasil que nem
> > sabe
> > para que serve um computador.
> >
> > Ao exigir dos emitentes e destinatários a guarda do XML
> > a SEFAZ, Receita etc, praticamente assinam um atestado de que
> > são incompetentes e que não querem assumir o compromisso de
> > ser o guardião dos documentos fiscais. Resumindo não confiam em seus
> > próprios
> > recursos.
> >
> 

RES: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional

2010-03-27 Por tôpico Iran Lima
O questionamento aqui não é contra o projeto de NF-e como um todo e sim,

Em alguns processos e exigências infundadas.

 Ao meu ver o XML devia ser baixado da sefaz como uma simples consulta. Por que 
não?

 

Ao meu ver tem que melhorar sim e devemos sempre buscar e exigir o melhor para 
todos.

 

 

Iran

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Marcos Alexandre Lemos Rodrigues
Enviada em: sexta-feira, 26 de março de 2010 17:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional

 

  

Também acredito nisso. Uma nota fiscal com certificado eletrônico além de
ser muito mais seguro é mais difícil sonegar e mais fácil rastrear. Email a
gente cria de graça em qualquer lan house, acesso a computador não é mais
tão dificil assim. Tanto que em outros países mais avançados eles estão bem
mais adiantados nesse quesito. É uma das poucas áreas que o Brasil está
conseguindo caminhar próximo a vanguarda da tecnologia.

Tudo bem que é uma área que interessa muito ao governo: aumentar a
arrecadação e coibir a sonegação, mas é um avanço muito grande. Basta
lembrar que quando surgiu o programa pra declarar impostos de renda pela
Internet também muita gente reclamou dizendo que "nem todo mundo tem acesso
a um computador" e o programa propiciou um aumento de arrecadação
formidável.

Se essa economia gerou benefício é outra questão, mas o caminho é batalhar
por aplicar melhor o dinheiro e não por facilitar a sonegação e dificultar
fiscalização.

Em 26 de março de 2010 17:11, Vitor Yahoo
mailto:vredesredsystem%40yahoo.com.br> >escreveu:

>
>
> Vou fazer um questionamento ao seu questionamento. Você realmente acha que
> o
> progresso (atrasado) tecnológico da receita federal deve parar porque tem
> alguns barnabés no Brasil que não tem e-mail? Quem não tem e-mail que faça!
> Quem não recebeu o xml que reclame! Bem simples, do meu ponto de vista.
>
> Outra coisa, questionar a NFe sob esse ponto de vista é muito inocente,
> sinceramente, já se o questionamento fosse quanto aos 9000% do seu
> dinheiro que você terá de pagar por causa da NFe, que é praticamente
> “insonegável” (ah não ser que os caras emitam pedidinhos por aí), aí eu
> concordo.
>
> _
>
> De: delphi-br@yahoogrupos.com.br   
>  [mailto:
> delphi-br@yahoogrupos.com.br   
> ] Em
> nome de Paulo Casagrande
> Enviada em: sexta-feira, 26 de março de 2010 12:08
> Para: delphi-br@yahoogrupos.com.br   
> 
> Assunto: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional
>
>
> O texto abaixo é um pequeno manifesto que reflete a minha insatisfação, é
> possível que esse texto fique preso dentro desse grupo, mas com um pouco de
> esforço e divulgação podemos almejar algo melhor para todos.
>
> -
>
> Cordiais Saudações...
>
> Existem detalhes que servem apenas para complicar e eu não consigo
> entender o
> sentido de algumas exigências do projeto NFe
>
> Quando a NF era apenas em papel (não digital),
> o destinatário tinha acesso as informações no momento em que recebia a
> nota em
> seu estabelecimento. OK?
>
> Hoje além do DANFE devemos enviar o arquivo XML (que na realidade é a
> nota) para
> o destinatário.
>
> Aqui entra o meu questionamento:
>
> Se a nota já esta na SEFAZ porque devemos envia-la?
>
> Não seria muito mais fácil o destinatário entrar com a chave e baixar a
> NFe ou
> através de uma conexão com o Certificado Digital (que somos obrigados a
> comprar)
> o usuário acessaria uma área com todos os documentos emitidos contra ele?
> Ou ainda porque não desenvolvem um XML para baixar a NFe?
>
> Será que o pessoal do projeto Nacional não tem a visão de que nem todos os
> destinatários tem e-mail, ou/e de que nem todos os e-mails chegam aos
> destinatários, pode parecer incrível, mas tem pessoas no Brasil que nem
> sabe
> para que serve um computador.
>
> Ao exigir dos emitentes e destinatários a guarda do XML
> a SEFAZ, Receita etc, praticamente assinam um atestado de que
> são incompetentes e que não querem assumir o compromisso de
> ser o guardião dos documentos fiscais. Resumindo não confiam em seus
> próprios
> recursos.
>
> Sou contra a correntes e apologias na net, mas quem sabe com um pouco de
> união
> dos contadores e pessoal de TI, conseguimos pressionar os responsáveis
> pelas implementações
> do Projeto Nacional a ajustarem o modelo atual para um formato que permita
> apenas vantagens.
>
> Obrigado,
> Paulo Casagrande
> Publicado em 26/03/2010 - Grupo Projeto Cooperar NFe
> http://br.groups.
> 
> yahoo.com/group/projeto_cooperar_nfe/messages
>
> [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

[delphi-br] Distibuição de Aplicação com Firebird

2010-03-25 Por tôpico Iran Lima
Olá galera estou finalizando o desenvolvimento de um aplicativo Delphi +
Firebird 2.0

Criei um instalador e no mesmo é instalado o firebird 2.0 também porém em
algumas maquinas 

ocorre erro para conectar ao banco de dados, devido a na maquina  do cliente
já ter outra versão do firebird instalada ou mesmo um firewall

não sei bem se esta e a melhor forma de distribuir o aplicativo devido estes
problemas.

 

Gostaria de uma dica neste ponto. E vantagem usar o firebird embarcado?
Quais são as desvantagens dele?

É possível funcionar em rede usando o firebird embarcado?

 

Segue o link do instalador pra quem quiser dar uma olhada:

 

http://www.sgicheck.com.br/downloads/SGICheck.exe

 

Bem desde já agradeço e alguma sugestão. 

 



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



RES: [delphi-br] tscap32 para Delphi 2010 [resolvido]

2010-03-23 Por tôpico Iran Lima
 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Iran Lima
Enviada em: sexta-feira, 19 de março de 2010 15:19
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] tscap32 para Delphi 2010

 

  

Alguém tem o componente tscap32 já rodando no Delphi 2010???

To precisando usar a captura da WebCam no Delphi 2010 e ainda não encontrei
um componente para tal.

Testei o TJvAVICapture da JEDI e fica travando o Delphi sempre que adiciono
o componente.

Se alguém puder me ajudar

Grato

Iran.

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





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



[delphi-br] DataTimePicker não funciona direito no Vista/7

2010-03-20 Por tôpico Iran Lima
Alguém sabe me dizer se existe alguma atualização de correção do bug do
DataTimePicker que não funciona direito no Vista/7

 

Segue link com descrição do problema e uma solução 

 

http://seucolega.wordpress.com/2008/08/28/datetimepickerchecked-nao-esta-fun
cionando-no-windows-vista/



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



[delphi-br] tscap32 para Delphi 2010

2010-03-20 Por tôpico Iran Lima
Alguém tem o componente tscap32 já rodando no Delphi 2010???

 

To precisando usar a captura da WebCam no Delphi 2010 e ainda não encontrei
um componente para tal.

Testei o TJvAVICapture da JEDI e fica travando o Delphi sempre que adiciono
o componente.

 

 

Se alguém puder me ajudar

 

 

Grato

 

Iran.



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



[delphi-br] Mascara com casas decimais fixas.

2010-03-05 Por tôpico Iran Lima
Alguém sabe se no delphi tem mascara com casas decimais fixas, 

ou seja digitar sem precisar digitar a virgula ou ponto nos valores???

 

 

 

 



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



RES: [Bulk] Re: [delphi-br] Capturar Imagem da WebCam

2010-02-19 Por tôpico Iran Lima
Testei com a JEDI aqui e funcionou porém quando incluo o componente no
form o Delphi 2010 fica travando.

 

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de netmidia
Enviada em: quinta-feira, 18 de fevereiro de 2010 21:03
Para: delphi-br@yahoogrupos.com.br
Assunto: [Bulk] Re: [delphi-br] Capturar Imagem da WebCam

 

  

Pessoal, a JEDI tem um componente para fazer captura, estava testando a
biblioteca colocando todos os componentes em um form vazio, e um deles
captura imagem direto da webcam, pegou a câmera do meu note.

abraço

--- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
, Adriano Santos  escreveu
>
> Pessoal,
> 
> Tem o componente que demonstrei no meu artigo da edição 79 da revista
> ClubeDelphi. Tem ele nesse link:
> http://www.devmedia.com.br/clubedelphi/downloads/Ed_79.htm
> 
> -- 
> Adriano Santos
> http://twitter.com/asrsantos
> www.delphitodelphi.blogspot.com
> 
> Em 13 de fevereiro de 2010 15:54, Kerchenn elteque
> escreveu:
> 
> >
> >
> > Em 12/02/10, humberto sales de
oliveira>
> > escreveu:
> >
> > > faça assim
> > >
> > > tscap321.SaveAsBMP := 'C:\'+
> > > datamodule1.table1.fieldbyname('nome').asstring + '.bmp'
> > >
> > > ;
> > >
> > >
> > >
> > > Em 12/02/2010 14:42, nillgolv escreveu:
> > >>
> > >>
> > >> Usando o exemplo do componente "tscap32", no evento onclick do botão
> > >> capturar foto da webcam
> > >> está assim:
> > >> tscap321.SaveAsBMP := 'C:\test.bmp';
> > >>
> > >> Pergunto como fazer para que ao clicar em capturar a foto, esta foto
> > >> receba o nome correspondente ao nome que foi editado no campo "nome"
> > >> do registro.
> > >>
> > >> Tipo assim:
> > >>
> > >> CADASTRO DE CLIENTES
> > >> ---
> > >> Nome: Fulano de tal
> > >> Cidade:
> > >> Telefone:
> > >>
> > >> Que ao capturar a foto, a mesma seja salva como:
> > >> Fulano de tal.jpg
> > >> ou
> > >> Fulano de tal.bmp
> > >>
> > >> Em 11/02/2010 15:40, Nazareno Neto <
nazareno.nobr...@...
> > >> <mailto:nazareno.nobrega%40gmail.com
>
> > > escreveu:
> > >> eu consegui instalar ele no delphi 2009 uma vez, caso der problema na
> > >> instalação, é só vc converter as variáveis que ele ta reclamando.
> > >> quando for instalar, manda os erros que der pra min, que se eu souber
a
> > >> solução te falo a correção
> > >>
> > >> Em 11 de fevereiro de 2010 14:13, Iran Lima escreveu:
> > >>
> > >> >
> > >> >
> > >> > Eu achei ele aqui "tscap32" mas acho que só funciona no Delphi 7.
> > >> >
> > >> > Valeu a ajuda cara.
> > >> >
> > >> > -Mensagem original-
> > >> > De: delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br>  
> > >>
<mailto:delphi-br%40yahoogrupos.com.br>
> > [mailto:
> > >> > delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br>
 > delphi-br%40yahoogrupos.com.br >
> > >> ] Em
> > >> > nome de Nazareno Neto
> > >> > Enviada em: quarta-feira, 10 de fevereiro de 2010 14:29
> > >> > Para: delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br>  
> > >>
<mailto:delphi-br%40yahoogrupos.com.br
> > >
> > >> > Assunto: Re: [delphi-br] Capturar Imagem da WebCam
> > >> >
> > >> >
> > >> > a algum tempo atras eu usei o tsCap acho q é, se tiver ele por aqui
> > >> depois
> > >> > te passo...
> > >> > o q posso adiantar é q vc vai encontrar ele la no sourceforge.
> > >> >
> > >> > flw
> > >> >
> > >> > Em 10 de fevereiro de 2010 09:57, Iran Lima
> > >> > >escreveu:
> > >> >
> > >> > >
> > >> > >
> > >> > > Alguém poderia me dar uma dica de um componente FREE para
capturar
> > >> imagem
> > >> > > da
> > >> > > webcam??
> > >> > >
> > >> > > Grato
> > >> > >
> > >> > > Ira

[delphi-br] [OFF] IBExpert para MySQL?

2010-02-12 Por tôpico Iran Lima
Olá 

 

Alguém ai conhece alguma ferramenta para administração de banco MySQL pelo
menos parecida com o IBExpert???

 

Não gosto do PHPMyAdmin

 

Valeu!!



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



RES: [delphi-br] Re: Capturar Imagem da WebCam

2010-02-12 Por tôpico Iran Lima
Valeu a ajuda pessoal,

 o JvAVICapture da JEDI resolveu o meu problema.

Obrigado.




RES: [delphi-br] Capturar Imagem da WebCam

2010-02-11 Por tôpico Iran Lima
Eu achei ele aqui "tscap32" mas acho que só funciona no Delphi 7.

Valeu a ajuda cara.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Nazareno Neto
Enviada em: quarta-feira, 10 de fevereiro de 2010 14:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Capturar Imagem da WebCam

a algum tempo atras eu usei o tsCap acho q é, se tiver ele por aqui depois
te passo...
o q posso adiantar é q vc vai encontrar ele la no sourceforge.

flw

Em 10 de fevereiro de 2010 09:57, Iran Lima
escreveu:

>
>
> Alguém poderia me dar uma dica de um componente FREE para capturar imagem
> da
> webcam??
>
> Grato
>
> Iran
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Nazareno Neto
Desenvolvedor Delphi e Firebird

http://www.delphisistemas.com.br
nazarenon...@hotmail.com
nazareno.nobr...@gmail.com


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





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





[delphi-br] Capturar Imagem da WebCam

2010-02-10 Por tôpico Iran Lima
Alguém poderia me dar uma dica de um componente FREE para capturar imagem da
webcam??

 

Grato

 

Iran



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



RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

2010-01-28 Por tôpico Iran Lima
Valeu cara, Obrigado pela ajuda acho que vou usar essa da CPU mesmo.

 

Obrigado.

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Willian Jhonnes L. dos Santos
Enviada em: quarta-feira, 27 de janeiro de 2010 20:30
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

 

  

Em 27/1/2010 18:29, Iran Lima escreveu:
> Se alguém tiver uma função que retorne o serial físico do HD ou da 
> BIOS , que funcione no D2010 e puder me passar ficarei grato.[
>
> Iran

Essa [1] eu testei até o Delphi 2007 e funciona apenas com HDs IDE. Mas 
abandonei esta idéia a partir do momento em q a maioria dos clientes 
começou a usar HDs SATA. Passei a usar a CPUID, que não varia, mesmo que 
o cliente troque o HD. Pra isso uso essa função [2].

[1]--
Function GetIdeSerialNumber:String;
const
IDENTIFY_BUFFER_SIZE = 512;
type
TIDERegs = packed record
bFeaturesReg : BYTE; // Used for specifying SMART "commands".
bSectorCountReg : BYTE; // IDE sector count register
bSectorNumberReg : BYTE; // IDE sector number register
bCylLowReg : BYTE; // IDE low order cylinder value
bCylHighReg : BYTE; // IDE high order cylinder value
bDriveHeadReg : BYTE; // IDE drive/head register
bCommandReg : BYTE; // Actual IDE command.
bReserved : BYTE; // reserved for future use. Must be zero.
end;
TSendCmdInParams = packed record
// Buffer size in bytes
cBufferSize : DWORD;
// Structure with drive register values.
irDriveRegs : TIDERegs;
// Physical drive number to send command to (0,1,2,3).
bDriveNumber : BYTE;
bReserved : Array[0..2] of Byte;
dwReserved : Array[0..3] of DWORD;
bBuffer : Array[0..0] of Byte; // Input buffer.
end;
TIdSector = packed record
wGenConfig : Word;
wNumCyls : Word;
wReserved : Word;
wNumHeads : Word;
wBytesPerTrack : Word;
wBytesPerSector : Word;
wSectorsPerTrack : Word;
wVendorUnique : Array[0..2] of Word;
sSerialNumber : Array[0..19] of CHAR;
wBufferType : Word;
wBufferSize : Word;
wECCSize : Word;
sFirmwareRev : Array[0..7] of Char;
sModelNumber : Array[0..39] of Char;
wMoreVendorUnique : Word;
wDoubleWordIO : Word;
wCapabilities : Word;
wReserved1 : Word;
wPIOTiming : Word;
wDMATiming : Word;
wBS : Word;
wNumCurrentCyls : Word;
wNumCurrentHeads : Word;
wNumCurrentSectorsPerTrack : Word;
ulCurrentSectorCapacity : DWORD;
wMultSectorStuff : Word;
ulTotalAddressableSectors : DWORD;
wSingleWordDMA : Word;
wMultiWordDMA : Word;
bReserved : Array[0..127] of BYTE;
end;
PIdSector = ^TIdSector;
TDriverStatus = packed record
// Error code from driver, or 0 if no error.
bDriverError : Byte;
// Contents of IDE Error register. Only valid when bDriverError is 
SMART_IDE_ERROR.
bIDEStatus : Byte;
bReserved : Array[0..1] of Byte;
dwReserved : Array[0..1] of DWORD;
end;
TSendCmdOutParams = packed record
// Size of bBuffer in bytes
cBufferSize : DWORD;
// Driver status structure.
DriverStatus : TDriverStatus;
// Buffer of arbitrary length in which to store the data read from 
the drive.
bBuffer : Array[0..0] of BYTE;
end;

var
hDevice : THandle;
cbBytesReturned : DWORD;
ptr : PChar;
SCIP : TSendCmdInParams;
aIdOutCmd : Array 
[0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte;
IdOutCmd : TSendCmdOutParams absolute aIdOutCmd;

procedure ChangeByteOrder( var Data; Size : Integer );
var
Ptr: PChar;
I: Integer;
C: Char;
Begin
Ptr := @Data;
For I := 0 to (Size shr 1) - 1 Do
Begin
C := Ptr^;
Ptr^ := (Ptr + 1)^;
(Ptr + 1)^ := C;
Inc(Ptr, 2);
end;
end;

Begin
Result := ''; // return empty String on error
If SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT then // Windows NT, 
Windows 2000
begin
// warning! change name for other drives: ex.: second drive 
'\\.\PhysicalDrive1\'
hDevice := CreateFile( '\\.\PhysicalDrive0', GENERIC_READ or 
GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
end
Else // Version Windows 95 OSR2, Windows 98
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
If hDevice=INVALID_HANDLE_VALUE Then Exit;
Try
FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0);
FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0);
cbBytesReturned := 0;
// Set up data structures for IDENTIFY command.
With SCIP Do
Begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
// bDriveNumber := 0;
With irDriveRegs Do
Begin
bSectorCountReg := 1;
bSectorNumberReg := 1;
// if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0
// else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4);
bDriveHeadReg := $A0;
bCommandReg := $EC;
end;
end;
If not DeviceIoControl( hDevice, $0007c088, @SCIP, 
SizeOf(TSendCmdInParams) - 1,
@aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) Then Exit;
Finally
CloseHandle(hDevice);
end;
With PIdSector(@IdOutCmd.bBuffer)^ Do
Begin
ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) );
(PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0;
Result := PChar(@sSerialNumber);
end;
end;
[/1]

RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

2010-01-27 Por tôpico Iran Lima
Não postei todo o código, achei que dava pra saber pela função principal, já
que o problema é de compatibilidade com o D2010. 

 

Function GetSysDrive: String;

begin

  Result := ExcludeTrailingPathDelimiter(ExtractFileDrive(GetWindowsDir));

end;

 

 

Obrigado pela ajuda.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: terça-feira, 26 de janeiro de 2010 18:55
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
Prioridade: Alta

 

  

E essa função GetSysDrive()? Cadê? Tá vendo, pressa pra querer as coisa
resolvida e esquece de, além de explicar com detalhes a dúvida, pedaços de
código! L

Sds.





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



RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

2010-01-27 Por tôpico Iran Lima
Não ocorre nenhuma exceção apenas não retorna o numero correto. A função
retorna um monte de caracteres (Chinês, japonês aparece de tudo).

 

>O mais importante você, com certeza, não falou: qual é o erro/exceção que
>ocorre?

>Sds.






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



RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

2010-01-27 Por tôpico Iran Lima
1 - Essa função está funcionando perfeitamente para HDs IDE e SATA, já
testei em varias maquinas só não testei ainda com o SO 64bits.

 

2- 

procedure ChangeByteOrder( var Data; Size : Integer );

var

  ptr : PChar;

  i : Integer;

  c : Char;

begin

  ptr := @Data;

  for i := 0 to (Size shr 1)-1 do

  begin

c := ptr^;

ptr^ := (ptr+1)^;

(ptr+1)^ := c;

Inc(ptr,2);

  end;

end;

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: terça-feira, 26 de janeiro de 2010 18:50
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
Prioridade: Alta

 

  

Outras coisas:

1) Vc quer pegar o serial de um HD SCSI ou IDE? Essa daí só funciona
pra SCSI. Do mesmo jeito q vc conseguiu essa pra SCSI, vc tb vai conseguir a
função pra IDE.

2) Cadê o código dessa rotina ChangeByteOrder?

Sds.





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



RES: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

2010-01-27 Por tôpico Iran Lima
To querendo migrar pro delphi 2010, mas até agora não consegui fazer a função 
funcionar

 

Peguei a função no link : 
http://www.planetadelphi.com.br/dica/6585/Descobrir%20serial%20do%20hd

 

Se alguém tiver uma função que retorne o serial físico do HD ou da BIOS , que 
funcione no D2010 e puder me passar ficarei grato.[

 

Iran

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Marcelo
Enviada em: terça-feira, 26 de janeiro de 2010 19:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

 

  



tem tambem o detalhe do sistema operacional, se for 64 bits tambem não funciona


De: Rubem Rocha mailto:rubem.rocha%40dtmanaus.com.br> >
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Enviadas: Terça-feira, 26 de Janeiro de 2010 19:50:24
Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

Outras coisas:

1) Vc quer pegar o serial de um HD SCSI ou IDE? Essa daí só funciona
pra SCSI. Do mesmo jeito q vc conseguiu essa pra SCSI, vc tb vai conseguir a
função pra IDE.

2) Cadê o código dessa rotina ChangeByteOrder?

Sds.

De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em
nome de Iran Lima
Enviada em: terça-feira, 26 de janeiro de 2010 16:55
Para: delphi...@yahoogrup os.com.br
Assunto: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010

Gente o que muda na função migrando para o Delphi 2010 ??? Existe AnsiWord e
AnsiByte ?? hehe, to botando tudo “ANSI”

function GetIdeDiskSerialNum ber : String;

type

TSrbIoControl = packed record

HeaderLength: ULONG;

Signature: Array[0..7] of Char;

Timeout: ULONG;

ControlCode: ULONG;

ReturnCode: ULONG;

Length: ULONG;

end;

SRB_IO_CONTROL = TSrbIoControl;

PSrbIoControl = ^TSrbIoControl;

TIDERegs = packed record

bFeaturesReg : Byte; // especificar "comandos" SMART

bSectorCountReg : Byte; // registro de contador de setor

bSectorNumberReg : Byte; // registro de número de setores

bCylLowReg : Byte; // valor de cilindro (byte mais baixo)

bCylHighReg : Byte; // valor de cilindro (byte mais alto)

bDriveHeadReg : Byte; // registro de drive/cabeça

bCommandReg : Byte; // comando IDE

bReserved : Byte; // reservado- tem que ser zero

end;

IDEREGS = TIDERegs;

PIDERegs = ^TIDERegs;

TSendCmdInParams = packed record

cBufferSize : DWORD;

irDriveRegs : TIDERegs;

bDriveNumber : Byte;

bReserved : Array[0..2] of Byte;

dwReserved : Array[0..3] of DWORD;

bBuffer : Array[0..0] of Byte;

end;

SENDCMDINPARAMS = TSendCmdInParams;

PSendCmdInParams = ^TSendCmdInParams;

TIdSector = packed record

wGenConfig : Word;

wNumCyls : Word;

wReserved : Word;

wNumHeads : Word;

wBytesPerTrack : Word;

wBytesPerSector : Word;

wSectorsPerTrack : Word;

wVendorUnique : Array[0..2] of Word;

sSerialNumber : Array[0..19] of Char;

wBufferType : Word;

wBufferSize : Word;

wECCSize : Word;

sFirmwareRev : Array[0..7] of Char;

sModelNumber : Array[0..39] of Char;

wMoreVendorUnique : Word;

wDoubleWordIO : Word;

wCapabilities : Word;

wReserved1 : Word;

wPIOTiming : Word;

wDMATiming : Word;

wBS : Word;

wNumCurrentCyls : Word;

wNumCurrentHeads : Word;

wNumCurrentSectorsP erTrack : Word;

ulCurrentSectorCapa city : ULONG;

wMultSectorStuff : Word;

ulTotalAddressableS ectors : ULONG;

wSingleWordDMA : Word;

wMultiWordDMA : Word;

bReserved : Array[0..127] of Byte;

end;

PIdSector = ^TIdSector;

const

IDE_ID_FUNCTION = $EC;

IDENTIFY_BUFFER_ SIZE = 512;

DFP_RECEIVE_ DRIVE_DATA = $0007c088;

IOCTL_SCSI_MINIPORT = $0004d008;

IOCTL_SCSI_MINIPORT _IDENTIFY = $001b0501;

DataSize = sizeof(TSendCmdInPa rams)-1+IDENTIFY _BUFFER_SIZE;

BufferSize = SizeOf(SRB_IO_ CONTROL)+ DataSize;

W9xBufferSize = IDENTIFY_BUFFER_ SIZE+16;

var

hDevice : THandle;

cbBytesReturned : DWORD;

pInData : PSendCmdInParams;

pOutData : Pointer; // PSendCmdOutParams

Buffer : Array[0..BufferSize -1] of Byte;

srbControl : TSrbIoControl absolute Buffer;

begin

Result := '';

FillChar(Buffer, BufferSize, #0);

if Win32Platform= VER_PLATFORM_ WIN32_NT then

// Windows NT, Windows 2000, Windows XP

begin

// recuperar handle da porta SCSI

hDevice := CreateFile(PChar( '\\.\' + GetSysDrive) , 

// Nota: '\\.\C:' precisa de privilégios administrativos

GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);

if hDevice=INVALID_ HANDLE_VALUE then Exit;

try

srbControl.HeaderLe ngth := SizeOf(SRB_IO_ CONTROL);

System.Move( 'SCSIDISK' ,srbControl. Signature, 8);

srbControl.Timeout := 2;

srbControl.Length := DataSize;

srbControl.ControlC ode := IOCTL_SCSI_MINIPORT _IDENTIFY;

pInData := PSendCmdInParams( PChar(@Buffer)

+SizeOf(SRB_ IO_CONTROL) );

pOutData := pInData;

with pInData^ do

begin

cBufferSize := IDENTIFY_BUFFER_ SIZE;

bDriveNumber := 0;

with irDriveRegs do

begin

bFeaturesReg := 0;

bSectorCountRe

[delphi-br] Pegar Serial Fisico de HD no Delphi 2010

2010-01-26 Por tôpico Iran Lima
Gente o que muda na função migrando para o Delphi 2010 ??? Existe AnsiWord e
AnsiByte ?? hehe, to botando tudo “ANSI”

 

function GetIdeDiskSerialNumber : String;

   type

TSrbIoControl = packed record

  HeaderLength: ULONG;

  Signature: Array[0..7] of Char;

  Timeout: ULONG;

  ControlCode: ULONG;

  ReturnCode: ULONG;

  Length: ULONG;

   end;

   SRB_IO_CONTROL = TSrbIoControl;

   PSrbIoControl = ^TSrbIoControl;

 

TIDERegs = packed record

  bFeaturesReg : Byte; // especificar "comandos" SMART

  bSectorCountReg : Byte; // registro de contador de setor

  bSectorNumberReg : Byte; // registro de número de setores

  bCylLowReg : Byte; // valor de cilindro (byte mais baixo)

  bCylHighReg : Byte; // valor de cilindro (byte mais alto)

  bDriveHeadReg : Byte; // registro de drive/cabeça

  bCommandReg : Byte; // comando IDE

  bReserved : Byte; // reservado- tem que ser zero

   end;

IDEREGS = TIDERegs;

PIDERegs = ^TIDERegs;

 

   TSendCmdInParams = packed record

  cBufferSize : DWORD;

  irDriveRegs : TIDERegs;

  bDriveNumber : Byte;

  bReserved : Array[0..2] of Byte;

  dwReserved : Array[0..3] of DWORD;

  bBuffer : Array[0..0] of Byte;

end;

SENDCMDINPARAMS = TSendCmdInParams;

PSendCmdInParams = ^TSendCmdInParams;

 

TIdSector = packed record

  wGenConfig : Word;

  wNumCyls : Word;

  wReserved : Word;

  wNumHeads : Word;

  wBytesPerTrack : Word;

  wBytesPerSector : Word;

  wSectorsPerTrack : Word;

  wVendorUnique : Array[0..2] of Word;

  sSerialNumber : Array[0..19] of Char;

  wBufferType : Word;

  wBufferSize : Word;

  wECCSize : Word;

  sFirmwareRev : Array[0..7] of Char;

  sModelNumber : Array[0..39] of Char;

  wMoreVendorUnique : Word;

  wDoubleWordIO : Word;

  wCapabilities : Word;

  wReserved1 : Word;

  wPIOTiming : Word;

  wDMATiming : Word;

  wBS : Word;

  wNumCurrentCyls : Word;

  wNumCurrentHeads : Word;

  wNumCurrentSectorsPerTrack : Word;

  ulCurrentSectorCapacity : ULONG;

  wMultSectorStuff : Word;

  ulTotalAddressableSectors : ULONG;

  wSingleWordDMA : Word;

  wMultiWordDMA : Word;

  bReserved : Array[0..127] of Byte;

end;

PIdSector = ^TIdSector;

 

  const

IDE_ID_FUNCTION = $EC;

IDENTIFY_BUFFER_SIZE = 512;

DFP_RECEIVE_DRIVE_DATA = $0007c088;

IOCTL_SCSI_MINIPORT = $0004d008;

IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;

DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;

BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;

W9xBufferSize = IDENTIFY_BUFFER_SIZE+16;

  var

hDevice : THandle;

cbBytesReturned : DWORD;

pInData : PSendCmdInParams;

pOutData : Pointer; // PSendCmdOutParams

Buffer : Array[0..BufferSize-1] of Byte;

srbControl : TSrbIoControl absolute Buffer;

 

  begin

Result := '';

FillChar(Buffer,BufferSize,#0);

 

if Win32Platform=VER_PLATFORM_WIN32_NT then

// Windows NT, Windows 2000, Windows XP

begin

  // recuperar handle da porta SCSI

  hDevice := CreateFile(PChar('\\.\' + GetSysDrive), 

  // Nota: '\\.\C:' precisa de privilégios administrativos

  GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);

  if hDevice=INVALID_HANDLE_VALUE then Exit;

  try

srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);

System.Move('SCSIDISK',srbControl.Signature,8);

srbControl.Timeout := 2;

srbControl.Length := DataSize;

srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;

pInData := PSendCmdInParams(PChar(@Buffer)

+SizeOf(SRB_IO_CONTROL));

pOutData := pInData;

   with pInData^ do

   begin

 cBufferSize := IDENTIFY_BUFFER_SIZE;

 bDriveNumber := 0;

 with irDriveRegs do

 begin

   bFeaturesReg := 0;

   bSectorCountReg := 1;

   bSectorNumberReg := 1;

   bCylLowReg := 0;

   bCylHighReg := 0;

   bDriveHeadReg := $A0;

   bCommandReg := IDE_ID_FUNCTION;

 end;

end;

if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer,
BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit;

finally

  CloseHandle(hDevice);

end;

   end

   else

   begin

  // Windows 95 OSR2, Windows 98, Windows ME

  hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );

  if hDevice=INVALID_HANDLE_VALUE then Exit;

  try

pInData := PSendCmdInParams(@Buffer);

pOutData := @pInData^.bBuffer;

with pInData^ do

begin

   cBufferSize := IDENTIFY_BUFFER_SIZE;

   bDriveNumber := 0;

   with irDriveRegs do

   begin

 bFeaturesReg := 0;

 bSecto

RES: [delphi-br] Topicos demoram a aparecer

2009-12-30 Por tôpico Iran Lima
Eu tambem tenhu este problema, e é so nesse grupo aqui, acho que é por que
nossos posts são revisados antes de aparecer.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de harleydiaskoehler
Enviada em: terça-feira, 29 de dezembro de 2009 09:24
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Topicos demoram a aparecer

 

  

Gostaria de saber porque os topicos inseridos demoram tanto a aparecer,
postei um hoje as 8:30 e ja são 10:30 e ainda nada.





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



[delphi-br] Parametros de Instalação do Firebird

2009-12-29 Por tôpico Iran Lima
Gente to com um problema aqui.

O firebird so funciona no Win7 e no Vista quando executa como aplicação.

Se colocar como serviço não funciona.

 

Minha aplicação instala o firebird automaticamente.

 

Gostaria de saber se alguém sabe o parâmetro de instalação do firebird para
a execução em modo aplicação.

 

Eu uso assim:

 

"/SP /VERYSILENT /FORCE /COMPONENTS=""SuperServerComponent, ServerComponent,
DevAdminComponent, ClientComponent"""



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



[delphi-br] Erro em CDS Dinamica

2009-12-09 Por tôpico Iran Lima
Olá pessoal, estou com um probleminha chato aqui, tenho um sistema em 3
camadas usando DBX,

Uso um CDS dinâmico (Cliente) ligada a uma QUERY dinâmica (Servidora). Uso a
CommandText para passar os comandos SQL. Até ai tudo bem

O problema e quando ocorre algum erro na consulta. Daí O CDS não funciona
mais e fica acusando que está aberto.

Eu uso uma função que força o fechamento da query mas mesmo assim em alguns
casos a  CDS não fecha.

So volta ao normal reiniciando a aplicação.

 

Como posso resolver isso???

 

Grato.



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



[delphi-br] Sistema com NFe

2009-12-03 Por tôpico Iran Lima
Gente gostaria de pedir uma ajuda aqui. Estou desenvolvendo um sistema que
emite NF-e usando o ACBRNFE gostaria de saber 

Quais os campos que vcs (quem trabalha com isso) gravam nas tabelas da Nota
Fiscal. Tipo eu gravar gravar os campos de relacionados ao produto, ou do
emitente, ou do cliente, ficaram redundantes no banco. Porém e mais seguro
gravar pois mudanças nessas tabelas alteraria os dados da NFe que estão
relacionados. Exemplos: - caso um produto mude sua alicota de ICMS ou
redução de base – ou o emitente mudasse o endereço ... etc. Quando o sistema
fosse gerar informações referentes a Nota(exemplo Sintegra) estariam
erradas.

 

E ai Grava tudo nas tabelas da Nota Fiscal mesmo sendo redundante???

 

Grato Iran Lima



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



[delphi-br] [OFF] Aproveitando o bonde DevMedia (ClubeDelphi)

2009-12-03 Por tôpico Iran Lima
Olá pessoal gostaria de expor minha indignação contra a DevMedia também a um
tempo atrás comprei cerca de 150 reais de créditos lá, gastei 50 reais e o
resto dos créditos simplesmente EXPIROU. 
O sistema de faturamento lá deve ter aumentado, eles estão usando técnicas
de operadora de Celular (Oi), para fazer essa enganação com o cliente. Isso
sem falar que alguns dos tópicos que paguei para liberar, estão com links de
download de PDF e fontes quebrado.


O cliente não é idiota.


Valeu pessoal.

Iran.   



RES: [delphi-br] [OFF] Referente a nova lei...

2009-08-25 Por tôpico Iran Lima
Caraca... não fui eu quem escreveu isso não. Eu ia era descer o pau ni quem
escreveu isso e re-enviei a mensagem do cara sem querer.
Pode me botar na lista dos Semi-Analfabeto ai. Trabalho a 7 anos com
informática 3 como programador Delphi.
To cursando o 6º simestre de Ciencias da Computação e não troco o que
aprendi trabalhando e estudando sozinho pelo que ensinam lá.

Tem muitos universitários ai que fazem ums programinhas em C++ pra ordenar
lista de caracteres e acham que são programadores.   

Quem trabalha na área de tecnologia é quem sabe quem não sabe vai estudar
pra concurso publico ou ser professor.
Aqui é assim.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Evandro Siqueira
Enviada em: terça-feira, 25 de agosto de 2009 08:07
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] [OFF] Referente a nova lei...


Iran:
> Achei correto a nova lei sobre quem deve exercer ou não as funções, 
> agora, nós que investimos tempo e dinheiro numa universidade fica 
> valorizado. Tem muita gente que não estuda, é um semi-analfabeto, faz um 
> curso de programação e toma o lugar de um profissional que estudou muito 
> tempo.
Só um comentário... se um "semi-analfabeto" consegue tomar a vaga que 
seria de um graduado, é sinal de que alguma coisa pode estar faltando 
nesta "graduação", não é mesmo? porquê em todo processo de seleção que 
eu conheço, se o primeiro candidato não atende às necessidades da 
empresa, eles chamam o segundo... então se o semi analfabeto tomou a 
vaga e se manteve no lugar é porque tem um algo a mais ou porque o 
"graduado" tem um algo a menos???

Essa história de "estudei muito tempo" é muito relativa... tenho um 
amigo que tem uma formação super sólida... só a oitava série ele repetiu 
4 vezes... conheci muitos colegas de faculdade escrevendo, falando e 
portando-se pior do que muitos analfabetos e também orgulho-me de dizer 
que uma das funcionárias mais cultas que já trabalharam comigo tinha 
apenas a 4ª série do ensino fundamental... então pra mim é relativo: se 
é competente garante o caraminguá... se não é, não tem diploma que 
mantenha o cidadão no cargo durante muito tempo e ele vai continuar 
perdendo a vaga para os analfabetos.

-- 
[]’s.

Evandro Siqueira
Programador de Sistemas
L’essentiel Lingerie
(79) 3254-5511 Ramal 218
skype: evandro.lessentiel





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >







RES: [delphi-br] [OFF] Referente a nova lei...

2009-08-24 Por tôpico Iran Lima
 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: sexta-feira, 21 de agosto de 2009 18:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] [OFF] Referente a nova lei...

 

  

Minha opinião apenas.

Achei correto a nova lei sobre quem deve exercer ou não as funções, 
agora, nós que investimos tempo e dinheiro numa universidade fica 
valorizado. Tem muita gente que não estuda, é um semi-analfabeto, faz um 
curso de programação e toma o lugar de um profissional que estudou muito 
tempo. Tem hora que os políticos atrapalham, mas tem hora que se 
interessam em modernizar o País. Já estou formulando uma mensagem de 
agradecimento ao Senador que teve esta grande idéia, este é um dos 
poucos políticos que trabalha sério para o povo. Podemos ver que muitos 
países ricos não contratam pessoas que são técnicos para cargos que 
exigem um profissional de verdade, uma pessoa que tem universidade, teve 
vontade de estudar e fazer crescer o país. Só o Brasil pensa diferente, 
isso está mudando e vai incentivar as pessoas a estudarem. Pra mim, quem 
não tem universidade tem mais que começar a estudar ou então mudar de 
área...





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



RES: [delphi-br] Componete para Gerar Relatórios no WORD

2009-08-17 Por tôpico Iran Lima
Tenho um Relatório pronto de Inventario de produtos (feito no
ReportBuilder), o cliente quer que eu exporte para o WORD.

 

Usando o TWordAplication iria dar um trabalhão pra fazer, achei que já
tivesse um componente que fizesse isso.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de André Geraldo dos Santos
Enviada em: sexta-feira, 14 de agosto de 2009 16:18
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Componete para Gerar Relatórios no WORD

 

  

O que você precisa fazer exatamente?
Detalhe mais a sua necessidade.

2009/8/14 Iran Lima mailto:iran%40sgisolution.com.br> >

>
>
> Alguém pode me dar uma dica de um Componente para Gerar Relatórios no
> WORD???
>
> Grato
>
> Iran Lima
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 

Atenciosamente,

--
André Geraldo dos Santos

Analista de Sistemas/Desenvolvedor
Belo Horizonte / Minas Gerais
E-mail : andresanto...@gmail.com <mailto:andresantos78%40gmail.com> 
Telefone : +55 31 3047-6506 8746-9651
--

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





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



[delphi-br] Componete para Gerar Relatórios no WORD

2009-08-14 Por tôpico Iran Lima
Alguém pode me dar uma dica de um Componente para Gerar Relatórios no
WORD???

 

Grato

 

Iran Lima 

 



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



RES: [delphi-br] Placas de Som

2009-07-31 Por tôpico Iran Lima
Ø  Não seria melhor você ter uma única placa de som com vários canais?

R: Sim funcionaria também.

 

O objetivo é fazer um programa para execução de Tele mensagens, já vi um
programa que fazia isto, tipo usava mais de uma placa de som para passar
mais de uma mensagem simultaneamente. Mas usar mais de uma canal para tocar
as mensagens Tb daria certo.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: quinta-feira, 30 de julho de 2009 18:46
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Placas de Som

 

  

Não seria melhor você ter uma única placa de som com vários canais?

Que eu saiba não existe um componente que faça isso tudo ("que eu saiba").
Existe sim, uma série de rotinas como os programas SoundForge e outros 
realizam.

Iran Lima escreveu:
> 
>
> Como selecionar o dispositivo de saída do som e usar simultaneamente 
> mais de
> uma placa de som para reproduzir ao mesmo tempo vários MP3 cada um com uma
> saída diferente??
>
> Alguém pode me ajudar ???
>
> Existe algum componente??
>
> Grato.
>
> Iran.
>
> .
>
> 





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



[delphi-br] [OFF] Pretensão Salarial

2009-07-30 Por tôpico Iran Lima
Olá,

Vejo sempre aqui no grupo ofertas de emprego, para analista-programador

com experiência .. e tals, e sempre pedem a pretensão salarial. A exploração
começa antes da contratação, sabemos que 

vão dar preferência aos que pedirem menos e com isso fica a duvida.

Quanto pedir?

 

Para ajudar aos que estão com esta duvida e aos que estão por fora do valor
de seu trabalho, peço que informem se possível o quanto ganham e sua função
na empresa.

 

Obrigado aos que puderem ajudar.

 

 

Iran Lima. 

 



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



[delphi-br] Placas de Som

2009-07-30 Por tôpico Iran Lima
Como selecionar o dispositivo de saída do som e usar simultaneamente mais de
uma placa de som para reproduzir ao mesmo tempo vários MP3 cada um com uma
saída diferente??

 

 

Alguém pode me ajudar ???

Existe algum componente??

 

 

Grato.

 

Iran.

 

 

 



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



RES: [delphi-br] Form Inicial ?

2009-07-24 Por tôpico Iran Lima
Desculpe-me, não fui bem claro o meu problema a abrir o form(.pas) no Delphi ao 
abrir o projeto e não ao executar a aplicação

 

Obrigado pela resposta. 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Rubens Antunes
Enviada em: sexta-feira, 24 de julho de 2009 07:36
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Form Inicial ?

 

  

Amigo
 
Menu Project e escolha Options na tela que se abre escolha a opção forms abrirá 
uma tela que tem auto-create forms e available forms, o auto create é para o 
formulário ou data Module ser criado automaticamente e o available para ser 
criado só qdo ele for chamado,  para definir o formulário principal escolho o 
auto-create forms
 
Abraço

Rubens Antunes
Autor do Livro - Delphi Faça Uma Aplicação Comercial
Blog http://rubensantunes.zip.net/

--- Em sex, 24/7/09, EmbarcaDelphi mailto:embarcadelphi%40yahoo.com.br> > escreveu:

De: EmbarcaDelphi mailto:embarcadelphi%40yahoo.com.br> >
Assunto: Re: [delphi-br] Form Inicial ?
Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Data: Sexta-feira, 24 de Julho de 2009, 10:08

Sinceramente Iran, não consegui assimilar o que você precisa.

Iran Lima escreveu:
>
> Alguém sabe onde é que configura o “FORM” que vai abre automaticamente ao
> abrir o projeto
>
> Iran Lima
>
>
> 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.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] Form Inicial ?

2009-07-24 Por tôpico Iran Lima
Seguinte...
Quando vc abre um projeto no Delphi ele automaticamente abre o primeiro form
criado, em um projeto meu,
Não sei porque não ta abrindo mais nenhum.
Não é ao executar a aplicação é ao abrir o projeto.
Tipo quando vc clica em um .pas ele abre o .pas na tela do Delphi.

Obrigado pela resposta.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: sexta-feira, 24 de julho de 2009 07:08
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Form Inicial ?

Sinceramente Iran, não consegui assimilar o que você precisa.


Iran Lima escreveu:
>
> Alguém sabe onde é que configura o “FORM” que vai abre automaticamente ao
> abrir o projeto
>
> Iran Lima
>
>
> 





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>







[delphi-br] Form Inicial ?

2009-07-23 Por tôpico Iran Lima
Alguém sabe onde é que configura o “FORM” que vai abre automaticamente ao
abrir o projeto

 

Iran Lima

 



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



RES: RES: RES: [delphi-br] Delphi 7 CodeGear

2009-07-16 Por tôpico Iran Lima
A CODGEAR era da  BORLAND, agora é da EMBARCADERO.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Walter Chagas (Bol)
Enviada em: quarta-feira, 15 de julho de 2009 08:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Delphi 7 CodeGear

 

  

O Delphi 2007 ainda era da Borland. O que não é mais dela é o 2009

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br  
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com  
SKYPE: WalterChagasJr

- Original Message - 
From: Eny Urias 
To: delphi-br@yahoogrupos.com.br   
Sent: Tuesday, July 14, 2009 4:52 PM
Subject: Res: RES: RES: [delphi-br] Delphi 7 CodeGear

Ainda tá confuso isso... "from Borland"?


De: Adenes Junior mailto:adenes%40ecoplanpb.com.br> >
Para: delphi-br@yahoogrupos.com.br  
Enviadas: Terça-feira, 14 de Julho de 2009 16:24:55
Assunto: RES: RES: [delphi-br] Delphi 7 CodeGear

Gente é o Delphi 2007 Lite for Win32 Enterprise da CodeGear from Borland,
igual ao Delphi2009.

De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em
nome de Cristiano R F Maciel
Enviada em: terça-feira, 14 de julho de 2009 11:36
Para: delphi...@yahoogrup os.com.br
Assunto: Re: RES: [delphi-br] Delphi 7 CodeGear

Amigos,

Também não conheço esta versão, mas se for o Turbo Delphi (Explorer) 
como Ronaldo sugeriu, eu recomendo (e utilizo) o FreeReport como o 
gerenciador de relatório, visto que no Turbo Explorer não tem nenhum 
gerenciador embutido.

Cristiano Flores

Ronaldo Marcelo Pena escreveu:
>
>
> Esse Delphi não seria o turbo delphi?
>
> De: delphi...@yahoogrup os.com.br  
>  
> [mailto:delphi...@yahoogrup os.com.br
 
> ] Em
> nome de José Mário Silva Guedes
> Enviada em: terça-feira, 14 de julho de 2009 11:17
> Para: delphi...@yahoogrup os.com.br 

> Assunto: Re: [delphi-br] Delphi 7 CodeGear
>
> Amigos, acho que dei uma cochilada... Delphi 7 Code Gear? Alguem tem 
> um link
> para este produto?
>
> [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]

__
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[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]



RES: [delphi-br] Ajudem por Favor - EditMask e DisplayFormat no 2006

2009-06-25 Por tôpico Iran Lima
Fiz uma pesquisa aqui na net e parece que é Bug do BDS2006 com Dbexpress e
campos FMTBC 

 

http://www.activedelphi.com.br/forum/viewtopic.php?p=214446&sid=6158b6866e98
14b1dfe7c077d7ddbf76

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leandro
Enviada em: quinta-feira, 25 de junho de 2009 16:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajudem por Favor - EditMask e DisplayFormat no 2006

 






sao em todas as maquinas q ocorre isso? se nao eh configuracao do ruindows..

2009/6/25 Paulo Coutinho mailto:paulo%40prsolucoes.com> >

>
>
> Olá,
>
> Eu uso este display format em alguns projetos e funciona bem no Delphi
> 2009/2007.
>
> DisplayFormat := '###,###,##0.00';
>
> 2009/6/24 Iran Lima mailto:iran%40sgisolution.com.br>  >:
> >
> >
> > Olá pessoal, estou com um problema chato aqui
> >
> > Mudei o meu sistema de Delphi 7 para o 2006 e estou com o seguinte
> > problema,
> >
> > - Os Campos não estão com a formatação correta. Tipo: 0,50 está
> aparecendo
> > ,50 e 1,00 aparece apenas 1
> >
> > Eu uso DisplayFormat = #,0.00 e no EditMask = 0.00 e no Delphi 7
funciona
> > blz já quando compilo do 2006 fico com este problem.
> >
> > Alguém pode me ajudar?
> >
> > Grato
> >
> > Iran Lima
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> --
> Atenciosamente,
> Paulo Coutinho.
> Blog: www.prsolucoes.com/blog
> Site: www.prsolucoes.com
> Msn: pa...@prsolucoes.com <mailto:paulo%40prsolucoes.com>

> 
>

-- 
Leandro, MuTukA

[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] Ajudem por Favor - EditMask e DisplayFormat no 2006

2009-06-25 Por tôpico Iran Lima
Coloque DisplayFormat := '###,###,##0.00';

 

Mas ta do mesmo jeito.

 

A única forma que encontrei de ficar certo e no evento “OnGetText” do Campo
colocar

 

Text := FormatFloat('#,0.00', Sender.AsFloat);

 

Mas isso fica muito quebra galho. E da problema as vezes ao editar o campo.

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Paulo Coutinho
Enviada em: quinta-feira, 25 de junho de 2009 12:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ajudem por Favor - EditMask e DisplayFormat no 2006

 






Olá,

Eu uso este display format em alguns projetos e funciona bem no Delphi
2009/2007.

DisplayFormat := '###,###,##0.00';

2009/6/24 Iran Lima mailto:iran%40sgisolution.com.br> >:
>
>
> Olá pessoal, estou com um problema chato aqui
>
> Mudei o meu sistema de Delphi 7 para o 2006 e estou com o seguinte
> problema,
>
> - Os Campos não estão com a formatação correta. Tipo: 0,50 está aparecendo
> ,50 e 1,00 aparece apenas 1
>
> Eu uso DisplayFormat = #,0.00 e no EditMask = 0.00 e no Delphi 7 funciona
> blz já quando compilo do 2006 fico com este problem.
>
> Alguém pode me ajudar?
>
> Grato
>
> Iran Lima
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 

-- 
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com <mailto:paulo%40prsolucoes.com> 





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



[delphi-br] Ajudem por Favor - EditMask e DisplayFormat no 2006

2009-06-24 Por tôpico Iran Lima
Olá pessoal, estou com um problema chato aqui

Mudei o meu sistema de Delphi 7 para o 2006 e estou com o seguinte
problema,

- Os Campos não estão com a formatação correta. Tipo: 0,50 está aparecendo
,50 e 1,00 aparece apenas 1

Eu uso DisplayFormat = #,0.00 e no EditMask = 0.00 e no Delphi 7 funciona
blz já quando compilo do 2006 fico com este problem.

 

Alguém pode me ajudar?

Grato

 

 

Iran Lima

 



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



[delphi-br] Driver DBX para Firebird no Delphi 2009

2009-06-20 Por tôpico Iran Lima
Alguém pode me dizer onde encontro ?

 

-  Driver DBX para Firebird no Delphi 2009 (Free). 

 

De preferência com fontes. 

 

 

Iran Lima

 



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



RES: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009-06-16 Por tôpico Iran Lima
Já existe um banco de dados de CEP para download.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: terça-feira, 16 de junho de 2009 10:58
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: RES: [delphi-br] OFF TOPIC: Mega Projeto
Prioridade: Alta

 






Já que o João tocou no assunto... pra mim, isso tá cheirando a juntar um
monte de neguinho pra poder consultar algum webservice de CEP e sair
montando um banco de dados de CEP a partir de várias consultas.

Sds.


De: delphi-br@yahoogrupos.com.br 
[delphi...@yahoogrupos.com.br  ] em
Nome de Joao Morais [jcmorai...@gmail.com  ]
Enviado: segunda-feira, 15 de junho de 2009 23:06
Para: delphi-br@yahoogrupos.com.br  
Assunto: Re: RES: [delphi-br] OFF TOPIC: Mega Projeto

2009/6/16 Luiz Escobar mailto:escobar%40megasistema.com.br> >
>
> se for legal, to dentro...

Se fosse legal, haveria um link no site para baixar a base, haveria
uma porta para conexão ao banco para leitura, haveria um webservice.
Não parece evidente?

Joao Morais

.

[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] Projeto ACBrNFe

2009-06-02 Por tôpico Iran Lima
Rave50VCL  você  tem que ter o RaveRepots instalado. Ele vem com o Delphi se
vc tiver usando outra versão Exemplo Versão 7.5 mude para

Rave75VCL

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dimas Bolognani
Enviada em: terça-feira, 2 de junho de 2009 13:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Projeto ACBrNFe

 






Boa tarde pessoal,

Tentei instalar o os componentes da ACBRNFe mas não consegui, segui os
passos do arquivo instalar.

A maioria dos componentes foram instalados mas o ACBRBFe não consegui, da
este erro.

[Fatal Error] ACBr_NFe_CAPICOM.dpk(74): Required package 'Rave50VCL' not
found

Quem já instalou este componentes poderia me ajudar?

Atte.

Dimas Bolognani

Ouro Fino – MG

Tel.35-3441-5254

MSN: di...@dbsoftinformatica.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] Proteção Software

2009-05-29 Por tôpico Iran Lima
Eu pego o serial físico do HD uso uma função para criptografar e gero o uma
chave.

Daí o cliente registra o sofware(envia a Chave) e com a chave eu gero uma
contra-chave que ele grava em um ini  validando a copia do sistema na
maquina dele. 

 

O problema e quando ele troca o HD.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Samuel M. Basso
Enviada em: sexta-feira, 29 de maio de 2009 16:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Proteção Software

 






Boa tarde Pessoal!

Andei pesquisando a um tempo um meio de proteção do software contra
pirataria, existem diversas maneiras pelo que eu vi e eu mesmo andei
testando algumas, mas resolvi enviar este email para trocar ideias com voces
de algumas maneiras de se fazer essa proteção.

Até.

-- 
Atenciosamente,

Samuel M. Basso
Tel: (54) 3463-9114
Cel: (54) 8135-3723
E-mail: samuelba...@gmail.com  
Web site: www.samuelbasso.com
MSN: samuelba...@gmail.com  

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





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



[delphi-br] Material avançado para IntraWeb

2009-05-27 Por tôpico Iran Lima
Alguém tem algum link para material de IntraWeb Avançado?

 

Preferencialmente com relação a ‘UserSessions’.

 

Iran Lima.

 



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



RES: [delphi-br] Re: Delphi e firebird na rede

2009-05-25 Por tôpico Iran Lima
Verifique o firewall, pode estar bloqueando.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de asandro1501
Enviada em: segunda-feira, 25 de maio de 2009 15:07
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Delphi e firebird na rede

 






Cara

tentei fazer isso mas não consegui resultados. Será que é porque estou
usando o IBexpert como gerenciador e o Zeos como ferramenta de conexão com o
firebird?

--- Em delphi-br@yahoogrupos.com.br 
, Igor Alexandre  escreveu
>
> é simples, voce tem duas opcoes:
> 
> 1ª Opcao
> 
> SERVIDOR:EnderecoBaseDados
> ex. CpuX:c:\\basededados.fdb
> 2ª Opcao
> 
> IPSERVIDOR:EnderecoBaseDados
> ex. 192.168.1.20:c:\\basededados.fdb
> 
> lembrando que "EnderecoBaseDados" se refere ao endereço local no servidor
> 
> 
> 
> 
> 2009/5/19 Samuel M. Basso 
> 
> >
> >
> > Olá!
> >
> > Voce terá que escolher uma máquina para ser servidor, nele ficará o
> > firebird
> > instalado junto com o banco de dados, essa maquina terá um nome ou IP
fixo
> > com isso as outras maquinas onde estao instalados o sistema vc direciona
> > para se conectar na maquina servidora utilizando ou o nome dela ou o ip
> > fixo
> > que determinou.
> >
> > 2009/5/19 asandro1501 
> > >
> >
> > >
> > >
> > > Olá pessoal
> > >
> > > Como faço para que uma aplicação em delphi com bd em firebird 1.5
> > funcione
> > > na rede? Desenvolvi tudo localmente mas gostaria de testar na rede.
como
> > > faço para configurar o gerenciador para achar o banco no servidor?
Como
> > faço
> > > para que a aplicação ache o banco na rede também?
> > >
> > > Grato
> > >
> > > Alex
> > >
> > >
> > >
> >
> > --
> > Atenciosamente,
> >
> > Samuel M. Basso
> > Tel: (54) 3463-9114
> > Cel: (54) 8135-3723
> > E-mail: samuelba...@... 
> > Web site: www.samuelbasso.com
> > MSN: samuelba...@... 
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > 
> >
> 
> 
> 
> -- 
> 
> 
> 
> Igor Alexandre.
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>





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



[delphi-br] [OFF] Pedido de Retratação

2009-05-19 Por tôpico Iran Lima
  Peço desculpas por nas minhas ultimas mensagens enviadas por estarem com o
texto em caixa alta.

 Visto que alguns usuários se sentirão agredidos com isso. Alegando ser
falta de “netiqueta”, pois assim eu estaria GRITANDO.

 

 

 

Iran Lima 

 



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



RES: [delphi-br] Firebird-Unsupported on-disk structure for file

2009-05-17 Por tôpico Iran Lima
Acho que a a versão do firebird.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Antonio Perruci
Enviada em: sábado, 16 de maio de 2009 11:25
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Firebird-Unsupported on-disk structure for file

 






Bom dia !

Tenho um sistema em um cliente e fiz um sistema de backup integrado ao
sistema, quando inicializa o backup retorna a mensagem: Unsupported on-disk
structure for file C:\(path)\BancoDados.FDB; found 32779.10, support
@4...@5?.

Utilizo esse mesmo sistema e não acontece esse erro comigo.

O sistema foi desenvolvido em D7 e o Firebird é o 2.1 e estou usando o
IBBackupService.

Questões:
- Seria a versão diferente do FB no computador do cliente ?
- Se o interbase estiver instalado neste mesmo computador, conflito ?
- Erro na GDS32.dll ?

Alguém sabe o que é esse erro e como resolver ?

Obrigado

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.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] Performance FireBird

2009-05-14 Por tôpico Iran Lima
Na maioria das vezes o problema no desempenho e causado por um mau projeto
no banco, índices desnecessários e até mesmo a forma que se monta as
consultas,

Daí vem gente botando defeito no firebird dizendo que vai mudar para Oracle,
e etc. e com base de dados relativamente pequena, garanto que não fará
diferença pois

posso dizer que 90% dos problemas esta no projeto e não no SGBD.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rodinei
Enviada em: quinta-feira, 14 de maio de 2009 13:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Performance FireBird

 






Tenho clientes com bases entre 10gb e 16gb. Roda, tranquilamente.
Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com  

From: Samuel M. Basso 
Sent: Thursday, May 14, 2009 10:06 AM
To: delphi-br@yahoogrupos.com.br   
Subject: [delphi-br] Performance FireBird

Bom dia!

Gostaria de trocar umas ideias com voces a respeito da performance do
firebird com uma base de dados maior que 1 gb, ele vai bem ou o firebird nao
esta preparado ainda para isso?

Pergunto pois implantei meu sistema em um cliente maior onde cada pedido
cadastrado contem em media mais de 50 produtos por pedido e isso o firebird
nao esta aguentando. Ao abrir cada pedido desses esta tendo uma grande
demora. Entao gostaria de trocar ideias a respeito disso, se tem algo que eu
possa fazer para ele ter uma melhor performance ou o firebird tem esse
problema mesmo e para grandes aplicaçoes é melhor migrar para outra base de
dados, ex: oracle ou outra que possam me indicar.

Nessa empresa tenho servidor linux dedicado com firebird 2.1.

Té mais, abraços.

-- 
Atenciosamente,

Samuel M. Basso
Tel: (54) 3463-9114
Cel: (54) 8135-3723
E-mail: samuelba...@gmail.com  
MSN: samuelba...@gmail.com  
Web site: www.samuelbasso.com

[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]



[delphi-br] Duvida em WEBSERVICE SOAP

2009-05-07 Por tôpico Iran Lima
Olá pessoal,

 

Criei um WS para acessar o banco de dados do mas to com problema para criar 

funções no WebService que usam conexões com o banco de dados.

As querrys estão no SOAP Datamodulo, quando eu crio uma interface para as
funções a mesma não acessa o DATAMODULO, mesmo adicionando o DM em “uses”.

Já tentei criar um DM normal no WS mas Tb não funcionou.

O que faço?

 

 

 

Iran Lima da Silva
Programador

logo

Pç. Tancredo Neves, 86 - 1º Andar - Sala 105
Centro - Vitória da Conquista/BA - 45015-210
Fone: (77) 3424-7737

 



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



[delphi-br] SOAP - SOCORRO...

2009-05-03 Por tôpico Iran Lima
 

Criei um WebService com SOAP para em minha aplicação, porém gostaria de
saber como fazer para criar uma interface nessa DLL?

Alguém pode me ajudar?

E para criar funções de logon e funções que devem ser executadas no
servidor.

Iran Lima da Silva
Programador

logo

Pç. Tancredo Neves, 86 - 1º Andar - Sala 105
Centro - Vitória da Conquista/BA - 45015-210
Fone: (77) 3424-7737

 



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



[delphi-br] ARRAY OF STRING NO DELPHI 2009

2009-04-20 Por tôpico Iran Lima
Estou migrando minha aplicação de Delphi 2006 para o 2009.

Meu projeto já compila 100%, porém na execução do mesmo o seguinte erro

 

“invalid variant type conversion”

 

O erro acontence em uma função q recebe e retorna  array de String;

 

 

type

  Valores_Retorno = array of string;

 

 

Alguém pode me dar uma Ajuda??

 

Grato

 

Iran



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



RES: [delphi-br] pouco por um sistema!!!

2009-04-19 Por tôpico Iran Lima
Essa é boa, daqui a pouco ele quer que alguém faça um SO pra ele por 200
Reais.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Elazar Dornelles Ceza
Enviada em: sábado, 18 de abril de 2009 22:08
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] pouco por um sistema!!!

 






9) Sistemas operacionais custam barato porque vendem em escala para
empresas, sistemas comercias custam isto ou algumas dezenas de vezes porque
fazem com que estas mesmas empresas possam comprar sistemas operacionais...
:-) e sustentam nossa familia;

10) desculpa se ofendi em algum ponto, e desculpas novamentes pois lancei
uma afirmação infundada e sem base de embasamento para tal pois não conhecia
o modelo do seu projeto.

Atenc;
Elazar


De: jamilton oliveira felix mailto:ton600%40hotmail.com> >
Para: delphi-br@yahoogrupos.com.br  
Enviadas: Sexta-feira, 17 de Abril de 2009 17:51:09
Assunto: RE: Res: [delphi-br] Sumindo Dataset do Datasource

amigo se vc acha q 100 reais e pouco para acabar 10 a 20 % de um sisteminha
de estoque 

tudo bem um sistema operaciona e muito mais compleso e custa 300 a 400 

se tiver enterresse me mande email no jamilton_felix@ terra.com. br

To: delphi...@yahoogrup os.com.br
From: elazar...@yahoo. com.br
Date: Fri, 17 Apr 2009 13:44:53 -0700
Subject: Res: [delphi-br] Sumindo Dataset do Datasource

Opa

Tenho interesse... .mas só por 100,00...?

Atenc;
Elazar

 _ _ __
De: jamilton oliveira felix 
Para: delphi...@yahoogrup os.com.br
Enviadas: Quinta-feira, 16 de Abril de 2009 15:57:53
Assunto: RE: [delphi-br] Sumindo Dataset do Datasource

Ola amigos tem algum programador delphi ai pra rachar um projetinho com migo
esta 70% pronto mas estou meio sem tempo pra terminar posso pagar 100,00
depossito na conta .

To: delphi...@yahoogrup os.com.br
From: ton...@hotmail. com
Date: Thu, 16 Apr 2009 15:01:03 +
Subject: RE: [delphi-br] Sumindo Dataset do Datasource

OLA AMIGOS BOM DIA ESTOU COM UM PROBLEMINHA NO CONTROLE DE ESTOQUE GOSTARIA
DE COLOCAR UM FILTRO EM UM DBGRID POR DATA TEM COM O ALGEM ME AJUDAR 

To: delphi...@yahoogrup os.com.br
From: rafael.jorge@ gmail.com
Date: Thu, 16 Apr 2009 11:51:53 -0300
Subject: Re: [delphi-br] Sumindo Dataset do Datasource

isso ate hoje nao teve solução..
a minha solução pessoal foi no oncreate do form colocar os dataset nos
datasource no evento oncreate do form.

2009/4/16 Rafael Marques 

>
>
> Bom dia!!!
>
> esta acontecendo comigo aq um problema mto chato e nao consegui achar
> solucao no google!!!
>
> eu tenho em minha telas datasources q apontam pros seus respectivos
> datasets (q ficam nos datamodules) .
>
> mas acontece mto d, se eu abrir nos fontes uma determinada tela antes de
> abrir o datamodule q tem o dataset dela, some o dataset da propriedade do
> datasource da tela!!!
>
> e aí se eu n lembro de acertar, ocorre uma serie de transtornos!
>
> eu uso o Delphi 7
>
> valeu
>
> obrigado
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
 _ 
Rafael jorge alves
Desenvolvedor/ analista
Ativa Soluções em TI.
Recife - PE

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

 _ _ _ _ _ _
Messenger 2009: Instale já!
http://download. live.com

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

 _ _ _ _ _ _
Novo Windows Live: Messenger 2009 e muito mais. Descubra!
http://www.windowsl ive.com.br

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

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com

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

 _ _ _ _ _ _
Descubra seu lado desconhecido com o novo Windows Live!
http://www.windowsl ive.com.br

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

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.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] Delphi 2009

2009-04-13 Por tôpico Iran Lima
Recomendo que vc baixe a versão Trial e faça os testes com seus aplicativos
, eu ia migrar p o 2009 mas tive muitos problemas com compatibilidade
principalmente com o Tipo Char, PCHAR, PANASICHAR e outros e olha que eu ia
migrar do 2006 p/ 2009,  o 2009 agora da suporte total ao Unicode por isso
gerou esses problemas ai.

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fernando de Laurentiis
Enviada em: segunda-feira, 13 de abril de 2009 13:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Delphi 2009

 






Pessoal, boa tarde.

Aqui onde estou trabalhando, há pretensão em migrarmos para o delphi 2009.
Alguém já trabalha com ele?
Qual a opinião sobre ele?
Nós queremos aqui, a versão q gere PHP e trabalhe com WEB, é uma versão
específica q temos q comprar?
Vi q tem um CodeGear RAD Studio, q trabalha tanto com delphi qto com C++, é
esse q tenho q comprar?

Agradeço qqr ajuda nesse sentido!

Grato.





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



RES: [delphi-br] OFF - GoGlobal

2009-04-11 Por tôpico Iran Lima
Cara testei aqui e não gostei, não vi nada de WEB nele e ainda, deu trabalho
para a aplicação encontrar o Banco Firebird, na verdade ele e tipo um
programa de acesso remoto q só permite abrir os programas liberados. Prefiro
Usar WebServices.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gildenor Teixeira
Enviada em: quinta-feira, 9 de abril de 2009 22:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] OFF - GoGlobal

 






Caros Colegas,

Gostaria de saber a opiniao de voces sobre o goglobal.

Obrigado,

--
Gildenor Teixeira

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





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