Re: [delphi-br] mysql e delphi

[Alexandre Rodrigues]

Amigo, eu sugiro a troca do servidor.

O meu servidor permite acesso remoto ao banco e outra não possui timout 
na conexão, que uma coisa importante se vc mantém a conexão com o banco 
de dados ativa por todo o processo.

Eu já troquei de provedor e a experiência não foi nenhum pouco traumática.

berdam escreveu:
> 
> 
> Galera, estou com uma questão cabrera aqui.
> 
> Eu pago um servidor na web para hospedagem com mysql, e eles não liberam
> as portas para conexão com minha aplicação delphi.
> 
> Pela página da aplicação web que acessa o mysql eu conseigo acessar o
> banco de dados, existe alguma possibilidade de eu emular uma abertura de
> página com delphi e conseguir conectar nesse banco mysql ??? pois
> diretamente da minha máquina até o servidor eu n tenho acesso???
> 
> -- 
> -
> Uberdam Cavaletti
> Formado em Tecnologia da informação - Unoesc - Xxe
> Pós graduando em Desenvolvimento Java - Unoesc - Xxe
> 
> Acesse http://www.curricular.com.br/berdam 
> 
> Acesse http://passandoveneno.blogspot.com 
> 
> 
> -
> 
> 
__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

Re: [delphi-br] mysql e delphi

[Eduardo Silva dos Santos]

Só para complementar... acessar o banco em um servidor web já é lento,
atravez de HTTP vai ser mais lento ainda..

veja se nao acha outro provedor que permita conexão direta, o desempenho vai
ser melhor.

Em 17/04/08, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
> Vc precisa fazer isso aqui:
>
> "HTTP Tunneling is a method for connecting to a MySQL server that uses the
> same protocol (http://) and the same port (port 80) as a webserver does.
> It is used while your ISPs do not allow direct connections to their MySQL
> server, but allows establishing HTTP connections. "
>
> mas não vai ser uma tarefa fácil, visto que os principais componentes de
> acesso ao MySQL não tem esse recurso.
>
> Em 17/04/08, berdam <[EMAIL PROTECTED]> escreveu:
> >
> >   Galera, estou com uma questão cabrera aqui.
> >
> > Eu pago um servidor na web para hospedagem com mysql, e eles não liberam
> > as portas para conexão com minha aplicação delphi.
> >
> > Pela página da aplicação web que acessa o mysql eu conseigo acessar o
> > banco de dados, existe alguma possibilidade de eu emular uma abertura de
> > página com delphi e conseguir conectar nesse banco mysql ??? pois
> > diretamente da minha máquina até o servidor eu n tenho acesso???
> >
> > --
> > -
> > Uberdam Cavaletti
> > Formado em Tecnologia da informação - Unoesc - Xxe
> > Pós graduando em Desenvolvimento Java - Unoesc - Xxe
> >
> > Acesse http://www.curricular.com.br/berdam
> > Acesse http://passandoveneno.blogspot.com
> >
> > -
> >
> >  
> >
>
>
>
> --
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED]
> Site: http://www.drdsistemas.com/
> ...




-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

Re: [delphi-br] mysql e delphi

[Eduardo Silva dos Santos]

Vc precisa fazer isso aqui:

"HTTP Tunneling is a method for connecting to a MySQL server that uses the
same protocol (http://) and the same port (port 80) as a webserver does. It
is used while your ISPs do not allow direct connections to their MySQL
server, but allows establishing HTTP connections. "

mas não vai ser uma tarefa fácil, visto que os principais componentes de
acesso ao MySQL não tem esse recurso.

Em 17/04/08, berdam <[EMAIL PROTECTED]> escreveu:
>
>   Galera, estou com uma questão cabrera aqui.
>
> Eu pago um servidor na web para hospedagem com mysql, e eles não liberam
> as portas para conexão com minha aplicação delphi.
>
> Pela página da aplicação web que acessa o mysql eu conseigo acessar o
> banco de dados, existe alguma possibilidade de eu emular uma abertura de
> página com delphi e conseguir conectar nesse banco mysql ??? pois
> diretamente da minha máquina até o servidor eu n tenho acesso???
>
> --
> -
> Uberdam Cavaletti
> Formado em Tecnologia da informação - Unoesc - Xxe
> Pós graduando em Desenvolvimento Java - Unoesc - Xxe
>
> Acesse http://www.curricular.com.br/berdam
> Acesse http://passandoveneno.blogspot.com
>
> -
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

[delphi-br] mysql e delphi

[berdam]

Galera, estou com uma questão cabrera aqui.

Eu pago um servidor na web para hospedagem com mysql, e eles não liberam
as portas para conexão com minha aplicação delphi.

Pela página da aplicação web que acessa o mysql eu conseigo acessar o
banco de dados, existe alguma possibilidade de eu emular uma abertura de
página com delphi e conseguir conectar nesse banco mysql ??? pois
diretamente da minha máquina até o servidor eu n tenho acesso???

-- 
-
Uberdam Cavaletti
Formado em Tecnologia da informação - Unoesc - Xxe
Pós graduando em Desenvolvimento Java - Unoesc - Xxe

Acesse  http://www.curricular.com.br/berdam
Acesse  http://passandoveneno.blogspot.com

-

Re: [delphi-br] Opinião sobre tipo de conexão

[Eduardo Silva dos Santos]

Olha a CoreLab ta pra lançar a versão final do Unidac no dia 23 de Abril, o
bom dele é que acessa um monte de Banco,
o IBDAC só acesso o FireBird/Interbase/Yafill

os 2 são ótimos, valem o investimento.

http://www.crlab.com/ibdac

http://crlab.com/unidac

http://crlab.com/forums/

baixe o trial e faça um teste.

Em 16/04/08, Eduardo Suruagy <[EMAIL PROTECTED]> escreveu:
>
>   Obrigado pela resposta Eduardo, qual desses ai vc me indicaria?? o IBDAC
> ou
> o UNIDAC e onde posso encontra-los???
>
> Eu tenho aplicações feitas em D7 + DbExpress + ClienteDataSet + Firebird
> 1.5
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

Re: [delphi-br] Erro ao carregar o datamodule

[Jose Eduardo Victorino]

Estou lhe enviando os fontes,, o bco de dados eh imenso,, se queres,,e so avisar
Meus amigos estao me forçando a usar o mdac, mas nao quero encher de objetos e 
quero fazer o codigo mais enxuto,,

abraços
Ps. obrigado por responder,


Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu: 
Como vc montou a estrutura de conexão ? 
 
 O erro 'SQLConnection property required for this operation' acontece pois 
algum componente precisa de uma referência ao SQLConnection para poder se 
comunidar com o BD
 
 Atte,
 Ricardo.
 
 Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu:   
  
  
  Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:   
  Boa tarde!
   
   1) Qual é o erro que aparece?
   
   2) Experimente ler e praticar com alguma apostila de Delphi. ;)
   
   Atte,
   Ricardo.
   
   Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu: 
Fica parado aqui e ,,
  Application.CreateForm(TDataModule1, DataModule1);

o que faço agora

sou muito novato,, 

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



_
   
   -
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
   
   [As partes desta mensagem que não continham texto foram removidas]
   
   
   
 
  
  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
  
  [As partes desta mensagem que não continham texto foram removidas]
  
 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Opinião sobre tipo de conexão

[Eduardo Suruagy]

Obrigado pela resposta Eduardo, qual desses ai vc me indicaria?? o IBDAC ou
o UNIDAC e onde posso encontra-los???

Eu tenho aplicações feitas em D7 + DbExpress + ClienteDataSet + Firebird 1.5


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

Re: [delphi-br] Capturar texto ... urgente socorro...

[marcosdiirr]

Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 192.168.254.* e 
ai como fica esta linha abaixo
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;

so para lembrar da linha 
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254.101 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?

Cara Valeu mesmo por sua ajuda.

Marcos Diirr



var
list: TStringList;
i : integer;
// declara as outra variaveis
begin
list := TStringList.Create;
list.LoadFromFile( 'C:\meuarquivo.log');
for i := 0 to list.count - 1 do
begin
// executa a captura dos dados
// Grava no arquivo
end;
// Quando ele sair do loop, acabou o arquivo!
end;
>
> Valeu Paulo prob. quase resolvido.
> agora preciso percorer o aquivo txt ate o final gravando cada campo em 
> um banco de dados como posso fazer isto e o sistema me avisar que ja 
> compretou chegou a ultima linha ?
>
> Atenciosamente
> Marcos Diirr
>
> Bom dia...
>
> 1) Fiz de cabeça!
> 2) Não testei!
> 3) Os ajuste é com você!
> 4) Okay ?
>
> s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
> ip := copy(s, 1, pos( ' ', s)-1);
> s := copy(s,pos(' GET',s)+3, maxint);
> url := copy(s, 1, pos( '- DIRECT', s)-1);
> s := copy(s,pos(' in ',s)+4,maxint) ;
> data := copy(s, 1, pos( ' ', s)-1);
> Hora := copy(s,pos(' ',s)+1,8);
>
> Boa sorte
> >
> > ex. tenho um arquivo txt conforme abaixo
> >
> > web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
> > GET http://go.microsoft .com/fwlink/ ?
> >  > - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.71 from 10.5.50.1
> > web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
> > GET http://go.microsoft .com/fwlink/ ?
> >  > - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.72 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.304 962 10.5.50.2
> > TCP_CLIENT_REFRESH_ MISS/304 171 GET
> > http://www.microsof t.com/brasil/ technet/rss/ rss.xml
> >  > -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
> > GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
> >  > -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> >
> > preciso pegar os seguintes campos e salva-los em uma tabela ficando +
> > ou - assim
> >
> > ex. 1 linha do arquivo acima
> >
> > campo ip campo - 10.5.50.2
> > ur - http://go.microsoft .com/fwlink/ ?  .com/fwlink/ ? >
> > Campo data - 26-Mar
> > Campo hora - 17:13:3.71
> >
> > e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
> > faça isto ?
> >
> > ja me falaram "pos" "copy" so que reparem que nada começa numa mesma
> > posição
> >
> > mas preciso de ex. mais basico
> >
> > Desde ja fico muito grato com qualquer ajuda.
>


 


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

[delphi-br] Ajuda Report Builder.. Criar DetailBand em tempo de exec ução

[Adriano de Oliveira]

Olá pessoal.

Preciso fazer um relatório em que aconteça o seguite:

A folha tem que ser preenchida com linhas.. como se fosse uma folha pautada até 
o final da folha.
Independente da quantidade de registros que seja impresso na folha...

Um exemplo pra ficar mais fácil de explicar...
Supondo que a query traga 3 registros:
Codigo   Nome

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

[delphi-br] Re: DBGrid.OnDrawColumnCell: como desenhar linha ativa

[Ricardo Bianchin]

Obrigado Douglas, gostei do texto.

Mas veja esta situacao:

tenho um dataset com 10 registros e 4 colunas

o indicator está no terceiro registro e tenho q desenhar o datacol=3.

minha duvida é como saber se a celula q esta sendo desenhada está num
registro qualquer ou no terceiro registro.

outra coisa q tentei hoje e falhou: o state da celula vem só se for a
celula onde está o cursor. nas visinhas da mesma linha o state vem normal.

[delphi-br] [Correto] Ajuda Report Builder.. Criar DetailBand em t empo de execução (Desconsiderem o anterior)

[Adriano de Oliveira]

Olá pessoal.

Preciso fazer um relatório em que aconteça o seguite:

A folha tem que ser preenchida com linhas.. como se fosse uma folha pautada até 
o final da folha.
Independente da quantidade de registros que seja impresso na folha...

Um exemplo pra ficar mais fácil de explicar...
Supondo que a query traga 3 registros:
Codigo   Nome
0001  Nome 1
0002  Nome 2
0003  Nome 3

a folha terá que ser impressa com as tres linhas.. e abaixo delas terá que ser 
preenchida com linhas assim:

_
_
_
_
_
_

até o final da página... 
Alguém já fez algo parecido no Report Builder que possa me dar uma luz ?

Valeu
Adriano

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

[delphi-br] [EMAIL PROTECTED]

[cvsandrap]

gostaria de sair deste grupo
obrigada
sandra

[delphi-br] Impressao de um arquivo Rich Text..

[Doretto]

Boa tarde !!!

Uso o delphi5 e não estou conseguindo imprimir um arquivo Rich Text 
Justificado. Para Impressão eu uso do Qreport o componente
QrRichText

Alguém tem alguma solução ?

Doretto.

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

[delphi-br] Mestre x Detalhe x Detalhe

[Odail Della Niesi Junior]

Pessoal,

Tenho uma tabela de Cliente, Saida e ItemSaida, os relacionamentos estão 
funcionando perfeitamente: Exemplo:
São listadas as saídas de um determinado cliente e os itens da saída em 
questão.
Estou utilizando um trio de componentes (SQLDataSet, Provider, 
ClientDataSet), o mestre detalhe esta sendo feito com um DataSource 
apontando para  SQLDataSet  pai,  e  ligando-se a propriedade 
DataSetField do ClienteDataSet ao campo gerado.

Consigo apagar o registro da tabela ItemSaida, mais qdo vou aplicar 
(ApplyUpdates), a seguinte mensagem de erro é retornada:
---
Debugger Exception Notification
---
Project FarmaDelItens.exe raised exception class EDatabaseError with 
message 'Table unknown
item_saida
At line 2, column 1
'. Process stopped. Use Step or Run to continue.
---
OK   Help  
---

Certo de poder contar com atenção de todos, agradeço antecipadamente.

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Oi Felipe,

infelizmente nao rolou...mas valeu assim mesmo.

-- 

Atenciosamente,
--
Sérgio Cavalcante

Em 16/04/08, felipe govoni <[EMAIL PROTECTED]> escreveu:
>
>   eu ja passei por esse erro tambem
>
> voce precisa mudar duas coisas no conector:
>
> nas propriedades da fonte, na guia advanced clica nas duas primeiras
> opções (dont optimize column width e return matching rolls)
>
> se nao me expressei bem me avisa
>
> Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED] >
> escreveu:
> >
> > Oi Eduardo,
> >
> > Delphi 6 , build 6240, Update 2.
> > Esse ADO é um que eu instalei somente os dcus, que foram
> disponibilizados
> > pela empresa.
> > Acho que deve ser herdado dos do Delphi.
> >
> > Agradeço imensamente...
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> >
> > Em 16/04/08, Eduardo Silva dos Santos <[EMAIL 
> > PROTECTED]
> >
> > escreveu:
> > >
> > > Blz Sérgio, vou testar, só um detalhe, qual a versão do seu Delphi? o
> > > componente ADO é aquele do próprio Delphi?
> > >
> > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
>  > 40gmail.com>>
> > > escreveu:
> > > >
> > > > Oi Eduardo
> > > >
> >
> > > > MySQL - 5.0.21
> > > > ODBC -3.51.19
> > > > O nome do componente é TADOQuery.
> > > >
> > > > Atenciosamente,
> > > > --
> > > > Sérgio Cavalcante
> > > >
> > > > Em 16/04/08, Eduardo Silva dos Santos <[EMAIL 
> > > > PROTECTED]
> 
> > 
> > > >
> > > > escreveu:
> > > > >
> > > > > Me diga a versão exata do MySQL, do MyODBC e o nome desse
> > componente,
> > > > > pra eu
> > > > > fazer uns testes aqui.
> > > > >
> > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > PROTECTED]
> 
> > 
> > >  > > > 40gmail.com>>
> > > > > escreveu:
> > > > > >
> > > > > > Oi Eduardo,
> > > > > >
> > > > > > O mais estranho eh que o ODBC roda direitinho!
> > > > > > E o componente nao eh exatamente um ADO, é um descendente, e
> > > fechado,
> > > > > > que jah estava no sistema. que bosta.
> > > > > >
> > > > > > Atenciosamente,
> > > > > > --
> > > > > > Sérgio Cavalcante
> > > > > >
> > > > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > > >:
> > > > > >
> > > > > > > Blz, sérgio, provalmente isso é problema no MyODBC, instala o
> > mais
> > > > > novo
> > > > > > > que
> > > > > > > deve resolver..
> > > > > > >
> > > > > > > quanto a migração o MyDAC tem um Wizard que faz essa mundança
> > > > > rapadinho
> > > > > > > ADO
> > > > > > > > MyDAC, mas sabemos que nenhuma migração é tão simples assim,
> > > > hehehe
> > > > > > >
> > > > > > > sucesso ae
> > > > > > >
> > > > > > >
> > > > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > >  > > > > > 40gmail.com>>
> > > > > > > escreveu:
> > > > > > > >
> > > > > > > > Oi Eduardo,
> > > > > > > >
> > > > > > > > Obrigado por responder.
> > > > > > > >
> > > > > > > > Infelizmente pegamos o sistema já pronto. E como a
> homologação
> > > tá
> > > > > > muito
> > > > > > > > perto,
> > > > > > > > não dá pra mudar mais...
> > > > > > > >
> > > > > > > > Atenciosamente,
> > > > > > > > --
> > > > > > > > Sérgio Cavalcante
> > > > > > > >
> > > > > > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > > 
> > > > > > > 
> > > > > > > > >:
> > > > > > > >
> > > > > > > > > Acessar MySQL via ADO que por sua vez usa ODBC é fria,
> > > verifique
> > > > a
> > > > > > > > > versão do
> > > > > > > > > Driver ODBC para MySQL e assim que possível
> > > > > > > > > migre para algum componente de acesso Nativo, Zeos é um
> bom
> > > > > exemplo
> > > > > > de
> > > > > > > > > componente free e MyDAC é o Melhor mais é pago.
> > > > > > > > > vc vai notar a diferença no desempenho.
> > > > > > > > >
> > > > > > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > > 
> > > > > > >  > > > > > > > 40gmail.com>>
> > > > > > > > > escreveu:
> > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Mais algumas informações acerca do erro.
> > > > > > > > > > Ele só dá na minha máquina que está fora do domínio, e
> > > somente
> > > > > em
> > > > > > > > > algumas
> > > > > > > > > > tabelas.
> > > > > > > > > > Então mesmo fora do domínio, várias queries dão certo.
> > > Outras,
> > > > > > > > retornam
> > > > > > > > > o
> > > > > > > > > > erro mencionado.
> > > > > > > > > >
> > > > > > > > > > Atenciosamente,
> > > > > > > > > > --
> > > > > > > > > > Sérgio Cavalcante
> > > > > > > > > >
> > > > > > > > > > 2008/4/16 sergio cavalcante <[EMAIL 
> > > > > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > >  > > > > > > 40gmail.com> > > > > >
> > > > > > > > 40gmail.com> > > > > > >
> > > > > > > > > 40gmail.com>>:
> > > > > > > > >

Re: [delphi-br] Re: iGotDisk e iGotPC

[Sergio Eurico]

Ok, muito obrigado Valfrid-Ly

-- Sergio Eurico.


Em 16/04/08, Valfrid-Ly Silva Couto <[EMAIL PROTECTED]> escreveu:
>
>   Sérgio,
>
> Eu baixei aqui e tenho o Vista em casa!!
>
> A noite eu testo!!
>
> Abraços
>
> Sergio Eurico <[EMAIL PROTECTED] > escreveu: Alguem
> poderia testar no Windows Vista e postar o resultado?
> Obrigado.
>
> 2008/4/15, Sergio Eurico :
> >
> > Olá,
> >
> > Estou criando uma nova versao, mais completa, do "iGot Disk" (
> > http://igot.com.br/igotdisk/iGotDisk.exe ), que chamo de "iGot PC". Esta
> > versao tambem informará os dados do Pendrive e midias externas
> (inclusive
> > pretendo usar no meu outro projeto pessoal, "iGot iPhone" ) ;-)
> >
> > Ainda nao tive sucesso obtendo o serial "fisico" do pendrive, mas ja
> tenho
> > modelo, fabricante e outras infos...
> >
> > Se alguem quiser testar, esta disponivel em
> > http://igot.com.br/igotdisk/iGotPC.exe (419kb). Feedbacks sao sempre
> muito
> > bem vindos.
> >
> > -- Sergio Eurico.
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


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

Re: [delphi-br] Cadastro operação

[Alexandre Nicolas]

Isso mesmo,

há 2 maneiras de obter o conteúdo de um campo de uma query:

qBuscaCodigo.asstring   >> neste caso só funciona caso você tenha adicionado os 
campos resultandos da consulta no Fields Editor (botão direito sobre a query)

ou

qBusca.FieldByName( 'Codigo' ).AsString

[]s

Alexandre


  - Original Message - 
  From: Eduardo Oliveira silva 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, April 16, 2008 2:01 PM
  Subject: Re: [delphi-br] Cadastro operação


  Beleza Alexande , valeu mesmo.
  Tenho só uma pequena dúvida no código
  Edit1.Text := qBuscaCodigo.AsString

  o Codigo é o nome no banco de dados?
  ou não necessariamente.

  Em 15/04/08, Alexandre Nicolas <[EMAIL PROTECTED]> escreveu:
  >
  > vamos lá, supondo que o nome do query seja "qBusca" e que você já tenha
  > adicionado
  > no Fields Editor os campos resultantes da pesquisa:
  >
  > .
  > .
  > .
  > qBusca.Open;
  >
  > Edit1.Text := qBuscaCodigo.AsString; //caso seja numérico será convertido
  > para string
  > Edit2.Text := qBuscaNome.AsString;
  > Edit3.Text := qBuscaEndereco.AsString;
  > Edit4.Text := qBuscaCredito.DisplayText; // caso vc tenha colocado a
  > máscara ",0.00" na prop. "DisplayFormat" deste campo no "Fields Editor"
  > Edit5.Text := qBuscaEmprestimos.DisplayText; // caso vc tenha colocado a
  > máscara ",0.00" na prop. "DisplayFormat" deste campo no "Fields Editor"
  >
  > []s
  >
  > Alexandre Nicolas
  >
  > - Original Message -
  > From: Eduardo Oliveira silva
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Tuesday, April 15, 2008 4:27 PM
  > Subject: Re: [delphi-br] Cadastro operação
  >
  > beleza, é isso mesmo, mais como eu faço para mostra isso em um formulário
  > em um edit por exemplo.
  >
  > é outra dúvida que tenho, nos formulários de cadastro vai ter um botão de
  > pesquisa
  > viz os formularios mais não sei alimentar os edits com os campos da query.
  > pode me ajudar.
  >
  > Em 15/04/08, Alexandre Nicolas <[EMAIL 
PROTECTED]>
  > escreveu:
  > >
  > > Bom, vejamos se entendi:
  > >
  > > você terá uma tabela COOPERATIVA e uma tabela EMPRESTIMOS, a ligação
  > entre
  > > as tabelas é o código da cooperativa.
  > >
  > > você poderá ter um query, trazendo os dados da cooperativa e a soma de
  > > todos os empréstimos feitos para ela.
  > >
  > > entao o SQL de sua query ficaria assim:
  > >
  > > Select c.Codigo, c.Nome, c.Endereco, c.Credito , sum(e.ValorEmprestimo)
  > as
  > > SomaEmprestimos
  > > From COOPERATIVA c
  > > Left Join EMPRESTIMOS e on c.Codigo = e.CodigoCooperativa
  > > Where c.Codigo = :CodigoCooperativa
  > > Group by c.Codigo, c.Nome, c.Endereco, c.Credito
  > >
  > > a partir desse exemplo você pode aprimorar esse SQL conforme sua
  > > necessidade.
  > >
  > > []s
  > >
  > > Alexandre Nicolas
  > >
  > > - Original Message -
  > > From: Eduardo Oliveira silva
  > > To: delphi-br@yahoogrupos.com.br 
 40yahoogrupos.com.br>
  > > Sent: Tuesday, April 15, 2008 10:34 AM
  > > Subject: [delphi-br] Cadastro operação
  > >
  > > Alguém pode me socorre.
  > >
  > > Pessoal estou com um problema, tenho que mostrar um protótipo de
  > > trabalho da faculdade na quinta feira e estou com algumas dificuldade
  > > em alguns pontos.
  > >
  > > 1- tenho que cadastrar uma operação de credito onde em um formulário
  > > vou trazer campos de um cooperativa(nome,endereço,crédito), porém os
  > > campo não estão em uma só tabela, Ex. tenho que fazer o calculo se a
  > > cooperativa já pegou algum empréstimo e mostra o valor total na tela.
  > > para fazer isso tudo tenho que passar para pesquisa só o número da
  > > cooperativa e é o único dado que vai persistir em outra tabela, alguém
  > > pode me ajudar
  > >
  > > [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]
  >
  > 
  >

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



   

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

Re: [delphi-br] String X pChar

[Vinicius Santos - MSI]

Retirado do DTDelphi 2.8

{ - Coloque um Label no form (Label1);

  - Mude a propriedade KeyPreview do form para true;

  - Altere o evento OnKeyDown do form como abaixo: }

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption :=
  Format('O código da tecla pressionada é: %d', [Key]);
end;
Observações

Para testar execute e observe o Label enquanto pressiona as teclas desejadas. 

Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181  www.msisolucoes.com.br

  - Original Message - 
  From: Adjalma Costa 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, April 16, 2008 3:36 PM
  Subject: [delphi-br] String X pChar


  Caros,

  Estou tentando retornar o código ASCII de uma letra:

  wPrimLetra := 'A';

  ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );

  Mas dá o seguinte erro:

  [Error] UnitCadPlacas.pas(742): E2008 Incompatible types.

  Alguém poderia me ajudar?

  sds
  Adjalma



  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   

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

RE: [delphi-br] String X pChar

[Adjalma Costa]

Pôxa, é isso mesmo amigo...
   
  Obrigado!
   
  sds
  Adjalma

Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
  
Meu caro, vc está muito equivocado. Não tem sentido algum fazer esse typecast 
pra PChar. PChar é um tipo de ponteiro, e por esse motivo que vc está tendo o 
erro 'Incompatible types'. Faça assim:

1) Se wPrimLetra é do tipo Char, faça simplesmente assim:
ShowMessage(Format('%d', [Ord(wPrimLetra)]));

2) Se wPrimLetra é do tipo String, faça simplesmente assim:
ShowMessage(Format('%d', [Ord(wPrimLetra[1])]));

De onde vc tirou a idéia de que precisava de PChar?
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 16 Apr 2008 15:36:07 -0300
Subject: [delphi-br] String X pChar

Caros,

Estou tentando retornar o código ASCII de uma letra:

wPrimLetra := 'A';

ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );

Mas dá o seguinte erro:

[Error] UnitCadPlacas.pas(742): E2008 Incompatible types.

Alguém poderia me ajudar?

sds
Adjalma

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!

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

__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[felipe govoni]

eu ja passei por esse erro tambem

voce precisa mudar duas coisas no conector:

nas propriedades da fonte, na guia advanced clica nas duas primeiras
opções (dont optimize column width e return matching rolls)

se nao me expressei bem me avisa



Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]> escreveu:
>
>   Oi Eduardo,
>
> Delphi 6 , build 6240, Update 2.
> Esse ADO é um que eu instalei somente os dcus, que foram disponibilizados
> pela empresa.
> Acho que deve ser herdado dos do Delphi.
>
> Agradeço imensamente...
>
> Atenciosamente,
> --
> Sérgio Cavalcante
>
> Em 16/04/08, Eduardo Silva dos Santos <[EMAIL 
> PROTECTED]>
> escreveu:
> >
> > Blz Sérgio, vou testar, só um detalhe, qual a versão do seu Delphi? o
> > componente ADO é aquele do próprio Delphi?
> >
> > Em 16/04/08, sergio cavalcante <[EMAIL 
> > PROTECTED] 40gmail.com>>
> > escreveu:
> > >
> > > Oi Eduardo
> > >
>
> > > MySQL - 5.0.21
> > > ODBC -3.51.19
> > > O nome do componente é TADOQuery.
> > >
> > > Atenciosamente,
> > > --
> > > Sérgio Cavalcante
> > >
> > > Em 16/04/08, Eduardo Silva dos Santos <[EMAIL 
> > > PROTECTED]
> 
> > >
> > > escreveu:
> > > >
> > > > Me diga a versão exata do MySQL, do MyODBC e o nome desse
> componente,
> > > > pra eu
> > > > fazer uns testes aqui.
> > > >
> > > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
> 
> >  > > 40gmail.com>>
> > > > escreveu:
> > > > >
> > > > > Oi Eduardo,
> > > > >
> > > > > O mais estranho eh que o ODBC roda direitinho!
> > > > > E o componente nao eh exatamente um ADO, é um descendente, e
> > fechado,
> > > > > que jah estava no sistema. que bosta.
> > > > >
> > > > > Atenciosamente,
> > > > > --
> > > > > Sérgio Cavalcante
> > > > >
> > > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > >:
> > > > >
> > > > > > Blz, sérgio, provalmente isso é problema no MyODBC, instala o
> mais
> > > > novo
> > > > > > que
> > > > > > deve resolver..
> > > > > >
> > > > > > quanto a migração o MyDAC tem um Wizard que faz essa mundança
> > > > rapadinho
> > > > > > ADO
> > > > > > > MyDAC, mas sabemos que nenhuma migração é tão simples assim,
> > > hehehe
> > > > > >
> > > > > > sucesso ae
> > > > > >
> > > > > >
> > > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > > PROTECTED]
> 
> > 
> > > 
> > > >  > > > > 40gmail.com>>
> > > > > > escreveu:
> > > > > > >
> > > > > > > Oi Eduardo,
> > > > > > >
> > > > > > > Obrigado por responder.
> > > > > > >
> > > > > > > Infelizmente pegamos o sistema já pronto. E como a homologação
> > tá
> > > > > muito
> > > > > > > perto,
> > > > > > > não dá pra mudar mais...
> > > > > > >
> > > > > > > Atenciosamente,
> > > > > > > --
> > > > > > > Sérgio Cavalcante
> > > > > > >
> > > > > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > > 
> > > > > > > >:
> > > > > > >
> > > > > > > > Acessar MySQL via ADO que por sua vez usa ODBC é fria,
> > verifique
> > > a
> > > > > > > > versão do
> > > > > > > > Driver ODBC para MySQL e assim que possível
> > > > > > > > migre para algum componente de acesso Nativo, Zeos é um bom
> > > > exemplo
> > > > > de
> > > > > > > > componente free e MyDAC é o Melhor mais é pago.
> > > > > > > > vc vai notar a diferença no desempenho.
> > > > > > > >
> > > > > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > >  > > > > > > 40gmail.com>>
> > > > > > > > escreveu:
> > > > > > > >
> > > > > > > > >
> > > > > > > > > Mais algumas informações acerca do erro.
> > > > > > > > > Ele só dá na minha máquina que está fora do domínio, e
> > somente
> > > > em
> > > > > > > > algumas
> > > > > > > > > tabelas.
> > > > > > > > > Então mesmo fora do domínio, várias queries dão certo.
> > Outras,
> > > > > > > retornam
> > > > > > > > o
> > > > > > > > > erro mencionado.
> > > > > > > > >
> > > > > > > > > Atenciosamente,
> > > > > > > > > --
> > > > > > > > > Sérgio Cavalcante
> > > > > > > > >
> > > > > > > > > 2008/4/16 sergio cavalcante <[EMAIL 
> > > > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > >  > > > > > 40gmail.com> > > > >
> > > > > > > 40gmail.com> > > > > >
> > > > > > > > 40gmail.com>>:
> > > > > > > > >
> > > > > > > > > > Pessoal,
> > > > > > > > > >
> > > > > > > > > > Está acontecendo um erro muito esquisito no meu
> ambiente.
> > > > > > > > > >
> > > > > > > > > > IDE : Delphi 6
> > > > > > > > > > DataWare : AdoComponents
> > > > > > > > > > Banco de Dados : MySQL 5
> > > > > > > > > >
> > > > > > > > > > Um Select simples:
> > > > > > > > > >
> > > > > > > > > > Select * from pes_pessoa Where CodPes =1
> > > > > > > > > >
> > > > > > > > > > Dá o seguinte erro:
> > > > > > > > > > "a operação de várias etapas gerou erros. verifique cada
> > > valor
> > > > > de
> > > > > > 

Re: [delphi-br] String X pChar

[Paulo Casagrande]

wPrimLetra := 'A';

ShowMessage( IntToStr( Ord( wPrimLetra )) );

> Caros,
>
> Estou tentando retornar o código ASCII de uma letra:
>
> wPrimLetra := 'A';
>
> ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );
>
> Mas dá o seguinte erro:
>
> [Error] UnitCadPlacas. pas(742): E2008 Incompatible types.
>
> Alguém poderia me ajudar?
>
> sds
> Adjalma
>

RE: [delphi-br] String X pChar

[Rubem Nascimento da Rocha]

Aproveitando pra complementar minha resposta, a função Ord() funciona somente 
para tipos de dados ordinais. Pra quem não sabe o que são tipos de dados 
ordinais, são todos os tipos que dados que podem representar ordens. Neste rol 
incluem-se os tipos integer, character, Boolean, tipos de dados enumerados, e 
tipos de subrange.

Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 16 Apr 2008 18:42:57 +
Subject: RE: [delphi-br] String X pChar


Meu caro, vc está muito equivocado. Não tem sentido algum fazer esse typecast 
pra PChar. PChar é um tipo de ponteiro, e por esse motivo que vc está tendo o 
erro 'Incompatible types'. Faça assim:

1) Se wPrimLetra é do tipo Char, faça simplesmente assim:
ShowMessage(Format('%d', [Ord(wPrimLetra)]));

2) Se wPrimLetra é do tipo String, faça simplesmente assim:
ShowMessage(Format('%d', [Ord(wPrimLetra[1])]));

De onde vc tirou a idéia de que precisava de PChar?
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 16 Apr 2008 15:36:07 -0300
Subject: [delphi-br] String X pChar

Caros,

Estou tentando retornar o código ASCII de uma letra:

wPrimLetra := 'A';

ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );

Mas dá o seguinte erro:

[Error] UnitCadPlacas.pas(742): E2008 Incompatible types.

Alguém poderia me ajudar?

sds
Adjalma

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!

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

__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br








_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Oi Eduardo,

Delphi 6 , build 6240, Update 2.
Esse ADO é um que eu instalei somente os dcus, que foram disponibilizados
pela empresa.
Acho que deve ser herdado dos do Delphi.

Agradeço imensamente...

Atenciosamente,
--
Sérgio Cavalcante

Em 16/04/08, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
>   Blz Sérgio, vou testar, só um detalhe, qual a versão do seu Delphi? o
> componente ADO é aquele do próprio Delphi?
>
> Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED] >
> escreveu:
> >
> > Oi Eduardo
> >
> > MySQL - 5.0.21
> > ODBC -3.51.19
> > O nome do componente é TADOQuery.
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> >
> > Em 16/04/08, Eduardo Silva dos Santos <[EMAIL 
> > PROTECTED]
> >
> > escreveu:
> > >
> > > Me diga a versão exata do MySQL, do MyODBC e o nome desse componente,
> > > pra eu
> > > fazer uns testes aqui.
> > >
> > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
>  > 40gmail.com>>
> > > escreveu:
> > > >
> > > > Oi Eduardo,
> > > >
> > > > O mais estranho eh que o ODBC roda direitinho!
> > > > E o componente nao eh exatamente um ADO, é um descendente, e
> fechado,
> > > > que jah estava no sistema. que bosta.
> > > >
> > > > Atenciosamente,
> > > > --
> > > > Sérgio Cavalcante
> > > >
> > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > PROTECTED]
> 
> > 
> > > 
> > > > >:
> > > >
> > > > > Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais
> > > novo
> > > > > que
> > > > > deve resolver..
> > > > >
> > > > > quanto a migração o MyDAC tem um Wizard que faz essa mundança
> > > rapadinho
> > > > > ADO
> > > > > > MyDAC, mas sabemos que nenhuma migração é tão simples assim,
> > hehehe
> > > > >
> > > > > sucesso ae
> > > > >
> > > > >
> > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > PROTECTED]
> 
> > 
> > >  > > > 40gmail.com>>
> > > > > escreveu:
> > > > > >
> > > > > > Oi Eduardo,
> > > > > >
> > > > > > Obrigado por responder.
> > > > > >
> > > > > > Infelizmente pegamos o sistema já pronto. E como a homologação
> tá
> > > > muito
> > > > > > perto,
> > > > > > não dá pra mudar mais...
> > > > > >
> > > > > > Atenciosamente,
> > > > > > --
> > > > > > Sérgio Cavalcante
> > > > > >
> > > > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > 
> > > > > > >:
> > > > > >
> > > > > > > Acessar MySQL via ADO que por sua vez usa ODBC é fria,
> verifique
> > a
> > > > > > > versão do
> > > > > > > Driver ODBC para MySQL e assim que possível
> > > > > > > migre para algum componente de acesso Nativo, Zeos é um bom
> > > exemplo
> > > > de
> > > > > > > componente free e MyDAC é o Melhor mais é pago.
> > > > > > > vc vai notar a diferença no desempenho.
> > > > > > >
> > > > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > >  > > > > > 40gmail.com>>
> > > > > > > escreveu:
> > > > > > >
> > > > > > > >
> > > > > > > > Mais algumas informações acerca do erro.
> > > > > > > > Ele só dá na minha máquina que está fora do domínio, e
> somente
> > > em
> > > > > > > algumas
> > > > > > > > tabelas.
> > > > > > > > Então mesmo fora do domínio, várias queries dão certo.
> Outras,
> > > > > > retornam
> > > > > > > o
> > > > > > > > erro mencionado.
> > > > > > > >
> > > > > > > > Atenciosamente,
> > > > > > > > --
> > > > > > > > Sérgio Cavalcante
> > > > > > > >
> > > > > > > > 2008/4/16 sergio cavalcante <[EMAIL 
> > > > > > > > PROTECTED]
> 
> > 
> > > 
> > > >  > > > > 40gmail.com> > > >
> > > > > > 40gmail.com> > > > >
> > > > > > > 40gmail.com>>:
> > > > > > > >
> > > > > > > > > Pessoal,
> > > > > > > > >
> > > > > > > > > Está acontecendo um erro muito esquisito no meu ambiente.
> > > > > > > > >
> > > > > > > > > IDE : Delphi 6
> > > > > > > > > DataWare : AdoComponents
> > > > > > > > > Banco de Dados : MySQL 5
> > > > > > > > >
> > > > > > > > > Um Select simples:
> > > > > > > > >
> > > > > > > > > Select * from pes_pessoa Where CodPes =1
> > > > > > > > >
> > > > > > > > > Dá o seguinte erro:
> > > > > > > > > "a operação de várias etapas gerou erros. verifique cada
> > valor
> > > > de
> > > > > > > > status"
> > > > > > > > >
> > > > > > > > > Procurei bastante na internet e segui algumas dicas, como
> > > tirar
> > > > o
> > > > > > > > "persist
> > > > > > > > > info" na string connection ou mudar o registro.
> > > > > > > > > Dentre as informações que pude coletar, isso geralmente
> > ocorre
> > > > > > quando
> > > > > > > vc
> > > > > > > > > atribui um valor maior do que o campo
> > > > > > > > > que vai receber.
> > > > > > > > >
> > > > > > > > > Obrigado desde já.
> > > > > > > > >
> > > > > > > > > Atenciosamente,
> > > > > > > > > --
> > > > > > > > > Sérgio Cavalcante
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > > --
> > > > > 

RE: [delphi-br] String X pChar

[Rubem Nascimento da Rocha]

Meu caro, vc está muito equivocado. Não tem sentido algum fazer esse typecast 
pra PChar. PChar é um tipo de ponteiro, e por esse motivo que vc está tendo o 
erro 'Incompatible types'. Faça assim:

1) Se wPrimLetra é do tipo Char, faça simplesmente assim:
ShowMessage(Format('%d', [Ord(wPrimLetra)]));


2) Se wPrimLetra é do tipo String, faça simplesmente assim:
ShowMessage(Format('%d', [Ord(wPrimLetra[1])]));

De onde vc tirou a idéia de que precisava de PChar?
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 16 Apr 2008 15:36:07 -0300
Subject: [delphi-br] String X pChar

Caros,

Estou tentando retornar o código ASCII de uma letra:

wPrimLetra := 'A';

ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );

Mas dá o seguinte erro:

[Error] UnitCadPlacas.pas(742): E2008 Incompatible types.

Alguém poderia me ajudar?

sds
Adjalma



-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!

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









_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

Re: [delphi-br] Erro ao carregar o datamodule

[Ricardo César Cardoso]

Como vc montou a estrutura de conexão ? 

O erro 'SQLConnection property required for this operation' acontece pois algum 
componente precisa de uma referência ao SQLConnection para poder se comunidar 
com o BD

Atte,
Ricardo.

Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu:
 
 
 Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu:
 Boa tarde!
  
  1) Qual é o erro que aparece?
  
  2) Experimente ler e praticar com alguma apostila de Delphi. ;)
  
  Atte,
  Ricardo.
  
  Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu:  
   Fica parado aqui e ,,
 Application.CreateForm(TDataModule1, DataModule1);
   
   o que faço agora
   
   sou muito novato,, 
   
   -
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
   
   [As partes desta mensagem que não continham texto foram removidas]
   
   
   
   _
  
  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
  
  [As partes desta mensagem que não continham texto foram removidas]
  
  
  

 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 





   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

[delphi-br] String X pChar

[Adjalma Costa]

Caros,
   
  Estou tentando retornar o código ASCII de uma letra:
   
  wPrimLetra := 'A';
   
  ShowMessage( IntToStr( Ord( pchar( wPrimLetra ))) );
   
  Mas dá o seguinte erro:
   
  [Error] UnitCadPlacas.pas(742): E2008 Incompatible types.
   
  Alguém poderia me ajudar?
   
  sds
  Adjalma
   
   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

RE: [delphi-br] Posso usar override numa procedure no Private?

[Rubem Nascimento da Rocha]

Então tinha que ser o escopo protected mesmo!
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 16 Apr 2008 14:14:31 -0300
Subject: Re: [delphi-br] Posso usar override numa procedure no Private?

Sim, são 2 units diferente... fiz uma classe basica, e todos os sistemas vao
usa-la, porem cada um muda somente esta procedure..

[]s

Em 16/04/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
>
>
> Se deu certo é pq as classes foram definidas em units diferentes. Se
> fossem definidas na mesma unit, mesmo o método estando na seção private,
> poderia dar certo.
> Sds.
>
> 
>> To: delphi-br@yahoogrupos.com.br 
>> From: [EMAIL PROTECTED] 
>> Date: Wed, 16 Apr 2008 14:10:17 -0300
>> Subject: Re: [delphi-br] Posso usar override numa procedure no Private?
>>
>>
>> Valeu deu certo.. obrigado
>> []s
>>
>> Em 16/04/08, Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]
>>
>> escreveu:
>>>
>>>
 dá o seguinte erro: Method 'GetFieldsArea' not found in base class
>>>
>>> Troque private por protected... Veja os conceitos de Private e
> Protected
>>> no Help
>>> e vc entenderá.
>>>
>>> Jackson Gomes
>>> Tools&Comps - Controle de Usuários para Desenvolvedores
> Borland/CodeGear
>>> Web Site: http://www.toolsandcomps.com
>>> Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
>>> e-mail: [EMAIL PROTECTED] 
>>> Fone: 27 3389 1138 - 8811 0324
>>> --
>>> Devhost - Webhost para desenvolvedores Borland
>>> http://www.devhost.com.br
>>> [EMAIL PROTECTED] 
>>>
>>>
>>>
>>
>> --
>> _
>> T.·.F.·.A.·.
>> Fellipe Henrique
>> [EMAIL PROTECTED] 
>>
>> Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br
> .
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>
> __
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
> offline. Conheça o MSN Mobile!
> http://mobile.live.com/signup/signup2.aspx?lc=pt-br
>
>

--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]

Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br.

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









_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

Re: [delphi-br] Cadastro operação

[Eduardo Oliveira silva]

Beleza Alexande , valeu mesmo.
Tenho só uma pequena dúvida no código
Edit1.Text := qBuscaCodigo.AsString

o Codigo é o nome no banco de dados?
ou não necessariamente.

Em 15/04/08, Alexandre Nicolas <[EMAIL PROTECTED]> escreveu:
>
>   vamos lá, supondo que o nome do query seja "qBusca" e que você já tenha
> adicionado
> no Fields Editor os campos resultantes da pesquisa:
>
> .
> .
> .
> qBusca.Open;
>
> Edit1.Text := qBuscaCodigo.AsString; //caso seja numérico será convertido
> para string
> Edit2.Text := qBuscaNome.AsString;
> Edit3.Text := qBuscaEndereco.AsString;
> Edit4.Text := qBuscaCredito.DisplayText; // caso vc tenha colocado a
> máscara ",0.00" na prop. "DisplayFormat" deste campo no "Fields Editor"
> Edit5.Text := qBuscaEmprestimos.DisplayText; // caso vc tenha colocado a
> máscara ",0.00" na prop. "DisplayFormat" deste campo no "Fields Editor"
>
> []s
>
> Alexandre Nicolas
>
> - Original Message -
> From: Eduardo Oliveira silva
> To: delphi-br@yahoogrupos.com.br 
> Sent: Tuesday, April 15, 2008 4:27 PM
> Subject: Re: [delphi-br] Cadastro operação
>
> beleza, é isso mesmo, mais como eu faço para mostra isso em um formulário
> em um edit por exemplo.
>
> é outra dúvida que tenho, nos formulários de cadastro vai ter um botão de
> pesquisa
> viz os formularios mais não sei alimentar os edits com os campos da query.
> pode me ajudar.
>
> Em 15/04/08, Alexandre Nicolas <[EMAIL 
> PROTECTED]>
> escreveu:
> >
> > Bom, vejamos se entendi:
> >
> > você terá uma tabela COOPERATIVA e uma tabela EMPRESTIMOS, a ligação
> entre
> > as tabelas é o código da cooperativa.
> >
> > você poderá ter um query, trazendo os dados da cooperativa e a soma de
> > todos os empréstimos feitos para ela.
> >
> > entao o SQL de sua query ficaria assim:
> >
> > Select c.Codigo, c.Nome, c.Endereco, c.Credito , sum(e.ValorEmprestimo)
> as
> > SomaEmprestimos
> > From COOPERATIVA c
> > Left Join EMPRESTIMOS e on c.Codigo = e.CodigoCooperativa
> > Where c.Codigo = :CodigoCooperativa
> > Group by c.Codigo, c.Nome, c.Endereco, c.Credito
> >
> > a partir desse exemplo você pode aprimorar esse SQL conforme sua
> > necessidade.
> >
> > []s
> >
> > Alexandre Nicolas
> >
> > - Original Message -
> > From: Eduardo Oliveira silva
> > To: delphi-br@yahoogrupos.com.br  40yahoogrupos.com.br>
> > Sent: Tuesday, April 15, 2008 10:34 AM
> > Subject: [delphi-br] Cadastro operação
> >
> > Alguém pode me socorre.
> >
> > Pessoal estou com um problema, tenho que mostrar um protótipo de
> > trabalho da faculdade na quinta feira e estou com algumas dificuldade
> > em alguns pontos.
> >
> > 1- tenho que cadastrar uma operação de credito onde em um formulário
> > vou trazer campos de um cooperativa(nome,endereço,crédito), porém os
> > campo não estão em uma só tabela, Ex. tenho que fazer o calculo se a
> > cooperativa já pegou algum empréstimo e mostra o valor total na tela.
> > para fazer isso tudo tenho que passar para pesquisa só o número da
> > cooperativa e é o único dado que vai persistir em outra tabela, alguém
> > pode me ajudar
> >
> > [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]
>
> 
>


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

Re: [delphi-br] Posso usar override numa procedure no Private?

[Fellipe Henrique]

Sim, são 2 units diferente... fiz uma classe basica, e todos os sistemas vao
usa-la, porem cada um muda somente esta procedure..

[]s

Em 16/04/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
>
>
> Se deu certo é pq as classes foram definidas em units diferentes. Se
> fossem definidas na mesma unit, mesmo o método estando na seção private,
> poderia dar certo.
> Sds.
>
> 
> > To: delphi-br@yahoogrupos.com.br 
> > From: [EMAIL PROTECTED] 
> > Date: Wed, 16 Apr 2008 14:10:17 -0300
> > Subject: Re: [delphi-br] Posso usar override numa procedure no Private?
> >
> >
> > Valeu deu certo.. obrigado
> > []s
> >
> > Em 16/04/08, Jackson Gomes - Tools&Comps <[EMAIL 
> > PROTECTED]
> >
> > escreveu:
> >>
> >>
> >>> dá o seguinte erro: Method 'GetFieldsArea' not found in base class
> >>
> >> Troque private por protected... Veja os conceitos de Private e
> Protected
> >> no Help
> >> e vc entenderá.
> >>
> >> Jackson Gomes
> >> Tools&Comps - Controle de Usuários para Desenvolvedores
> Borland/CodeGear
> >> Web Site: http://www.toolsandcomps.com
> >> Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
> >> e-mail: [EMAIL PROTECTED] 
> >> Fone: 27 3389 1138 - 8811 0324
> >> --
> >> Devhost - Webhost para desenvolvedores Borland
> >> http://www.devhost.com.br
> >> [EMAIL PROTECTED] 
> >>
> >>
> >>
> >
> > --
> > _
> > T.·.F.·.A.·.
> > Fellipe Henrique
> > [EMAIL PROTECTED] 
> >
> > Cansou do MercadoLivre como eu? Tente o 
> > www.uaileilão.com.br
> .
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> __
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
> offline. Conheça o MSN Mobile!
> http://mobile.live.com/signup/signup2.aspx?lc=pt-br
>  
>



-- 
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]

Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br.


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

Re: [delphi-br] Erro ao carregar o datamodule

[Jose Eduardo Victorino]

Ricardo César Cardoso <[EMAIL PROTECTED]> escreveu: 
Boa tarde!
 
 1) Qual é o erro que aparece?
 
 2) Experimente ler e praticar com alguma apostila de Delphi. ;)
 
 Atte,
 Ricardo.
 
 Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu:   
  Fica parado aqui e ,,
Application.CreateForm(TDataModule1, DataModule1);
  
  o que faço agora
  
  sou muito novato,, 
  
  -
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
  
  [As partes desta mensagem que não continham texto foram removidas]
  
  
  
  _
 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Capturar texto ... urgente socorro...

[Paulo Casagrande]

var
  list: TStringList;
  i : integer;
  // declara as outra variaveis
begin
  list := TStringList.Create;
  list.LoadFromFile( 'C:\meuarquivo.log');
  for i := 0 to list.count - 1 do
  begin
// executa a captura dos dados
// Grava no arquivo
  end;
  // Quando ele sair do loop, acabou o arquivo!
end;
>
> Valeu Paulo prob. quase resolvido.
> agora preciso percorer o aquivo txt ate o final gravando cada campo em 
> um banco de dados como posso fazer isto e o sistema me avisar que ja 
> compretou chegou a ultima linha ?
>
> Atenciosamente
> Marcos Diirr
>
> Bom dia...
>
> 1) Fiz de cabeça!
> 2) Não testei!
> 3) Os ajuste é com você!
> 4) Okay ?
>
> s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
> ip := copy(s, 1, pos( ' ', s)-1);
> s := copy(s,pos(' GET',s)+3, maxint);
> url := copy(s, 1, pos( '- DIRECT', s)-1);
> s := copy(s,pos(' in ',s)+4,maxint) ;
> data := copy(s, 1, pos( ' ', s)-1);
> Hora := copy(s,pos(' ',s)+1,8);
>
> Boa sorte
> >
> > ex. tenho um arquivo txt conforme abaixo
> >
> > web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
> > GET http://go.microsoft .com/fwlink/ ?
> >  > - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.71 from 10.5.50.1
> > web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
> > GET http://go.microsoft .com/fwlink/ ?
> >  > - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.72 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.304 962 10.5.50.2
> > TCP_CLIENT_REFRESH_ MISS/304 171 GET
> > http://www.microsof t.com/brasil/ technet/rss/ rss.xml
> >  > -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
> > GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
> >  > -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> >
> > preciso pegar os seguintes campos e salva-los em uma tabela ficando +
> > ou - assim
> >
> > ex. 1 linha do arquivo acima
> >
> > campo ip campo - 10.5.50.2
> > ur - http://go.microsoft .com/fwlink/ ?  .com/fwlink/ ? >
> > Campo data - 26-Mar
> > Campo hora - 17:13:3.71
> >
> > e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
> > faça isto ?
> >
> > ja me falaram "pos" "copy" so que reparem que nada começa numa mesma
> > posição
> >
> > mas preciso de ex. mais basico
> >
> > Desde ja fico muito grato com qualquer ajuda.
>

Re: [delphi-br] Erro ao carregar o datamodule

[Ricardo César Cardoso]

Boa tarde!

1) Qual é o erro que aparece?

2) Experimente ler e praticar com alguma apostila de Delphi. ;)

Atte,
Ricardo.

Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu:
 Fica parado aqui e ,,
   Application.CreateForm(TDataModule1, DataModule1);
 
 o que faço agora
 
 sou muito novato,, 
 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 _



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

RE: [delphi-br] Posso usar override numa procedure no Private?

[Rubem Nascimento da Rocha]

Se deu certo é pq as classes foram definidas em units diferentes. Se fossem 
definidas na mesma unit, mesmo o método estando na seção private, poderia dar 
certo.
Sds.


> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Wed, 16 Apr 2008 14:10:17 -0300
> Subject: Re: [delphi-br] Posso usar override numa procedure no Private?
> 
> 
> Valeu deu certo.. obrigado
> []s
> 
> Em 16/04/08, Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]>
> escreveu:
>>
>>
>>> dá o seguinte erro: Method 'GetFieldsArea' not found in base class
>>
>> Troque private por protected... Veja os conceitos de Private e Protected
>> no Help
>> e vc entenderá.
>>
>> Jackson Gomes
>> Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
>> Web Site: http://www.toolsandcomps.com
>> Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
>> e-mail: [EMAIL PROTECTED] 
>> Fone: 27 3389 1138 - 8811 0324
>> --
>> Devhost - Webhost para desenvolvedores Borland
>> http://www.devhost.com.br
>> [EMAIL PROTECTED] 
>>
>>
>>
> 
> --
> _
> T.·.F.·.A.·.
> Fellipe Henrique
> [EMAIL PROTECTED]
> 
> Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br.
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 

_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

Re: [delphi-br] Posso usar override numa procedure no Private?

[Fellipe Henrique]

Valeu deu certo.. obrigado
[]s

Em 16/04/08, Jackson Gomes - Tools&Comps <[EMAIL PROTECTED]>
escreveu:
>
>
> > dá o seguinte erro: Method 'GetFieldsArea' not found in base class
>
> Troque private por protected... Veja os conceitos de Private e Protected
> no Help
> e vc entenderá.
>
> Jackson Gomes
> Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
> Web Site: http://www.toolsandcomps.com
> Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
> e-mail: [EMAIL PROTECTED] 
> Fone: 27 3389 1138 - 8811 0324
> --
> Devhost - Webhost para desenvolvedores Borland
> http://www.devhost.com.br
> [EMAIL PROTECTED] 
>
>  
>



-- 
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]

Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br.


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

Re: [delphi-br] Opinião sobre tipo de conexão

[Eduardo Silva dos Santos]

MyDAC é para MySQL, para o FireBird tem o IBDAC,  e logo logo tem o UNIDAC
(MySQL, MSSQL, Oracle, FireBird/Interbase)

Em 16/04/08, Eduardo Suruagy <[EMAIL PROTECTED]> escreveu:
>
>   Boa tarde Eduardo Silva,
>
> Vc usa o MyDAC com o Firebird??
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

[delphi-br] Erro ao carregar o datamodule

[Jose Eduardo Victorino]

Fica parado aqui e ,,
  Application.CreateForm(TDataModule1, DataModule1);

o que faço agora

sou muito novato,, 



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[Eduardo Silva dos Santos]

Blz Sérgio, vou testar, só um detalhe, qual a versão do seu Delphi? o
componente ADO é aquele do próprio Delphi?

Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]> escreveu:
>
>   Oi Eduardo
>
> MySQL - 5.0.21
> ODBC -3.51.19
> O nome do componente é TADOQuery.
>
> Atenciosamente,
> --
> Sérgio Cavalcante
>
> Em 16/04/08, Eduardo Silva dos Santos <[EMAIL 
> PROTECTED]>
> escreveu:
> >
> > Me diga a versão exata do MySQL, do MyODBC e o nome desse componente,
> > pra eu
> > fazer uns testes aqui.
> >
> > Em 16/04/08, sergio cavalcante <[EMAIL 
> > PROTECTED] 40gmail.com>>
> > escreveu:
> > >
> > > Oi Eduardo,
> > >
> > > O mais estranho eh que o ODBC roda direitinho!
> > > E o componente nao eh exatamente um ADO, é um descendente, e fechado,
> > > que jah estava no sistema. que bosta.
> > >
> > > Atenciosamente,
> > > --
> > > Sérgio Cavalcante
> > >
> > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > PROTECTED]
> 
> > 
> > > >:
> > >
> > > > Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais
> > novo
> > > > que
> > > > deve resolver..
> > > >
> > > > quanto a migração o MyDAC tem um Wizard que faz essa mundança
> > rapadinho
> > > > ADO
> > > > > MyDAC, mas sabemos que nenhuma migração é tão simples assim,
> hehehe
> > > >
> > > > sucesso ae
> > > >
> > > >
> > > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
> 
> >  > > 40gmail.com>>
> > > > escreveu:
> > > > >
> > > > > Oi Eduardo,
> > > > >
> > > > > Obrigado por responder.
> > > > >
> > > > > Infelizmente pegamos o sistema já pronto. E como a homologação tá
> > > muito
> > > > > perto,
> > > > > não dá pra mudar mais...
> > > > >
> > > > > Atenciosamente,
> > > > > --
> > > > > Sérgio Cavalcante
> > > > >
> > > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > > PROTECTED]
> 
> > 
> > > 
> > > > 
> > > > > >:
> > > > >
> > > > > > Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique
> a
> > > > > > versão do
> > > > > > Driver ODBC para MySQL e assim que possível
> > > > > > migre para algum componente de acesso Nativo, Zeos é um bom
> > exemplo
> > > de
> > > > > > componente free e MyDAC é o Melhor mais é pago.
> > > > > > vc vai notar a diferença no desempenho.
> > > > > >
> > > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > > PROTECTED]
> 
> > 
> > > 
> > > >  > > > > 40gmail.com>>
> > > > > > escreveu:
> > > > > >
> > > > > > >
> > > > > > > Mais algumas informações acerca do erro.
> > > > > > > Ele só dá na minha máquina que está fora do domínio, e somente
> > em
> > > > > > algumas
> > > > > > > tabelas.
> > > > > > > Então mesmo fora do domínio, várias queries dão certo. Outras,
> > > > > retornam
> > > > > > o
> > > > > > > erro mencionado.
> > > > > > >
> > > > > > > Atenciosamente,
> > > > > > > --
> > > > > > > Sérgio Cavalcante
> > > > > > >
> > > > > > > 2008/4/16 sergio cavalcante <[EMAIL 
> > > > > > > PROTECTED]
> 
> > 
> > >  > > > 40gmail.com> > >
> > > > > 40gmail.com> > > >
> > > > > > 40gmail.com>>:
> > > > > > >
> > > > > > > > Pessoal,
> > > > > > > >
> > > > > > > > Está acontecendo um erro muito esquisito no meu ambiente.
> > > > > > > >
> > > > > > > > IDE : Delphi 6
> > > > > > > > DataWare : AdoComponents
> > > > > > > > Banco de Dados : MySQL 5
> > > > > > > >
> > > > > > > > Um Select simples:
> > > > > > > >
> > > > > > > > Select * from pes_pessoa Where CodPes =1
> > > > > > > >
> > > > > > > > Dá o seguinte erro:
> > > > > > > > "a operação de várias etapas gerou erros. verifique cada
> valor
> > > de
> > > > > > > status"
> > > > > > > >
> > > > > > > > Procurei bastante na internet e segui algumas dicas, como
> > tirar
> > > o
> > > > > > > "persist
> > > > > > > > info" na string connection ou mudar o registro.
> > > > > > > > Dentre as informações que pude coletar, isso geralmente
> ocorre
> > > > > quando
> > > > > > vc
> > > > > > > > atribui um valor maior do que o campo
> > > > > > > > que vai receber.
> > > > > > > >
> > > > > > > > Obrigado desde já.
> > > > > > > >
> > > > > > > > Atenciosamente,
> > > > > > > > --
> > > > > > > > Sérgio Cavalcante
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > > --
> > > > > > >
> > > > > > > [As partes desta mensagem que não continham texto foram
> > removidas]
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > > --
> > > > > > ...
> > > > > > Eduardo Silva dos Santos
> > > > > > DRD Sistemas.
> > > > > > (27) 3218-4201
> > > > > > MSN: [EMAIL PROTECTED]  40gmail.com>  > 40gmail.com>  > > 40gmail.com>  > > > 40gmail.com>  > > > > 40gmail.com>
> > > > > > Site: http://www.drdsistemas.com/
> > > > > > ...
> > > > > >
> > > > > > [As partes desta mensagem que não continham texto foram
> removidas]
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > > --
> > >

Re: [delphi-br] Posso usar override numa procedure no Private?

> dá o seguinte erro: Method 'GetFieldsArea' not found in base class

Troque private por protected... Veja os conceitos de Private e Protected no 
Help 
e vc entenderá.

Jackson Gomes
Tools&Comps - Controle de Usuários para Desenvolvedores Borland/CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

Devhost - Webhost para desenvolvedores Borland
http://www.devhost.com.br
[EMAIL PROTECTED] 

[delphi-br] Posso usar override numa procedure no Private?

[Fellipe Henrique]

Olá amigos, tenho a seguinte classe:

TClasse = class(TObject)
private
  procedure Teste; virtual;
(..)
end;

tenho outra classe:

TFilha = class(TClasse);
private
  procedure Teste; override;
end;

dá o seguinte erro: Method 'GetFieldsArea' not found in base class

Bom, não é assim que se faz? O que estou fazendo de errado?

Obrigado.

[]s
-- 
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]

Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br.


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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Oi Eduardo

MySQL - 5.0.21
ODBC -3.51.19
O nome do componente é TADOQuery.

Atenciosamente,
--
Sérgio Cavalcante

Em 16/04/08, Eduardo Silva dos Santos <[EMAIL PROTECTED]> escreveu:
>
>   Me diga a versão exata do MySQL, do MyODBC e o nome desse componente,
> pra eu
> fazer uns testes aqui.
>
> Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED] >
> escreveu:
> >
> > Oi Eduardo,
> >
> > O mais estranho eh que o ODBC roda direitinho!
> > E o componente nao eh exatamente um ADO, é um descendente, e fechado,
> > que jah estava no sistema. que bosta.
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> >
> > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > PROTECTED]
> 
> > >:
> >
> > > Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais
> novo
> > > que
> > > deve resolver..
> > >
> > > quanto a migração o MyDAC tem um Wizard que faz essa mundança
> rapadinho
> > > ADO
> > > > MyDAC, mas sabemos que nenhuma migração é tão simples assim, hehehe
> > >
> > > sucesso ae
> > >
> > >
> > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
>  > 40gmail.com>>
> > > escreveu:
> > > >
> > > > Oi Eduardo,
> > > >
> > > > Obrigado por responder.
> > > >
> > > > Infelizmente pegamos o sistema já pronto. E como a homologação tá
> > muito
> > > > perto,
> > > > não dá pra mudar mais...
> > > >
> > > > Atenciosamente,
> > > > --
> > > > Sérgio Cavalcante
> > > >
> > > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > > PROTECTED]
> 
> > 
> > > 
> > > > >:
> > > >
> > > > > Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a
> > > > > versão do
> > > > > Driver ODBC para MySQL e assim que possível
> > > > > migre para algum componente de acesso Nativo, Zeos é um bom
> exemplo
> > de
> > > > > componente free e MyDAC é o Melhor mais é pago.
> > > > > vc vai notar a diferença no desempenho.
> > > > >
> > > > > Em 16/04/08, sergio cavalcante <[EMAIL 
> > > > > PROTECTED]
> 
> > 
> > >  > > > 40gmail.com>>
> > > > > escreveu:
> > > > >
> > > > > >
> > > > > > Mais algumas informações acerca do erro.
> > > > > > Ele só dá na minha máquina que está fora do domínio, e somente
> em
> > > > > algumas
> > > > > > tabelas.
> > > > > > Então mesmo fora do domínio, várias queries dão certo. Outras,
> > > > retornam
> > > > > o
> > > > > > erro mencionado.
> > > > > >
> > > > > > Atenciosamente,
> > > > > > --
> > > > > > Sérgio Cavalcante
> > > > > >
> > > > > > 2008/4/16 sergio cavalcante <[EMAIL PROTECTED]
> 
> >  > > 40gmail.com> >
> > > > 40gmail.com> > >
> > > > > 40gmail.com>>:
> > > > > >
> > > > > > > Pessoal,
> > > > > > >
> > > > > > > Está acontecendo um erro muito esquisito no meu ambiente.
> > > > > > >
> > > > > > > IDE : Delphi 6
> > > > > > > DataWare : AdoComponents
> > > > > > > Banco de Dados : MySQL 5
> > > > > > >
> > > > > > > Um Select simples:
> > > > > > >
> > > > > > > Select * from pes_pessoa Where CodPes =1
> > > > > > >
> > > > > > > Dá o seguinte erro:
> > > > > > > "a operação de várias etapas gerou erros. verifique cada valor
> > de
> > > > > > status"
> > > > > > >
> > > > > > > Procurei bastante na internet e segui algumas dicas, como
> tirar
> > o
> > > > > > "persist
> > > > > > > info" na string connection ou mudar o registro.
> > > > > > > Dentre as informações que pude coletar, isso geralmente ocorre
> > > > quando
> > > > > vc
> > > > > > > atribui um valor maior do que o campo
> > > > > > > que vai receber.
> > > > > > >
> > > > > > > Obrigado desde já.
> > > > > > >
> > > > > > > Atenciosamente,
> > > > > > > --
> > > > > > > Sérgio Cavalcante
> > > > > > >
> > > > > > >
> > > > > >
> > > > > > --
> > > > > >
> > > > > > [As partes desta mensagem que não continham texto foram
> removidas]
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > > --
> > > > > ...
> > > > > Eduardo Silva dos Santos
> > > > > DRD Sistemas.
> > > > > (27) 3218-4201
> > > > > MSN: [EMAIL PROTECTED]   40gmail.com>  > 40gmail.com>  > > 40gmail.com>  > > > 40gmail.com>
> > > > > Site: http://www.drdsistemas.com/
> > > > > ...
> > > > >
> > > > > [As partes desta mensagem que não continham texto foram removidas]
> > > > >
> > > > >
> > > > >
> > > >
> > > > --
> > > >
> > > > Atenciosamente,
> > > > --
> > > > Sérgio Cavalcante
> > > > Mitros Tecnologia
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > > --
> > > ...
> > > Eduardo Silva dos Santos
> > > DRD Sistemas.
> > > (27) 3218-4201
> > > MSN: [EMAIL PROTECTED]   40gmail.com>  > 40gmail.com>
> > > Site: http://www.drdsistemas.com/
> > > ...
> > >
> > > [As partes desta mensagem que não continham texto for

Re: [delphi-br] Capturar texto ... urgente socorro...

[marcosdiirr]

Valeu Paulo prob. quase resolvido.
agora preciso percorer o aquivo txt ate o final gravando cada campo em um banco 
de dados como posso fazer isto e o sistema me avisar que ja compretou chegou a 
ultima linha ?

Atenciosamente 
Marcos Diirr

Bom dia...

1) Fiz de cabeça!
2) Não testei!
3) Os ajuste é com você!
4) Okay ?

s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos('GET',s)+3,maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint);
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

Boa sorte
>
> ex. tenho um arquivo txt conforme abaixo
>
> web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
> GET http://go.microsoft .com/fwlink/ ? 
>  - DIRECT/64.4. 52.189 text/html
> in 26-Mar 17:13:3.71 from 10.5.50.1
> web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
> GET http://go.microsoft .com/fwlink/ ? 
>  - DIRECT/64.4. 52.189 text/html
> in 26-Mar 17:13:3.72 from 10.5.50.1
> web-proxy,debug, packet 1206551498.304 962 10.5.50.2
> TCP_CLIENT_REFRESH_ MISS/304 171 GET
> http://www.microsof t.com/brasil/ technet/rss/ rss.xml 
>  -
> DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
> GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml 
>  -
> DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
>
> preciso pegar os seguintes campos e salva-los em uma tabela ficando +
> ou - assim
>
> ex. 1 linha do arquivo acima
>
> campo ip campo - 10.5.50.2
> ur - http://go.microsoft .com/fwlink/ ? 
> Campo data - 26-Mar
> Campo hora - 17:13:3.71
>
> e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
> faça isto ?
>
> ja me falaram "pos" "copy" so que reparem que nada começa numa mesma
> posição
>
> mas preciso de ex. mais basico
>
> Desde ja fico muito grato com qualquer ajuda.
>


 


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

Re: [delphi-br] Opinião sobre tipo de conexão

[Eduardo Suruagy]

Boa tarde Eduardo Silva,

Vc usa o MyDAC com o Firebird??


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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[Eduardo Silva dos Santos]

Me diga a versão exata do MySQL, do MyODBC e o nome desse componente, pra eu
fazer uns testes aqui.

Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]> escreveu:
>
>   Oi Eduardo,
>
> O mais estranho eh que o ODBC roda direitinho!
> E o componente nao eh exatamente um ADO, é um descendente, e fechado,
> que jah estava no sistema. que bosta.
>
> Atenciosamente,
> --
> Sérgio Cavalcante
>
> 2008/4/16 Eduardo Silva dos Santos <[EMAIL PROTECTED]
> >:
>
> > Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais novo
> > que
> > deve resolver..
> >
> > quanto a migração o MyDAC tem um Wizard que faz essa mundança rapadinho
> > ADO
> > > MyDAC, mas sabemos que nenhuma migração é tão simples assim, hehehe
> >
> > sucesso ae
> >
> >
> > Em 16/04/08, sergio cavalcante <[EMAIL 
> > PROTECTED] 40gmail.com>>
> > escreveu:
> > >
> > > Oi Eduardo,
> > >
> > > Obrigado por responder.
> > >
> > > Infelizmente pegamos o sistema já pronto. E como a homologação tá
> muito
> > > perto,
> > > não dá pra mudar mais...
> > >
> > > Atenciosamente,
> > > --
> > > Sérgio Cavalcante
> > >
> > > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > > PROTECTED]
> 
> > 
> > > >:
> > >
> > > > Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a
> > > > versão do
> > > > Driver ODBC para MySQL e assim que possível
> > > > migre para algum componente de acesso Nativo, Zeos é um bom exemplo
> de
> > > > componente free e MyDAC é o Melhor mais é pago.
> > > > vc vai notar a diferença no desempenho.
> > > >
> > > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
> 
> >  > > 40gmail.com>>
> > > > escreveu:
> > > >
> > > > >
> > > > > Mais algumas informações acerca do erro.
> > > > > Ele só dá na minha máquina que está fora do domínio, e somente em
> > > > algumas
> > > > > tabelas.
> > > > > Então mesmo fora do domínio, várias queries dão certo. Outras,
> > > retornam
> > > > o
> > > > > erro mencionado.
> > > > >
> > > > > Atenciosamente,
> > > > > --
> > > > > Sérgio Cavalcante
> > > > >
> > > > > 2008/4/16 sergio cavalcante <[EMAIL PROTECTED]
>  > 40gmail.com>
> > > 40gmail.com> >
> > > > 40gmail.com>>:
> > > > >
> > > > > > Pessoal,
> > > > > >
> > > > > > Está acontecendo um erro muito esquisito no meu ambiente.
> > > > > >
> > > > > > IDE : Delphi 6
> > > > > > DataWare : AdoComponents
> > > > > > Banco de Dados : MySQL 5
> > > > > >
> > > > > > Um Select simples:
> > > > > >
> > > > > > Select * from pes_pessoa Where CodPes =1
> > > > > >
> > > > > > Dá o seguinte erro:
> > > > > > "a operação de várias etapas gerou erros. verifique cada valor
> de
> > > > > status"
> > > > > >
> > > > > > Procurei bastante na internet e segui algumas dicas, como tirar
> o
> > > > > "persist
> > > > > > info" na string connection ou mudar o registro.
> > > > > > Dentre as informações que pude coletar, isso geralmente ocorre
> > > quando
> > > > vc
> > > > > > atribui um valor maior do que o campo
> > > > > > que vai receber.
> > > > > >
> > > > > > Obrigado desde já.
> > > > > >
> > > > > > Atenciosamente,
> > > > > > --
> > > > > > Sérgio Cavalcante
> > > > > >
> > > > > >
> > > > >
> > > > > --
> > > > >
> > > > > [As partes desta mensagem que não continham texto foram removidas]
> > > > >
> > > > >
> > > > >
> > > >
> > > > --
> > > > ...
> > > > Eduardo Silva dos Santos
> > > > DRD Sistemas.
> > > > (27) 3218-4201
> > > > MSN: [EMAIL PROTECTED]   40gmail.com>  > 40gmail.com>  > > 40gmail.com>
> > > > Site: http://www.drdsistemas.com/
> > > > ...
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > > --
> > >
> > > Atenciosamente,
> > > --
> > > Sérgio Cavalcante
> > > Mitros Tecnologia
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]   40gmail.com>
> > Site: http://www.drdsistemas.com/
> > ...
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
>
> Atenciosamente,
> --
> Sérgio Cavalcante
> Mitros Tecnologia
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Oi Eduardo,

O mais estranho eh que o ODBC roda direitinho!
E o componente nao eh exatamente um ADO, é um descendente, e fechado,
que jah estava no sistema. que bosta.

Atenciosamente,
--
Sérgio Cavalcante

2008/4/16 Eduardo Silva dos Santos <[EMAIL PROTECTED]>:

>   Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais novo
> que
> deve resolver..
>
> quanto a migração o MyDAC tem um Wizard que faz essa mundança rapadinho
> ADO
> > MyDAC, mas sabemos que nenhuma migração é tão simples assim, hehehe
>
> sucesso ae
>
>
> Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED] >
> escreveu:
> >
> > Oi Eduardo,
> >
> > Obrigado por responder.
> >
> > Infelizmente pegamos o sistema já pronto. E como a homologação tá muito
> > perto,
> > não dá pra mudar mais...
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> >
> > 2008/4/16 Eduardo Silva dos Santos <[EMAIL 
> > PROTECTED]
> 
> > >:
> >
> > > Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a
> > > versão do
> > > Driver ODBC para MySQL e assim que possível
> > > migre para algum componente de acesso Nativo, Zeos é um bom exemplo de
> > > componente free e MyDAC é o Melhor mais é pago.
> > > vc vai notar a diferença no desempenho.
> > >
> > > Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]
>  > 40gmail.com>>
> > > escreveu:
> > >
> > > >
> > > > Mais algumas informações acerca do erro.
> > > > Ele só dá na minha máquina que está fora do domínio, e somente em
> > > algumas
> > > > tabelas.
> > > > Então mesmo fora do domínio, várias queries dão certo. Outras,
> > retornam
> > > o
> > > > erro mencionado.
> > > >
> > > > Atenciosamente,
> > > > --
> > > > Sérgio Cavalcante
> > > >
> > > > 2008/4/16 sergio cavalcante <[EMAIL 
> > > > PROTECTED] 40gmail.com> > 40gmail.com>
> > > 40gmail.com>>:
> > > >
> > > > > Pessoal,
> > > > >
> > > > > Está acontecendo um erro muito esquisito no meu ambiente.
> > > > >
> > > > > IDE : Delphi 6
> > > > > DataWare : AdoComponents
> > > > > Banco de Dados : MySQL 5
> > > > >
> > > > > Um Select simples:
> > > > >
> > > > > Select * from pes_pessoa Where CodPes =1
> > > > >
> > > > > Dá o seguinte erro:
> > > > > "a operação de várias etapas gerou erros. verifique cada valor de
> > > > status"
> > > > >
> > > > > Procurei bastante na internet e segui algumas dicas, como tirar o
> > > > "persist
> > > > > info" na string connection ou mudar o registro.
> > > > > Dentre as informações que pude coletar, isso geralmente ocorre
> > quando
> > > vc
> > > > > atribui um valor maior do que o campo
> > > > > que vai receber.
> > > > >
> > > > > Obrigado desde já.
> > > > >
> > > > > Atenciosamente,
> > > > > --
> > > > > Sérgio Cavalcante
> > > > >
> > > > >
> > > >
> > > > --
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > > --
> > > ...
> > > Eduardo Silva dos Santos
> > > DRD Sistemas.
> > > (27) 3218-4201
> > > MSN: [EMAIL PROTECTED]   40gmail.com>  > 40gmail.com>
> > > Site: http://www.drdsistemas.com/
> > > ...
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> > Mitros Tecnologia
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/
> ...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 

Atenciosamente,
--
Sérgio Cavalcante
Mitros Tecnologia


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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[Eduardo Silva dos Santos]

Blz, sérgio, provalmente isso é problema no MyODBC, instala o mais novo que
deve resolver..

quanto a migração o MyDAC tem um Wizard que faz essa mundança rapadinho ADO
> MyDAC, mas sabemos que nenhuma migração é tão simples assim, hehehe

sucesso ae

Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]> escreveu:
>
>   Oi Eduardo,
>
> Obrigado por responder.
>
> Infelizmente pegamos o sistema já pronto. E como a homologação tá muito
> perto,
> não dá pra mudar mais...
>
> Atenciosamente,
> --
> Sérgio Cavalcante
>
> 2008/4/16 Eduardo Silva dos Santos <[EMAIL PROTECTED]
> >:
>
> > Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a
> > versão do
> > Driver ODBC para MySQL e assim que possível
> > migre para algum componente de acesso Nativo, Zeos é um bom exemplo de
> > componente free e MyDAC é o Melhor mais é pago.
> > vc vai notar a diferença no desempenho.
> >
> > Em 16/04/08, sergio cavalcante <[EMAIL 
> > PROTECTED] 40gmail.com>>
> > escreveu:
> >
> > >
> > > Mais algumas informações acerca do erro.
> > > Ele só dá na minha máquina que está fora do domínio, e somente em
> > algumas
> > > tabelas.
> > > Então mesmo fora do domínio, várias queries dão certo. Outras,
> retornam
> > o
> > > erro mencionado.
> > >
> > > Atenciosamente,
> > > --
> > > Sérgio Cavalcante
> > >
> > > 2008/4/16 sergio cavalcante <[EMAIL PROTECTED] 
> > >  40gmail.com> > 40gmail.com>>:
> > >
> > > > Pessoal,
> > > >
> > > > Está acontecendo um erro muito esquisito no meu ambiente.
> > > >
> > > > IDE : Delphi 6
> > > > DataWare : AdoComponents
> > > > Banco de Dados : MySQL 5
> > > >
> > > > Um Select simples:
> > > >
> > > > Select * from pes_pessoa Where CodPes =1
> > > >
> > > > Dá o seguinte erro:
> > > > "a operação de várias etapas gerou erros. verifique cada valor de
> > > status"
> > > >
> > > > Procurei bastante na internet e segui algumas dicas, como tirar o
> > > "persist
> > > > info" na string connection ou mudar o registro.
> > > > Dentre as informações que pude coletar, isso geralmente ocorre
> quando
> > vc
> > > > atribui um valor maior do que o campo
> > > > que vai receber.
> > > >
> > > > Obrigado desde já.
> > > >
> > > > Atenciosamente,
> > > > --
> > > > Sérgio Cavalcante
> > > >
> > > >
> > >
> > > --
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]   40gmail.com>
> > Site: http://www.drdsistemas.com/
> > ...
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
>
> Atenciosamente,
> --
> Sérgio Cavalcante
> Mitros Tecnologia
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Oi Eduardo,

Obrigado por responder.

Infelizmente pegamos o sistema já pronto. E como a homologação tá muito
perto,
não dá pra mudar mais...


Atenciosamente,
--
Sérgio Cavalcante

2008/4/16 Eduardo Silva dos Santos <[EMAIL PROTECTED]>:

>   Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a
> versão do
> Driver ODBC para MySQL e assim que possível
> migre para algum componente de acesso Nativo, Zeos é um bom exemplo de
> componente free e MyDAC é o Melhor mais é pago.
> vc vai notar a diferença no desempenho.
>
> Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED] >
> escreveu:
>
> >
> > Mais algumas informações acerca do erro.
> > Ele só dá na minha máquina que está fora do domínio, e somente em
> algumas
> > tabelas.
> > Então mesmo fora do domínio, várias queries dão certo. Outras, retornam
> o
> > erro mencionado.
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> >
> > 2008/4/16 sergio cavalcante <[EMAIL PROTECTED] 
> >  40gmail.com>>:
> >
> > > Pessoal,
> > >
> > > Está acontecendo um erro muito esquisito no meu ambiente.
> > >
> > > IDE : Delphi 6
> > > DataWare : AdoComponents
> > > Banco de Dados : MySQL 5
> > >
> > > Um Select simples:
> > >
> > > Select * from pes_pessoa Where CodPes =1
> > >
> > > Dá o seguinte erro:
> > > "a operação de várias etapas gerou erros. verifique cada valor de
> > status"
> > >
> > > Procurei bastante na internet e segui algumas dicas, como tirar o
> > "persist
> > > info" na string connection ou mudar o registro.
> > > Dentre as informações que pude coletar, isso geralmente ocorre quando
> vc
> > > atribui um valor maior do que o campo
> > > que vai receber.
> > >
> > > Obrigado desde já.
> > >
> > > Atenciosamente,
> > > --
> > > Sérgio Cavalcante
> > >
> > >
> >
> > --
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED] 
> Site: http://www.drdsistemas.com/
> ...
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 

Atenciosamente,
--
Sérgio Cavalcante
Mitros Tecnologia


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

Re: [delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[Eduardo Silva dos Santos]

Acessar MySQL via ADO que por sua vez usa ODBC é fria, verifique a versão do
Driver ODBC para MySQL e assim que possível
migre para algum componente de acesso Nativo, Zeos é um bom exemplo de
componente free e MyDAC é o Melhor mais é pago.
vc vai notar a diferença no desempenho.

Em 16/04/08, sergio cavalcante <[EMAIL PROTECTED]> escreveu:
>
>   Mais algumas informações acerca do erro.
> Ele só dá na minha máquina que está fora do domínio, e somente em algumas
> tabelas.
> Então mesmo fora do domínio, várias queries dão certo. Outras, retornam o
> erro mencionado.
>
> Atenciosamente,
> --
> Sérgio Cavalcante
>
> 2008/4/16 sergio cavalcante <[EMAIL PROTECTED] >:
>
> > Pessoal,
> >
> > Está acontecendo um erro muito esquisito no meu ambiente.
> >
> > IDE : Delphi 6
> > DataWare : AdoComponents
> > Banco de Dados : MySQL 5
> >
> > Um Select simples:
> >
> > Select * from pes_pessoa Where CodPes =1
> >
> > Dá o seguinte erro:
> > "a operação de várias etapas gerou erros. verifique cada valor de
> status"
> >
> > Procurei bastante na internet e segui algumas dicas, como tirar o
> "persist
> > info" na string connection ou mudar o registro.
> > Dentre as informações que pude coletar, isso geralmente ocorre quando vc
> > atribui um valor maior do que o campo
> > que vai receber.
> >
> > Obrigado desde já.
> >
> > Atenciosamente,
> > --
> > Sérgio Cavalcante
> >
> >
>
> --
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...


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

Re: [delphi-br] Re: Res:SOAP com SSL

[FRANCISCO Rodrigues]

Caro Ricardo,
   
  COnsegui acessar tambem, o problema agora é o mesmo seu, no delphi nao 
consigo acessar pelo web service.
   
  Grato,
   
  Francisco.

Ricardo Kenji <[EMAIL PROTECTED]> escreveu:
  Fala Francisco!

Aqui na minha máquina ele acessa normalmente o Link

Qualquer coisa me avise...

[]s
- Original Message - 
From: frf1103 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, April 15, 2008 12:35 AM
Subject: [delphi-br] Re: Res:SOAP com SSL

Caro colega, 

COnseguiu resolver o problema?

Estou com o mesmo problema e já nao sei mais para quem apelar.

Nao consigo acessar nem pelo Internet Explorer, quando digito 
https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL dá a 
seguinte msg:

"NfeRecepcao
Hi there, this is an AXIS service!

Perhaps there will be a form for invoking the service here... "

Sinceramente nao sei mais o que fazer.

Grato,

Francisco.

--- Em delphi-br@yahoogrupos.com.br, "kenji_rh" <[EMAIL PROTECTED]> 
escreveu
>
> Fala Itamar!
> Eu tentei usar o WSDL importer e ele pede para informar o 
certificado,
> depois ele da a mensagem: "Unable to load WSDL file/location:
> https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL. Error
> [Empty Document]"
> Mas só que ao acessar o link pelo Internet Explorer ele traz certo!
> 
> --- Em delphi-br@yahoogrupos.com.br, Itamar Souza  
escreveu
> >
> > Usando o HTTPRIO você tera que usar o WSDLImporter para importar 
as
> interfaces que se encontra no servidor web e implementam as
> funcionalidades do webservice a serem consumidas pelo projeto 
cliente.
> > 
> > Você pode usar uma solução baseada em conectividade por 
intermédio
> dos agentes Cliente SOAP e Servidor SOAP, disponibilizados por um
> Webservice fazendo o acesso direto ao banco com a conexão SOAP.
> > Basta colocar um datamodulo e um componenente SoapConn e pega o
> endereço que esta no webservice e copia a linha URL do texto XML e
> conectar.
> > 
> > O resto e igual, coloca os clientDataset e fazer a conexão se 
você
> tiver usando multicamadas o RemoteServer será o SoapConn e o
> ProviderName será o ClientDataset do seu servidor de conexão, neste
> caso "executar o Fetch Params e AddAllFields"
> > 
> > Veja se isso pode lhe ajuda!!
> > 
> > 
> > 
> > -
> > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento! 
> > 
> > [As partes desta mensagem que não continham texto foram 
removidas]
> >
>

__ Informação do NOD32 IMON 3019 (20080411) __

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

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



   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

[delphi-br] OFF TOPIC - COMPRO SISTEMA DE FROTAS

[Emerson Martins da Silva]

Olá amigos...
   
  Estou aqui divulgando uma proposta para quem tenha este tipo de Sistema de 
COntrole de Frotas em qualquer banco, e que esteja afim de negociar.
   
  Tenho um colega que esta afim de comprar com Fontes de alguem se interessar 
contactar nesse email.
   
  [EMAIL PROTECTED]
   
   


Emerson Martins da Silva
Analista de Sistemas Júnior
msn:[EMAIL PROTECTED]
EMS INFORMATICA - Desenvolvimento e Suporte de Sistemas
   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

[delphi-br] Query em runtime no Rave não está funcio nando...

[Flavio]

Olá pessoal, bom dia,

tenho uma query que é construída correta e dinamicamente no aplicativo do 
delphi, mas na hora q vai gerar o relatorio, o Rave não reconhece os resultados 
que a query gerou. A query está conectada corretamente com o Rave, pq se eu 
editar o SQL da query em design time, o programa roda corretamente.

Algúem sabe trabalhar no Rave com querys criadas dinamicamente ??

Obrigado pela atenção de todos.
Flávio.

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Re: Res:SOAP com SSL

[Claudiney Cogo]

Eu tenho aqui o certificado e abriu sem problemas.

Existe um comentário no xml com o nome axis:

-  

Mas o arquivo abre normalmente. Você está com o certificado instalado? O site 
solicitou o certificado na hora da abertura?

Abraço
__
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Maringá - Paraná
www.n2solutions.com.br
www.studion2.com.br

 
  - Original Message - 
  From: Josir Gomes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, April 16, 2008 10:40 AM
  Subject: [delphi-br] Re: Res:SOAP com SSL


  Olá Francisco,
  parece que é um problema da configuração da sua rede ou do seu
  Internet Explorer. Eu tentei daqui e funcionou:

  https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL

  Só não consegui abrir o WSDL porque eu não tenho o certficado local.

  Vc já tentou pelo Firefox?

  Boa Sorte,
  Josir.

  --- Em delphi-br@yahoogrupos.com.br, "frf1103" <[EMAIL PROTECTED]> escreveu
  >
  > Caro colega, 
  > 
  > COnseguiu resolver o problema?
  > 
  > Estou com o mesmo problema e já nao sei mais para quem apelar.
  > 
  > Nao consigo acessar nem pelo Internet Explorer, quando digito 
  > https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL dá a 
  > seguinte msg:
  > 
  > "NfeRecepcao
  > Hi there, this is an AXIS service!
  > 
  > Perhaps there will be a form for invoking the service here... "
  > 
  > Sinceramente nao sei mais o que fazer.
  > 
  > Grato,
  > 
  > Francisco.
  > 
  > 
  > --- Em delphi-br@yahoogrupos.com.br, "kenji_rh"  
  > escreveu
  > >
  > > Fala Itamar!
  > > Eu tentei usar o WSDL importer e ele pede para informar o 
  > certificado,
  > > depois ele da a mensagem: "Unable to load WSDL file/location:
  > > https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL. Error
  > > [Empty Document]"
  > > Mas só que ao acessar o link pelo Internet Explorer ele traz certo!
  > > 
  > > --- Em delphi-br@yahoogrupos.com.br, Itamar Souza  
  > escreveu
  > > >
  > > > Usando o HTTPRIO você tera que usar o WSDLImporter para importar 
  > as
  > > interfaces que se encontra no servidor web e implementam as
  > > funcionalidades do webservice a serem consumidas pelo projeto 
  > cliente.
  > > > 
  > > > Você pode usar uma solução baseada em conectividade por 
  > intermédio
  > > dos agentes Cliente SOAP e Servidor SOAP, disponibilizados por um
  > > Webservice fazendo o acesso direto ao banco com a conexão SOAP.
  > > > Basta colocar um datamodulo e um componenente SoapConn e pega o
  > > endereço que esta no webservice e copia a linha URL do texto XML e
  > > conectar.
  > > > 
  > > > O resto e igual, coloca os clientDataset e fazer a conexão se 
  > você
  > > tiver usando multicamadas o RemoteServer será o SoapConn e o
  > > ProviderName será o ClientDataset do seu servidor de conexão, neste
  > > caso "executar o Fetch Params e AddAllFields"
  > > > 
  > > > Veja se isso pode lhe ajuda!!
  > > > 
  > > > 
  > > > 
  > > > -
  > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
  > > armazenamento! 
  > > > 
  > > > [As partes desta mensagem que não continham texto foram 
  > removidas]
  > > >
  > >
  >



   

  __ NOD32 3030 (20080416) Information __

  This message was checked by NOD32 antivirus system.
  http://www.eset.com


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

Re: [delphi-br] DBGrid.OnDrawColumnCell: como desenhar linha ativa

[Marcos Douglas]

Caro Ricardo,
Veja este link http://delphi.about.com/od/usedbvcl/l/aa031699.htm

Abraços
Marcos Douglas

2008/4/16 Ricardo Bianchin <[EMAIL PROTECTED]>:

> Bom dia.
>
> Usando Delphi 7.
> Num DBGrid coloquei DefaultDrawing=False
>
> Desejo desenhar a celula ativa (que estiver no registro atual) em azul
> e as celulas vizinhas desta celula, com uma cor de fundo suave, pro
> usuario saber onde ele está
>
> o usuario não achou suficiente a propriedade options com dgIndicator
> pois nao da o retorno visual suficiente.
>
> no evento OnDrawColumnCell tudo funciona bem
> ele me dá a informacao da Column que vou desenhar
> Com ela eu descubro o Column.Field.
> Mas nao achei ainda uma via de saber se a celula que estou desenhando
> representa o registro atual.
>
> nos exemplos q ja vi usam o conteudo do campo atual pra saber a cor a
> usar. mas se calhar de a coluna nao ser chave unica eu nao tenho como
> saber em q registro estou
>
> No StringGrid eu tenho a propriedade Row, no dbgrid nao tem
>
> Liguei em Options o dgRowSelect que resolveria meu probl, mas não
> gostei pois, quando ligada, se tenho q rolar a scrollbar horizontal do
> dbgrid bem pra direita pra acessar uma determinada coluna, ao clicar
> nela, ele volta a LeftCol lá pra zero!
>
> alguem tem uma idéia? parece q tem algo bem simples que me escapou!
>
> Obrigado
> Ricardo Bianchin
>
>
> 
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
>


-- 
Marcos Douglas


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

Re: [delphi-br] Re: Res:SOAP com SSL

[Ricardo Kenji]

Fala Francisco!

Aqui na minha máquina ele acessa normalmente o Link

Qualquer coisa me avise...

[]s
  - Original Message - 
  From: frf1103 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 15, 2008 12:35 AM
  Subject: [delphi-br] Re: Res:SOAP com SSL


  Caro colega, 

  COnseguiu resolver o problema?

  Estou com o mesmo problema e já nao sei mais para quem apelar.

  Nao consigo acessar nem pelo Internet Explorer, quando digito 
  https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL dá a 
  seguinte msg:

  "NfeRecepcao
  Hi there, this is an AXIS service!

  Perhaps there will be a form for invoking the service here... "

  Sinceramente nao sei mais o que fazer.

  Grato,

  Francisco.

  --- Em delphi-br@yahoogrupos.com.br, "kenji_rh" <[EMAIL PROTECTED]> 
  escreveu
  >
  > Fala Itamar!
  > Eu tentei usar o WSDL importer e ele pede para informar o 
  certificado,
  > depois ele da a mensagem: "Unable to load WSDL file/location:
  > https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL. Error
  > [Empty Document]"
  > Mas só que ao acessar o link pelo Internet Explorer ele traz certo!
  > 
  > --- Em delphi-br@yahoogrupos.com.br, Itamar Souza  
  escreveu
  > >
  > > Usando o HTTPRIO você tera que usar o WSDLImporter para importar 
  as
  > interfaces que se encontra no servidor web e implementam as
  > funcionalidades do webservice a serem consumidas pelo projeto 
  cliente.
  > > 
  > > Você pode usar uma solução baseada em conectividade por 
  intermédio
  > dos agentes Cliente SOAP e Servidor SOAP, disponibilizados por um
  > Webservice fazendo o acesso direto ao banco com a conexão SOAP.
  > > Basta colocar um datamodulo e um componenente SoapConn e pega o
  > endereço que esta no webservice e copia a linha URL do texto XML e
  > conectar.
  > > 
  > > O resto e igual, coloca os clientDataset e fazer a conexão se 
  você
  > tiver usando multicamadas o RemoteServer será o SoapConn e o
  > ProviderName será o ClientDataset do seu servidor de conexão, neste
  > caso "executar o Fetch Params e AddAllFields"
  > > 
  > > Veja se isso pode lhe ajuda!!
  > > 
  > > 
  > > 
  > > -
  > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
  > armazenamento! 
  > > 
  > > [As partes desta mensagem que não continham texto foram 
  removidas]
  > >
  >



   

  __ Informação do NOD32 IMON 3019 (20080411) __

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


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

Re: [delphi-br] cupom fiscal

[Maria das Graças .]

Em MG isso não é permitido. Você tem que usar um preço unico, e dar desconto ou 
acréscimo no item, ou no final do cupom.
  Graça

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

RE: [delphi-br] cupom fiscal

[marcio de Souza]

Obrigado pela dica Rubem.

Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: 

 Sugiro que vc se inscreva na lista AutomacaoTotal 
(http://br.groups.yahoo.com/group/AutomacaoTotal) e poste lá essa sua dúvida. 
Essa lista com certeza é o local certo pra esse questionamento. Tem muita gente 
que desenvolve sistemas pra automação comercial em várias ferramentas de 
desenvolvimento, e a interação desses sistemas com ECFs.
 
 Boa sorte
 Sds.
 
 
 
 To: delphi-br@yahoogrupos.com.br
 From: [EMAIL PROTECTED]
 Date: Wed, 16 Apr 2008 11:14:55 -0300
 Subject: [delphi-br] cupom fiscal
 
 tenho um cliente q esta querendo usar dois preços no cupom fiscal. Tipo preço1 
e preço2, e quer que seja feita uma função para alterar entre pegar o preço1 e 
o preço2 usando por exemplo o F2+tecla(A).
 Pergunto alguem usa algo parecido no cupom Fiscal? Não pode dar problemas no 
futuro?
 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 __
 Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
 http://www.msn.com.br/emoticonpack
 
   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

RE: [delphi-br] cupom fiscal

[Rubem Nascimento da Rocha]

Sugiro que vc se inscreva na lista AutomacaoTotal 
(http://br.groups.yahoo.com/group/AutomacaoTotal) e poste lá essa sua dúvida. 
Essa lista com certeza é o local certo pra esse questionamento. Tem muita gente 
que desenvolve sistemas pra automação comercial em várias ferramentas de 
desenvolvimento, e a interação desses sistemas com ECFs.

Boa sorte
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 16 Apr 2008 11:14:55 -0300
Subject: [delphi-br] cupom fiscal

tenho um cliente q esta querendo usar dois preços no cupom fiscal. Tipo preço1 
e preço2, e quer que seja feita uma função para alterar entre pegar o preço1 e 
o preço2 usando por exemplo o F2+tecla(A).
Pergunto alguem usa algo parecido no cupom Fiscal? Não pode dar problemas no 
futuro?

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!

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









_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o 
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack

[delphi-br] cupom fiscal

[marcio de Souza]

tenho um cliente q esta querendo usar dois preços no cupom fiscal. Tipo preço1 
e preço2, e quer que seja feita uma função para alterar entre pegar o preço1 e 
o preço2 usando por exemplo o F2+tecla(A).
Pergunto alguem usa algo parecido no cupom Fiscal? Não pode dar problemas no 
futuro?

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

[delphi-br] DBChart + Zeos

[carlosandresantiago]

Pessoal, me deparei com um problema sério. 

Estou utilizando o componente Zeos, e tenho um SQL "select COUNT
(ped_cod) as total from cw_pedidos". 
Quando tento utilizar o DBChart para traçar um gráfico desse valor, 
simplesmente o campo Total não aparece como opção. 
E o mais intrigante, se em vez de COUNT for SUM, ou MIN ou MAX, ele 
aparece, mais com COUNT não. 
E se eu usar o Query normal do delphi da certo. Então o problema esta 
com o componente Zeos!? 

Agradeço quem puder ajudar

RES: [delphi-br] Re: [OFF] Softwares para controle de produção

[Camoloze]

Gerson,

 

Que tipo de controle de produção você precisa?

Aqui na empresa trabalhamos com digitalização de documentos, e usamos um
soft ( pago ) muito bom. Temos relatórios de vários tipos, marcando cada
etapa do serviço, quanto tempo durou cada etapa. Compara o mesmo serviço por
usuários / períodos diferentes, etc...

 

Qualquer coisa entre em contato em PVT

 

Roberto Camoloze

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ailton Souza
Enviada em: quarta-feira, 16 de abril de 2008 09:31
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: [OFF] Softwares para controle de produção

 

Desculpem se uma simples pergunta pode ser visto como piada, como 
alguém comentou!
Mas se você ler novamente o e-mail verá que perguntei "...Pode ser pago, 
ou os fontes em Delphi grátis!.."
Encerro esta busca por aqui, e ainda bem que nessa lista existem pessoas 
experientes dispostas a ajudar independente da questão!
Agradeço a todos que me ajudaram!

Abraço,

Gerson Machado wrote:
>
> ... é tem cada assunto que parece até piada
> Serve um software de produção feito em Java e totalmente gratis com 
> fontes ... veja o Compiere ...agora vai instalar e customizar o produto.
>
>
> dangra2008 mailto:dangra2008%40yahoo.com.br"[EMAIL PROTECTED] 
> > escreveu:
> Nossa! Software de produção (que seja bom) com os fontes em Delphi
> GRÁTIS?! Difícil, hein? Diante da complexidade que um software de
> produção exige...
> Graça
>
> --- Em HYPERLINK
"mailto:delphi-br%40yahoogrupos.com.br"delphi-br@yahoogrupos.com.br 
> , Ailton Souza
> <[EMAIL PROTECTED]> escreveu
> >
> > Alguém conhece algum software de controle de produção? Pode ser
> pago, ou
> > os fontes em Delphi grátis! desde que seja bom.
> >
> > --
> > Abraços,
> >
> > Ailton Souza
> > Programador
> > skype: ailtonsouzal
> > msn: [EMAIL PROTECTED]
> > email: [EMAIL PROTECTED]
> >
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 

-- 
Abraços,

Ailton Souza
Programador
skype: ailtonsouzal
msn: HYPERLINK "mailto:ailtonsl%40hotmail.com"[EMAIL PROTECTED]
email: HYPERLINK "mailto:programadordph%40gmail.com"[EMAIL PROTECTED]

 

 

No virus found in this incoming message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.22.13/1378 - Release Date: 15/04/2008
09:12


No virus found in this outgoing message.
Checked by AVG. 
Version: 7.5.524 / Virus Database: 269.22.13/1378 - Release Date: 15/04/2008
09:12
 


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

[delphi-br] Re: Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Mais algumas informações acerca do erro.
Ele só dá na minha máquina que está fora do domínio, e somente em algumas
tabelas.
Então mesmo fora do domínio, várias queries dão certo. Outras, retornam o
erro mencionado.

Atenciosamente,
--
Sérgio Cavalcante

2008/4/16 sergio cavalcante <[EMAIL PROTECTED]>:

> Pessoal,
>
> Está acontecendo um erro muito esquisito no meu ambiente.
>
> IDE : Delphi 6
> DataWare : AdoComponents
> Banco de Dados : MySQL 5
>
> Um Select simples:
>
> Select * from pes_pessoa Where CodPes =1
>
> Dá o seguinte erro:
> "a operação de várias etapas gerou erros. verifique cada valor de status"
>
> Procurei bastante na internet e segui algumas dicas, como tirar o "persist
> info" na string connection  ou mudar o registro.
> Dentre as informações que pude coletar, isso geralmente ocorre quando vc
> atribui um valor maior do que o campo
> que vai receber.
>
> Obrigado desde já.
>
> Atenciosamente,
> --
> Sérgio Cavalcante
>
>


--


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

[delphi-br] Re: Res:SOAP com SSL

[Josir Gomes]

Olá Francisco,
parece que é um problema da configuração da sua rede ou do seu
Internet Explorer. Eu tentei daqui e funcionou:

https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL

Só não consegui abrir o WSDL porque eu não tenho o certficado local.

Vc já tentou pelo Firefox?

Boa Sorte,
Josir.

--- Em delphi-br@yahoogrupos.com.br, "frf1103" <[EMAIL PROTECTED]> escreveu
>
> Caro colega, 
> 
> COnseguiu resolver o problema?
> 
> Estou com o mesmo problema e já nao sei mais para quem apelar.
> 
> Nao consigo acessar nem pelo Internet Explorer, quando digito 
> https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL dá a 
> seguinte msg:
> 
> "NfeRecepcao
> Hi there, this is an AXIS service!
> 
> Perhaps there will be a form for invoking the service here... "
> 
> Sinceramente nao sei mais o que fazer.
> 
> Grato,
> 
> Francisco.
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "kenji_rh"  
> escreveu
> >
> > Fala Itamar!
> > Eu tentei usar o WSDL importer e ele pede para informar o 
> certificado,
> > depois ele da a mensagem: "Unable to load WSDL file/location:
> > https://homologacao.sefaz.mt.gov.br/nfews/NfeRecepcao?WSDL. Error
> > [Empty Document]"
> > Mas só que ao acessar o link pelo Internet Explorer ele traz certo!
> > 
> > --- Em delphi-br@yahoogrupos.com.br, Itamar Souza  
> escreveu
> > >
> > > Usando o HTTPRIO você tera que usar o WSDLImporter para importar 
> as
> > interfaces que se encontra no servidor web e implementam as
> > funcionalidades do webservice a serem consumidas pelo projeto 
> cliente.
> > >
> > >   Você pode usar uma solução baseada em conectividade por 
> intermédio
> > dos agentes Cliente SOAP e Servidor SOAP, disponibilizados por um
> > Webservice fazendo o acesso direto ao banco com a conexão SOAP.
> > >   Basta colocar um datamodulo e um componenente SoapConn e pega o
> > endereço que esta no webservice e copia a linha URL do texto XML e
> > conectar.
> > >
> > >   O resto e igual, coloca os clientDataset e fazer a conexão se 
> você
> > tiver usando multicamadas o RemoteServer será o SoapConn e o
> > ProviderName será o ClientDataset do seu servidor de conexão, neste
> > caso "executar o Fetch Params e AddAllFields"
> > >
> > >   Veja se isso pode lhe ajuda!!
> > >
> > > 
> > >
> > > -
> > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> > armazenamento! 
> > > 
> > > [As partes desta mensagem que não continham texto foram 
> removidas]
> > >
> >
>

[delphi-br] [Não responda] - Teste de Conhecimento Delphi

[Juliano Silva - Yahoo]

Pessoal
 
Acredito ser válido este tipo de teste, mas não respondam para que todos
possam tirar as conclusões e também treinar os conhecimentos em Delphi..
imagine a situação abaixo:
 
var
  Ini: TIniFile;
begin
  try
Ini := TIniFile.Create('TesteDelphi.ini');

EXIT;

  finally
Ini.Free;
  end;
end;
 
A pergunta: note que temos um EXIT entre o TRY e o FINALLY, quando
este código for executado, o comando INI.FREE será executado?
 
Juliano



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

Re: [delphi-br] Re: [OFF] Sof twares para controle de produção

[Ailton Souza]

Desculpem se uma simples pergunta pode ser visto como piada, como 
alguém comentou!
Mas se você ler novamente o e-mail verá que perguntei "...Pode ser pago, 
ou os fontes em Delphi grátis!.."
Encerro esta busca por aqui, e ainda bem que nessa lista existem pessoas 
experientes dispostas a ajudar independente da questão!
Agradeço a todos que me ajudaram!

Abraço,


Gerson Machado wrote:
>
> ... é tem cada assunto que parece até piada
> Serve um software de produção feito em Java e totalmente gratis com 
> fontes ... veja o Compiere ...agora vai instalar e customizar o produto.
>
>
> dangra2008 <[EMAIL PROTECTED] 
> > escreveu:
> Nossa! Software de produção (que seja bom) com os fontes em Delphi
> GRÁTIS?! Difícil, hein? Diante da complexidade que um software de
> produção exige...
> Graça
>
> --- Em delphi-br@yahoogrupos.com.br 
> , Ailton Souza
> <[EMAIL PROTECTED]> escreveu
> >
> > Alguém conhece algum software de controle de produção? Pode ser
> pago, ou
> > os fontes em Delphi grátis! desde que seja bom.
> >
> > --
> > Abraços,
> >
> > Ailton Souza
> > Programador
> > skype: ailtonsouzal
> > msn: [EMAIL PROTECTED]
> > email: [EMAIL PROTECTED]
> >
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  


-- 
Abraços,

Ailton Souza
Programador
skype: ailtonsouzal
msn: [EMAIL PROTECTED]
email: [EMAIL PROTECTED]

[delphi-br] Erro Maluco do Delphi - ADO - MySql

[sergio cavalcante]

Pessoal,

Está acontecendo um erro muito esquisito no meu ambiente.

IDE : Delphi 6
DataWare : AdoComponents
Banco de Dados : MySQL 5

Um Select simples:

Select * from pes_pessoa Where CodPes =1

Dá o seguinte erro:
"a operação de várias etapas gerou erros. verifique cada valor de status"

Procurei bastante na internet e segui algumas dicas, como tirar o "persist
info" na string connection  ou mudar o registro.
Dentre as informações que pude coletar, isso geralmente ocorre quando vc
atribui um valor maior do que o campo
que vai receber.

Obrigado desde já.

Atenciosamente,
--
Sérgio Cavalcante


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

[delphi-br] DBGrid.OnDrawColumnCell: como desenhar linha ativa

[Ricardo Bianchin]

Bom dia.

Usando Delphi 7.
Num DBGrid coloquei DefaultDrawing=False

Desejo desenhar a celula ativa (que estiver no registro atual) em azul
e as celulas vizinhas desta celula, com uma cor de fundo suave, pro
usuario saber onde ele está

o usuario não achou suficiente a propriedade options com dgIndicator
pois nao da o retorno visual suficiente. 

no evento OnDrawColumnCell tudo funciona bem
ele me dá a informacao da Column que vou desenhar
Com ela eu descubro o Column.Field. 
Mas nao achei ainda uma via de saber se a celula que estou desenhando
representa o registro atual. 

nos exemplos q ja vi usam o conteudo do campo atual pra saber a cor a
usar. mas se calhar de a coluna nao ser chave unica eu nao tenho como
saber em q registro estou

No StringGrid eu tenho a propriedade Row, no dbgrid nao tem

Liguei em Options o dgRowSelect que resolveria meu probl, mas não
gostei pois, quando ligada, se tenho q rolar a scrollbar horizontal do
dbgrid bem pra direita pra acessar uma determinada coluna, ao clicar
nela, ele volta a LeftCol lá pra zero!
 
alguem tem uma idéia? parece q tem algo bem simples que me escapou!

Obrigado
Ricardo Bianchin

Re: [delphi-br] Re: iGotDisk e iGotPC

[Valfrid-Ly Silva Couto]

Sérgio,

Eu baixei aqui e tenho o Vista em casa!!

A noite eu testo!!

Abraços

Sergio Eurico <[EMAIL PROTECTED]> escreveu: Alguem poderia testar no Windows 
Vista e postar o resultado?
Obrigado.


2008/4/15, Sergio Eurico :
>
> Olá,
>
> Estou criando uma nova versao, mais completa, do "iGot Disk" (
> http://igot.com.br/igotdisk/iGotDisk.exe ), que chamo de "iGot PC". Esta
> versao tambem informará os dados do Pendrive e midias externas (inclusive
> pretendo usar no meu outro projeto pessoal,  "iGot iPhone" ) ;-)
>
> Ainda nao tive sucesso obtendo o serial "fisico" do pendrive, mas ja tenho
> modelo, fabricante e outras infos...
>
> Se alguem quiser testar, esta disponivel em
> http://igot.com.br/igotdisk/iGotPC.exe (419kb). Feedbacks sao sempre muito
> bem vindos.
>
> -- Sergio Eurico.
>
>


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




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







   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Capturar texto ... urgente socorro...

[Paulo Casagrande]

Claudio Marconi escreveu:
>
> no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
> em arquivo separado.
>
> "tendeu" ?
>
Não!

Não colei nada apenas respondi a pergunta.
Se foi alguma coisa colada é por conta da configuração do Thunderbird :)
>
>
> > Bom dia...
> >
> > 1) Fiz de cabeça!
> > 2) Não testei!
> > 3) Os ajuste é com você!
> > 4) Okay ?
> >
> > s := copy(linha[i] ,pos('10. 5.50.',linha[ i]),maxInt) ;
> > ip := copy(s, 1, pos( ' ', s)-1);
> > s := copy(s,pos(' GET',s)+3, maxint);
> > url := copy(s, 1, pos( '- DIRECT', s)-1);
> > s := copy(s,pos(' in ',s)+4,maxint) ;
> > data := copy(s, 1, pos( ' ', s)-1);
> > Hora := copy(s,pos(' ',s)+1,8);
> >
> > Boa sorte
>

[delphi-br] Query usada não deixa ser usada ne novo... .?=

[Flavio]

Olá pessoal, bom dia,

tentei resolver de várias maneiras e não consegui. Tenho uma query q é ligada a 
um DataSetProvider q é ligado em um ClientDataSet que é utilizado em um 
relatório do Rave. A primeira vez q gero o relatório executa perfeito, mas na 
segunda vez q tento executar, o sistema não deixa eu manipular 
(query->SQL->Clear,etc...) a query que foi usada no relatório e gera um erro de 
AccessViolation, porém a query está instanciada. Tentei fechar a query antes, 
tentei setar Prepared = false de qualquer comando q manipulasse a query mas não 
funcionou.


Alguém sabe o que está acontecendo ?

Obrigado pela atenção de todos.
Flávio.

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

[delphi-br] OO com multicamadas(DataSnap)

[Claudio Marconi]

Olá galera,

tenho um conhecimento "razoavel" utilizando OO em delphi, mas tenho uma
grande duvida de como funciona
multicamadas utilizando OO.

Quero dizer:

Como faço se tenho uma classe Cliente e minha aplicacao cliente precisa
passa-la para app servidora.?

e o contrario ?
Como faço se minha app servidora precisa passar um lista de objetos
Clientes(Classe Cliente) para minha app
cliente ?

será que fui claro ? ou ficou confuso ?

obrigado a todos.

-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


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

Re: [delphi-br] Classe para Fechamento de venda

[Claudio Marconi]

Joel,
só agora vi sua mensagem.

Como está o andamento ? conseguiu desenvolver ?
Onde é a empresa(localizacao). Estou em brasilia, se tiver interresse posso
desenvolver.



Em 07/04/08, Joel Alexandre <[EMAIL PROTECTED]> escreveu:
>
>   Pessoal,
>
> Sempre que vou fazer uma rotina de fechamento de venda meu codigo
> fica um lixo. É codigo nos eventos OnExit, OnChange,
> OnMaisUmMonteDeEvento... Será que não existe uma maneira de minimizar
> estes problemas criando uma classe padrão de fechamento de venda? Alguem
> possui uma classe assim que gostaria de vender? Ou até desenvolver uma
> aqui mesmo conosco?
>
> []Os Joel
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


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

Re: [delphi-br] Capturar texto ... urgente socorro...

[Claudio Marconi]

no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
em arquivo separado.

"tendeu" ?


Em 16/04/08, Paulo Casagrande <[EMAIL PROTECTED]> escreveu:
>
>   Bom dia...
>
> 1) Fiz de cabeça!
> 2) Não testei!
> 3) Os ajuste é com você!
> 4) Okay ?
>
> s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
> ip := copy(s, 1, pos( ' ', s)-1);
> s := copy(s,pos('GET',s)+3,maxint);
> url := copy(s, 1, pos( '- DIRECT', s)-1);
> s := copy(s,pos(' in ',s)+4,maxint);
> data := copy(s, 1, pos( ' ', s)-1);
> Hora := copy(s,pos(' ',s)+1,8);
>
> Boa sorte
> >
> > ex. tenho um arquivo txt conforme abaixo
> >
> > web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
> > GET http://go.microsoft .com/fwlink/ ?
> >  - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.71 from 10.5.50.1
> > web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
> > GET http://go.microsoft .com/fwlink/ ?
> >  - DIRECT/64.4. 52.189 text/html
> > in 26-Mar 17:13:3.72 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.304 962 10.5.50.2
> > TCP_CLIENT_REFRESH_ MISS/304 171 GET
> > http://www.microsof t.com/brasil/ technet/rss/ rss.xml
> >  -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> > web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
> > GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
> >  -
> > DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> >
> > preciso pegar os seguintes campos e salva-los em uma tabela ficando +
> > ou - assim
> >
> > ex. 1 linha do arquivo acima
> >
> > campo ip campo - 10.5.50.2
> > ur - http://go.microsoft .com/fwlink/ ? <
> http://go.microsoft.com/fwlink/?>
> > Campo data - 26-Mar
> > Campo hora - 17:13:3.71
> >
> > e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
> > faça isto ?
> >
> > ja me falaram "pos" "copy" so que reparem que nada começa numa mesma
> > posição
> >
> > mas preciso de ex. mais basico
> >
> > Desde ja fico muito grato com qualquer ajuda.
> >
>
>  
>



-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


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

Re: [delphi-br] Re: [OFF] Softwares para contr ole de produção

[Gerson Machado]

... é tem cada assunto que parece até piada
  Serve um software de produção feito em Java e totalmente gratis com fontes 
... veja o Compiere ...agora vai instalar e customizar o produto.
  

dangra2008 <[EMAIL PROTECTED]> escreveu:
  Nossa! Software de produção (que seja bom) com os fontes em Delphi 
GRÁTIS?! Difícil, hein? Diante da complexidade que um software de 
produção exige...
Graça

--- Em delphi-br@yahoogrupos.com.br, Ailton Souza 
<[EMAIL PROTECTED]> escreveu
>
> Alguém conhece algum software de controle de produção? Pode ser 
pago, ou 
> os fontes em Delphi grátis! desde que seja bom.
> 
> -- 
> Abraços,
> 
> Ailton Souza
> Programador
> skype: ailtonsouzal
> msn: [EMAIL PROTECTED]
> email: [EMAIL PROTECTED]
>



   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

Re: [delphi-br] Montando comando sql com Group By, Sum, Inner Join ?????

[Claudio Marconi]

O erro é devido a vc ter colocado o campo M.Nome tambem no seu select.

Vc deve lembrar sempre: "todos" os campos que aparecerem no seu select devem
fazer parte tb do group by
entao seu group by deveria estar desta forma para que o erro no ocorresse:

GROUP BY P.IDPARADA, M.NOME

"tendeu" ?

* o todos entre aspas quer dizer todos os campos menos os que tiverem
fazendo parte das funcoes agragadas, como: SUM, COUNT,etc...


Em 16/04/08, Flavio <[EMAIL PROTECTED]> escreveu:
>
>   Olá galera, bom dia,
>
> preciso montar a seguinte consulta:
>
> SELECT P.IDPARADA,SUM(P.INSTANTEFINAL - P.INSTANTEINICIAL * 86400) AS
> TEMPOTOTAL, M.NOME FROM PARVIAGENS_CAM1234 P INNER JOIN MOTIVOS M ON
> P.IDPARADA = M.CODIGO GROUP BY P.IDPARADA
>
> ,ou seja, gostaria que o resulta fosse agrupado por IDPARADA, mas que
> fosse calculada a soma do TEMPOTOTAL de cada ítem agrupado. As duas tabelas
> P e M precisam estar agrupadas tb pelo INNER JOIN. Mas esse sql de cima tá
> dando erro.
>
> Entenderam a dúvida ? Alguém consegue me ajudar por favor ?
>
> Obrigado pela atenção de todos.
> Flávio.
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


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

[delphi-br] Montando comando sql com Group By, Sum, Inner Join ?????

[Flavio]

Olá galera, bom dia,

preciso montar a seguinte consulta:

SELECT P.IDPARADA,SUM(P.INSTANTEFINAL - P.INSTANTEINICIAL * 86400) AS 
TEMPOTOTAL, M.NOME FROM PARVIAGENS_CAM1234 P INNER JOIN MOTIVOS M ON P.IDPARADA 
= M.CODIGO GROUP BY P.IDPARADA

,ou seja, gostaria que o resulta fosse agrupado por IDPARADA, mas que fosse 
calculada a soma do TEMPOTOTAL de cada ítem agrupado. As duas tabelas P e M 
precisam estar agrupadas tb pelo INNER  JOIN. Mas esse sql de cima tá dando 
erro.

Entenderam a dúvida ? Alguém consegue me ajudar por favor ?

Obrigado pela atenção de todos.
Flávio.

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

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

[delphi-br] Re: [OFF] Softwares para controle de produção

[dangra2008]

Nossa! Software de produção (que seja bom) com os fontes em Delphi 
GRÁTIS?! Difícil, hein? Diante da complexidade que um software de 
produção exige...
Graça

--- Em delphi-br@yahoogrupos.com.br, Ailton Souza 
<[EMAIL PROTECTED]> escreveu
>
> Alguém conhece algum software de controle de produção? Pode ser 
pago, ou 
> os fontes em Delphi grátis! desde que seja bom.
> 
> -- 
> Abraços,
> 
> Ailton Souza
> Programador
> skype: ailtonsouzal
> msn: [EMAIL PROTECTED]
> email: [EMAIL PROTECTED]
>

Re: [delphi-br] Capturar texto ... urgente socorro...

[Paulo Casagrande]

Bom dia...

1) Fiz de cabeça!
2) Não testei!
3) Os ajuste é com você!
4) Okay ?

s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos('GET',s)+3,maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint);
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

Boa sorte
>
> ex. tenho um arquivo txt conforme abaixo
>
> web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
> GET http://go.microsoft .com/fwlink/ ? 
>  - DIRECT/64.4. 52.189 text/html
> in 26-Mar 17:13:3.71 from 10.5.50.1
> web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
> GET http://go.microsoft .com/fwlink/ ? 
>  - DIRECT/64.4. 52.189 text/html
> in 26-Mar 17:13:3.72 from 10.5.50.1
> web-proxy,debug, packet 1206551498.304 962 10.5.50.2
> TCP_CLIENT_REFRESH_ MISS/304 171 GET
> http://www.microsof t.com/brasil/ technet/rss/ rss.xml 
>  -
> DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
> web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
> GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml 
>  -
> DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
>
> preciso pegar os seguintes campos e salva-los em uma tabela ficando +
> ou - assim
>
> ex. 1 linha do arquivo acima
>
> campo ip campo - 10.5.50.2
> ur - http://go.microsoft .com/fwlink/ ? 
> Campo data - 26-Mar
> Campo hora - 17:13:3.71
>
> e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
> faça isto ?
>
> ja me falaram "pos" "copy" so que reparem que nada começa numa mesma
> posição
>
> mas preciso de ex. mais basico
>
> Desde ja fico muito grato com qualquer ajuda.
>

Re: [delphi-br] Capturar texto ... urgente socorro...

[Joel Alexandre]

Marcos,

Fazer o que vc precisa é muito fácil. Uma dica seria a seguinte, 
pega essa string e quebre em campos separados por espaços. Por exemplo:

FRASE PARA DEMONSTRACAO. Essa frase ficaria numa Stringlist assim:
Stringlist[0] := FRASE
Stringlist[1] := PARA
Stringlist[2] := DEMONSTRACAO

Assim fica fácil :)

Segue a funcao para quebra.

**
FUNCTION QuebraStr(BaseString, BreakString: STRING; StringList: 
TStringList): TStringList;
VAR
   EndOfCurrentString: byte;
BEGIN
   REPEAT
  EndOfCurrentString := Pos(BreakString, BaseString);
  IF EndOfCurrentString = 0 THEN
 StringList.add(BaseString)
  ELSE
 StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
  BaseString := Copy(BaseString, EndOfCurrentString + 
length(BreakString), length(BaseString) - EndOfCurrentString);
   UNTIL EndOfCurrentString = 0;
   result := StringList;
END;
**

Pra usar faça assim:

Var
  St : TStringList;
  Linha : String;
  cIp, cUrl, cData, cHora  : String
Begin
  St := TStringList.Create;
  St := QuebraStr( SuaStringDeLog, ' ', St);
  cIp := St[x];
  cUrl := St[y];
  cData := St[z];
  St.Free;
End;

É mais ou menos isso

Ps. Nao testei o fonte que coloquei aqui entao é possivel que tenha 
erros, mas é só verificar os erros e usar ok?

[]Os Joel