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