Re: [Bulk] Re: [delphi-br] Ajuda...Atualiza ção de Software
Em 10/02/2010 15:36, Walter Chagas (Bol) escreveu: Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Desenvolvi 3 programinhas para esse feito: 1 - o primeiro programa q fica no meu computador faz a compactacao do arquivo executavel e de um arquivo texto contendo as instruções sql de atualizacao do banco de dados. Ao compactar esses arquivos ele gera um numero ex: controle-23564.bck, controle e o nome do sistema envolvido e o numero seria a data de criacao do executavel; 2 - o segundo sistema fica no meu computador tambem... seria o servidor, esperando conexao dos clientes atraves de socket; 3 - o terceiro programa fica nos meus clientes, ao executa-lo atravez desse atualizador este manda para o servidor a data de criacao do executavel do cliente, o servidor recebe essas informações e procura o numero superior ao recebido, e envia ao cliente o arquivo atualizado; Ao receber esse arquivo ele descompacta o mesmo substitui o executavel antigo pelo novo em seguida abre o arquivo texto e executa as instruçoes sql de atualização do banco de dados caso o sistema do cliente for antigo e ir atualizando ate chegar a versão mais nova _._,___ [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] Re: [delphi-br] Capturar Imagem da WebCam
faça assim
tscap321.SaveAsBMP := 'C:\'+
datamodule1.table1.fieldbyname('nome').asstring + '.bmp'
;
Em 12/02/2010 14:42, nillgolv escreveu:
Usando o exemplo do componente tscap32, no evento onclick do botão
capturar foto da webcam
está assim:
tscap321.SaveAsBMP := 'C:\test.bmp';
Pergunto como fazer para que ao clicar em capturar a foto, esta foto
receba o nome correspondente ao nome que foi editado no campo nome
do registro.
Tipo assim:
CADASTRO DE CLIENTES
---
Nome: Fulano de tal
Cidade:
Telefone:
Que ao capturar a foto, a mesma seja salva como:
Fulano de tal.jpg
ou
Fulano de tal.bmp
Em 11/02/2010 15:40, Nazareno Neto nazareno.nobr...@gmail.com
mailto:nazareno.nobrega%40gmail.com escreveu:
eu consegui instalar ele no delphi 2009 uma vez, caso der problema na
instalação, é só vc converter as variáveis que ele ta reclamando.
quando for instalar, manda os erros que der pra min, que se eu souber a
solução te falo a correção
Em 11 de fevereiro de 2010 14:13, Iran Lima escreveu:
Eu achei ele aqui tscap32 mas acho que só funciona no Delphi 7.
Valeu a ajuda cara.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Nazareno Neto
Enviada em: quarta-feira, 10 de fevereiro de 2010 14:29
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Capturar Imagem da WebCam
a algum tempo atras eu usei o tsCap acho q é, se tiver ele por aqui
depois
te passo...
o q posso adiantar é q vc vai encontrar ele la no sourceforge.
flw
Em 10 de fevereiro de 2010 09:57, Iran Lima
escreveu:
Alguém poderia me dar uma dica de um componente FREE para capturar
imagem
da
webcam??
Grato
Iran
[As partes desta mensagem que não continham texto foram removidas]
--
Nazareno Neto
Desenvolvedor Delphi e Firebird
http://www.delphisistemas.com.br http://www.delphisistemas.com.br
nazarenon...@hotmail.com mailto:nazarenoneto%40hotmail.com
nazareno.nobr...@gmail.com mailto:nazareno.nobrega%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
--
Nazareno Neto
Desenvolvedor Delphi e Firebird
http://www.delphisistemas.com.br http://www.delphisistemas.com.br
nazarenon...@hotmail.com mailto:nazarenoneto%40hotmail.com
nazareno.nobr...@gmail.com mailto:nazareno.nobrega%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Tem como incluir um TPanel em um Form descendente, sem ter que ir um a um?
nao sei se entedi muito bem, mas dessa forma vc joga o form2 para dentro do seu panel: with form2 do begin align := alclient; parent := panel8; borderstyle := bssingle; visible := true; SHOW; end; Boa tarde; Voce pode implementar no OnCreate/DoShow do seu form TFormBasico um procedimento que faz um loop em todos os seus componentes visuais, defindo a propriedade Parent deles para apontarem para este panel. _,___ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Thread e ClientSocket1
Em 09/01/2010 23:55, klanp...@hotmail.com escreveu:
Como é seu sistema humberto ?
desculpa a demora... o sistema trabalha +/- assim
Todos os eventos estao ligados ao ONClientRead.
exemplo:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
VAR
MSG : STRING;
begin
MSG := SOCKET.ReceiveText;
if pos('ARQ!',MSG) = 1 THEN
begin
Tratamento(Socket);
end;
end;
procedure Tform1.Tratamento( Socket: TCustomWinSocket);
begin
socket.sendtext := 'Preparado para receber o arquivo'.
end;
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Como faço um SELECT s e existe registro na tabela?
DATAMODULE1.SQLDataSet1.Close;
DATAMODULE1.SQLDataSet1.CommandText := 'SELECT * FROM MINHATABELA';
DATAMODULE1.SQLDataSet1.Open;
IF DATAMODULE1.SQLDataSet1.ISEMPTY THEN
SHOWMESSAGE('NAO A NADA')
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] SQL
Em 19/01/2010 18:48, dionatanhenrique escreveu: select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE GROUP BY GRUPO, ATIVIDADE, ESTADO select GRUPO, ATIVIDADE, ESTADO, SUM(VALOR) from TESTE WHERE ATIVIDADE = 'I' AND ESTADO = 'V' GROUP BY GRUPO, ATIVIDADE, ESTADO
Re: [delphi-br] Problema ao formatar
uses db
TfloatField(cds1.FieldByName('VALOR')).DisplayFormat := '#,##0.00';
Re: [delphi-br] Thread e ClientSocket1
Vou ficar te devendo com thread, mas o sistema de atualizacao que desenvolvi ele faz simultaneamente todos juntos sem thread. klanp...@hotmail.com escreveu: Basicamente sim, mas não um chat qualquer é um chat dinâmico que trabalha com Socket + Thread. Veja em um chat comum digamos que tenha 200 pessoas conectado e você envia uma mensagem, você terá que esperar o socket tratar todos os demais pedidos antes de vc ser atendido. Usando Thread você não fica em uma fila, passa a ser atendido individualmente, atendido por um socket criado em tempo de execução e esse socket pertence somente a você o problema é se o Cliente 1, Socket 1 quiser falar com o Cliente 2, Socket 2 ? Saberia como faze-lo usando Thread? -- From: humberto sales de oliveira humberto_...@yahoo.com.br Sent: Friday, January 08, 2010 8:55 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Thread e ClientSocket1 vc quer um chat e isso? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informação do ESET NOD32 Antivirus, versão da vacina 4755 (20100108) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Informação do ESET NOD32 Antivirus, versão da vacina 4755 (20100108) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com
Re: [delphi-br] mesma coluna do dbgrid para tabelas diferentes
faça da seguinte forma
select
case when a.fantasia is null then {se o nome de fantasia for nulo ele
pegara o nome do cliente senao pega o Fantasia}
a.NOME
else
a.fantasia
end
as NomeJuntos,
a.NOME,a.FANTASIA from clientes a
Re: [delphi-br] Thread e ClientSocket1
vc quer um chat e isso?
Re: [delphi-br] radiogroup
Francisco escreveu: ola pessoal como poderia fazer pra colocar a escolha de uma opção de um radiogroup ea coloca-lo num edit? Onclick do Radiogroup: edit1.text := radiogroup1.items.strings[radiogroup1.itemindex]
Re: [delphi-br] Conversão de expressão
coloque um edite com sua operacao, em um button insira o seguinte codigo:
var
operacao : array[0..10] of double;
operador : array[0..10] of char;
x,z,z1 : integer;
vr,s : string;
begin
for x := 0 to 10 do
begin
operacao[x] := 0;
operador[x] := #0;
end;
vr := '';
s := edit1.text;
if copy(s,length(s),1) ' ' then
s := s + ' ';
z := 0;
z1 := 0;
for x := 1 to length(s) do
begin
case s[x] of
'(' : continue;
')',' ' : begin
if (vr '') then
begin
operacao[z] := strtofloat(vr);
inc(z,1);
end;
vr := '';
end;
'0'..'9' : vr := vr + s[x];
'+','-','*','/' : begin
operador[z1] := s[x];
inc(z1);
end;
end;
end;
for x := 0 to 10 do
begin
case operador[x] of
'+' : operacao[0] := operacao[0] + operacao[x+1];
'-' : operacao[0] := operacao[0] - operacao[x+1];
'/' : operacao[0] := operacao[0] / operacao[x+1];
'*' : operacao[0] := operacao[0] * operacao[x+1];
end;
end;
showmessage(floattostr(operacao[0]));
end;
Pessoal,
tenho uma string montada e preciso converte-la para um valor numerico de
forma que o cálculo seja realizado.
Ex: (100 + 20) / 4
Na verdade preciso que isso me retorne uma variavel com o valor= 30.
Alguem ja fez algo parecido ?
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
Alisson te aconselho criar um banco de dados com a estrutura correta (como vc quer) e em seguida transferir os dados usando um programa para a transferencia, ou vc cria uma ta tabela paralela com os dados corretos... transfere os dados para a nova tabela apaga antiga Alisson Yahoo escreveu: Mas e se os campos já existirem? Eu vou ter que trocar um a um via código?
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
declare dessa forma ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR; Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Visual do sistema
procure imagens nesse grupo q vc vai encontrar um link com varias imagens. Caso nao consiga me passe um email ou um ftp q disponibilizo para vc t+
Re: [delphi-br] rave report dataview dinamico
Alguem sabe como faço um Dataview dinamico no rave... Gostaria de atualizar a lista de campos do DataView na medida que minha pesquisa fosse atualizada, ja procurei bastante e nao encontrei.
[delphi-br] rave report dataview dinamico
humberto sales de oliveira escreveu: Alguem sabe como faço um Dataview dinamico no rave... Gostaria de atualizar a lista de campos do DataView na medida que minha pesquisa fosse atualizada, ja procurei bastante e nao encontrei.
Re: [delphi-br] Destruir Form
isso nao vai funcionar...pois no evento show do form vc ja quer fecha-lo...
o ideal e vc fazer dessa forma.
no botao ou menu q vai abrir o form faça assim:
try
meuform := TMeuform.create(nil);
meuform.show;
meuform.procedure1;
meuform.procedure2;
except
meuform.close;
meuform.free;
end;
no evento onclose do seu form:
action := cafree;
try
try
procedure1
preocedure2
except
Showmessage('Não foi possivel abrir a aplicação!');
Close;
end;
so que quando dou um close ele nao esta fechando o form, esta anbrindo igual..
no onclose do form tenho
Action :=cafree;
form :=nil;
Como posso resolver isso?Valeu
Re: [delphi-br] Comando SQL formatando campo
Firebird faça assim:
select
SUBSTR('000',1, 7 - STRLEN(SEUCAMPO) ) || SEUCAMPO
from TABELA
preciso dar um select SQL em um campo formatando-o com zeros a esquerda
ex
meu campo é :12134
preciso no select: 0012134
mas não estou encontrando como usar o %d no select. Alguma sugestão?
Obs: obrigatoriamente, terá que ser no select. Não posso formatar o campo
depois de obtidos os resultados.
Graça
Re: [delphi-br] keylogger
te vendo um ... captura o teclado, tira foto webcam (se tiver), captura imagem desktop envia email
Re: [delphi-br] Problemas com Backup com TIBBackupService
Estou tendo o mesmo problema, acho q vou fazer atravez do Gbak (prompt) mesmo! Dias atras um cliente formatou o computador e eu pedi para restaurar os arquivos de backup, para minha surpresa todos estavam vazios... (eu estava confiante que todos estavam perfeitos). Restaurei uma copia q estava em meu computador 3 meses atras, o cliente qse me bateu. A forma de fazer o backup e a mesma q sempre usei, sempre funcionou nas outras versoes do firebird so q nessa nao funciona. Versao: 2.1.1.17910 valdirdill escreveu: Olá, Estou enfrentando o seguinte problema. No meu sistema tenho uma rotina de backup onde utilizo o componente TIBBackupService. A restauração é feita pelo seu parceiro TIBRestoreService. Funciona bem, exceto em algumas vezes em que o backup é gerado normalmente, mas quando se faz a restauração. Sem que ocorra nenhum erro, as tabelas são restauradas completamente vazias. O arquivo fdb restaurado fica 10 MB, quando o bd vazio tem 3 mb, ou seja, parece que os dados são restaurados, mas não são legíveis. Abri o arquivo no IbExpert e as tabelas estão todas vazias, sem nenhum dado. Fiz outro teste: coloquei o banco dados original (antes de fazer o backup com problema) e gerei o mesmo backup, com a mesma versão do Firebird instalada e depois o restaurei e não o esse problema, ou seja, foi restaurado todos os dados corretamente. Alguém tem alguma idéia do que pode estar causando isso? Uso D7 e FB 2.0 Obrigado
Re: [delphi-br] Retirar um Check
Vinicius faça assim a forma q eu consegui lembrar, existe outra forma
mais facil mas o q eu lembrei foi essa:
SELECT a.RDB$CONSTRAINT_NAME, a.RDB$CONSTRAINT_TYPE,
a.RDB$RELATION_NAME, a.RDB$DEFERRABLE, a.RDB$INITIALLY_DEFERRED,
a.RDB$INDEX_NAME, a.RDB$DB_KEY
FROM RDB$RELATION_CONSTRAINTS a
procura no campo: RDB$RELATION_NAME o nome da sua tabela, achando
procure conteudo do campo RDB$CONSTRAINT_NAME e anota ele.
em seguida execute a seguinte sql
ALTER TABLE TBPACOTES drop constraint INTEG_1 troque pelo
conteudo q vc achou no campo RDB$CONSTRAINT_NAME
Vinicius escreveu:
Amigos em uma tabela coloquei um check;
ALTER TABLE TBPACOTES ADD CHECK (TIPOPACOTE IN ('N', 'E'));
Eu preciso excluir esta condição, só que não estou conseguindo..
Já tentei de varias formas e não consigo.
Não posso excluir a tabela e criar de novo pois já existe dependência.
Alguem pode me dar uma ajuda..
O banco é Firebird 2.1.218118 e estou utilizando o IBExpert 2009.01.16
Agradeço qualquer dica.
Re: [delphi-br] Pegar o valor gerado do generator do firebird
select gen_id(N_CLIENTE, 0) from RDB$GENERATORS where rdb$generator_name = 'N_CLIENTE' substitua N_CLIENTE pela sua generator nesse exemplo vai retornar o valor atual da generator
Re: [delphi-br] Controle de transações
create table test (id integer); commit; insert into test values (1); commit; insert into test values (2); savepoint y; delete from test; select * from test; -- não devolve nenhuma linha rollback to y; select * from test; -- devolve duas linhas rollback; select * from test; -- devolve uma linha pastoreantenas escreveu: Estou migrando um sistema e existem situações em que preciso iniciar uma transação nova, porém sem salvar a transação(1) anterior, fazer o processamento (inclusao, alteração, exclusao), commitar esta transação(2) e retornar à transação anterior, onde poderia efetuar um rollback ou commit. Exemplo: StartTransaction(1) edit insert StartTransaction(2) edit insert StartTransaction(3) edit insert PROCESSAMENTO 3 commit(3) EndTransaction(3) PROCESSAMENTO 2 commit(2) EndTransaction(2) PROCESSAMENTO 1 commit(1) EndTransaction(1) Quais os componentes de acesso para Firebird que permitem este controle de transações? Obrigado.
Re: [delphi-br] Abrir varias telas junto ???
No meus sistemas crio apenas o form principal e os outros form em tempo de execucao, + cada caso e um caso, na verdade eu forço o usuario a fechar a tela antes de passar para outra, so abre se essa tela tiver relacao com a primeira. Pessoal, como faço para abrir telas e minimizar quando eu quiser abrir outra sem deixar o programa muito pesado . Ajudem por favor . eu uso assim : try frmseguradora := tfrmseguradora.create(nil); frmseguradora.showmodal; finally frmseguradora.free; end; Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] problemas com imagen ...
Felipe eu geralmente uso arquivo Resources, depois abro em meu sistema, Tente no lugar do GETCURRENTDIR() - EXTRACTFILEPATH(APPLICATION.EXENAME) Felipe Milagres escreveu: galera seguinte .. tenho uma aplicação que dependendo da escolha do usuario a imagem que está no form muda.. por exemplo: quando executa o aplicativo, vc faz login .. se vc for administrador .. a imagem que fica no fundo do form é um 'circulo gigante azul' .. e se vc for usuario_normal, fundo é um 'X gigante verde' .. bom .. foi esse o codigo que eu usei para alternar entre as imagens: procedure TForm1.Button1Click(Sender: TObject);begin// administradorImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_adm_azul.bmp');end; procedure TForm1.Button2Click(Sender: TObject);begin// usuario normalImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_usuN_verde.bmp');end; porem .. se eu executar o executavel em outro lugar .. ele nao acha as imagens ... tem algum jeito de 'anexar' as imgens no executavel ..??? ps.: eu queria aproveitar o mesmo form para a aplicação ... pois quando entra como administrador ou usuario normal, ele faz uma verificação de quem é quem, e desbilita coisas para quem for usuario normal .. com isso, nao tenho que criar varios forms iguais. []s .. Dígrafo com quem andas que eu te direi quem és Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Combobox com autolista
use um DBLookupCombo, vai resolver seu probleminha, apesar de achar q nao seja a melhor forma de pesquisar Anderson escreveu: Boa noite gente... Primeiro vou me apresentar, fui programador de delphi durante muito tempo e era bom na coisa. Infelizmente larguei a programação a 12 anos atras e hoje estou voltando para fazer um sistema para minha empresa. Para minha infelicidade não estou lembrando de nada que eu fazia e lembrei que participava dessa lista antigamente e ela era uma fonte infinita de ajuda e informações... bebm, mas vamos lá em minha dúvida. Estou precisando fazer o seguinte: Tenho uma query com o parametro nome e gostaria de ter um combobox mostrasse na lista suspensa todos os nomes dentro dessa query que começassem com o que estivesse dentro do combobox a medida que eu fosse digitando. ex: eu digitei A ai o combobox abriria a lista com os nomes com A ai quando eu digitasse n aparecesse os andersons, andres, angelas..etc... Sei que é muito fácil isso pq eu fazia mas infelizmente não lembro como. Conto com a ajuda de vocês... Um Abraço Anderson Barcellos
Re: [delphi-br] ENC: TRABALHAR COM CAMPO TIME
se entendi bem ‘RESUMOTOTAL’ e ‘MINUTOSTOTAL’ sao do tipo time vc quer fazer uma conversão seja + especifico por favor... Converter em q? Bom dia pessoal, tenho um banco de dados em FIrebird com um campo ‘RESUMOTOTAL’ que é do tipo “Time”, criei outro chamado ‘MINUTOSTOTAL’ também do tipo “time”, preciso fazer a conversão do ‘RESUMOTOTAL’ para ‘MINUTOSTOTAL’ mas não estou conseguindo dentro do Delphi. Tentei fazer o seguinte: no evento on exit de um campo lá(dentro do delphi), o campo ‘RESUMOTOTAL’ é preenchido, agora so precisaria receber este campo no ‘MINUTOSTOTAL’ mas na hora de receber transformar ele. Tem como?? Atenciosamente, Ruberval F. Lucas [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ENC: TRABALHAR COM CAMPO TIME
se entendi bem ‘RESUMOTOTAL’ e ‘MINUTOSTOTAL’ sao do tipo time vc quer fazer uma conversão seja + especifico por favor? Bom dia pessoal, tenho um banco de dados em FIrebird com um campo ‘RESUMOTOTAL’ que é do tipo “Time”, criei outro chamado ‘MINUTOSTOTAL’ também do tipo “time”, preciso fazer a conversão do ‘RESUMOTOTAL’ para ‘MINUTOSTOTAL’ mas não estou conseguindo dentro do Delphi. Tentei fazer o seguinte: no evento on exit de um campo lá(dentro do delphi), o campo ‘RESUMOTOTAL’ é preenchido, agora so precisaria receber este campo no ‘MINUTOSTOTAL’ mas na hora de receber transformar ele. Tem como?? Atenciosamente, Ruberval F. Lucas [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Executar uma função...
para firebird: IBQuery1.close; IBQuery1.Sql.Text := 'SELECT RDB$PROCEDURE_NAME FROM RDB$PROCEDURES'; IBQuery1.OPEN; L.Clear; WHILE NOT IBQUERY1.Eof DO BEGIN Listbox1.items.Add(IBQUERY1.Fields[0].ASSTRING); IBQUERY1.Next; END; Evandro Siqueira escreveu: Bom dia pessoal, Estou com a necessidade de implementar uma rotina que pegue o nome de uma function ou procedure que está armazenada no banco de dados e execute-a. Isso é possível? Se sim, alguém sabe como eu posso fazer isso? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DBGrid
select case seucampo when 'true' then 'nao ticado' else 'ticado' end from suatabela stainle2003 escreveu: Gostaria de trocar o valor True de um campo no DBGrid por um visto ou seja aquela imagem que significa OK ou ticado, coisa assim. uso o Delphi 7. conto com a ajuda de vocês. grato. Stainle
Re: RES: [delphi-br] DBGrid
Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e cria o relatorio, so q essa tela fica congelada e o gif nao ativa, alguem tem alguma ideia de como apresentar essa tela sem congelar o form e iniciar o gif animado?
[delphi-br] Atualizar tela
desculpe pelo dbgrid ae! Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e cria o relatorio, so q essa tela fica congelada e o gif nao ativa, alguem tem alguma ideia de como apresentar essa tela sem congelar o form e iniciar o gif animado?
Re: [delphi-br] Unir sentenças SQL
se entedi direitinho tente dessa forma: update bal_patri set VR_DEBI = ( select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data = '31.01.2008' group by a005_debi ) , VR_CRED = ( select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data = '31.01.2008' group by a005_cred ), SAL_F = ( VR_CRED - VR_DEBI ) De: tetraetila® tetraet...@gmail.com Assunto: [delphi-br] Unir sentenças SQL Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 10 de Junho de 2009, 15:18 Olá Pessoal Eu tenho a seguinte sentença que faz um insert a partir de um select, Ok! insert into bal_patri ( a004_redu, a004_tipo, a004_estr1, a004_estr, a004_desc ) select a004_redu, a004_tipo, a004_estr as a004_estr1, a004_estr, a004_desc from a029004_tbl where a004_tipo = 'A' Ok! Gero um arquivo com os dados. Em outra sentença eu apuro o valor dos débitos: select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data = '31.01.2008' group by a005_debi e da mesma forma eu apuro os créditos: select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data = '31.01.2008' group by a005_cred e SAL_F = crédito - débito Gero mais arquivos... Eu gostaria de unir a primeira sentença um update com a segunda e terceira sentenças, ou seja fazer o insert com o select e em seguinte o update de VR_DEBI e VR_CRED e SAL_F ( SAL_F equivale a VR_CRED - VR_DEBI ). update bal_patri set VR_DEBI = ( select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data = '31.01.2008' group by a005_debi ) update bal_patri set VR_CRED = ( select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data = '31.01.2008' group by a005_cred ) update bal_patri set SAL_F = ( VR_CRED - VR_DEBI ) Isto tudo em uma única sentença, pois eu gero um arquivo tipo DBF para cada sentença e poderia gerar apenas um para a sentença inteira diminuiria bem as linhas de código. Algo assim. Obrigado! Adilson [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programa no tray icon
No form principal: private procedure WndProc(var Msg : TMessage); override; public IConData : TNotifyIconData; procedure TForm1.WndProc(var Msg : TMessage); var p : TPoint; begin case Msg.Msg of WM_USER + 1: case Msg.lParam of WM_RBUTTONDOWN: begin GetCursorPos(p); PopupMenu1.Popup(p.x, p.y); end end; end; inherited; end; procedure TForm1.FormCreate(Sender: TObject); var h :HWND; begin IconData.cbSize := sizeof(IconData); IconData.Wnd := Handle; IconData.uID := 100; IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; IconData.uCallbackMessage := WM_USER + 1; IconData.hIcon := Application.Icon.Handle; StrPCopy(IconData.szTip, 'Servidor'); //nome do seu servidor Shell_NotifyIcon(NIM_ADD, @IconData); ShowWindow(Application.Handle,SW_HIDE); SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION); //tira a borda e barra de titulo end; popupmenu para abrir show;
Re: [delphi-br] Executar programa remotamente
A solução q eu encontrei foi desenvolver um Cliente e um Servidor usando os components TclientSocket e TServeSocket (delphi6) , coloco no server os textos chaves para qdo for recebido ser executado determinados comandos. lucaoliveira7 escreveu: Pessoal, Alguém sabe como executar um programa que fica armazenado em um máquina da rede, tipo, se eu quiser executar a calculadora de um computador da minha rede. Assumindo que a pasta está compartilhada e todas as configurações de acesso já foram feitas. Eu sei que eu posso mapear um drive e utilizar o Winexec e acabou o problema. Mas não sei porque em alguns computadores não aceita o mapeamento por drive e aí tenho que usar o endereço. Tipo: winexec(\\189.1.1.1\c:\windows\system32\calc.exe,sw_shownormal); E aí não roda a calculadora, alguém tem alguma idéia de como posso resolver? Grato
Re: [delphi-br] Ajuda
uses a função abaixo e menos doloroso.
label1.caption := formatdatetime('ddd, dd de de ' , date);
francisleisouza escreveu:
ola meu nome é Francislei eu tou criando um programa comercial em Delphi
atraves de um livro Delphi5 e meu pc ta com o programa instalado Delphi6 e eu
tou na parte que pede para colocar DataHora por Extenso e pede para colocar
estas linguajem.
Exemplo:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls;
type
TFRMPrin = class(TForm)
SBDataHora: TStatusBar;
Timer1: TTimer;
procedure Timer1Timer'(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Function DataPorExtenso : String;
end;
var
FRMPrin: TFRMPrin;
Implementation
{$R *.dfm}
Function TFRMPrin.DataPorExtenso:String;
const
Meses :Array [1..12] of String =
('Janeiro','Fevereiro','Março','Abril','Maio',
'Junho','Julho','Agosto','Setembro','Outubro',
'Novembro','Desembro');
Semana :Array [1..7] of String =
('Domingo','Segunda-Feira','Terça-Feira',
'Quarta-Feira','Quinta-Feira','Sexta-Feira',
'Sabado');
Var
Dia,Mes,Ano,DiaSem:Word;
begin
DecodeDate(Date,Ano,Mes,Dia);
DiaSem := DayOfWeeK(Date);
Result := Semana[DiaSem] + ','+ IntToStr(Dia) +
' de '+ Meses[Mes] + ' de ' + IntToStr(Ano);
end;
E ta dando este Erro: Expected';'but found Me ajuda por Favor
Meu E mail francisleiso...@yahoo.com.br
Re: [delphi-br] Re: Trabalhar com Muitos Labels
Vê se te esclarece algo com esse codigo abaixo:
ponha 4 label no seu form e tenta esse codigo.. acho q vai resolver seu
problema
var
x : integer;
begin
table1.First;
x := 1;
while not table1.Eof do
begin
(Form1.FindComponent('label' + inttostr(x)) as TLabel).CAPTION :=
table1.fields[0].asstring;
x := x + 1;
table1.Next;
end;
Re: [delphi-br] criando evento para Shape
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
procedure FormCreate(Sender: TObject);
private
procedure shapeClick(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.shapeclick(Sender: TObject);
begin
showmessage('vc clicou o shape');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
shape1.ControlStyle := shape1.ControlStyle + [csClickEvents];
TForm(shape1).OnClick := shapeClick;
end;
end.
[delphi-br] Rave - inserir um bitmap do disco no relatorio
Como faço para abrir em um component bitmap do rave um arquivo .BMP do disco?
Re: [delphi-br] Rave - inserir um bitmap do disco no relatorio em tempo de execução?
Como faço para abrir em um component bitmap do rave um arquivo .BMP do disco em tempo de execução?
[delphi-br] Relatorio Rave - Buscar uma imagem no disco
Dei uma pesquisada na net e nao encontrei... gostaria de buscar uma imagem .bmp e inseri ela no meu relatorio... essa imagem e uma arquivo que esta em uma pasta no disco... tem como? Obrigado!
Re: [delphi-br] Ajuda com Caracter sets
Vinicius .. Deparei essa semana com isso... Coloquei dois ibdatabases um abria o banco de dados antigo o outro o novo, so q eu tinha esquecido de mudar no segundo ibdatabase para character set win1252, ae gerou esse erro q vc teve... Coloquei e funcionou corretamente, talvez seja a mesma coisa q aconteceu comigo --- Em qui, 5/2/09, Vinicius da Silva Pinto vinic...@cnen.gov.br escreveu: De: Vinicius da Silva Pinto vinic...@cnen.gov.br Assunto: [delphi-br] Ajuda com Caracter sets Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 5 de Fevereiro de 2009, 8:45 Bom dia a todos, o problema é o seguinte: tem um banco de um cliente, que já está em produção, mais estava apresentando alguns erros de indice, fora de ordem com problemas em acentuação. Verifiquei que o banco foi criado com CARACTER SET = NONE e sei que isto gera uma série de problemas. Solução, copiei as estruturas de todas as tabelas e criei um banco novo, com CARACTER SET = WIN1250, sempre utilizei ele e não tive problemas. Só que na hora que eu estou copiando os dados de uma tabela do banco antigo pro banco novo, logo depois do primeiro registro aparece a seguinte mensagem: arithmetic exception, numeri overflow, or string truncation. Cannot transliterate character between character sets Alguem tem alguma sugestão pra me passar, qual a melhor maneira de eu corrigir este problema no banco antigo?? tem alguma outra maneira de se fazer isto?? Estou utilizando D7 e InterBase. Aguardo qq resposta. Vinicius Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Capturar as mensagens do firebird
acho q vc nao leu minha resposta direito... dizendo desde ja agradeço, sobre como resolvi: usei o componete ApplicationEvents, sobre a duvida era pra pegar o numero do except do erro do firebird. Obrigado NOVAMENTE pela sua explicacao, mas realmente nao era o q eu precisava. Rubem Nascimento da Rocha escreveu: Q bom q já conseguiu. Mas pelo menos sinta-se grato pela lista explicando para os colegas da lista o q realmente vc tinha de dúvida e qual foi a solução que vc tomou, pq assim como vc outros colegas podem recorrer a esta lista com o mesmo tipo de problema. Assim fica um negócio chato, do tipo venha a nós, e ao vosso reino... nada!. Não é verdade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:humberto_s_o%40yahoo.com.br Date: Tue, 16 Sep 2008 20:54:40 -0300 Subject: Re: [delphi-br] Como Capturar as mensagens do firebird Rubens obrigado, mas nao e isso q eu qria..., + ja consegui resolver.. desde ja agradeço. :-) Qdo vc fala de msgs vc está se referindo, na verdade, nas exceções(erros) que são levantados pelo FireBird? Se sim, a abordagem inicial, para qualquer banco de dados, é usar o bloco try..except para interceptar as exceções do banco de dados. Dependendo do tipo de acesso que vc usa para acessá-lo (ADO/dbGo, dbExpress, DataSnap, etc.), vc deverá usar eventos apropriados dos seus componentes de acesso a dados a nível de dataset para tratar essas exceções. Exemplo: Se vc usa datasets do ADO (TADOQuery) e faz uso de DataSnap (TDataSetProvider e TClientDataSet), deverá tratar as exceções do banco de dados no evento OnReconcileError do componente TClientDataSet. __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Auto Incremento
Vc deve informar qual o tipo de banco de dados q vc usa... pois cada um tem formas diferentes de resolver seu problema Paradox (creio q seja esse q vc usa) - crie um campo autoincrement (incrementacao automática);
[Fwd: Re: [delphi-br] (unknown)]
select first 1 *seucampo* from *suatabela* where *campodata* between :data1 and :data2 order by *campodata* desc [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] que duvida!!!!!
vc esta falando de skins? se for tenho um component q faz isso, so q tenho q dar uma procurada aqui. mas a versao e pra delphi 6... nao testei nas outras
Re: Res: [delphi-br] Alterar a cor da célula em um StringGrid
procedure TVendasVendedor.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin IF ACOL = 3 THEN BEGIN Stringgrid1.canvas.Brush.color := $00FFF1D5;// $00C08000; Stringgrid1.Canvas.Font.Color := clBLACK; Stringgrid1.Canvas.Font.Name := 'TAHOMA'; Stringgrid1.Canvas.FillRect(Rect); STRINGGRID1.Canvas.TextOut(RECT.LEFT + 3,RECT.TOP,STRINGGRID1.Cells[ACOL,AROW]); END;
Re: Res: [delphi-br] Alterar a cor da célula em um StringGrid
procedure TVendasVendedor.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin IF (Arow 0) and (ACOL = 6) THEN BEGIN if strtofloat(StringGrid1.cells[Acol,ARow]) = 0 then Stringgrid1.Canvas.Font.Color := clred else Stringgrid1.Canvas.Font.Color := clblue; Stringgrid1.Canvas.Font.Name := 'TAHOMA'; Stringgrid1.Canvas.FillRect(Rect); STRINGGRID1.Canvas.TextOut(RECT.LEFT + 3,RECT.TOP,STRINGGRID1.Cells[ACOL,AROW]); END;
Re: [delphi-br] Problema ao compilar - Duplicate resource(s):
Esse erro e devido ao tentar acrescentar um componente com o mesmo nome de um ja instalado, vc deve remover a package deste componente e seu path. inacio_mecena escreveu: Ola pessoal to com o seguinte erro abaixo: [Error] WARNING. Duplicate resource(s): [Error] Type 2 (BITMAP), ID CEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\CurrEdit .R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\rxCurrEd it.R32 resource discarded. [Error] Type 2 (BITMAP), ID DBN_CANCEL: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_DELETE: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_EDIT: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_FIRST: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_INSERT:[ Error] File c:\arquivos de programas\borland\ delphi6\Lib\ QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_LAST: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_NEXT: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_POST: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_PRIOR: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DBN_REFRESH: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBCtrls. res resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ dbctrls.res resource discarded. [Error] Type 2 (BITMAP), ID DEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxToolEd it.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\ToolEdit .R32 resource discarded. [Error] Type 2 (BITMAP), ID FEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxToolEd it.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\ToolEdit .R32 resource discarded. [Error] Type 2 (BITMAP), ID NEXT1: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID NEXT2: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID PREV1: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID PREV2: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxPickDa te.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\PickDate .R32 resource discarded. [Error] Type 2 (BITMAP), ID SEDITBMP: [Error] File C:\Projetos\ rxlib-2.7. 6\Units\rxToolEd it.R32 resource kept; file C:\Projetos\ rxlib-2.7. 6\Units\ToolEdit .R32 resource discarded. [Error] Type 10 (RCDATA), ID TLOGINDIALOG: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBLogDlg. xfm resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ DBLOGDLG. dfm resource discarded. [Error] Type 10 (RCDATA), ID TPASSWORDDIALOG: [Error] File c:\arquivos de programas\borland\ delphi6 \Lib\QDBPWDlg. xfm resource kept; file c:\arquivos de programas\borland\ delphi6\Lib\ DbPWDlg.dfm resource discarded. Att.. Inácio Mecena
Re: [delphi-br] Calculo de datas
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime; declare a unit: SysUtils Antonio Mateus escreveu: Olá pessoal, sou iniciante no mundo Delphi e estou com o seguinte problema, eu tenho uma data inicial e o numero de meses e preciso que o sistema calcule e me mostre a data final a partir dessas 2 informações ja tentei no google mas sempre encontro calculos entre 2 datas mas nesse caso eh uma data e o numero de meses para mostrar a data final desse calculo, se alguem puder me ajudar eu ficarei muito agradecido ! Obrigado. -- Antonio Mateus Estudante de Sistemas de Informação [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] caminhar automaticamente dentro de um filelist
vc quer andar dentro deo fileListbox e isso?? se for isso tem jeito nao.. estraga Clovis iTelefonica escreveu: Ola Pessoal Boa tarde e Saudações Como faço para cominhar automaticamente dentro de um FileListBox? Obrigado Clovito Clovis Machado Ferreira Que o grande arquiteto do Universo nos Ilumine Dourado(SP) - clovito.ferreira@ hotmail.com mailto:clovito.ferreira%40hotmail.com(MSN) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar pasta no Linux
Vc tem permissao pra criar pasta ? Vc usa o samba pra compartilhar as pasta do linux? Se o usuario q vc esta logado no windows nao tiver permissao sobre a pasta vc nao cria, se vc estiver usando o samba pra compartilhar verifique no smb.conf se as opcoes [public] path = /home/teste - pasta compartilhada guest ok = yes possibilita qualquer usuario ate mesmo sem senha usar a pasta writable = yes criar e salvar arquivos e permitida
Re: [delphi-br] WebCam - Remover imagem do dispositivo
procure por RJACAMERA e um componente free para acesso a webcam
Re: [delphi-br] Sistema grava mais não atuali za na rede
vá no ibtransaction1 e coloque na propriedade params: READ_COMMITTED REC_VERSION dessa forma todas as transacoes comitadas serao vista no outro aplicativo na rede, nao se esqueca q o outro aplicativo tem q fazer o mesmo. qdo vc comitar a transacao em um aplicativo, no outro basta vc abrir novamente a pesquisa q vc vai ver os dados. Régis Bender escreveu: Utilizo o IbQuery. sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] com.br mailto:regissk8%40terra.com.br www.regisbender. com.br - Original Message - From: Humberto Sales To: [EMAIL PROTECTED] os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, August 05, 2008 6:23 PM Subject: Re: [delphi-br] Sistema grava mais não atualiza na rede qual componentes vc esta usando? talvez possa ajuda-lo. Bom dia pessoal, estou com um problema na gravação dos meus registros. Utilizo D7 + IB 6.5. Se gravo um registro em uma máquina da rede, quando consulto em outro terminal o registro não grava/Atualiza, somente depois de fechar o sistema e abri-lo novamente. No final de cada execução de comando (dmBuscas.ibqTemp. ExecSQL;) eu comito a transação(dmConecta. ibtTransaction. CommitRetaining; ). Alguém pode me ajudar? _ _ _ _ _ _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdo messenger. com.br http://www.amigosdo messenger. com.br http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema grava mais não atuali za na rede
qual componentes vc esta usando? talvez possa ajuda-lo. Bom dia pessoal, estou com um problema na gravação dos meus registros. Utilizo D7 + IB 6.5. Se gravo um registro em uma máquina da rede, quando consulto em outro terminal o registro não grava/Atualiza, somente depois de fechar o sistema e abri-lo novamente. No final de cada execução de comando (dmBuscas.ibqTemp. ExecSQL;) eu comito a transação(dmConecta. ibtTransaction. CommitRetaining; ). Alguém pode me ajudar? _ _ _ _ _ _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdo messenger. com.br http://www.amigosdomessenger.com.br
Re: [delphi-br] 'Record not found' - depois de um Post
ja tentou com brackpoint do delphi? Flavio escreveu: Olá pessoal, boa tarde, estou com um pequeno probleminha. Se vocês puderem me ajudar, agradeço e muito. É o seguinte: faço uma consulta em uma query e os dados são carregados no ClientDataSet. Edito 3 campos desse ClientDataSet e quando executa a instrução Post para aplicar as alterações, dá a mensagem 'Record not found'. O problema é que ele dá isso de vez em nunca, ou seja, descobri em uma sequencia de execuções q faço dentro do meu programa com algumas entradas em particular. Colocar o código aqui é meio q inviável, pois é muito grande. O que gostaria de saber é se isso já aconteceu com alguém e como resolveu, ou se alguém tem alguma dica ou solução... Sinceramente não estou conseguindo visualizar o erro, pois ele está camuflado em alguma parte do sistema. Obrigado pela atenção de todos, Flávio. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] perda de dados firebird [resolvido]
a quem possa interessar: achei o problema da perda de dados do firebird, era a memoria do computador do cliente... trocamos... e tudo resolvido
Re: RES: [delphi-br] Aplicativo tipo MSN
criei um usando o Serversocket e o Clientsocket do delphi6.
Re: [delphi-br] Exec outro App sem ser formato .exe
crie parametros no aplicativo, assim so vc sabe qual o parametro pra executa-lo, fora do seu sistema esse aplicativo nao vai ser executado!
[delphi-br] perda de dados firebird.
Bom dia pessoal... estou precisando de uma dica ou luz... tenho um
sistema implantado em uma industria, e alguns dias pra cá esse sistema
vem perdendo informação, no inicio até pensei que fosse sacanagem da
moça que opera o sistema, mas fiz um log para qdo ela fizesse algumas
das operações básicas (inserir,apagar,editar) o sistema gerasse um
arquivo com o procedimento que ela fez, foi comprovado q o sistema esta
realmente perdendo informaçao e o mesmo so perde em uma so tabela
(MateriaPrima).
Estrutura da tabela:
CREATE TABLE MATERIAPRIMA
(
CODIGO VARCHAR(13),
COD VARCHAR(13),
QTD DECIMAL(12,3)
);
Componentes de Conexao:
Paleta - Interbase
.
.
.
D.Transaction1.StartTransaction;
D.Procura3.Close;
D.Procura3.SQL.Text := 'INSERT INTO MATERIAPRIMA (CODIGO,COD,QTD)
VALUES (:CODIGO,:COD,:QTD)';
D.Procura3.ParamByName('CODIGO').AsString := LABEL7.Caption;
D.Procura3.ParamByName('COD').AsString := COD.TEXT;
D.Procura3.ParamByName('QTD').AsFLOAT := QTD.AsFLOAT;
D.Procura3.execSql;
D.Transaction1..CommitRetaining;
.
.
.
Ja tentei:
* Recriei a tabela;
* Criação de backup e em seguida restauracao;
* Comando para reparacao gfix -mend -full -ignore
C:\PROGRAMAS\DADOS\BANCO.GDB (nao da nenhuma mensagem de erro);
* Recriei o banco de dados (restauracao do backup banco de dados) em um
servidor linux dedicado;
* Verifiquei o metadata do banco de dados e não há nada que referencie a
tabela;
* Nao uso referencias nem indices no meu banco de dados
Se alguem possa me lembrar algo ou tenha uma solucao, por favor estou
aberto a qualquer observacao. Obrigado pela atenção.
Re: [delphi-br] perda de dados firebird.
Já tentei o D.Transaction1.Commit;
Aureo Koppe escreveu:
ParamByName é uma função, e depois você não está comitando os dados
alterados no servidor
Tente assim:
D.Transaction1.StartTransaction;
D.Procura3.Close;
D.Procura3.SQL.Text := 'INSERT INTO MATERIAPRIMA (CODIGO,COD,QTD)
VALUES (:CODIGO,:COD,:QTD)';
D.Procura3.Param[0].AsString := LABEL7.Caption;
D.Procura3.Param[1].AsString := COD.TEXT;
D.Procura3.Param[2].AsFLOAT := QTD.AsFLOAT;
D.Procura3.execSql;
//D.Transaction1..CommitRetaining;
D.Transaction1..Commit;
2008/7/24 Rafael Jorge [EMAIL PROTECTED]
mailto:rafael.jorge%40gmail.com:
aconteceu o mesmo comigo.
fiz um backup restore. mas continuou dando bronca.
ai recriei o banco todo. mas minha credibilidade com o cliente foi
pro lixo.
tanto que dois messes depois ele retirou meu sistema de la. pois ele
perdeu
informacoes de vendas importanticimas.
intao conselho coloquei um modulo de backup-restore no teu sistema e
faça
com que ele de pelo menos a cada mes obrique o usuario a faze-lo.
t+
2008/7/24 Humberto Sales [EMAIL PROTECTED]
mailto:humberto_s_o%40yahoo.com.br:
Bom dia pessoal... estou precisando de uma dica ou luz... tenho um
sistema implantado em uma industria, e alguns dias pra cá esse sistema
vem perdendo informação, no inicio até pensei que fosse sacanagem da
moça que opera o sistema, mas fiz um log para qdo ela fizesse algumas
das operações básicas (inserir,apagar,editar) o sistema gerasse um
arquivo com o procedimento que ela fez, foi comprovado q o sistema esta
realmente perdendo informaçao e o mesmo so perde em uma so tabela
(MateriaPrima).
Estrutura da tabela:
CREATE TABLE MATERIAPRIMA
(
CODIGO VARCHAR(13),
COD VARCHAR(13),
QTD DECIMAL(12,3)
);
Componentes de Conexao:
Paleta - Interbase
.
.
.
D.Transaction1.StartTransaction;
D.Procura3.Close;
D.Procura3.SQL.Text := 'INSERT INTO MATERIAPRIMA (CODIGO,COD,QTD)
VALUES (:CODIGO,:COD,:QTD)';
D.Procura3.ParamByName('CODIGO').AsString := LABEL7.Caption;
D.Procura3.ParamByName('COD').AsString := COD.TEXT;
D.Procura3.ParamByName('QTD').AsFLOAT := QTD.AsFLOAT;
D.Procura3.execSql;
D.Transaction1..CommitRetaining;
.
.
.
Ja tentei:
* Recriei a tabela;
* Criação de backup e em seguida restauracao;
* Comando para reparacao gfix -mend -full -ignore
C:\PROGRAMAS\DADOS\BANCO.GDB (nao da nenhuma mensagem de erro);
* Recriei o banco de dados (restauracao do backup banco de dados) em um
servidor linux dedicado;
* Verifiquei o metadata do banco de dados e não há nada que
referencie a
tabela;
* Nao uso referencias nem indices no meu banco de dados
Se alguem possa me lembrar algo ou tenha uma solucao, por favor estou
aberto a qualquer observacao. Obrigado pela atenção.
--
--
Rafael jorge alves (Analista/desenvolvedor)
www.sistemafocus.com.br
sistema focus de gestão comercial e serviços em informatica.
--
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClientDataSet BMP x JPG
tente assim:
edCLI_IMG_FOTO. picture.LoadFromF ile('Imagem. bmp');
[ NAO FUNCIONA ]
Juliano Silva - Yahoo [EMAIL PROTECTED] escreveu:
Pessoal
Estou fazendo a captura de imagem dos clientes (com webcam) mas o
ClientDataSet não aceita que eu coloque no banco uma imagem no formato JPG,
apenas BMP... como estou fazendo:
1. Capturo a foto da WebCam, esta é salva como BMP
2. Converto para JPG a foto pois fica muito menor então fico com 2 imagens
(Imagem.bmp e Imagem.jpg)
3. Carrego o campo com a imagem JPG mas não funciona, apenas como BMP
funciona.
[ FUNCIONA ] edCLI_IMG_FOTO.Bitmap.LoadFromFile('Imagem.bmp');
[ NAO FUNCIONA ] edCLI_IMG_FOTO.Bitmap.LoadFromFile('Imagem.jpg');
[ NAO FUNCIONA ] edCLI_IMG_FOTO.LoadFromFile('Imagem.jpg');
** PORQUE NÃO FUNCIONA JPG ?
Utilizo o Firebird 1.5 o campo CLI_IMG_FOTO é do tipo BLOB 0
att.
Juliano Silva
[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] IBSQL
IBSQL nao e um dataset... usa o IBQUERY Geralmente uso o IBSQL pra fazer correções (criar e alterar tabelas, trigger e outros) no meu banco de dados Maycon Sanches Amaro [EMAIL PROTECTED] escreveu: Pessoal to tentando efetuar uma query através do IBSQL mas não estou conseguindo. Alguém poderia me dar uma força.. Coloquei a query no SQL mas e agora.. como faço pra executa-la e jogar o resultado em um combo?? Valeu. -- Att. Maycon Sanches Amaro - 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] Order by por mais de um campo?
order by data,horario_inicio
ou
order by 1,2 - usando os indices do compo
Vicente Alves [EMAIL PROTECTED] escreveu:
BOA TARDE A TODOS!
Tenho uma consulta que ordena desta maneira:
datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA');
como faço pra ela ordenar ao mesmo tempo por HORARIO_INICIO ??
DELPHI 7
OBRIGADO!!!
__
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-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]
Re: [delphi-br] Firebird para DBF [OFF TOPIC]
E isso ae Joao Morais concordo com vc plenamente... cara chato! Joao Morais [EMAIL PROTECTED] escreveu: Rubem Nascimento da Rocha wrote: O que isso tem haver com o tópico 'Firebird para DBF'? É aquela infeliz idéia de responder um tópico para criar outro. Mudar o título não iria resolver o problema real. E a sua resposta, o que tem a ver com a pergunta? ;) -- Joao Morais - 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] Como faço para reproduzir so m wav?
ae rubem brigadu mas ja sabia
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
De fato Humberto, eu ia sugerir essa função (e não comando!) da API do Windows.
Boa dica!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 10 Mar 2008 22:59:17 -0300
Subject: Re: [delphi-br] Como faço para reproduzir som wav?
sndPlaySound --- api do windows... com esse comando vc toca, nao esqueca de
declarar a unit MMSystem em USES
EXEMPLO:
sndPlaySound('C:\Documents and Settings\humberto
sales\Desktop\musicas\Ayla\~TC2.wav',SND_ASYNC OR SND_FILENAME)
dorival_vicente2006 [EMAIL PROTECTED] escreveu:
Como faço para reproduzir um som de alerta ao clicar em um botão? USO O
DELPHI 7. SE ALGUÉM PUDER AJUDAR ?
OBRIGADO!
-
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] Ponto de Venda
trabalho com o emulador da bematech,,, vc pode ver um exemplo q vem com a instalacao do emulador... Alexandre [EMAIL PROTECTED] escreveu: Ja fiz todo o procedimento, instalei o emulador, configurei o arquivo BemaFI32.ini, e etc. Como eu faço para fazer um teste e ver que a impressora emulada esta funcionando?? Alex - Original Message - From: Jhosef Marks To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 28, 2008 5:51 PM Subject: Re: [delphi-br] Ponto de Venda Pega os arquivos no site e ja era, vc precisa colocar a DLL BemaFI32.dll e o arquino BemaFI32.ini, configura a propriedade do ini EmuMFD para 1... e pronto, junto da dll tem um help com a chamada para as funções, baixa tbem o emulador, no site soh tem o emulador para impressora termica, mas vc pode pedir pro suporte mandar o emulador de impressora fiscal, eu implementei isso no meu sistema e ficou show de bola... Depois q faz isso ai eh soh implementar o TEF e ja era... rs... Em 28/02/08, Vinicius Santos - MSI [EMAIL PROTECTED] escreveu: Baixa a biblioteca ACBr direto do CVS no sourceforge.net. Tem suporte a várias ECF's, tem uma boa discussão nos fóruns, além de outras funcionalidades... 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: Alexandre To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 28, 2008 2:40 PM Subject: [delphi-br] Ponto de Venda Pessoal alguem sabe como usar a impressora da BEMATECH para ponto de venda?Estou querendo implementar no meu sistema, mas o pessoal do Suporte deles é muito atrapalhado. Alex [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] __ NOD32 2911 (20080229) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Icone da barra de taref as piscar p/ chamar a atenção
esse livro vc vai encontrar em qse todas livrarias virtuais, e so procurar no google por livraria, e la vc faz a pesquisa... o meu particularmente comprei em uma livraria virtual, so q esqueci a qual, senao te passava Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Talvez.. em uma livraria? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jhosef Marks Enviada em: sexta-feira, 29 de fevereiro de 2008 09:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Icone da barra de tarefas piscar p/ chamar a atenção Onde conseguimos esse livro?? Em 28/02/08, humberto sales [EMAIL PROTECTED] mailto:humberto_s_o%40yahoo.com.br escreveu: coloca um timer no form var t : boolean; procedure TForm1.Timer1Timer(Sender: TObject); begin t := not(t); if t = true then FlashWindow(Application.Handle ,true) ///pisca a barra de tarefas do windows else FlashWindow(Handle ,true); //pisca a barra de titulo do form end; (leia livro Delphi Apis e Sockets (hugo S Novaes e Fabio Camara ) tem muita coisa a respeito) espero q tenha ajudado... t+ fabio giro [EMAIL PROTECTED] mailto:fabio_giro%40yahoo.com.br fabio_giro%40yahoo.com.br escreveu: Veja se isto serve: FlashWindow(Handle, True); FlashWindow(Application.Handle, True); coloca em um timer eh pronto... Espero ter ajudado. Valdir Sola [EMAIL PROTECTED] mailto:valdir.sola%40ig.com.br valdir.sola%40ig.com.br escreveu: Boa tarde a todos, Alguém conhece algum componente que faça o icone da janela na barra de tarefas piscar p/ chamar a atenção, tipo messenger? Obrigado - 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] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [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] Icone da barra de tarefas pi scar p/ chamar a atenção
resposta para o Alexandre do pitaco. alexandre, com certeza seu pitaco e muito informativo pra leigos, passei o codigo daquela forma pq nao conheco o nivel de informacao q ele tem do delphi daquela forma tenho certeza q ele vai interpretar melhor o codigo passado, ao inves de vc dar pitaco dê respostas construtivas pra ajuda da nosso grupo... t + Alexandre Nicolas [EMAIL PROTECTED] escreveu: Só dando um pitaco, fazer um if com uma comparação: T = true é chover no molhado. toda comparação é internamente um calculo lógico, então, se a variável já contem um valor lógico pode-se simplificar: t:=true ; if T then begin end else begin ... end ; - Original Message - From: humberto sales To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 28, 2008 10:49 PM Subject: Re: [delphi-br] Icone da barra de tarefas piscar p/ chamar a atenção coloca um timer no form var t : boolean; procedure TForm1.Timer1Timer(Sender: TObject); begin t := not(t); if t = true then FlashWindow(Application.Handle ,true) ///pisca a barra de tarefas do windows else FlashWindow(Handle ,true); //pisca a barra de titulo do form end; (leia livro Delphi Apis e Sockets (hugo S Novaes e Fabio Camara ) tem muita coisa a respeito) espero q tenha ajudado... t+ fabio giro [EMAIL PROTECTED] escreveu: Veja se isto serve: FlashWindow(Handle, True); FlashWindow(Application.Handle, True); coloca em um timer eh pronto... Espero ter ajudado. Valdir Sola [EMAIL PROTECTED] escreveu: Boa tarde a todos, Alguém conhece algum componente que faça o icone da janela na barra de tarefas piscar p/ chamar a atenção, tipo messenger? Obrigado - 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] [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]
[OFF TOPIC]Re: RES: [delphi-br] Icone da barra de tarefas piscar p/ chamar a atenção
Resposta para Ricardo Cesar Cardoso amigo passei a sujestao do livro tentando ajuda, se o tal livro nao esta mais a venda ... paciencia, pois qdo comprei ele tava, agora vc acha q tenho q passar toda a informacao de livro preco e tudo mais vai ficar querendo Ricardo César Cardoso [EMAIL PROTECTED] escreveu: A sugestão do livro foi ótima. Só faltou pesquisar um pouco mais e dizer a ele que este livro não está mais disponível para venda. Talvez se tentar contatar a editora tenha mais sorte. Atte, Ricardo. Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Talvez.. em uma livraria? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jhosef Marks Enviada em: sexta-feira, 29 de fevereiro de 2008 09:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Icone da barra de tarefas piscar p/ chamar a atenção Onde conseguimos esse livro?? Em 28/02/08, humberto sales [EMAIL PROTECTED] mailto:humberto_s_o%40yahoo.com.br escreveu: coloca um timer no form var t : boolean; procedure TForm1.Timer1Timer(Sender: TObject); begin t := not(t); if t = true then FlashWindow(Application.Handle ,true) ///pisca a barra de tarefas do windows else FlashWindow(Handle ,true); //pisca a barra de titulo do form end; (leia livro Delphi Apis e Sockets (hugo S Novaes e Fabio Camara ) tem muita coisa a respeito) espero q tenha ajudado... t+ fabio giro [EMAIL PROTECTED] mailto:fabio_giro%40yahoo.com.br fabio_giro%40yahoo.com.br escreveu: Veja se isto serve: FlashWindow(Handle, True); FlashWindow(Application.Handle, True); coloca em um timer eh pronto... Espero ter ajudado. Valdir Sola [EMAIL PROTECTED] mailto:valdir.sola%40ig.com.br valdir.sola%40ig.com.br escreveu: Boa tarde a todos, Alguém conhece algum componente que faça o icone da janela na barra de tarefas piscar p/ chamar a atenção, tipo messenger? Obrigado - 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] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [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: [OFF TOPIC]Re: RES: [delphi-br] Icone da barra de tarefas piscar p/ chamar a atenç ão
nao tenho obrigacao de saber se a porra do livro ta ou nao vendendo, esse negocio de dar tudo mastigadinho impede q o nosso amigo trabalhe pra conseguir... sou adepto ao um usuario aqui do grupo... nao de o peixe ... ensine-o a pescar agora q eu tenho q ser sensato (pesquisar em livrarias, pegar precos e indicar onde onde a porra do livro esta ou se ele ainda ta a venda em uma porra de livraria... ) Vai procurar o q fazer ... larga de ser critico envia sua sensates no seu [EMAIL PROTECTED] Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Antes de mais nada obrigado pela resposta. Sua ajuda de nada valeu para um livro fora de estoque. Sei perfeitamente que ninguém aqui é obrigado a nada, mas seria um pouco mais _sensato_ pelo menos dar uma informação sobre o status desse livro. Ainda hj respondi uma mensagem onde a solução foi indicar um livro. Perdi meros 5 minutos para descobrir que ele estava esgotado. Passei esta informação juntamente com a editora. Nem precisei passar o preço, mas sinto que é minha obrigação, ao indicar algum material a alguém, checar antes se ele está disponível. E se possível, até algum material similar. Repito, isso não é obrigação de ninguém, mas é o que se chama de _bom senso_. Como vc se sentiria se alguém lhe indicasse um livro, que pode ter a informação que vc precisa e vc ao procurar, descobre que ele está fora de catálogo? Duvido que não fique ao menos desapontado. Certo de sua compreensão, Ricardo. humberto sales [EMAIL PROTECTED] escreveu: Resposta para Ricardo Cesar Cardoso amigo passei a sujestao do livro tentando ajuda, se o tal livro nao esta mais a venda ... paciencia, pois qdo comprei ele tava, agora vc acha q tenho q passar toda a informacao de livro preco e tudo mais vai ficar querendo Ricardo César Cardoso [EMAIL PROTECTED] escreveu: A sugestão do livro foi ótima. Só faltou pesquisar um pouco mais e dizer a ele que este livro não está mais disponível para venda. Talvez se tentar contatar a editora tenha mais sorte. Atte, Ricardo. Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu: Talvez.. em uma livraria? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jhosef Marks Enviada em: sexta-feira, 29 de fevereiro de 2008 09:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Icone da barra de tarefas piscar p/ chamar a atenção Onde conseguimos esse livro?? Em 28/02/08, humberto sales [EMAIL PROTECTED] mailto:humberto_s_o%40yahoo.com.br escreveu: coloca um timer no form var t : boolean; procedure TForm1.Timer1Timer(Sender: TObject); begin t := not(t); if t = true then FlashWindow(Application.Handle ,true) ///pisca a barra de tarefas do windows else FlashWindow(Handle ,true); //pisca a barra de titulo do form end; (leia livro Delphi Apis e Sockets (hugo S Novaes e Fabio Camara ) tem muita coisa a respeito) espero q tenha ajudado... t+ fabio giro [EMAIL PROTECTED] mailto:fabio_giro%40yahoo.com.br fabio_giro%40yahoo.com.br escreveu: Veja se isto serve: FlashWindow(Handle, True); FlashWindow(Application.Handle, True); coloca em um timer eh pronto... Espero ter ajudado. Valdir Sola [EMAIL PROTECTED] mailto:valdir.sola%40ig.com.br valdir.sola%40ig.com.br escreveu: Boa tarde a todos, Alguém conhece algum componente que faça o icone da janela na barra de tarefas piscar p/ chamar a atenção, tipo messenger? Obrigado - 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] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [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] UserControl
pelo q eu entendi no erro essa tabela nao existe: UCCADPERM Ralp Alves Bezerra [EMAIL PROTECTED] escreveu: Nobres colegas, Coloquei em meu projeto o componente usercontrol para controle de acesso. Em minha máquina roda normalmente, porém, na máquina do cliente ocorre o seguinte erro: Exceção EDatabaseError no módulo RDCadServ em 000A1DF1. unsuccessful metadata update Table UCCADPERM already exists alguem saberia que erro é este? PS.: Utilizo Delphi 7/Firebird 2.0.3.12981-1/dbExpress Desde já agradeço a atenção. Abraços Ralp Alves - 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] Como saber quanto tempo
Mario um sistema como vc passou simples (so cadastro com pouca transferencia de dados entre tabelas) com treinamento 800,00 a 1200,00 com uma manutençao mensal de 1/2 salario ate 4 terminais. Acima disso pode cobrar uns 2000...logico q isso depende muito do mercado onde vc esta, o q seus companheiros cobras e tudo mais. Mario Rodrigues [EMAIL PROTECTED] escreveu: Vinicius, Valeu...pelas dicas...sobre o tempo...cara como disse...são...10 Tbl's...9Forms (incluindo o menu inicial)e que terá uns 15 relatorios...entre graficos e listagens...vo ser sincero...nao acho q va demorar mais que 15hs(pois ja tenho os form's mais ou menos prontos e os relatorios tbmas dai multiplicando 15*18=270..por um sistema?tu achas q ta certo? ou é o meu valor por hora q ta errado? 2008/2/27 Vinicius Santos - MSI [EMAIL PROTECTED]: Cara, essa é sempre uma questão muito delicada ! Quanto cobrar por um trabalho ? seja ele qual for... Vc tem que ver sua experiência, o resultado final, vc considera o seu sistema de qualidade acima da encontrada no mercado ? seu produto tem algum diferencial ? vc como profissional tem algum diferencial ? Cobre mais se vc sabe e garante mais !! Quanto ao tempo de desenvolvimento é muito difícil falar, vai depender da sua experiência com Delphi, quais componentes vc irá usar, e a complexidade da aplicação... 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: Mario Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 27, 2008 12:36 PM Subject: [delphi-br] Como saber quanto tempo Srs, Preciso de uma ajuda dos experientes amigos Tenho uma duvida...como saber o tempo para o desenvolvimento de um sistema? Por exemplo um sistema com 10 Tbl's...9Forms (incluindo o menu inicial)e que terá uns 15 relatorios...entre graficos e listagens... E gostaria de saber tb a opiniao dos srs sobre o valor a ser cobrado! O calculo que faço é o seguinte pego o salario(R$2200,00)...divido pea quantidade de horas mesais((6h/dia*5dias)*4semanas)...ou seja 2200/120=18,...arredondando R$18,00por hora...é justo? [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] Form é fechado, mas memóri a continua a mesma ?????
VC REMOVEU A LINHA Q CORRESPONDE AO FORM CRIADO? SE VC NAO REMOVER O SISTEMA CRIA O FORM DE QUALQUER FORMA! Joao Morais [EMAIL PROTECTED] escreveu: Flavio wrote: Olá pessoal, boa tarde, hoje fui gerenciar a memória que meu aplicativo gasta no task manager do windows xp e percebi que quando abro um form dentro do aplicativo, a memória consumida é expandida, mas quando fecho, a memória continua praticamente a mesma (diminui uns 5% do q consumiu). Abaixo estão os códigos de abertura do meu form (criado dinamicamente, ou seja, retirei ele dos forms auto-create do projeto) e fechamento do mesmo. Não se preocupe com isto. O gerenciador não devolve toda a memória que aloca do sistema, mesmo que você libere a memória corretamente. Alocar memória é um processo 'caro' e o gerenciador minimiza este processo. -- Joao Morais // criando e abrindo o form var Formulario : TformGraficos; begin // Cria o form dinamicamente Formulario := TformGraficos.Create(Application); Formulario.Top := 0; Formulario.Left := 0; end // fechando o form procedure TformGraficos.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; formGraficos := nil; end; Alguém tem uma luz para eu chegar até o final do túnel ?? Obrigado pela atenção. 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] - 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: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
cara eu criei uma simples e generica...geralmente gosto de coisa generica q
serve pra qualquer coisa ae criei uma funcao chamada mascara:
function Mascara(Valor,Mascara : String) : String;
var
p : Byte;
resultado : String[40];
begin
if Valor = '' then
begin
exit;
end;
for P := 1 to Length(Valor) do
begin
if Valor[P] in [',','.','/','-'] then
delete(Valor,P,1);
end;
for P := 1 to Length(Mascara) do
begin
if Mascara[p] '#' then
begin
Valor := Copy(Valor,1,P-1)+ Mascara[p] + Copy(Valor,P, Length(valor));
end
end;
Result := valor;
end;
no evento OnExit de um edit ou qualquer outro coloque assim
//telefone
edit1.text := mascara(edit1.text ,'(##)-');
//cpf
edit1.text := mascara(edit1.text,'###.###.###-##');
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Estou retificando parte do código da dica:
const
SinalMais = '+';
AbreParenteses = '(';
FechaParenteses = ')';
HifenTraco = '-';
SinalPonto = '.';
{$WRITEABLECONST ON}
MascaraTelefone : string = '\-;0;_';
MascaraTelefoneDDD : string = '\(00\)-;0;_';
MascaraTelefoneIntl : string = '\+00\-00\-\-;0;_';
MascaraCPF : string = '000\.000\.000\-00;0;_';
MascaraCNPJ : string = '00\.000\.000\/\-00;0;_';
{$WRITEABLECONST OFF}
TelefoneNulo = '';
CPFNulo = '999';
CNPJNulo = '99';
{= FORMATAÇÃO DE TELEFONES ==}
function DesformataTelefone(const s: string): string;
begin
// Inicializa resultado
Result := s;
// Retira todos os tokens mais usados em telefones
Result := StringReplace(Result, SinalMais, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, SinalPonto, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, AbreParenteses, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, FechaParenteses, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, HifenTraco, EmptyStr, [rfReplaceAll]);
// Se telefone não tem somente números, retorna telefone nulo
if StrToIntDef(Result, -1) = -1 then
Result := TelefoneNulo;
end;
function FormataTelefone(const s: string): string;
begin
Result := DesformataTelefone(s);
if Length(Result) 10 then
Result := FormatMaskText(MascaraTelefoneIntl, s)
else if Length(Result) 8 then
Result := FormatMaskText(MascaraTelefoneDDD, s)
else if Length(Result) = 8 then
Result := FormatMaskText(MascaraTelefone, s);
end;
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Sat, 23 Feb 2008 21:48:44 -0300
Subject: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
Prezado Rubem,
Vamos combinar: Cri-Cri somos eu e você, o Cara aí é chato demais e bota
chato nisso. Sem querer ofender Sr. João Moraishehehehe.
Um grande abraço e parabéns por ter postado AQUI essa dica que vai ser de
grande utilidade para muitos de nós.
João Carlos
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: sábado, 23 de fevereiro de 2008 18:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
Rubem Nascimento da Rocha wrote:
Confesso que na pressa na digitação do código, eu cometi uma tremenda
gafe,
mas o que importa é que o código é eficiente e funciona! E tb espero que
vc
tenha chegado a essa conclusão.
Exatamente.
Se não chegou, é sinal de que tenho um desafeto!
Capaz. Não crio esse tipo de coisa, não me leva a lugar algum.
Agora, se aceitas um comentário, acho que as dicas ficariam bem em um
site. Enquanto aqui elas têm grande visibilidade, porém momentânea, ao
serem publicadas elas seriam indexadas e seriam encontradas para sempre.
Opinião pessoal.
2) Encontrei alguém mais cri-cri do que eu!
Concordo em parte.
--
Joao Morais
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Sat, 23 Feb 2008 15:59:39 -0300
Subject: Re: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
Rubem Nascimento da Rocha wrote:
AbreAspas = '(';
FechaAspas = ')';
Abre o quê?
--
Joao Morais
[As partes desta mensagem que não continham texto foram removidas]
__
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
-
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: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
entendi mas pelo visto o cara quer so uma coisa simples... tenho mascaras
de telefone mais inteligentes se for o caso uso essas
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Não consigo ver generalização em formatação de valores. Sua sugestão é válida,
mas ainda assim sou mais as minhas dicas!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 25 Feb 2008 12:06:44 -0300
Subject: RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
cara eu criei uma simples e generica...geralmente gosto de coisa generica q
serve pra qualquer coisa ae criei uma funcao chamada mascara:
function Mascara(Valor,Mascara : String) : String;
var
p : Byte;
resultado : String[40];
begin
if Valor = '' then
begin
exit;
end;
for P := 1 to Length(Valor) do
begin
if Valor[P] in [',','.','/','-'] then
delete(Valor,P,1);
end;
for P := 1 to Length(Mascara) do
begin
if Mascara[p] '#' then
begin
Valor := Copy(Valor,1,P-1)+ Mascara[p] + Copy(Valor,P, Length(valor));
end
end;
Result := valor;
end;
no evento OnExit de um edit ou qualquer outro coloque assim
//telefone
edit1.text := mascara(edit1.text ,'(##)-');
//cpf
edit1.text := mascara(edit1.text,'###.###.###-##');
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Estou retificando parte do código da dica:
const
SinalMais = '+';
AbreParenteses = '(';
FechaParenteses = ')';
HifenTraco = '-';
SinalPonto = '.';
{$WRITEABLECONST ON}
MascaraTelefone : string = '\-;0;_';
MascaraTelefoneDDD : string = '\(00\)-;0;_';
MascaraTelefoneIntl : string = '\+00\-00\-\-;0;_';
MascaraCPF : string = '000\.000\.000\-00;0;_';
MascaraCNPJ : string = '00\.000\.000\/\-00;0;_';
{$WRITEABLECONST OFF}
TelefoneNulo = '';
CPFNulo = '999';
CNPJNulo = '99';
{= FORMATAÇÃO DE TELEFONES ==}
function DesformataTelefone(const s: string): string;
begin
// Inicializa resultado
Result := s;
// Retira todos os tokens mais usados em telefones
Result := StringReplace(Result, SinalMais, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, SinalPonto, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, AbreParenteses, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, FechaParenteses, EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, HifenTraco, EmptyStr, [rfReplaceAll]);
// Se telefone não tem somente números, retorna telefone nulo
if StrToIntDef(Result, -1) = -1 then
Result := TelefoneNulo;
end;
function FormataTelefone(const s: string): string;
begin
Result := DesformataTelefone(s);
if Length(Result) 10 then
Result := FormatMaskText(MascaraTelefoneIntl, s)
else if Length(Result) 8 then
Result := FormatMaskText(MascaraTelefoneDDD, s)
else if Length(Result) = 8 then
Result := FormatMaskText(MascaraTelefone, s);
end;
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Sat, 23 Feb 2008 21:48:44 -0300
Subject: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
Prezado Rubem,
Vamos combinar: Cri-Cri somos eu e você, o Cara aí é chato demais e bota
chato nisso. Sem querer ofender Sr. João Moraishehehehe.
Um grande abraço e parabéns por ter postado AQUI essa dica que vai ser de
grande utilidade para muitos de nós.
João Carlos
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: sábado, 23 de fevereiro de 2008 18:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
Rubem Nascimento da Rocha wrote:
Confesso que na pressa na digitação do código, eu cometi uma tremenda
gafe,
mas o que importa é que o código é eficiente e funciona! E tb espero que
vc
tenha chegado a essa conclusão.
Exatamente.
Se não chegou, é sinal de que tenho um desafeto!
Capaz. Não crio esse tipo de coisa, não me leva a lugar algum.
Agora, se aceitas um comentário, acho que as dicas ficariam bem em um
site. Enquanto aqui elas têm grande visibilidade, porém momentânea, ao
serem publicadas elas seriam indexadas e seriam encontradas para sempre.
Opinião pessoal.
2) Encontrei alguém mais cri-cri do que eu!
Concordo em parte.
--
Joao Morais
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Sat, 23 Feb 2008 15:59:39 -0300
Subject: Re: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
Rubem Nascimento da Rocha wrote:
AbreAspas = '(';
FechaAspas = ')';
Abre o quê?
--
Joao Morais
[As partes desta mensagem que não continham texto foram removidas]
__
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham
RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
ok... entendi... vai uma funcao q faz isso
function Tel(Mascara : String) : String;
var
h : String;
begin
H := Retira(Mascara);
Case Length(H) of
7,8 : insert('-',H,Length(h) - 3);
9,10 : begin
insert('-',H,Length(h) - 3);
insert('(',H,1);
insert(')',H,4);
Insert(' ',H,5);
end;
end;
Result := h;
end;
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Se vc ñ percebeu, eu defino a máscara de formatação de forma dinâmica de acordo
com o tamanho da string do telefone a ser formatado. Outro detalhe é que eu não
uso funções para 'recortar' strings, como a função Copy() ou a função MidStr()
da unit StrUtils (para os que usam Delphi 6 ou 7). Usando FormatMastText(), eu
me isento de ter que ficar reinventando a roda, pois se já existem funções pra
tratar o texto com máscara, não preciso ficar fazendo ginástica recortando
strings. E ainda, faço uso eficiente de uma função quase desconhecida de todos
- StrToInt64Def() - para verificar se uma string realmente representa um
número. Eficiência e código limpo.
EM TEMPO: abaixo uma atualização do trecho de código do exemplo que implementa
as funções de formatação de telefones, CPFs e CNPJs.
--[INÍCIO ATUALIZAÇÃO]--
const
SinalMais = '+';
AbreParenteses = '(';
FechaParenteses = ')';
HifenTraco = '-';
SinalPonto = '.';
{$WRITEABLECONST ON}
PhoneTokens : array[0..4] of string =
(SinalMais, AbreParenteses, FechaParenteses, HifenTraco, SinalPonto);
MascaraTelefone : string = '\-;0;_';
MascaraTelefoneDDD : string = '\(00\)-;0;_';
MascaraTelefoneIntl : string = '\+00\-00\-\-;0;_';
MascaraCPF : string = '000\.000\.000\-00;0;_';
MascaraCNPJ : string = '00\.000\.000\/\-00;0;_';
{$WRITEABLECONST OFF}
TelefoneNulo = '';
CPFNulo = '999';
CNPJNulo = '99';
{= FORMATAÇÃO DE TELEFONES ==}
function DesformataTelefone(const s: string): string;
var
i: byte;
begin
// Inicializa resultado
Result := s;
// Retira todos os tokens mais usados em telefones
for i := Low(PhoneTokens) to High(PhoneTokens) do
Result := StringReplace(Result, PhoneTokens[i], EmptyStr, [rfReplaceAll]);
// Se telefone não tem somente números, retorna telefone nulo
if StrToInt64Def(Result, -1) = -1 then
Result := TelefoneNulo;
end;
function FormataTelefone(const s: string): string;
begin
Result := DesformataTelefone(s);
if Length(Result) 10 then
Result := FormatMaskText(MascaraTelefoneIntl, s)
else if Length(Result) 8 then
Result := FormatMaskText(MascaraTelefoneDDD, s)
else if Length(Result) = 8 then
Result := FormatMaskText(MascaraTelefone, s);
end;
{= FORMATAÇÃO DE CPFs e CNPJs ===}
function DesformataCPF(UmCPF: string): string;
begin
Result := UmCPF;
Result := StringReplace(Result, '.', EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, '-', EmptyStr, [rfReplaceAll]);
if StrToInt64Def(Result, -1) = -1 then
Result := CPFNulo;
end;
function DesformataCNPJ(UmCNPJ: string): string;
begin
Result := DesformataCPF(UmCNPJ);
Result := StringReplace(Result, '/', EmptyStr, [rfReplaceAll]);
if StrToInt64Def(Result, -1) = -1 then
Result := CNPJNulo;
end;
function FormataCPF(UmCPF: string): string;
begin
if (Length(UmCPF) = 11) and (not (StrToInt64Def(UmCPF, -1) = -1)) then
Result := FormatMaskText(MascaraCPF, DesformataCPF(UmCPF))
end;
function FormataCNPJ(UmCNPJ: string): string;
begin
if (Length(UmCNPJ) = 14) and (not (StrToInt64Def(UmCNPJ, -1) = -1)) then
Result := FormatMaskText(MascaraCNPJ, DesformataCNPJ(UmCNPJ))
end;
--[FINAL ATUALIZAÇÃO]--
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 25 Feb 2008 12:15:59 -0300
Subject: RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
entendi mas pelo visto o cara quer so uma coisa simples... tenho mascaras
de telefone mais inteligentes se for o caso uso essas
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Não consigo ver generalização em formatação de valores. Sua sugestão é válida,
mas ainda assim sou mais as minhas dicas!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 25 Feb 2008 12:06:44 -0300
Subject: RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
cara eu criei uma simples e generica...geralmente gosto de coisa generica q
serve pra qualquer coisa ae criei uma funcao chamada mascara:
function Mascara(Valor,Mascara : String) : String;
var
p : Byte;
resultado : String[40];
begin
if Valor = '' then
begin
exit;
end;
for P := 1 to Length(Valor) do
begin
if Valor[P] in [',','.','/','-'] then
delete(Valor,P,1);
end;
for P := 1 to Length(Mascara) do
begin
if Mascara[p] '#' then
begin
Valor := Copy(Valor,1,P-1)+ Mascara[p] + Copy(Valor,P, Length(valor));
end
end;
Result := valor;
end;
no evento OnExit de um edit ou qualquer outro coloque assim
//telefone
edit1.text :=
RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
ta ok ... entendi o seu ponto de vista... vc tem um jeito de trabalhar, e eu
tenho o meu, e nós os nossos egos, nao importa como vai ser feito, desde q
seja feito.
Gostei do seu codigo... gostei mesmo.. trabalho tbem com esses comandos q vc
passou, mas talvez o nosso amigo quer algo simples, por isso passei pra ele uma
opcao, nao estou criticando o q vc mandou achei interessantissimo, mas vc
ta achando q estou disputando com vc... Desculpe se dei essa impressao.
humberto sales [EMAIL PROTECTED] escreveu:
ok... entendi... vai uma funcao q faz isso
function Tel(Mascara : String) : String;
var
h : String;
begin
H := Retira(Mascara);
Case Length(H) of
7,8 : insert('-',H,Length(h) - 3);
9,10 : begin
insert('-',H,Length(h) - 3);
insert('(',H,1);
insert(')',H,4);
Insert(' ',H,5);
end;
end;
Result := h;
end;
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Se vc ñ percebeu, eu defino a máscara de formatação de forma dinâmica de acordo
com o tamanho da string do telefone a ser formatado. Outro detalhe é que eu não
uso funções para 'recortar' strings, como a função Copy() ou a função MidStr()
da unit StrUtils (para os que usam Delphi 6 ou 7). Usando FormatMastText(), eu
me isento de ter que ficar reinventando a roda, pois se já existem funções pra
tratar o texto com máscara, não preciso ficar fazendo ginástica recortando
strings. E ainda, faço uso eficiente de uma função quase desconhecida de todos
- StrToInt64Def() - para verificar se uma string realmente representa um
número. Eficiência e código limpo.
EM TEMPO: abaixo uma atualização do trecho de código do exemplo que implementa
as funções de formatação de telefones, CPFs e CNPJs.
--[INÍCIO ATUALIZAÇÃO]--
const
SinalMais = '+';
AbreParenteses = '(';
FechaParenteses = ')';
HifenTraco = '-';
SinalPonto = '.';
{$WRITEABLECONST ON}
PhoneTokens : array[0..4] of string =
(SinalMais, AbreParenteses, FechaParenteses, HifenTraco, SinalPonto);
MascaraTelefone : string = '\-;0;_';
MascaraTelefoneDDD : string = '\(00\)-;0;_';
MascaraTelefoneIntl : string = '\+00\-00\-\-;0;_';
MascaraCPF : string = '000\.000\.000\-00;0;_';
MascaraCNPJ : string = '00\.000\.000\/\-00;0;_';
{$WRITEABLECONST OFF}
TelefoneNulo = '';
CPFNulo = '999';
CNPJNulo = '99';
{= FORMATAÇÃO DE TELEFONES ==}
function DesformataTelefone(const s: string): string;
var
i: byte;
begin
// Inicializa resultado
Result := s;
// Retira todos os tokens mais usados em telefones
for i := Low(PhoneTokens) to High(PhoneTokens) do
Result := StringReplace(Result, PhoneTokens[i], EmptyStr, [rfReplaceAll]);
// Se telefone não tem somente números, retorna telefone nulo
if StrToInt64Def(Result, -1) = -1 then
Result := TelefoneNulo;
end;
function FormataTelefone(const s: string): string;
begin
Result := DesformataTelefone(s);
if Length(Result) 10 then
Result := FormatMaskText(MascaraTelefoneIntl, s)
else if Length(Result) 8 then
Result := FormatMaskText(MascaraTelefoneDDD, s)
else if Length(Result) = 8 then
Result := FormatMaskText(MascaraTelefone, s);
end;
{= FORMATAÇÃO DE CPFs e CNPJs ===}
function DesformataCPF(UmCPF: string): string;
begin
Result := UmCPF;
Result := StringReplace(Result, '.', EmptyStr, [rfReplaceAll]);
Result := StringReplace(Result, '-', EmptyStr, [rfReplaceAll]);
if StrToInt64Def(Result, -1) = -1 then
Result := CPFNulo;
end;
function DesformataCNPJ(UmCNPJ: string): string;
begin
Result := DesformataCPF(UmCNPJ);
Result := StringReplace(Result, '/', EmptyStr, [rfReplaceAll]);
if StrToInt64Def(Result, -1) = -1 then
Result := CNPJNulo;
end;
function FormataCPF(UmCPF: string): string;
begin
if (Length(UmCPF) = 11) and (not (StrToInt64Def(UmCPF, -1) = -1)) then
Result := FormatMaskText(MascaraCPF, DesformataCPF(UmCPF))
end;
function FormataCNPJ(UmCNPJ: string): string;
begin
if (Length(UmCNPJ) = 14) and (not (StrToInt64Def(UmCNPJ, -1) = -1)) then
Result := FormatMaskText(MascaraCNPJ, DesformataCNPJ(UmCNPJ))
end;
--[FINAL ATUALIZAÇÃO]--
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 25 Feb 2008 12:15:59 -0300
Subject: RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
entendi mas pelo visto o cara quer so uma coisa simples... tenho mascaras
de telefone mais inteligentes se for o caso uso essas
Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
Não consigo ver generalização em formatação de valores. Sua sugestão é válida,
mas ainda assim sou mais as minhas dicas!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 25 Feb 2008 12:06:44 -0300
Subject: RE: RES: [delphi-br] [DICA] Formatação de telefones, CPF e CNPJ
cara eu criei uma simples e generica...geralmente gosto de coisa generica q
serve pra qualquer coisa ae criei uma funcao
Re: Res: [delphi-br] Ajuda Delphi com Word
bom dia a todos, ja desenvolvi um sitema q e o pega um texto do formato RICH
TEXT,
funciona +/- assim ... abro o arquivo formatado (rich text) no componete
RichText
Ex:
---
(conteudo do texto)
Prezado Sr(a) 1a#
declaro ter pago a empresa do fulando de tal a quantia de 2b#
__
// contante global
const
///{0.. 99} qtds de campos q vc vai usar no meu caso 100 campos da tabela
a : array[0..99] of string = (
'a1','b2','c3','d4','e5','f6','g7','h8','i9','j10','l11','k12','m13','n14','o15','p16','q17','r18','s19','t20','u21','v22','w23','x24','y25','z26',
'a27','b28','c29','d30','e31','f32','g33','h34','i35','j36','l37','k38','m39','n40','o41','p42','q43','r44','s45','t46','u47','v48','w49','x50','51y','52z',
'53a','54b','55c','56d','57e','58f','59g','60h','61i','62j','63l','64k','65m','66n','67o','68p','69q','70r','71s','72t','73u','74v','75w','76x','77y','78z',
'79a','80b','81c','82d','83e','84f','85g','86h','87i','88j','89l','90k','91m','92n','93o','94p','95q','96r','97s','98t','99u','100v');
em um botao coloco o seguinte codigo:
-
var
FoundAt: LongInt;
x,x1 : integer;
r : string;
begin
//d.pesquisa e uma query ou ibquery ou o caralho de asa ... to bebado...
heheheh
D.Pesquisa.close;
D.pesquisa.Sql.Text := 'select * from Auxiliar';
D.Pesquisa.Open;
d.Pesquisa.Next ;
for x := 0 to d.Pesquisa.FieldCount -1 do
begin
with RichEdit1 do
begin
r := a[x] + '#'; a representa a constante x representa o campo
a[1] e a mesma coisa de a1# e a1# vai ser substituido pelo campo 1 da sua
tabela
FoundAt := Pos(r, Text) - 1;
if (FoundAt 1) then
begin
SelStart := FoundAt;
SelLength := Length(r);
SelText := D.pesquisa.fields[x].asstring;
end;
end;
end;
end;
a ideia e o seguinte... vc tem os campos na tabela:
codigo
nome
endereco
cidade
estado
o campo codigo o indice e 0
o campo nome o indice e 1
campo endereco e inice 2
estado o indice e 4.
ai vc vai fazer a pergunta... pq ele usou a#, b#,c#... ? eu usei pq vai qse q
impossivel achar dentro de um texto digitado essa informaçao, mas se encontrar
vai ser substituido
Ai vc vai se perguntar como q eu vc vai justificar??? nesse caso tem um
compontente chamado JustifyRichEdit - esse componente tem opcao
justificado,
desculpe pelos erros tô meio tonto bebi um pouco
espero q tenha ajudado ... t+
Andre Luis Silveria [EMAIL PROTECTED] escreveu:
Olha no site www.clubedelphi.net que tem uns artigos falando sobre
isso.
- Mensagem original
De: Vinicius Santos - MSI [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 22 de Fevereiro de 2008 15:14:59
Assunto: Re: [delphi-br] Ajuda Delphi com Word
Fala mermão, faça a mala direta usando Access normalmente, depois insere os
dados na tabela do Access pelo Delphi !
Flw Flw
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: Raphae Fonseca
To: [EMAIL PROTECTED] os.com.br
Sent: Friday, February 22, 2008 3:06 PM
Subject: [delphi-br] Ajuda Delphi com Word
Boa tarde amigos da Lista
Estou precisando fazer uma mala direta delphi X Word.
Inserir dados de uma determinada tabela num documento já formatado no word.
Algum amigo já desenvolveu algo parecido?
Poderia me ajudar
Raphael
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail. yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,
Re: [delphi-br] QuickReport
Stainle eu fiz uma tela de configuracao como vc esta fazendo, mas eu mutipliquei por 38, ficou bom... posiciona corretamente. Talvez nessa sua nota fical tenha bordas na esquerda e direita do seu relatorio,pois na minha eu tirei as bordas stainle2003 [EMAIL PROTECTED] escreveu: estou tentando escrever em um Formulário da Nota Fiscal com Delphi 7 e QuickReport, não estou conseguindo assimilar: meço em MM o quanto devo deslocar o componente no Quick para que se encaixe no local correto, porém percebi que devo multiplicar por 3 aproximadamente, ou seja se tenho que deslocar 15 mm para a esquerda, no Left do DBText por exemplo devo subtrair 45 mm e mesmo assim não fica bom, alguém poderia me explicar porque não corresponde a unidade de medida(MM) que leio nas propriedade do QuickReport com as que eu meço com a régua. estou usando a fonte Draft10. o que seria melhor para impressão de Nota Fiscal, o Quick ou o Fortes ?? grato Stainle - 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] Criar tabela no Firebird
se vc usa os componentes da Paleta Interbase usa o componete IBSql funciona tbem pra criar trigger, procendures, ou melhor tudo! Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Se vc usa DBExpress, vc pode fazer o mesmo usando o componente TSQLConnection e o método ExecuteDirect. O retorno do comando é um número inteiro que indica sucesso ( valor 0 ) ou o erro ocorrido. Atte, Ricardo. Ismair Alves [EMAIL PROTECTED] escreveu: Sim e possivel, voce pode usar o IBScript pra fazer isso, eu utilizo para criar tabelas novas no sistema dos representantes, e so colocar o SQL e mandar executar. Qualquer duvida eu te mando um exemplo qdo chegar em casa. Att Em 21/02/08, auriston.delphi [EMAIL PROTECTED] escreveu: E possivel criar tabelas em tempo de execucao no firebird, levando em consideracao que cada tabela vai ter como nome o mes e o ano corrente, ou seja quando o sistema iniciar, ele sozinho cria esta tabela caso ela no exista, caso seja possivel poderia me dar um exemplo ? sds Auriston -- Ismair C. Alves msn: [EMAIL PROTECTED] ByteConf Soluções em Software Livre. Linux User: #447538 [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] Atualizador automatico
E o seguinte... criei um sistema de atualizacao automatico usando o componte ClientSocket e ServerSocket (delphi 6) q faz o seguinte... no servidor onde esta a atualizacao crie arquivos compactados com a data de criacao de cada um deles ex: controle10102007.bck controle11102007.bck controle12102007.bck qdo os clientes conecta no servidor de atualizacao (o cliente tem um sistema de atualizacao separado do programa atual do usuario) o sistema cliente passa a informacao de data de criacao do executavel, ai o servidor procura uma data superior ao informado e faz o download do mesmo... o arquivo qdo chega no cliente ele e descompactado gerando 2 arquivos, um e o executavel outro um arquivo Texto com as informacoes de alteracoes em Sql (uso o interbase) esse aquivo traz as atualizacoes em sql pra ser alterados no banco de dados,o arquivo e lido e a alteracao e feita no banco de dados e o executavel e substituido por outro, essas informacoes sao registrados em um arquivo INI (arquivo de configuracao). se vc quizer um exemplo me passa um email para [EMAIL PROTECTED] te passo um exemplo caso vc nao tenha Carlos [EMAIL PROTECTED] escreveu: Ta... entendo Mas como faço isso? Alguem tem algum exemplo prático? obrigado Consultores Software [EMAIL PROTECTED] escreveu: Pelo menos nas empresas onde trabalhei, essa solução de manter um só exe no servidor funciona muito bem. O único problema é fazer com que os usuários ( cerca de 50, em média) fechem o aplicativo no momento da atualização, o que pode ser contornado se as atualizações puderem ser feitas em horários em que o sistema não é utilizado. Agora, se não tiver jeito mesmo, melhor comparar as versões dos arquivos exe ( servidor e local ) e fazer a cópia, caso necessário. Em 22/02/08, Guionardo Furlan [EMAIL PROTECTED] escreveu: Será mesmo uma boa idéia? Discordo. Eu deixaria uma versão do executável no servidor, com um arquivo texto indicando a versão. Nos clientes, um aplicativo inicializador compararia a versão do executável local com a versão do executável remoto. Em caso de diferença, copiará do servidor. Por último, o aplicativo inicializador chama o executável localmente. Em 22/02/08, Consultores Software [EMAIL PROTECTED]consultoressoftware%40gmail.com escreveu: Antes de pensar num atualizador, não seria mais fácil deixar um executável só no servidor e mapear para que cada usuário tenha acesso a ele via rede, do que distribuir várias cópias ? Assim, você teria que atualizar uma vez só. Um ponto crítico aí é que, para atualizar esse aplicativo, todos os usuários terão que sair dele em suas máquinas, a menos que o servidor seja linux, que permite sobrescrever o exe mesmo que ele esteja em uso . Em 22/02/08, Carlos [EMAIL PROTECTED]ca_programador007%40yahoo.com.br escreveu: Olá amigos, Tenho um aplicativo onde o banco de dados fica no servidor e cada maquina tem um executavel .exe para acessar o banco de dados. Muitas vezes eu preciso atualizar o .exe e preciso ir de máquina em máquina para atualizar o arquivo, e isso é muito chato porque são várias máquinas. Eu sei que existe uma forma fácil de resolver isso, utilizando um atualizador automático que fica direto no servidor e todos os usuarios quando executam o executavel busca a atualizacao no servidor. Gostaria de saber como faz isso. Alguem me ajuda a começar? Nem sei por onde começar. Obrigado e aguardo ajuda. Carlos -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [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] Centralizar um painel dentro de um form
/ Evento ONCanResize do form Panel1.left := (form1.width div 2) - (Panel1.width div 2); Panel1.top := (form1.height div 2 ) - (Panel1.height div 2); / Nogueira Jr [EMAIL PROTECTED] escreveu: Faz uma conta simples: Metade da largura do Form menos a metade da largura do Painel. O resultado fixa em run-time na propriedade Left do Painel. Será que dá certo ? Pode até colocar no onSize do Form, para alterar a posição do Painel quando o Form sofrer alterações no tamanho. Abraço, Nogueira Jr (Mobile) Gmail: anogueirajr Hotmail: nogueirajr Skype: nogueira.jr SMS: +551291756354 - Mensagem Original - De: Eduardo Silva dos Santos [EMAIL PROTECTED] Enviada: domingo, 17 de fevereiro de 2008 21:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Centralizar um painel dentro de um form É complicado, vai ter que ser no olho. no Delphi 2005 e posteriores a propriedade AligWithMargins resolveria isso numa boa.. um dos motivos que me levou a migrar para o Delphi 2007 foi essa propriedade e a opção de colocar um toolbar com os botões de alinhamento, como ajuda na produtividade, as guide lines tb são boas. Em 17/02/08, Ricardo Mendes [EMAIL PROTECTED] escreveu: Esse form é fixoeu só não queria é mexer nisso no olhamentro mesmomas se não tiver jeito.eu vou vou ter q colocar no olho mesmo... - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Sunday, February 17, 2008 9:12 PM Subject: Re: [delphi-br] Centralizar um painel dentro de um form Esse Formulário vai mudar de tamanho? caso o form seja de tamanho fixo é so colocar o painel e centralizar no olhômetro. Em 17/02/08, Ricardo Mendes [EMAIL PROTECTED] rickbamen%40gmail.com escreveu: Eu uso D7 - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Sunday, February 17, 2008 9:08 PM Subject: Re: [delphi-br] Centralizar um painel dentro de um form Se vc usado Delphi 2005 ou superior da uma olhada na propriedade AlignWithMargins Em 17/02/08, Ricardo Mendes [EMAIL PROTECTED] rickbamen%40gmail.comrickbamen%40gmail.com escreveu: Galera, gostaria de uma ajuda de vcs Eu tenho um formulario e nele tenho uma imagem colocada como alCliente, ocupando todo o formulario. Dentro dessa imagem eu preciso centralizar um painel, porém não pode ser modificado o tamanho do painel Eu ja pesquise na net e não achei nada que me ajudasseentão gostaria de uma ajuda de vcs.. Obrigado.. Ricardo Mendes [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [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] - 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] aplicativos Multi-camadas
Alguem tem um (material/exemplo/ou livro) de aplicativo multi-camadas onde o aplicativo servidor aceite qualquer tipo de banco de dados
Re: [delphi-br] Remover Zeros a esquerda de uma String.
Humberto escreveu: funcoes do delphi prontinhas para uso. TrimRight(edit1.text); TrimLeft(edit1.text); ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] [Fwd: sockets]
desenvolvi um programa para enviar e receber arquivos atraves de sockets, so q o ClienteSocket nao funciona atras de um proxy! Se nao tiver proxy o sistema funciona uma blz. Alguem ja conseguiu fazer funcionar atras de um proxy? Se alguem puder me ajudar fico grato. Obr. ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: RES: [delphi-br] Migrar Sistema de Empresa de Delphi para Li nux
ja ouviu falar do Lazarus - Muito bom! ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Cada Form um executavel???????
isso vai dificultar um pouco sua vida! Crie os forms de seu projeto dinamicamente procedure CriaFormModal(MeuForm : TFormClass; var Reference); begin try TForm(Reference) := Meuform.Create(Application); TForm(Reference).ShowModal; Finally TForm(Reference).Free; end; end; ___ Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale agora! www.yahoo.com.br/messenger/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
