RES: [delphi-br] Sistema de Lan House
Existe alguns comandos da API do windows que congelam um form na tela
impedindo a execução de outros... Tente algo como SetForegroungWindows, ou
coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na
lista mesmo pra todos poderem compartilhar...
Até +
Rodrigo
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Jeferson Adoryan
Enviada em: terça-feira, 13 de fevereiro de 2007 09:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta
rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte,
enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso)
nao permitir executar nenhum programa. Tive alguns problemas com micros
usando teclado multimidia. Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan. http://adoryan.byethost24.com byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização do
projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais posso
negociar os fontes.
É um sistema relativamente simples, já que na versão onde estou trabalhando
não há necessidade de controlar execução de jogos e/ou programas. É só o
controle de tempo de uso mesmo.
Contato em PVT.
Sds,
Ricardo.
Humberto humbertogrupos@ terra.com. br escreveu: Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de saber
se algum de vcs já fez um e se pode me ajudar no sentido de por onde começar
rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#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,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/
[As partes
Res: [delphi-br] AudioLab ou MMTools
Ola Luiz, primeiramente obrigado pela resposta!!!
Preciso fazer assim porque o cliente que esta comprando e o chefe da empresa
exigem...rs...
É que vou gravar um laudo medico ditado referente a um exame de um paciente e
caso o medico durante a gravação erre ou decida voltar a um ponto anterior e
mudar/sobrepor a gravação ele deve conseguir fazer isso...Assim como no
Gravador de Som do Windows...
Sobre o que vc falou de
Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e faz
uma edição !?
Não poderia ser assim ?: Isso posso fazer em RunTime ou é um trabalho
artesanal externo?
Obrigado!!!
Alexandre - Micromed Sistemas.
- Mensagem original
De: Luiz Escobar [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Fevereiro de 2007 12:54:51
Assunto: Re: [delphi-br] AudioLab ou MMTools
Não usei nenhum dos dois, fiz a minha propria biblioteca usando o
ACM do windows. ... o HELP do DELPHI é bem completo sobre as funções, mas
não encina a lógica da coisa..( tipo, qual função tem que vir primeiro e
qual tem que vir depois)
Quanto a mediaplay, mciSend, e outras do mesmo genero, vc NÃO vai conseguir
fazer isso com elas..
Agora pra que vc quer fazer isso ? EX:
Gravar, voltar um pouco e regravar encima.! ! ???
Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e faz
uma edição !?
Não poderia ser assim ?
PS: com a MMTools vc conseguiria fazer isso, mas sei não, nao achei ela muito
pratica em alguns aspectos .
Quanto a AudioLAB nao me lembro mais dela... não posso opinar.
DICA: sempre grave em WAV formato RAW, é MUTO mais facil fazer o q vc
quer fazer... .
Luiz Escobar
Analista/Desenvolve dor:
WEB - HTML/JavaScript/ PHP/MySQL
WINDOWS - Delphi/MyDAC/ ASSEMBLER/ MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/ MySQL;
http://www.megasist ema.com.br
- Original Message -
From: djxandytche
To: [EMAIL PROTECTED] os.com.br
Sent: Tuesday, February 13, 2007 8:43 AM
Subject: [delphi-br] AudioLab ou MMTools
Bom dia amigos da lista,
Bom, gostaria da ajuda de vcs para gravação de som do microfone com
delphi.
O problema é o seguinte: Dentre todos os componentes que testei os
mais poderosos que encontrei foram estes 2 que cito no titulo, porem,
nenhum deles faz uma coisa muito importante que preciso. Por exemplo,
o usuário começa a gravar e no final da gravação ele resolve voltar um
pouco e regravar uma parte devido a que ele possa ter falado algo
errado, desta forma o arquivo de áudio deveria sobrepor toda a
gravação a partir do ponto em que ele recomeçou a gravar. Mais não
consegui fazer isso com nenhum componente, nem com o TMediaPlayer e
nem usando código nativo do delphi (mciSendCommand, sndPlaySound, e
estas coisas todas)!!!
Alguém por acaso utiliza alguns destes componentes que cito acima, ou
conhece outros (pode ser pago) ou alguma outra forma de realizar este
trabalho?
Obs.: Este comportamento o Gravador de Som do Windows faz perfeitamente.
Obrigado a todos que puderem responder e me ajudar!!!
Alexandre da Silva.
[As partes desta mensagem que não continham texto foram removidas]
!--
#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,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
Re: [delphi-br] apagando conteudo da tabela
Não é que os registros estão apagando, é que vc não esta dando ApplyUpdates(0) depois de gravar seus registros. - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 14, 2007 1:10 AM Subject: Re: [delphi-br] apagando conteudo da tabela Sinto não concordar com o Humberto, mas não acho que o Paradox seja ruim, muito menos para aplicações pequenas como parece ser o seu caso. Suas tabelas seguramente não estão apagando sózinhas. Existe na sua aplicação alguma instrução (ou conjunto delas) que estão fazendo isto. Veja se voce não está recriando suas tabelas ao entrar na aplicação, ou usando alguma instrução emptytable. Procure por instruções tipo NomedaTabela.delete ou se não está gravando registros brancos por cima dos que haviam lá. Uso Paradox há mais de 20 anos, sem problemas e nunca vi uma tabela ser apagada ( ou coisa que o valha) sozinha. Edison - Original Message - From: Humberto [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 11:56 AM Subject: Re: [delphi-br] apagando conteudo da tabela Bem, antes de mais nada.. não use paradox.. esse banco é mto ruin, procure se informar sobre FireBird e como utilizar..aa se informe tb sobre SQL.. como criar Selects etc.. vc vai demorar mais pra fazer o sistema, mas vai ser um sistema de qualidade mto superior. Não entenda isso mal.. é apenas um conselho. =P - Original Message - From: walter_3wm To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 13, 2007 7:58 AM Subject: [delphi-br] apagando conteudo da tabela Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção. -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Lan House
Rodrigo, por favor poste na lista ou me coloque no CC, pios tenho interesse
em saber deste comando...
valeu
On 2/14/07, Rodrigo Madureira Barbosa [EMAIL PROTECTED] wrote:
Existe alguns comandos da API do windows que congelam um form na tela
impedindo a execução de outros... Tente algo como SetForegroungWindows, ou
coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na
lista mesmo pra todos poderem compartilhar...
Até +
Rodrigo
_
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Jeferson Adoryan
Enviada em: terça-feira, 13 de fevereiro de 2007 09:38
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta
rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte,
enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso)
nao permitir executar nenhum programa. Tive alguns problemas com micros
usando teclado multimidia. Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan. http://adoryan.byethost24.com byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase de personalização do
projeto). Se quiser, posso elaborar um passo-a-passo ou se quiser mais
posso
negociar os fontes.
É um sistema relativamente simples, já que na versão onde estou
trabalhando
não há necessidade de controlar execução de jogos e/ou programas. É só o
controle de tempo de uso mesmo.
Contato em PVT.
Sds,
Ricardo.
Humberto humbertogrupos@ terra.com. br escreveu: Olá caros colegas.
Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
saber
se algum de vcs já fez um e se pode me ajudar no sentido de por onde
começar
rsrs.. Imagino q seja usando Sockets etc..
Alguém pode me dar uma ajudinha?
Vlw.
[As partes desta mensagem que não continham texto foram removidas]
_ _ _ _ __
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger .yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
!--
#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,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}
#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}
#ygrp-vital a:hover{
text-decoration:underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
Re: [delphi-br] Listar computadores da rede
Anderson, se possível me manda tb, ok? valeu, abraço! obs: caso for mandar arquivo e não conseguir para este e-mail(já aconteceu isso antes), favor mandar para [EMAIL PROTECTED] On 2/13/07, Desenvolvimento (Anderson) [EMAIL PROTECTED] wrote: tenho. manda uma mensagem em OFF q eu mando. mas veja: só em off. :P And - Original Message - From: Luiz Escobar To: [YAHOO] Delphi BR Sent: Tuesday, February 13, 2007 2:40 PM Subject: [delphi-br] Listar computadores da rede Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br __ Informação do NOD32 IMON 2057 (20070213) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Exportar para o OpenOffice
Olá Giovanny,
Há pouco tempo também precisei realizar manipulação de arquivos do
OpenOffice através do Delphi. O exemplo que te envio a baixo é de
como abrir um documento em branco do Writer em segundo plano, inserir
informações (que foram informadas no sistema pelo usuário) e exportar
p/ pdf através do filtro writer_pdf_export. Talvez te ajude a
entender a lógica do funcionamento da integração Delphi x OpenOffice.
Mas vc encontra mta informação e exemplos c/ Calc tb no Forum do
OpenOffice.org. Este topico por exemplo acho q eh de utilidade p/ vc:
http://www.oooforum.org/forum/viewtopic.phtml?
t=11752highlight=delphi+calc
Segue o exemplo que me referi entao:
var Desktop, Properties, Document: Variant;
OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
Desktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
Properties := VarArrayCreate([0, 0], varVariant);
Properties[0] := DefinirPropriedadesOpenOffice('Hidden', True);
Document := Desktop.loadComponentFromURL('file:///'+Local , '_blank',
0, Properties);
Properties[0] := DefinirPropriedadesOpenOffice
('FilterName', 'writer_pdf_Export');
Document.StoreToURL('file:///'+Diretorio+'APLTemp.pdf', Properties);
function DefinirPropriedadesOpenOffice(PropName: string; PropValue:
variant): variant;
var Struct: variant;
begin
Struct := OpenOffice.Bridge_GetStruct
('com.sun.star.beans.PropertyValue');
Struct.Name := PropName;
Struct.Value := PropValue;
Result := Struct;
end;
Att.
Mônica Dachary
--- Em delphi-br@yahoogrupos.com.br, Giovanny Carvalho
[EMAIL PROTECTED] escreveu
Boa tarde a todos,
Eu possuo uma aplicação em delphi 6 / SQL Server 2000 que exporta
várias consultas para o Excel. O programa abre o excel, exporta
os
dados e ao final o usuário salva diretamente no Excel, a planilha
gerada. Eu usei para isso uma rotina que peguei na net, que usa a
unit ComOBj. Agora a direção da empresa que eu presto serviço
determinou que usasse mos o OpenOffice (na verdade BrOffice). Como
dá
para imaginar as exportações do sistema não funcionam com o Calc.
Alguém poderia me ajudar neste sentido?
Uma solução que eu pensei, seria, o programa gerar um arquivo em
algum
formato que o Calc do OpenOffice pudesse ler.
Obrigado,
Giovanny Carvalho
[delphi-br] Verificar o nome das classes registradas
Pessoal,
Bom dia!!
Tenho a seguinte função para chamar os forms:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
with TFormClass(Pc).Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;
---
Tenho essa função para nao ser necessario declarar a unit na uses do meu
frmPrincipal,
sendo assim, eu tbm coloco em todos os meus forms
initialization
RegisterClass(MeuForm);
meu problema é que preciso verificar se esse form ja foi criado, pq se
ele ja estiver criado, quero somente dar um Show nele.
Do jeito que minha função está, ele cria uma nova instancia do form.
Alguém tem alguma sugestão de como melhorar essa função?
e me ajudar?
Abraços!
Thiago Filiano
11-8288-4402
msn: [EMAIL PROTECTED]
skype: alegrethi
[delphi-br] off topic: usando gmail como filtro anti spam de todos seus emails
como o gmail tem um filtro porrada anti spam pensei em dar forward de todas as minhas contas de email para o gmail e me livrar de centenas de anuncios e phishings de uma so vez. mi nha duvida eh a seguinte se eu der forward das mensagens recebidas por [EMAIL PROTECTED] para o gmail incluindo os spams o gmail ira acusar meu dominio como enviador de spams? ou o forward message mantem o enviador original do spam e nunca corro risco de sofrer bloqueios? nao quero queimar o filme de meu dominio hehe
Re: [delphi-br] Preciso Integrar DBF (Clipper) com o Oracle
No Delphi 10 em uso o Halcyon para acessar bases de dados em DBF. Gerson Cesar - Informatica [EMAIL PROTECTED] escreveu: Pessoal boa tarde, estou migrando para o Delphi 2006, antes utilizava Delphi 6, e preciso fazer um a aplicação onde possa integrar algumas tabelas DBF (Clipper) com o Oracle, para o caso do Oracle estou utilizando o componente Odac, e para o clipper utilizava o VK_DBF, alguém saberia me informar se existe esse do clipper para Delphi 2006 ??? ou teria outro para utilizar. Desde já agradeço, César Eduardo Teixeira Silva Programador CPD [EMAIL PROTECTED] www.ober.com.br [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Sistema de Lan House
Não testei, mas o ForceForegroundWindow herda de SetForegroundWindows os
eventos padrões e acho que bloqueia os demais aplicativos... Vale a pena
testar e conferir... Assim que tiver o resultado avise-nos... ok ?! Segue o
código:
function ForceForegroundWindow(hwnd: THandle): Boolean;
const
SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
var
ForegroundThreadID: DWORD;
ThisThreadID: DWORD;
timeout: DWORD;
begin
if IsIconic(hwnd) then ShowWindow(hwnd, SW_RESTORE);
if GetForegroundWindow = hwnd then Result := True
else
begin
if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion 4))
or
((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
((Win32MajorVersion 4) or ((Win32MajorVersion = 4) and
(Win32MinorVersion 0 then
begin
Result := False;
ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow,
nil);
ThisThreadID := GetWindowThreadPRocessId(hwnd, nil);
if AttachThreadInput(ThisThreadID, ForegroundThreadID, True) then
begin
BringWindowToTop(hwnd);
SetForegroundWindow(hwnd);
AttachThreadInput(ThisThreadID, ForegroundThreadID, False);
Result := (GetForegroundWindow = hwnd);
end;
if not Result then
begin
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0),
SPIF_SENDCHANGE);
BringWindowToTop(hwnd);
SetForegroundWindow(hWnd);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0,
TObject(timeout), SPIF_SENDCHANGE);
end;
end
else
begin
BringWindowToTop(hwnd);
SetForegroundWindow(hwnd);
end;
Result := (GetForegroundWindow = hwnd);
end;
end; { ForceForegroundWindow }
//**
procedure ForceForegroundWindow(hwnd: THandle);
var
hlp: TForm;
begin
hlp := TForm.Create(nil);
try
hlp.BorderStyle := bsNone;
hlp.SetBounds(0, 0, 1, 1);
hlp.FormStyle := fsStayOnTop;
hlp.Show;
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
SetForegroundWindow(hwnd);
finally
hlp.Free;
end;
end;
//**
procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall;
external user32 Name 'SwitchToThisWindow';
{x = false: Size unchanged, x = true: normal size}
procedure TForm1.Button2Click(Sender: TObject);
begin
SwitchToThisWindow(FindWindow('notepad', nil), True);
end;
Até a próxima...
Rodrigo
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Henry Maltz
Enviada em: quarta-feira, 14 de fevereiro de 2007 08:24
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Sistema de Lan House
Rodrigo, por favor poste na lista ou me coloque no CC, pios tenho interesse
em saber deste comando...
valeu
On 2/14/07, Rodrigo Madureira Barbosa rodrigo.madu@
mailto:rodrigo.madu%40gmail.com gmail.com wrote:
Existe alguns comandos da API do windows que congelam um form na tela
impedindo a execução de outros... Tente algo como SetForegroungWindows, ou
coisa parecida... vou dar uma pesquisada e posto pra vc em pvt ou aqui na
lista mesmo pra todos poderem compartilhar...
Até +
Rodrigo
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
delphi-br%40yahoogrupos.com.br [mailto:
[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
delphi-br%40yahoogrupos.com.br] Em
nome de Jeferson Adoryan
Enviada em: terça-feira, 13 de fevereiro de 2007 09:38
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br delphi-br%40yahoogrupos.com.br
Assunto: Res: [delphi-br] Sistema de Lan House
Dae galera
Seguinte, tb desenvolvi um sistema de lan house, na verdade ele ja ta
rodando mas nao esta 100% pronto. O que eu queria fazer é o seguinte,
enquanto o micro esta bloqueado para uso (uso um form tela cheia pra isso)
nao permitir executar nenhum programa. Tive alguns problemas com micros
usando teclado multimidia. Sera que isso é possivel??
Valeu
___
Jeferson Adoryan
Técnico em Desenvolvimento de Software
Objetiva Informática LTDA
Fone: (55) 3375 3828
Celular: (55) 8115 4544
Linux Counter #404063
Home Page: http://adoryan. http://adoryan.
http://adoryan.byethost24.com byethost24.com byethost24.com
=
www.softtotal.com.br
www.firehost.com.br
Panambi - RS
- Mensagem original
De: Ricardo César Cardoso ricardo_engsoft@
mailto:ricardo_engsoft%40yahoo.com.br yahoo.com.br
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Enviadas: Segunda-feira, 12 de Fevereiro de 2007 9:51:36
Assunto: Re: [delphi-br] Sistema de Lan House
Estou finalizando um sistema de lan house (fase
Re: [delphi-br] off topic: usando gmail como filtro anti spam de todos seus emails
Em tese não, precisa testar. Agora uma perguntinha também em off, rsrs. Vc usa qual cliente de recebimento de e-mails? Outlook? Cara uso o Thunderbird e o anti-spam integrado dele é matador. Muito loko mesmo e ainda tem uma pancada de recursos. *Adriano Santos* Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. pelebr respondeu: como o gmail tem um filtro porrada anti spam pensei em dar forward de todas as minhas contas de email para o gmail e me livrar de centenas de anuncios e phishings de uma so vez. mi nha duvida eh a seguinte se eu der forward das mensagens recebidas por [EMAIL PROTECTED] mailto:meuemail%40dominio.com.br para o gmail incluindo os spams o gmail ira acusar meu dominio como enviador de spams? ou o forward message mantem o enviador original do spam e nunca corro risco de sofrer bloqueios? nao quero queimar o filme de meu dominio hehe No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.39/686 - Release Date: 14/2/2007 07:54 --
Re: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas)
E mesmo que depois de muito suor e fadiga, consiga instalar o componente, pelo fato da ferramenta não autorizar instalação de componentes , não teremos nenhuma garantia que terá um funcionamento a contento. Em 13/02/07, Humberto [EMAIL PROTECTED] escreveu: Exatamente.. somente no professional - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 13, 2007 2:57 PM Subject: RE: [delphi-br] Turbo Delphi Explorer + meus componentes (Duvidas e + Dúvidas) Humberto, não é permitido instalar novos componentes no Turbo Explorer, esta funcionalidade está disponível no Turbo Professional. Você pode adquirir em N vezes através do www.borlandshop.com.br []'s Andreano Lanusse | CodeGear Product Line Manager | phone. +1-(831) 431-5051 | mobile. +1 (831) 332-5100 CodeGear http://www.codegear.com http://www.codegear.com/ Artigos: http://dn.codegear.com/br http://dn.codegear.com/br Blogs: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] off topic: usando gmail como filtro anti spam de todos seus emails
Thunderbird na veia !! Outlook é lixo !! [ ]´s Moacir Adriano Santos (Yahoo) escreveu: Em tese não, precisa testar. Agora uma perguntinha também em off, rsrs. Vc usa qual cliente de recebimento de e-mails? Outlook? Cara uso o Thunderbird e o anti-spam integrado dele é matador. Muito loko mesmo e ainda tem uma pancada de recursos. *Adriano Santos* Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. pelebr respondeu: como o gmail tem um filtro porrada anti spam pensei em dar forward de todas as minhas contas de email para o gmail e me livrar de centenas de anuncios e phishings de uma so vez. mi nha duvida eh a seguinte se eu der forward das mensagens recebidas por [EMAIL PROTECTED] mailto:meuemail%40dominio.com.br para o gmail incluindo os spams o gmail ira acusar meu dominio como enviador de spams? ou o forward message mantem o enviador original do spam e nunca corro risco de sofrer bloqueios? nao quero queimar o filme de meu dominio hehe No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.39/686 - Release Date: 14/2/2007 07:54
Re: [delphi-br] apagando conteudo da tabela
Bom, primeiramente gostaria de dizer que concordo com o Humberto: Paradox é muito ruim! Fui em uma palestra da Borland há uns 4 anos e eles mesmo indicaram a não usar mais Paradox. Corrigindo o nosso colega Alberto, o ApplyUpdates é um comando para gravar dados com o DBExpress, e não com o Paradox (que utiliza o BDE). No seu caso, excluindo a hipotese de que tenha algum comando apagando os dados como disse o Edison, poderia ser uma corrupção de tabela (o que é MUITO comum no Paradox). Tente recriar os índices da tabela. Pode utilizar o Database Desktop para isso (remova os indices e coloque-os novamente). []'s Ezequiel Alberto escreveu: Não é que os registros estão apagando, é que vc não esta dando ApplyUpdates(0) depois de gravar seus registros. - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, February 14, 2007 1:10 AM Subject: Re: [delphi-br] apagando conteudo da tabela Sinto não concordar com o Humberto, mas não acho que o Paradox seja ruim, muito menos para aplicações pequenas como parece ser o seu caso. Suas tabelas seguramente não estão apagando sózinhas. Existe na sua aplicação alguma instrução (ou conjunto delas) que estão fazendo isto. Veja se voce não está recriando suas tabelas ao entrar na aplicação, ou usando alguma instrução emptytable. Procure por instruções tipo NomedaTabela.delete ou se não está gravando registros brancos por cima dos que haviam lá. Uso Paradox há mais de 20 anos, sem problemas e nunca vi uma tabela ser apagada ( ou coisa que o valha) sozinha. Edison - Original Message - From: Humberto [EMAIL PROTECTED] mailto:humbertogrupos%40terra.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 13, 2007 11:56 AM Subject: Re: [delphi-br] apagando conteudo da tabela Bem, antes de mais nada.. não use paradox.. esse banco é mto ruin, procure se informar sobre FireBird e como utilizar..aa se informe tb sobre SQL.. como criar Selects etc.. vc vai demorar mais pra fazer o sistema, mas vai ser um sistema de qualidade mto superior. Não entenda isso mal.. é apenas um conselho. =P - Original Message - From: walter_3wm To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 13, 2007 7:58 AM Subject: [delphi-br] apagando conteudo da tabela Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção. -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas] --
Re: [delphi-br] apagando conteudo da tabela
Eu ainda acho mais viável refazer a parte do banco do sistema e utilizar outro gerenciador de banco de dados.. aparentemente da mais trabalho, mas num futuro PRÓXIMO irá resolver mta dor de cabeça q seria desnecessária. - Original Message - From: Ezequiel To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 14, 2007 12:52 PM Subject: Re: [delphi-br] apagando conteudo da tabela Bom, primeiramente gostaria de dizer que concordo com o Humberto: Paradox é muito ruim! Fui em uma palestra da Borland há uns 4 anos e eles mesmo indicaram a não usar mais Paradox. Corrigindo o nosso colega Alberto, o ApplyUpdates é um comando para gravar dados com o DBExpress, e não com o Paradox (que utiliza o BDE). No seu caso, excluindo a hipotese de que tenha algum comando apagando os dados como disse o Edison, poderia ser uma corrupção de tabela (o que é MUITO comum no Paradox). Tente recriar os índices da tabela. Pode utilizar o Database Desktop para isso (remova os indices e coloque-os novamente). []'s Ezequiel Alberto escreveu: Não é que os registros estão apagando, é que vc não esta dando ApplyUpdates(0) depois de gravar seus registros. - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, February 14, 2007 1:10 AM Subject: Re: [delphi-br] apagando conteudo da tabela Sinto não concordar com o Humberto, mas não acho que o Paradox seja ruim, muito menos para aplicações pequenas como parece ser o seu caso. Suas tabelas seguramente não estão apagando sózinhas. Existe na sua aplicação alguma instrução (ou conjunto delas) que estão fazendo isto. Veja se voce não está recriando suas tabelas ao entrar na aplicação, ou usando alguma instrução emptytable. Procure por instruções tipo NomedaTabela.delete ou se não está gravando registros brancos por cima dos que haviam lá. Uso Paradox há mais de 20 anos, sem problemas e nunca vi uma tabela ser apagada ( ou coisa que o valha) sozinha. Edison - Original Message - From: Humberto [EMAIL PROTECTED] mailto:humbertogrupos%40terra.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 13, 2007 11:56 AM Subject: Re: [delphi-br] apagando conteudo da tabela Bem, antes de mais nada.. não use paradox.. esse banco é mto ruin, procure se informar sobre FireBird e como utilizar..aa se informe tb sobre SQL.. como criar Selects etc.. vc vai demorar mais pra fazer o sistema, mas vai ser um sistema de qualidade mto superior. Não entenda isso mal.. é apenas um conselho. =P - Original Message - From: walter_3wm To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, February 13, 2007 7:58 AM Subject: [delphi-br] apagando conteudo da tabela Bom dia pessoal!!! Bom estou desenvolvendo um sistema para uma oficina mecanica, estou usando database, table, datasource, dbnavigator!!! Bom compilo e entro no sistema, entro na telas de cadastros, cadastro algumas coisas, so que saio do sistema, e depois de um tempo o conteudo das tabelas apagam sozinhos!!! Já aconteceu isso com alguem? alguem pode me ajudar!!! Estou usando delphi 7.0 + paradox Vlw pessoal obrigado atenção. -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/2/2007 13:23 [As partes desta mensagem que não continham texto foram removidas] -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.39/686 - Release Date: 14/2/2007 07:54 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] off topic: usando gmail como filtro anti spam de todos seus emails
eu uso outlook :( estava lendo agora no net que o filtro do gmail eh mais poderoso que o do thunderbird resta saber se dar forward de email pro gmail nao marca vc como spammer hehehe [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] AudioLab ou MMTools
Certo.. não é dificil, mas da um pouco de trabalho...
procura a deAudio ou ACS
deAudio = http://www.droopyeyes.com/default.asp?mode=ShowProductID=2
ACS = http://acs.ullihome.de/acs/index.php/Main_Page
Em WAV é bem facil fazer o sincronismo achar o ponto...
Agora em MP3 os frames variam um pouquinho ai complica um pouco mais...
Todo o controle vc vai ter que fazer na mão, tipo: vai, volta, pause, stop,
play, rec é tudo por sua conta.
vc que tem que mandar tocar parte por parte etc...
tipo
mediaplay = play('audio.wav');
lá seria
// reproduzindo
procedure TForm1.deAudioOut1AudioPlayed(Sender: TObject;
AudioData: Pointer; AudioDataSize: Integer);
begin
readblock...
playblock...
end;
// gravando...
procedure TForm1.deAudioIn1AudioRecorded(Sender: TObject;
AudioData: Pointer; AudioDataSize: Integer);
begin
saveblock( audiodata, etc... )
end;
É na mão grande, tem os helps, exemplos, o deAudio tem foruns direto com o
cara..., mas deixa a pizza e o guaraná pertim... ehheheheheh
abraços e boa sorte
Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br
- Original Message -
From: Alexandre da Silva
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 14, 2007 8:45 AM
Subject: Res: [delphi-br] AudioLab ou MMTools
Ola Luiz, primeiramente obrigado pela resposta!!!
Preciso fazer assim porque o cliente que esta comprando e o chefe da empresa
exigem...rs...
É que vou gravar um laudo medico ditado referente a um exame de um paciente e
caso o medico durante a gravação erre ou decida voltar a um ponto anterior e
mudar/sobrepor a gravação ele deve conseguir fazer isso...Assim como no
Gravador de Som do Windows...
Sobre o que vc falou de
Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e
faz uma edição !?
Não poderia ser assim ?: Isso posso fazer em RunTime ou é um trabalho
artesanal externo?
Obrigado!!!
Alexandre - Micromed Sistemas.
- Mensagem original
De: Luiz Escobar [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Fevereiro de 2007 12:54:51
Assunto: Re: [delphi-br] AudioLab ou MMTools
Não usei nenhum dos dois, fiz a minha propria biblioteca usando o ACM do
windows. ... o HELP do DELPHI é bem completo sobre as funções, mas não
encina a lógica da coisa..( tipo, qual função tem que vir primeiro e qual
tem que vir depois)
Quanto a mediaplay, mciSend, e outras do mesmo genero, vc NÃO vai conseguir
fazer isso com elas..
Agora pra que vc quer fazer isso ? EX:
Gravar, voltar um pouco e regravar encima.! ! ???
Porque simplesmente não fechar abre outro depois coloca tudo no COOLEDIT e
faz uma edição !?
Não poderia ser assim ?
PS: com a MMTools vc conseguiria fazer isso, mas sei não, nao achei ela muito
pratica em alguns aspectos .
Quanto a AudioLAB nao me lembro mais dela... não posso opinar.
DICA: sempre grave em WAV formato RAW, é MUTO mais facil fazer o q vc
quer fazer... .
Luiz Escobar
Analista/Desenvolve dor:
WEB - HTML/JavaScript/ PHP/MySQL
WINDOWS - Delphi/MyDAC/ ASSEMBLER/ MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/ MySQL;
http://www.megasist ema.com.br
- Original Message -
From: djxandytche
To: [EMAIL PROTECTED] os.com.br
Sent: Tuesday, February 13, 2007 8:43 AM
Subject: [delphi-br] AudioLab ou MMTools
Bom dia amigos da lista,
Bom, gostaria da ajuda de vcs para gravação de som do microfone com
delphi.
O problema é o seguinte: Dentre todos os componentes que testei os
mais poderosos que encontrei foram estes 2 que cito no titulo, porem,
nenhum deles faz uma coisa muito importante que preciso. Por exemplo,
o usuário começa a gravar e no final da gravação ele resolve voltar um
pouco e regravar uma parte devido a que ele possa ter falado algo
errado, desta forma o arquivo de áudio deveria sobrepor toda a
gravação a partir do ponto em que ele recomeçou a gravar. Mais não
consegui fazer isso com nenhum componente, nem com o TMediaPlayer e
nem usando código nativo do delphi (mciSendCommand, sndPlaySound, e
estas coisas todas)!!!
Alguém por acaso utiliza alguns destes componentes que cito acima, ou
conhece outros (pode ser pago) ou alguma outra forma de realizar este
trabalho?
Obs.: Este comportamento o Gravador de Som do Windows faz perfeitamente.
Obrigado a todos que puderem responder e me ajudar!!!
Alexandre da Silva.
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table
[delphi-br] Numero Usuarios
como saber o numero de usuários conectados no Interbase? -- Igor Alexandre. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] off topic: usando gmail como filtro anti spam de todos seus emails
Cara, de boa experimenta o Thunderbird. Eu não parei de receber spam, mas a quantidade hoje é 1%. Antes recebia uma média de 200 mensagens dia, hoje recebo umas 10. O resto vai direto pra lixeira. Fora que consigo rotular as mensagens, criar diversos filtros inteligentes, vários catálogos de endereço, posso inclusive manter o thunder minimizado pra estar sempre ligado ao emailll Qualquer dúvidade instalação, atuaização www.guiadohardware.net, tem um fórum excelente lá. Me procura asrsantos. *Adriano Santos* support respondeu: eu uso outlook :( estava lendo agora no net que o filtro do gmail eh mais poderoso que o do thunderbird resta saber se dar forward de email pro gmail nao marca vc como spammer hehehe [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.39/686 - Release Date: 14/2/2007 07:54
[delphi-br] Como saber se a Classe está ou não regi strada?
Pessoal,
Bom dia!!
Tenho a seguinte função para chamar os forms:
function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc nil) then
with TFormClass(Pc)
.Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;
RES: [delphi-br] Exportar para o OpenOffice
veja aqui http://forum.clubedelphi.net/viewtopic.php?t=82030 http://forum.clubedelphi.net/viewtopic.php?t=82030view=nextsid=f8804d4b4b 4e91ec3214fcacc8235b14 view=nextsid=f8804d4b4b4e91ec3214fcacc8235b14 http://www.oooforum.org/forum/viewtopic.phtml?p=150870 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Giovanny Carvalho Enviada em: terça-feira, 13 de fevereiro de 2007 13:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Exportar para o OpenOffice Boa tarde a todos, Eu possuo uma aplicação em delphi 6 / SQL Server 2000 que exporta várias consultas para o Excel. O programa abre o excel, exporta os dados e ao final o usuário salva diretamente no Excel, a planilha gerada. Eu usei para isso uma rotina que peguei na net, que usa a unit ComOBj. Agora a direção da empresa que eu presto serviço determinou que usasse mos o OpenOffice (na verdade BrOffice). Como dá para imaginar as exportações do sistema não funcionam com o Calc. Alguém poderia me ajudar neste sentido? Uma solução que eu pensei, seria, o programa gerar um arquivo em algum formato que o Calc do OpenOffice pudesse ler. Obrigado, Giovanny Carvalho [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Exportar para o OpenOffice
Se interessar, tenho uma aplicação que faz exatamente isso que vc precisa. Entre em contato em PVT. Sds, Ricardo. Giovanny Carvalho [EMAIL PROTECTED] escreveu: Boa tarde a todos, Eu possuo uma aplicação em delphi 6 / SQL Server 2000 que exporta várias consultas para o Excel. O programa abre o excel, exporta os dados e ao final o usuário salva diretamente no Excel, a planilha gerada. Eu usei para isso uma rotina que peguei na net, que usa a unit ComOBj. Agora a direção da empresa que eu presto serviço determinou que usasse mos o OpenOffice (na verdade BrOffice). Como dá para imaginar as exportações do sistema não funcionam com o Calc. Alguém poderia me ajudar neste sentido? Uma solução que eu pensei, seria, o programa gerar um arquivo em algum formato que o Calc do OpenOffice pudesse ler. Obrigado, Giovanny Carvalho __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Listar computadores da rede
Tá na mão: http://www.swissdelphicenter.ch/torry/showcode.php?id=2177 Sds, Ricardo. Luiz Escobar [EMAIL PROTECTED] escreveu: Preciso de uma função/componente que liste todos os nomes E IP´s dos computadores da rede. ALLguem tem algo parecido ? Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] 2 Delphis 1 PC
Existe algum problema de se ter o Delphi 7 e o Delphi 2006 instalado no mesmo PC? Se existe, tem como remediar? Vlw! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] 2 Delphis 1 PC
pelo que sei nao existe nao, ja tive D1,D3,D5,D7,D2005 tudo na mesma maquina... Em 14/02/07, Humberto [EMAIL PROTECTED] escreveu: Existe algum problema de se ter o Delphi 7 e o Delphi 2006 instalado no mesmo PC? Se existe, tem como remediar? Vlw! [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] 2 Delphis 1 PC
Bom eu tenho Delphi3 C/S + Delphi4 PRO + Delphi6 PRO + Delphi7 Enterprise ;-) Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Humberto To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 14, 2007 3:30 PM Subject: [delphi-br] 2 Delphis 1 PC Existe algum problema de se ter o Delphi 7 e o Delphi 2006 instalado no mesmo PC? Se existe, tem como remediar? Vlw! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Warnings e Hints no meu sistema
Você quer por diretiva no código? Se for não sei se tem diretiva pra isso não. Mas se for via IDE, basta voce ir lá no menu Project | Options - Orelha Compiler Messages. Lá voce desmarca as hints e warnings que você não quer que apareçam na compilação. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Adriano Santos - Direção de Arte [EMAIL PROTECTED] escreveu Galera, Estou fazendo uma limpa aqui e preciso retirar ainda um warning das minhas aplicações. Deprecated, o restante referente a Plataforma e talz eu tirei. Alguém sabe a diretiva de compilação pra retirar? Symbol BLABLABLA is deprecated Dá pr retirar? Vlw -- *Adriano Santos*
Re: RES: [delphi-br] Exportar para o OpenOffice
--- Em delphi-br@yahoogrupos.com.br, Tatu-yahoogrupos [EMAIL PROTECTED] escreveu veja aqui http://forum.clubedelphi.net/viewtopic.php?t=82030 http://forum.clubedelphi.net/viewtopic.php?t=82030view=nextsid=f8804d4b4b 4e91ec3214fcacc8235b14 view=nextsid=f8804d4b4b4e91ec3214fcacc8235b14 http://www.oooforum.org/forum/viewtopic.phtml?p=150870 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Giovanny Carvalho Enviada em: terça-feira, 13 de fevereiro de 2007 13:04 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Exportar para o OpenOffice Boa tarde a todos, Eu possuo uma aplicação em delphi 6 / SQL Server 2000 que exporta várias consultas para o Excel. O programa abre o excel, exporta os dados e ao final o usuário salva diretamente no Excel, a planilha gerada. Eu usei para isso uma rotina que peguei na net, que usa a unit ComOBj. Agora a direção da empresa que eu presto serviço determinou que usasse mos o OpenOffice (na verdade BrOffice). Como dá para imaginar as exportações do sistema não funcionam com o Calc. Alguém poderia me ajudar neste sentido? Uma solução que eu pensei, seria, o programa gerar um arquivo em algum formato que o Calc do OpenOffice pudesse ler. Obrigado, Giovanny Carvalho [As partes desta mensagem que não continham texto foram removidas] Fala Santiago, Obrigado pelas dicas, vou analisar com carinho (e tempo) aqueles códigos monstruosos, mas eu consegui uma solução mais simples e talvez um pouco mais trabalhosa Eu gerei um arquivo no formato CSV, isot é, texto separado por vírgula. Eu exporto toda a query separada por vírgula (cada linha um registo) e de preferência entre ASPAS. Apos ter salvado o arquivo, eu o abro com o CALC. Foi a solução mais rápida, mas com certeza eu olharei aqules códigos Giovanny Carvalho
Re: [delphi-br] Utilização de classes
Marcos P. M. de Souza wrote: Estive dando um olhada na imprementação de classes e vi e os componentes são na verdade um caso especial de classes. Existem variaos componetes na internet que vem com o código fonte junto. O q eu quero saber é se posso e como devo fazer para utilizar os códigos fonte desses componetes como se fossem classes ...nao como componentes instalados... Desse modo, no turbo delphi, poderia utilizar as classes de um componentes e utiliza-lo sem instalar.. Ao abrir o .dfm -- o formulário de um projeto -- você pode ver o nome de cada objeto que você possui, seguido por sua classe, e abaixo suas propriedades e outros objetos que o compõe. Por exemplo: Object Panel1: TPanel Left = 64 Top = 32 Object Edit1: TEdit Left = 32 Text = 'Conteudo' Top = 12 end end Para você criar estes objetos em Runtime, basta: Panel1 := TPanel.Create(Self); Panel1.Left := 64; Panel1.Top := 32; Edit1 := TEdit.Create(Self); Edit1.Parent := Panel1; Edit1.Left := 32; Edit1.Text := 'Conteudo'; Edit1.Top := 12; ou seja, copiar o que está no dfm e adaptar para a linguagem. Use o Parent para indicar aonde que o componente está inserido visualmente, por exemplo, o Edit acima está dentro de um Panel. Se o componente estiver diretamente no formulário, basta ignorar o Parent. Mas você tem alguns problemas ao usar esta abordagem: 1. você não consegue ver o resultado em tempo de design, tem que rodar seu programa; 2. você não consegue utilizar o expert de algum componente, pois o expert tem que ser registrado na ide para que possa funcionar. 3. você fica mais dependente da documentação porque não consegue ver as propriedades do componente. Aqui o Code Insight ajuda bastante. -- Joao Morais
