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,
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
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?
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
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
... é 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
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 :=
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
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
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
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)
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 (
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
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
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
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
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,
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
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 /
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
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?
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
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
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
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,
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
!!
-
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
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
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]
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
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,
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
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
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,
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,
Boa tarde Eduardo Silva,
Vc usa o MyDAC com o Firebird??
[As partes desta mensagem que não continham texto foram removidas]
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
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
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
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
ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear
Web Site: http://www.toolsandcomps.com
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,
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
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
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
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
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
Valeu deu certo.. obrigado
[]s
Em 16/04/08, Jackson Gomes - ToolsComps [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
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
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
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á
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
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
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',
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
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
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.
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]
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
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
Isso mesmo,
há 2 maneiras de obter o conteúdo de um campo de uma query:
qBuscaCodigo.asstringneste 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
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] seurico%40gmail.com escreveu: Alguem
poderia testar no Windows
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
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
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]
gostaria de sair deste grupo
obrigada
sandra
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
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
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
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
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]
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:
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
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
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
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
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.
76 matches
Mail list logo
