Bem para criar um projeto que rode como serviço do Windows vc terá q ir
até, File New Other e na palheta New escolha o projeto
Service Aplication
Leandro Nunes [EMAIL PROTECTED] wrote:
Olá galera,
Bom gente eu preciso colocar um programa como serviço do windows, e colocar
um botão no
Bom dia amigos Delphianos,
Estou iniciando o desenvolvimento de uma ferramenta para testar a validação de
campos de minha aplicação e gostaria de saber se alguém já desenvolveu algo ou
se conhecer alguma ferramenta que teste programas.
Basicamente o que esta ferramenta poderia fazer era
Eu costumo colocar um edit chave no formulario principal. O usuario digita
o codigo, eu vejo se o registro existe. Se existe eu seto alteração
(consulta por tabela) e caso contrario eu seto inclusão.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de
Olha eu faço da seguinte forma:
Por exemplo tenho um formulário de OS e preciso pegar o código do cliente para
aquela os. o meu código fica assim:
Application.CreateForm(TFrmPesqCliCont,FrmPesqCliCont);
FrmPesqCliCont.Showmodal;
if FrmPesqCliCont.ModalResult = mrOK then
begin
Eduardo, segue uma rotina para indexar os arquivos paradox a partir de um
arquivo contendo o nome do arquivo, nome do indice e uma campo lógico para
indexação.
Estrutura do arquivo:
ARQUIVO A20*
NOMEINDICE A70*
INDEXAR L
Eu tenho um form com um dbgrid que utiliza este
Obrigado Vinicius, vou ver se consigo testar hoje e te dou um retorno sobre
o resultado.
Obrigado.
Acho legal essa troca de conhecimento, assim a gente sempre aprende mais.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Vinicius da Silva Pinto
Olá Elvis,
eu estou utilizando Kylix Open Edition para desenvolver a minha aplicação
n-tier no Linux.
Eu tomei muito na cabeça para deixar o Kylix rodando direito porque eu estava
querendo utilizar a versão Open com a biblioteca IndySOAP ao invés de utilizar
a biblioteca da Borland.
Mas
Olá pessoal, é o seguinte, como no meu cadastro de produtos preciso informar
3 fornecedores, quero utilizar o mesmo formulário de consulta para os três,
então pensei no seguinte.
Obs. + - tela como ficou:
Cód. Forn. Nome Forn.
-- ___
O porém é que temos clientes, com Win 98, ME, XP, 2000 e 2003.
E ai, tenho que fazer funcionar para todos, senão não adianta.
t+
- Original Message -
From: Adriano Guedes
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, April 17, 2005 2:36 PM
Subject: Re: RES: [delphi-br]
Boa tarde,
Como faço para utilizar o valor de uma const que está em outra unit?!
Tks.
[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:
Boa tarde,
Como faço para utilizar o valor de uma const que está em outra unit?!
Tks.
ps: desculpem a msg anterior.
[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:
Quando o usuário clica no botão para fechar o formulário eu uso:
form.Close;
No evento OnClose do formulário eu coloco:
Action:= caFree;
Mesmo assim ele dá Abstract Error quando tento dar um Show
depois.
--- Em delphi-br@yahoogrupos.com.br, Charlles Ferdinand
[EMAIL
no botão que chama a aplicação coloque desta forma
if Form = Nil Then
Application.CreatForm(Tform, Form);
no Close do do form coloque
Action := caFree;
Form := Nil;
se tiver um botão para chamar o fechamento coloque
form.close;
Veja se funciona.
-Mensagem original-
De:
Declare as constantes na seção INTERFACE da unit que as irá forcecer e
uma faça referência a esta unit no USES da unit que utilizará as constantes.
Leonardo Luiz
Joe Makall escreveu:
Boa tarde,
Como faço para utilizar o valor de uma const que está em outra unit?!
Tks.
ps: desculpem a
O problema é que uso um TForm Pai, do qual derivo outras classes
formulários. O tratamento do fechamento está no form Pai, de forma
que não posso especificar um form:= nil ha alguma forma de não
especificar? Tipo o que é feito em Java this=nil?
Desenvolvido em Delphi7.
--- Em
if (fmForm = nil) then begin
Application.CreateForm(TfmForm, fmForm);
// Aqui vc faz outras coisas
end else fmForm.BringToFront;
Formulários MDIChild não podem ficar Visible = false.
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
Você poderia descrever exatamente o que coloca em // Aqui vc faz
outras coisas?
Tentei o BringToFront, bem como um Visible:= True antes do Show,
mas continua dando Abstract Error quando chamo o Show.
Moacir.
--- Em delphi-br@yahoogrupos.com.br, Marcelo Silva [EMAIL PROTECTED]
Antes no form2 coloque e no form1 coloque a variável como public
uses
Form2;
.
.
.
var := Form1.Variavel;
- Original Message -
From: Joe Makall [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 1:44 PM
Subject: Re: [delphi-br] Ainda pro pessoal que é
declare a variável no form1 como publica e no form2 coloque:
uses form1;
.
.
.
variavel2 := Form1.variavel1;
- Original Message -
From: Cristiano Rodrigo Gomes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 10:47 AM
Subject: [delphi-br] Variável em um
Olá galera estou precisando de ajuda preciso saber se
tem algum componente igual o VCL SKIN só que FREE.
Se algum puder me ajudar fico muito grata por estou
precisando muito desse componente.
Valeu!!!
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale
Quando vc cria uma aplicação MDI esta deve ser composta de um formulario
fsMDIForm (como formulario principal) e os outros que vao abrir dentro dele
devem(nao necessariamente) ser fsMDIChild.
Na criação dos MDIChilds só devem ir o comando:
Application.CreateForm(TfmForm, fmForm);
Não sendo
Entendi. Fiz o que disse e funcionou bem. O estranho é que após a
criação de um form MDIChild e seu fechamento (Action:= caFree) - para
que não fique aparecendo na tela, o objeto não fica mais nulo (ou
seja form é nil).
Uma coisa que aconteceu é que agora posso criar muitos forms iguais
para controlar a criação de varios forms eu uso assim:
if Application.FindComponent( 'FrmMeuForm' ) = nil then
Application.CreateForm(TFrmMeuForm,FrmMeuForm);
FrmMeuForm.Show;
=
De:moacirponti [EMAIL PROTECTED]
Para:delphi-br@yahoogrupos.com.br
Assunto:[delphi-br] Re:
No onclose do form coloque
SeuForm := nil;
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: moacirponti
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 18, 2005 4:06 PM
Subject: [delphi-br] Re: Abrir MDIForm já criado
Pessoal como eu posso fazer para saber quantos carateres existem em um
celula do stringgrid, mas eu preciso saber somente o texto que esta
visivil, o texto que esta entre as divisorias visiveis do stringgrid, o
que esta oculto por nao caber eu naum preciso saber, alguem sabe como
fazer isso
Pessoal, alguém saberia me dizer qual componente utiliza essa dll qtintf70.dll.
Pois estou compilando um programa meu micro e quando coloco esse executável em
outra máquina acontece um erro de dll.
Antes não acontecia esse problema. Agora eu não qual o componente que utiliza
essa dll.
Alguém
Positivo.
Ficou perfeito.
Abaixo o código:
if Application.FindComponent('fmEmpresa') = nil then
try
fmEmpresa:= TfmEmpresa.Create(Application);
fmEmpresa.WindowState:= wsMaximized;
except
ShowMessage('Não foi possível criar formulário');
Abort;
Olá pessoal..
Gostaria de saber se há alguma forma de declarar variáveis, Funções e
procedures Locais para uma Unit.
Como à exemplo dos formulários:
Private
// Declarações
Public
// Declarações
Protected
// Declarações
Tem com fazer estas declarações para que somente a Unit possa
Fala Ernesto !
A estrutura é exatamente:
unit Unit1;
protected
{só se estivr usando esquema de classes}
private
{o que for declarado aqui só pode ser visto na própria Unit}
public
{publico, todo mundo vê}
interface
implementation
end.
Sacou ??
On 4/18/05, Ricardo [EMAIL PROTECTED] wrote:
Caro Jorge,
Existe sim, é o DUnit, que você acha no sourceforge.net, mas ele testa
classes, então
você vai ter que trabalhar com orientação a objetos, e neles encapsular
esses dados.
Qualquer dúvida sobre o funcionamento dele, entre em contato comigo.
Abraços
Eduardo
-Mensagem
Mande-me seu email privado que te dou uma força... já passei por isso... gastei
dois dias desenvolvendo e depurando estas e outras funções de conversão.
Coloquei tudo em uma unit e sempre a utilizo em meus programas. Se quiser uma
dica de como usar dicas em Pascal, me dê um toque...
Sim, insira este código no evento OnClose do seu form MDIChild. Fica Assim:
procedure FormMdionClose(XX);
begin
{ Avalie se a condição é válida para o fechamento do form. Por exemplo, num
arquivo que foi modificado, você }
{ deve garantir que apareça um diálogo para o usuário em que ele
Tiago,
Em vez de utilizar o endereço IP tente colocando como
endereço IP o nome da máquina de servidor do BD.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Thiago
Enviada em: sexta-feira, 15 de abril de 2005 12:41
Taty,
Se você usa um generator no banco de dados, o problema está
nele. Set o generator para o número do último registro da tabela.
Abraços,
Paulo.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
Essa historia de ficar preso a banco é bobagem, eu nos meus 10 anos de
informatica nunca vi uma migração de banco, só atualização de versão, se a
empresa já tem um banco de dados relacional rodando dificilmente vai mudar
de fornecedor, e programar de modo transparente para varios bancos é
Eu utilizo a seguinte construção:
// para chamar o form. A função BuscaFormAtivo retorna False se o form não
estiver instanciado.
if not BuscarFormAtivo('frmFormulario') then
TfrmFormulario.Create(Application).Show;
// e a função BuscaFormAtivo, que mostra automaticamente o form se
Bem lembrado... Na minha mensagem anterior, esqueci de citar que todos os
meus forms MDI possuem Action := caFree em seus eventos FormClose.
Abraços,
Mauricio Torres Fernandes
Voyager Informática Ltda.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de
Quer um conselho de amigo? Evita gravar imagens dentro do teu IB/FB. Pois
isto aumenta consideravelmente o trafego da rede. Eu sugiro um campo CHAR
com o nome/path da figura e uma chamada direta à mesma.
[]'s
Evandro Siqueira
Programador
Palas Informática
- Original Message -
From:
dá uma olhada na ultima edicao da revista activedelphi
www.activedelphi.com.br
[]'s
- Original Message -
From: Leandro Nunes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, April 16, 2005 10:55 AM
Subject: [delphi-br] Sistema como serviço do windows
Olá galera,
tenta,
try
iCodigo := StrToInt(FieldByName('CODIGOATUAL').AsString);
except
on EConvertError do
begin
iCodigo := 0;
Continue;
end;
end;
[]'s
Evandro Siqueira
Programador
Palas Informática
-
vc tem certeza que instalou o fb client na maquina cliente?
[]'s
Evandro Siqueira
Programador
Palas Informática
- Original Message -
From: Evandro Aguiar Nascimento [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, April 15, 2005 2:47 PM
Subject: [delphi-br] Socorro!
A idéia e a seguinte tenho uma rede com vários micros(clients) e uma
estação como recepção(server) a pessoa vem na recepção escolhe
uma maquina livre na rede... digita seu login e vai até a maquina,
que só efetua logon se for o mesmo login digitado na recepção...
senão nada feito...e
Pessoal,
Estou com 2 problemas, tenho um banco de dados no interbase e:
1) Não consegui fazer o campo autoincrement. Já criei o generator e a trigger,
mas se coloco um DBText (pois não quero que o usuário digite o código e sim que
o banco atribua este código) dá erro porque o ID é null.
2)
Se vc estiver trabalhando em rede, eh comum a corrupcao de dados. Va se
acostumando. Eu utilizo um programinha chamado Table Doctor Expert para
isso. está disponivel na net ( olha o google ai gente), mas se nao encontrar
me avisa que te emvio em pvt.
- Original Message -
From: Wilson
1) De uma olhada neste link,
http://www.eolos.com.br/index.php?l=DicasDelphicategoria=04, veja se te ajuda.
2) Voce pode usar o ApplyUpdates, que está no IBdatabase e associa-lo ao
ao evento AfterInsert da sua Query , isso deve resolver o problema
de atualização
Abraço
Marcos
-
Pessoal
Eu tenho relacionamento entre duas tabelas (X e Y). Digamos que Y recebe chave
estrangeira de X.
Atributos de X (Codigo_X, Nome_X, Desc_X, Tempo_X)
Atributos de Y (Codigo_X, Codigo_Y, Nome_Y, Dist_Y)
Para calculo do Tempo_X eu preciso saber quantos registros da minha tabela Y
possui
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Thiago
Enviada em: sexta-feira, 15 de abril de 2005 12:41
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] interbase em rede com roteador
Salve lista,
tenho em um formulário um componente DBLookUpComboBox, ligado a um DataSource
que porventura esta ligado a um SQLDataSet. Neste SQLDataSet tenho uma
instrução SQL do tipo:
Select CODIGO, NOME From CURSOS Where CURSOS.ATIVO = 'T'',
Mas quando executo o SQLDataSet.Open ele me
Oi pessoas!!!
Tô a fim de desenvolver um jogo de baralho (Buraco) pra jogar pela
internet, porem nao sei por onde começar a parte de conecção!
Alguem tem alguma coisa pra que eu tenha uma ideia!!???
Agradeço imensamente!!
Marcos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Pois eu nos meus três anos de experiência vi e ainda estou vendo muita gente
migrar de Paradox, DBISAM (acho que é assim que escreve), MySQL, Acess (q
nem é banco hehehe), e até mesmo de Oracle e SQLServer para Firebird por
diversos motivos que fogem a retória da sua afirmação.
Enfim, e
Paty relax ...
Tente:
Select x.Codigo_x, count(y.Codigo_x) from x,y
where x.Codigo_x=y.Codigo_x
group by y.codigo_x
Essa query te devolverá a contagem de registros coincidentes entre x e
y, contados na tabela y.
Até ...
On 4/18/05, Paty CL [EMAIL PROTECTED] wrote:
Pessoal
Eu tenho
Cara, tem uma rotina minha q testa o for.
Isso é, se ele já foi criado ou não, antes da execução, tenta ele:
function JaExiste(const Classe : string):boolean;
var i: integer ;
begin
result := false;
for i:= 0 to MdiChildCount -1 do
if MdiChildren[i].ClassName = Classe then
result :=
Tente:
Select distinct CODIGO, NOME From CURSOS Where CURSOS.ATIVO = 'T'
On 4/18/05, Leandro Carbonera [EMAIL PROTECTED] wrote:
Salve lista,
tenho em um formulário um componente DBLookUpComboBox, ligado a um DataSource
que porventura esta ligado a um SQLDataSet. Neste SQLDataSet tenho
To contigo e não abro !!
On 4/18/05, Rodrigo Othavio Farias [EMAIL PROTECTED] wrote:
Essa historia de ficar preso a banco é bobagem, eu nos meus 10 anos de
informatica nunca vi uma migração de banco, só atualização de versão, se a
empresa já tem um banco de dados relacional rodando
Olá Amigos,
Tenho um sistema onde possuo vários dados cadastrados dos clientes...
Minha Conexão é via adsl, entretanto, desejo o seguinte:
Colocar um botão no form e ao clicar, eu devo discar para o número do
telefone do cliente cadastrado no sistema. Como fazer essa discagem (isso pelo
55 matches
Mail list logo
