Re: [delphi-br] Sobre inherited - parte 2
Romário, antes de mais nada, agradeço a atenção dispensada para o meu
problema. Quanto a ele, os atributos anteriormente informados estão
corretos, pois a classe sacramento engloba 4 classes especialistas, a saber:
batismo, crisma, eucaristia e matrimônio e os atributos que constam nela
estão corretos.
E, sobre o problema de executar o que está na function consultar localizada
em sacramento, basta eu colocar o termo virtual e fazer o código normalmente
e, depois, em batismo faço nova declaração da mesma function consultar e, no
corpo dela, incluo inherited para que faça o que antecessor tem + o código
do herdeiro?
Ex.:
---
classe sacramento:
function consultar (var texto:string;id:byte):byte; virtual;
...
function TUCSacramento.consultar (var texto:string;id:byte):byte;
begin
{código a ser executado}
end;
---
classe batismo
type TUCBatismo = class (TUCSacramento)
...
function consultar (var texto:string;id:byte):byte;
function TUCBatismo.consultar (var texto:string;id:byte):byte;
begin
inherited;
{código do consultar batismo a ser executado}
end;
É isso mesmo que eu entendi?
Em 27/05/07, Romario (Listas) [EMAIL PROTECTED] escreveu:
Ricardo,
Ao meu ver, você está colocando quatro objetos em uma classe só.
1) Paróquia
2) Sacramento
3) Curso
4) Celebrante
Identifique as propriedades de cada uma dessas classes e depois monte a
classe TUCSacramento.
Ex.:
Type
TUCSacramento = Class(TObject)
Private
Codigo : Integer;
Paroquia : TUCParoquia;
Celebrante : TUCCelebrante;
Curso : TUCCurso;
TipoSacramento : String;
Observacao : String;
Protected
Public
End;
Quanto ao seu problema, defina o método como VIRTUAL para aproveitar
as facilidades oferecidas pelo polimorfismo e modificar o comportamento
do acessor.
Ex.:
Function Cadastrar : Boolean; Virtual;
Function Consultar(Var Texto: String; ID: Byte): Byte; Virtual;
Sds,
Romario
ricardo_sx escreveu:
Há um tempo atrás questionei sobre o termo Inherited, onde me
informaram que ele significa faça aquele código contido no herdado
+ o código posterior ao termo. Blz.
Eu, agora estou com a seguinte dificuldade: tenho duas classes: uma
genérica e outra especializada, seguem:
type TUCSacramento = class {classe genérica}
private
codigo_Sacramento:string;
codigo_Paroquiano:string;
tipo_Sacramento:string;
celebrante:string;
data_Inscricao:TDateTime;
inicio_Curso:TDateTime;
termino_Curso:TDateTime;
obs:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; virtual;
function excluir(codigo:string):boolean;
end;
function TUCSacramento.consultar(var texto:string;id:byte):byte;
begin
texto:='qualquer coisa';
result:=1;
end;
e a classe especializada:
type TUCBatismo = class(TUCSacramento)
private
padrinho:string;
madrinha:string;
diocese_Batismo:string;
paroquia_Batismo:string;
data_Batismo:TDateTime;
livro_Batismo:string;
folha_Batismo:string;
numero_Batismo:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; override;
function excluir(codigo:string):boolean; override;
end;
function TUCBatismo.consultar(var texto:string;id:byte):byte;
begin
inherited;
result:=2;
end;
Meu problema é o seguinte: Eu tenho um código pra ser realizado na
classe Sacramento e um outro na classe batismo. Sendo que na classe
batismo eu preciso que, antes de executar seu respectivo código,
realize o código descrito na classe Sacramento. Então pensei nesse
tal de inherited, porém não estou conseguindo fazê-lo funcionar.
Será que alguém poderia me ajudar?
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Procedures no Firebird
Tenho uma procedure que ira ler registros para calcular saldo do cliente (isto funciona) Mas, se ainda nao existir registros do cliente o saldo encontrado NAO e´ zero e sim NULL. Como resolver isto ? Ou seja, como aparecer zero ao inves da palavra NULL ? Abaixo a minha Procedure begin viLinha = 0; Select max(linha) from ContaCorrente where (CodCli = :CodCli) and (SI = 'S') into :viLinha; vfdebito = 0; vfcredito = 0; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'D') into :vfdebito; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'C') into :vfcredito; vsdc = 'D'; vfsaldo = vfcredito - vfdebito; if (vfsaldo 0) then vsdc = 'C'; INSERT INTO ContaCorrente (CodCli, Linha, DtEmissao, SI, Talao, NroNf, Valor, DC, JD, Texto1, texto2, CodHist, DtFato, Usuario) VALUES (:CodCli, :Linha, :DtEmissao, :SI, :Talao, :NroNf, :vfsaldo, :vsdc, :JD, :Texto1, :texto2, :CodHist, :DtFato, :Usuario); suspend; end
[delphi-br] NÃO ABRE BANCO FIREBIRD ***
Bom Dia, é seguinte, meu BANCO firebird não esta abrindo na minha maquina windows XP, ja instalei e desinstalei umas trossentas vezes, mudei de pasta na instalação e nao abre o banco de dados, da UNKNOW DATABASE. Mas o serviço esta rodando certinho, esta estartado normalmente, mas nao abre nenhum banco de dados, o que pode ser, sujeira no windows? -- Grato pelo atenção Luís ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] NÃO ABRE BANCO FIREBIRD ***
Bom Dia, é seguinte, meu BANCO firebird não esta abrindo na minha maquina windows XP, ja instalei e desinstalei umas trossentas vezes, mudei de pasta na instalação e nao abre o banco de dados, da UNKNOW DATABASE. Mas o serviço esta rodando certinho, esta estartado normalmente, mas nao abre nenhum banco de dados, o que pode ser, sujeira no windows? -- Grato pelo atenção Luís ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
RES: [delphi-br] Procedures no Firebird
Se eu entendi direito Porque você não coloca uma condição de que quando o valor for null você atribui zero a variável vfsaldo. Espero ter ajudado, t+! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de fernandoaldrighi Enviada em: segunda-feira, 28 de maio de 2007 09:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Procedures no Firebird Tenho uma procedure que ira ler registros para calcular saldo do cliente (isto funciona) Mas, se ainda nao existir registros do cliente o saldo encontrado NAO e´ zero e sim NULL. Como resolver isto ? Ou seja, como aparecer zero ao inves da palavra NULL ? Abaixo a minha Procedure begin viLinha = 0; Select max(linha) from ContaCorrente where (CodCli = :CodCli) and (SI = 'S') into :viLinha; vfdebito = 0; vfcredito = 0; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'D') into :vfdebito; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'C') into :vfcredito; vsdc = 'D'; vfsaldo = vfcredito - vfdebito; if (vfsaldo 0) then vsdc = 'C'; INSERT INTO ContaCorrente (CodCli, Linha, DtEmissao, SI, Talao, NroNf, Valor, DC, JD, Texto1, texto2, CodHist, DtFato, Usuario) VALUES (:CodCli, :Linha, :DtEmissao, :SI, :Talao, :NroNf, :vfsaldo, :vsdc, :JD, :Texto1, :texto2, :CodHist, :DtFato, :Usuario); suspend; end [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Procedures no Firebird
Vc poderia tester com um if antes de terminar a sua procedure. Se o valor fosse NULL então, deve adotar o valor 0, caso contrário, adotar o valor encontrado. Agora onde e como vc vai implementar é com vc. Sds, Ricardo. fernandoaldrighi [EMAIL PROTECTED] escreveu: Tenho uma procedure que ira ler registros para calcular saldo do cliente (isto funciona) Mas, se ainda nao existir registros do cliente o saldo encontrado NAO e´ zero e sim NULL. Como resolver isto ? Ou seja, como aparecer zero ao inves da palavra NULL ? Abaixo a minha Procedure begin viLinha = 0; Select max(linha) from ContaCorrente where (CodCli = :CodCli) and (SI = 'S') into :viLinha; vfdebito = 0; vfcredito = 0; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'D') into :vfdebito; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'C') into :vfcredito; vsdc = 'D'; vfsaldo = vfcredito - vfdebito; if (vfsaldo 0) then vsdc = 'C'; INSERT INTO ContaCorrente (CodCli, Linha, DtEmissao, SI, Talao, NroNf, Valor, DC, JD, Texto1, texto2, CodHist, DtFato, Usuario) VALUES (:CodCli, :Linha, :DtEmissao, :SI, :Talao, :NroNf, :vfsaldo, :vsdc, :JD, :Texto1, :texto2, :CodHist, :DtFato, :Usuario); suspend; end __ 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] NÃO ABRE BANCO FIREBIRD ***
Pode ser o firewall do XP que está bloqueando. Verifique se a porta 3050 está liberada na sua máquina. - Original Message - From: Luís [EMAIL PROTECTED] To: Delphi-Br delphi-br@yahoogrupos.com.br Sent: Monday, May 28, 2007 9:16 AM Subject: [delphi-br] NÃO ABRE BANCO FIREBIRD *** Bom Dia, é seguinte, meu BANCO firebird não esta abrindo na minha maquina windows XP, ja instalei e desinstalei umas trossentas vezes, mudei de pasta na instalação e nao abre o banco de dados, da UNKNOW DATABASE. Mas o serviço esta rodando certinho, esta estartado normalmente, mas nao abre nenhum banco de dados, o que pode ser, sujeira no windows? -- Grato pelo atenção Luís ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] NÃO ABRE BANCO FIREBIRD ***
Não entendi bem o seu problema, Luís. Vc está usando alguma ferramenta como o IBExpert para tentar abrir o banco? Se estiver usando, está tendo problemas? Quais problemas? Se estiver tendo problemas na sua aplicação, e estiver usando um TSQLConnection, cheque se o caminho que está na propriedade Params.DataBase é o mesmo em que o seu banco se encontra. A princípio seria isso. Sds, Ricardo. Luís [EMAIL PROTECTED] escreveu: Bom Dia, é seguinte, meu BANCO firebird não esta abrindo na minha maquina windows XP, ja instalei e desinstalei umas trossentas vezes, mudei de pasta na instalação e nao abre o banco de dados, da UNKNOW DATABASE. Mas o serviço esta rodando certinho, esta estartado normalmente, mas nao abre nenhum banco de dados, o que pode ser, sujeira no windows? -- Grato pelo atenção Luís ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ 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] Procedures no Firebird
Da uma procura som COALESCE que resolver seu problema. exemplo Select COALESCE( max(linha) ,0) as linnha from ContaCorrente where (CodCli = :CodCli) and (SI = 'S') into :viLinha; - Original Message - From: fernandoaldrighi To: delphi-br@yahoogrupos.com.br Sent: Monday, May 28, 2007 9:00 AM Subject: [delphi-br] Procedures no Firebird Tenho uma procedure que ira ler registros para calcular saldo do cliente (isto funciona) Mas, se ainda nao existir registros do cliente o saldo encontrado NAO e´ zero e sim NULL. Como resolver isto ? Ou seja, como aparecer zero ao inves da palavra NULL ? Abaixo a minha Procedure begin viLinha = 0; Select max(linha) from ContaCorrente where (CodCli = :CodCli) and (SI = 'S') into :viLinha; vfdebito = 0; vfcredito = 0; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'D') into :vfdebito; Select sum(valor) from contacorrente where (CodCli = :CodCli) and (Linha = :viLinha) and (dc = 'C') into :vfcredito; vsdc = 'D'; vfsaldo = vfcredito - vfdebito; if (vfsaldo 0) then vsdc = 'C'; INSERT INTO ContaCorrente (CodCli, Linha, DtEmissao, SI, Talao, NroNf, Valor, DC, JD, Texto1, texto2, CodHist, DtFato, Usuario) VALUES (:CodCli, :Linha, :DtEmissao, :SI, :Talao, :NroNf, :vfsaldo, :vsdc, :JD, :Texto1, :texto2, :CodHist, :DtFato, :Usuario); suspend; end [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Iniciante
bom dia, estou migrando meus sistemas em clipper para delphi, gostaria de algumas dicas: 1) Qual o banco de dados usar ? 2) Devo escrever os sistemas na unha ou usar Gerador de Sistemas ? Qual é o bom ?? 3) Componente de acesso ao banco de dados ?? aguardo algumas dicas ?? No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.0/821 - Release Date: 27/05/2007 15:05
Re: [delphi-br] NÃO ABRE BANCO FIREBIRD ***
Estranho! 1) O drive onde está o banco é local, isto é, não é um drive de rede? (Firebird não abre banco remoto) 2) Tenta ver se não é problema no Firewall. Para isso, desabilite o Firewall e vê se funciona. Caso positivo, inclua o Firebird na lista de liberados no Firewall. - Original Message - From: Luís To: Delphi-Br Sent: Monday, May 28, 2007 9:14 AM Subject: [delphi-br] NÃO ABRE BANCO FIREBIRD *** Bom Dia, é seguinte, meu BANCO firebird não esta abrindo na minha maquina windows XP, ja instalei e desinstalei umas trossentas vezes, mudei de pasta na instalação e nao abre o banco de dados, da UNKNOW DATABASE. Mas o serviço esta rodando certinho, esta estartado normalmente, mas nao abre nenhum banco de dados, o que pode ser, sujeira no windows? -- Grato pelo atenção Luís ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,465ac817755599131412578 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form dou Create e ele dá um ShowModal tb... pq? como resolvo?
Galera, Obrigado pela atenção mas respondendo... Não é o primeiro form que instacio na aplicação e tb não há nada no Oncreate do mesmo... Ele estava funcionando bem só que fiz uns testes de FormChild mas depois desfiz e ficou assim... valeu, Thiago Em 25/05/07, Henrique Cristiano Rodrigues [EMAIL PROTECTED] escreveu: Verifica se há algo no enveto oncreate Henrique Cristiano Rodrigues tel.: 9122-4471 Messeger: [EMAIL PROTECTED] henrique_mail%40yahoo.com.br Orkut: http://www.orkut.com/Profile.aspx?uid=10107590976039686513 - Mensagem original De: Thiago Oliveira [EMAIL PROTECTED] tbaiano%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 25 de Maio de 2007 17:16:01 Assunto: [delphi-br] Form dou Create e ele dá um ShowModal tb... pq? como resolvo? Galera, Trabalho com Delphi 7, e num sistema que tenho aqui está acontecendo isto, Estou com um Form que quando dou um, Application. CreateForm( TfrmSituacao, frmSituacao) ; ou um, frmSituacao := TfrmSituacao. Create(self) ; Tb executa o comendo ShowModal do mesmo, sem está escrito isto, não sei porque quero tirar isso, já revisei as propriedades e não encontrei nada... Estou achando muito estranho isto... Agradeço a ajuda... Thiago [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Iniciante
Bom dia e bem vindo ao grupo! 1) Qual o banco de dados usar ? Depende do tamanho das tuas aplicações ou dos teus clientes. Particularmente prefiro BDs Free / Opensource como Firebird 1.5.x(Free/Open), Oracle XE 10g (Free) ou MS-SQL Express. Na maioria dos meus clientes (+/- uns 85% eu uso Firebird) 2) Devo escrever os sistemas na unha ou usar Gerador de Sistemas ? Qual é o bom ?? Cara, usar gerador de relatórios é bom, em muitos casos agiliza o trabalho. Depois que migrei para linguagens visuais fiz poucos relatórios na unha. Sempre uso um gerador quando posso. Recomento Fortes Reports, Report Manager (Freewares / Opensource) ou TPrinter para relatórios na unha (e provavelmente para relatórios em impressoras matriciais). Existem outras dezenas de opções, mas as minhas preferências são estas. 3) Componente de acesso ao banco de dados ?? Prefiro DBExpress com o Driver UIB quando trabalho com Firebird. Alguns podem argumentar que é possível usar o driver nativo pra Interbase, mas como a compatibilidade entre FB e IB tende a diminuir com o tempo, prefiro usar um driver específico para o FB. Para Oracle e SQL Server tb é possível usar o DBX e para SQL Server ainda há uma outra possibilidade que é o ADO. Esta é a minha opinião, mas acredito que vc receberá muitas outras. Sds, Ricardo. Antonio Pires [EMAIL PROTECTED] escreveu: bom dia, estou migrando meus sistemas em clipper para delphi, gostaria de algumas dicas: 1) Qual o banco de dados usar ? 2) Devo escrever os sistemas na unha ou usar Gerador de Sistemas ? Qual é o bom ?? 3) Componente de acesso ao banco de dados ?? aguardo algumas dicas ?? No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.0/821 - Release Date: 27/05/2007 15:05 __ 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] Sobre inherited - parte 2
Ricardo Souza wrote:
Romário, antes de mais nada, agradeço a atenção dispensada para o meu
problema. Quanto a ele, os atributos anteriormente informados estão
corretos, pois a classe sacramento engloba 4 classes especialistas, a saber:
batismo, crisma, eucaristia e matrimônio e os atributos que constam nela
estão corretos.
E, sobre o problema de executar o que está na function consultar localizada
em sacramento, basta eu colocar o termo virtual e fazer o código normalmente
e, depois, em batismo faço nova declaração da mesma function consultar e, no
corpo dela, incluo inherited para que faça o que antecessor tem + o código
do herdeiro?
Ex.:
---
classe sacramento:
function consultar (var texto:string;id:byte):byte; virtual;
...
function TUCSacramento.consultar (var texto:string;id:byte):byte;
begin
{código a ser executado}
end;
---
classe batismo
type TUCBatismo = class (TUCSacramento)
...
function consultar (var texto:string;id:byte):byte;
function TUCBatismo.consultar (var texto:string;id:byte):byte;
begin
inherited;
{código do consultar batismo a ser executado}
end;
É isso mesmo que eu entendi?
Falta alguns detalhes:
Na classe abstrata, inclua o termo virtual depois de cada método que
você queira especializar. Mas apenas na classe, na implementação você
não precisa recolocar o virtual.
Na classe especializada, inclua o termo override para os métodos que
você quer modificar comportamento. Aqui também, apenas na linha que
declara o método. Na implementação não precisa do override.
Dentro do método que possui um override você usa o inherited para chamar
o que foi declarado na classe anterior.
Por enquanto é isso, o restante fica para uma futura parte 3 pra não
complicar além do necessário.
--
Joao Morais
Em 27/05/07, Romario (Listas) [EMAIL PROTECTED] escreveu:
Ricardo,
Ao meu ver, você está colocando quatro objetos em uma classe só.
1) Paróquia
2) Sacramento
3) Curso
4) Celebrante
Identifique as propriedades de cada uma dessas classes e depois monte a
classe TUCSacramento.
Ex.:
Type
TUCSacramento = Class(TObject)
Private
Codigo : Integer;
Paroquia : TUCParoquia;
Celebrante : TUCCelebrante;
Curso : TUCCurso;
TipoSacramento : String;
Observacao : String;
Protected
Public
End;
Quanto ao seu problema, defina o método como VIRTUAL para aproveitar
as facilidades oferecidas pelo polimorfismo e modificar o comportamento
do acessor.
Ex.:
Function Cadastrar : Boolean; Virtual;
Function Consultar(Var Texto: String; ID: Byte): Byte; Virtual;
Sds,
Romario
ricardo_sx escreveu:
Há um tempo atrás questionei sobre o termo Inherited, onde me
informaram que ele significa faça aquele código contido no herdado
+ o código posterior ao termo. Blz.
Eu, agora estou com a seguinte dificuldade: tenho duas classes: uma
genérica e outra especializada, seguem:
type TUCSacramento = class {classe genérica}
private
codigo_Sacramento:string;
codigo_Paroquiano:string;
tipo_Sacramento:string;
celebrante:string;
data_Inscricao:TDateTime;
inicio_Curso:TDateTime;
termino_Curso:TDateTime;
obs:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; virtual;
function excluir(codigo:string):boolean;
end;
function TUCSacramento.consultar(var texto:string;id:byte):byte;
begin
texto:='qualquer coisa';
result:=1;
end;
e a classe especializada:
type TUCBatismo = class(TUCSacramento)
private
padrinho:string;
madrinha:string;
diocese_Batismo:string;
paroquia_Batismo:string;
data_Batismo:TDateTime;
livro_Batismo:string;
folha_Batismo:string;
numero_Batismo:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; override;
function excluir(codigo:string):boolean; override;
end;
function TUCBatismo.consultar(var texto:string;id:byte):byte;
begin
inherited;
result:=2;
end;
Meu problema é o seguinte: Eu tenho um código pra ser realizado na
classe Sacramento e um outro na classe batismo. Sendo que na classe
batismo eu preciso que, antes de executar seu respectivo código,
realize o código descrito na classe Sacramento. Então pensei nesse
tal de inherited, porém não estou conseguindo fazê-lo funcionar.
Será que alguém poderia me ajudar?
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NÃO ABRE BANCO FIREBIRD ***
1) O drive onde está o banco é local, isto é, não é um drive de rede? (Firebird não abre banco remoto) Vc está certo disso, camarada? Acho que ele abre sim... 2) Tenta ver se não é problema no Firewall. Para isso, desabilite o Firewall e vê se funciona. Caso positivo, inclua o Firebird na lista de liberados no Firewall. Só complementando, verifique se as portas 3050 e 3051 estão liberadas no firewall, já que elas é que são usadas pelo FB. Sds, Ricardo. Alessandro DUARTE de Moraes [EMAIL PROTECTED] escreveu: Estranho! 1) O drive onde está o banco é local, isto é, não é um drive de rede? (Firebird não abre banco remoto) 2) Tenta ver se não é problema no Firewall. Para isso, desabilite o Firewall e vê se funciona. Caso positivo, inclua o Firebird na lista de liberados no Firewall. - Original Message - From: Luís To: Delphi-Br Sent: Monday, May 28, 2007 9:14 AM Subject: [delphi-br] NÃO ABRE BANCO FIREBIRD *** Bom Dia, é seguinte, meu BANCO firebird não esta abrindo na minha maquina windows XP, ja instalei e desinstalei umas trossentas vezes, mudei de pasta na instalação e nao abre o banco de dados, da UNKNOW DATABASE. Mas o serviço esta rodando certinho, esta estartado normalmente, mas nao abre nenhum banco de dados, o que pode ser, sujeira no windows? -- Grato pelo atenção Luís ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,465ac817755599131412578 [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]
Re: [delphi-br] Iniciante
Antonio Pires wrote: estou migrando meus sistemas em clipper para delphi, gostaria de algumas dicas: 1) Qual o banco de dados usar ? Se seu cliente não exigir o banco que ele quer, as melhores cotações vão para PostgreSQL e Firebird. Fb possui mais variedade de componentes para acesso nativo e Pq é mais robusto. 2) Devo escrever os sistemas na unha ou usar Gerador de Sistemas ? Qual é o bom ?? Na unha é brabo, você vai precisar nem que seja um TClientDataSet para fazer parte do trabalho sujo. Se você não é daqueles que pensa que componente bom tem que vir com o Delphi, senão você vai ficar na mão, eu recomendo PressObjects: você ganha *muito* em produtividade mas tem que conhecer orientação a objetos. Se tiver interesse em conhecer, use a versão do subversion pois o snapshot do site tá muito defasado. 3) Componente de acesso ao banco de dados ?? Depende do banco e depende da forma que você desenvolve o sistema. Qualquer dúvida, posta aí. -- Joao Morais
[delphi-br] Off: Precisa-se desenvolvedor n-tier
Pessoal, Novamente estou precisando de desenvolvedores n-tier com experiência e que possam trabalhar como freelancer. Desejável conhecimentos em sistemas de transportes. Trabalhamos com base de dados Firebird. Contato favor enviar e-mail com cúrriculo para [EMAIL PROTECTED] -- 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. Blog: http://www.delphitodelphi.blogspot.com
Re: RES: [delphi-br] FPC
Walter Alves Chagas Junior wrote: Delphi for FPC??? Uê, que redundância é essa? Então Walter, tua mensagem passou batida. Segue um exemplo com o qual eu espero me fazer entender: 1. Crie um novo projeto 2. Implemente 3. Escolha Target OS entre: dos, win32, win64, linux32, linux64, macosx, freebsd, os2 (tô com preguiça de citar mais) 4. Escolha Target widget set entre: native, win32/64, wince, carbon, qt, gtk1, gtk2 5. Salve 6. Compile 7. Distribua -- Joao Morais
RES: [delphi-br] BDS 2006 e Windows Vista
Veja se não é problema de permissão de usuario ou de serviço no cassini ou nio iis. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Claudiney-listas Enviada em: sábado, 26 de maio de 2007 18:48 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] BDS 2006 e Windows Vista Olá grupo. Venho utilizando o BDS 2006 no desenvolvimento de uma aplicação .net, a princípio pra conhecer a ferramenta. Tudo tranqüilo usando win XP sp2. Porém essa semana instalei o Windows Vista Business e reinstalei o BDS 2006. Até aí nenhum problema, tudo funcionou bem. Porém o Vista vem com o IIS 7, o qual depois de algumas cabeçadas, fiz rodar as aplicações asp.net. Porém quando crio uma nova aplicação, ou tento rodar uma aplicação existente pelo BDS ele me avisa que não encontra o IIS ou que ele está desconfigurado e não abre. Diz que não consegue criar a pasta virtual, mas que eu poderia criá-la manualmente. Fazendo isso a aplicação roda normalmente quando chamo pelo browser, mas nada pelo BDS. Alguém fez essa mudança e passou por este problema? Tem alguma dica ou link onde eu possa conseguir informação a respeito? Mesmo quando mudo para o Cassini ele acusa que não tenho permissão para acessar a pasta temporária para executar a aplicação. Continuo na luta por aqui. Caso alguém possa ajudar, agradeço desde já. Abraços a todos _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2292 (20070525) __ 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]
Re: RES: [delphi-br] FPC
É João nesse e em outros quesitos o FPC arrebenta mesmo, já pensou o Delphi com uma facilidade dessas, um dia, quem sabe né? Em 28/05/07, Joao Morais [EMAIL PROTECTED] escreveu: Walter Alves Chagas Junior wrote: Delphi for FPC??? Uê, que redundância é essa? Então Walter, tua mensagem passou batida. Segue um exemplo com o qual eu espero me fazer entender: 1. Crie um novo projeto 2. Implemente 3. Escolha Target OS entre: dos, win32, win64, linux32, linux64, macosx, freebsd, os2 (tô com preguiça de citar mais) 4. Escolha Target widget set entre: native, win32/64, wince, carbon, qt, gtk1, gtk2 5. Salve 6. Compile 7. Distribua -- Joao Morais -- 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]
[delphi-br] Duvida UserControl !
Pessoal, Estou tendo um problema com o uso de UserControl, pois fiz um usercontrol que tem botoes e quando coloco esse usercontrol em outra pagina que tb tem botoes ele nao aceita exibindo a seguinte mensagem: A page can have only one server-side Form tag. Ja tentei de tudo e nao conseguir resolver e alguem ja passou por algum problema desses agradeco a ajuda. Leonardo Anselmo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Vcl for the Web não aceita Ajax
os eventos onAsync (Ajax) simplesmente não estão funcionando no Delphi 2007. pq? tem q instalar ou habilitar alguma propriedade? no componente a propriedade SubmitOnAsyncEvent já está True (o padrão). alguém pode ajudar? __ 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] Sobre inherited - parte 2
Caro João, obrigado pelas dicas! vou fazer e ver se funciona. Qualquer coisa
retorno, lembrando que bons filmes têm trilogia e, possivelmente, o meu terá
a parte 3 rsrsrsrs.
Em 28/05/07, Joao Morais [EMAIL PROTECTED] escreveu:
Ricardo Souza wrote:
Romário, antes de mais nada, agradeço a atenção dispensada para o meu
problema. Quanto a ele, os atributos anteriormente informados estão
corretos, pois a classe sacramento engloba 4 classes especialistas, a
saber:
batismo, crisma, eucaristia e matrimônio e os atributos que constam nela
estão corretos.
E, sobre o problema de executar o que está na function consultar
localizada
em sacramento, basta eu colocar o termo virtual e fazer o código
normalmente
e, depois, em batismo faço nova declaração da mesma function consultar
e, no
corpo dela, incluo inherited para que faça o que antecessor tem + o
código
do herdeiro?
Ex.:
--
classe sacramento:
function consultar (var texto:string;id:byte):byte; virtual;
...
function TUCSacramento.consultar (var texto:string;id:byte):byte;
begin
{código a ser executado}
end;
--
classe batismo
type TUCBatismo = class (TUCSacramento)
...
function consultar (var texto:string;id:byte):byte;
function TUCBatismo.consultar (var texto:string;id:byte):byte;
begin
inherited;
{código do consultar batismo a ser executado}
end;
--
É isso mesmo que eu entendi?
Falta alguns detalhes:
Na classe abstrata, inclua o termo virtual depois de cada método que
você queira especializar. Mas apenas na classe, na implementação você
não precisa recolocar o virtual.
Na classe especializada, inclua o termo override para os métodos que
você quer modificar comportamento. Aqui também, apenas na linha que
declara o método. Na implementação não precisa do override.
Dentro do método que possui um override você usa o inherited para chamar
o que foi declarado na classe anterior.
Por enquanto é isso, o restante fica para uma futura parte 3 pra não
complicar além do necessário.
--
Joao Morais
Em 27/05/07, Romario (Listas) [EMAIL PROTECTED]rbr_vix_es%40yahoo.com.br
escreveu:
Ricardo,
Ao meu ver, você está colocando quatro objetos em uma classe só.
1) Paróquia
2) Sacramento
3) Curso
4) Celebrante
Identifique as propriedades de cada uma dessas classes e depois monte a
classe TUCSacramento.
Ex.:
Type
TUCSacramento = Class(TObject)
Private
Codigo : Integer;
Paroquia : TUCParoquia;
Celebrante : TUCCelebrante;
Curso : TUCCurso;
TipoSacramento : String;
Observacao : String;
Protected
Public
End;
Quanto ao seu problema, defina o método como VIRTUAL para aproveitar
as facilidades oferecidas pelo polimorfismo e modificar o comportamento
do acessor.
Ex.:
Function Cadastrar : Boolean; Virtual;
Function Consultar(Var Texto: String; ID: Byte): Byte; Virtual;
Sds,
Romario
ricardo_sx escreveu:
Há um tempo atrás questionei sobre o termo Inherited, onde me
informaram que ele significa faça aquele código contido no herdado
+ o código posterior ao termo. Blz.
Eu, agora estou com a seguinte dificuldade: tenho duas classes: uma
genérica e outra especializada, seguem:
type TUCSacramento = class {classe genérica}
private
codigo_Sacramento:string;
codigo_Paroquiano:string;
tipo_Sacramento:string;
celebrante:string;
data_Inscricao:TDateTime;
inicio_Curso:TDateTime;
termino_Curso:TDateTime;
obs:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; virtual;
function excluir(codigo:string):boolean;
end;
function TUCSacramento.consultar(var texto:string;id:byte):byte;
begin
texto:='qualquer coisa';
result:=1;
end;
e a classe especializada:
type TUCBatismo = class(TUCSacramento)
private
padrinho:string;
madrinha:string;
diocese_Batismo:string;
paroquia_Batismo:string;
data_Batismo:TDateTime;
livro_Batismo:string;
folha_Batismo:string;
numero_Batismo:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; override;
function excluir(codigo:string):boolean; override;
end;
function TUCBatismo.consultar(var texto:string;id:byte):byte;
begin
inherited;
result:=2;
end;
Meu problema é o seguinte: Eu tenho um código pra ser realizado na
classe Sacramento e um outro na classe batismo. Sendo que na classe
batismo eu preciso que, antes de executar seu respectivo código,
realize o código descrito na classe Sacramento. Então pensei nesse
tal de inherited, porém não estou conseguindo fazê-lo funcionar.
Será que alguém poderia me ajudar?
[As partes desta mensagem que não continham texto
[delphi-br] Apresentação em projetor de imagens
Bom dia Pessoal, Estou precisando de projetar imagens de um sistema em delhpi para um projetor, usando a saída de vídeo de minha placa. Gostaria de apresentar mensagens e vídeos dentro de uma aplicação. Gerar os textos e vídeos na aplicação é fácil. Gostaria de saber como fazer a projeção e ainda usar o monitor, isto é, o monitor fica ativo e o que estiver na tela é jogado no projetor, sendo que a ativação deverá ser por comando do delphi. Obrigado!!
RE: [delphi-br] Vcl for the Web não aceita Ajax
Galdariah, funciona sim. Cada objeto tem evento ALGOAsync, tipo um botão tem o evento onAsyncClick. O que você está tentando fazer? []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Galdariah Third Sent: Monday, May 28, 2007 8:40 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Vcl for the Web não aceita Ajax os eventos onAsync (Ajax) simplesmente não estão funcionando no Delphi 2007. pq? tem q instalar ou habilitar alguma propriedade? no componente a propriedade SubmitOnAsyncEvent já está True (o padrão). alguém pode ajudar? __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Duvida UserControl !
Isso é porque você colocou duas tags form/form no formulários. As páginas em ASP.NET podem ter apenas 1 form. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Leonardo Anselmo Sent: Monday, May 28, 2007 7:41 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Duvida UserControl ! Pessoal, Estou tendo um problema com o uso de UserControl, pois fiz um usercontrol que tem botoes e quando coloco esse usercontrol em outra pagina que tb tem botoes ele nao aceita exibindo a seguinte mensagem: A page can have only one server-side Form tag. Ja tentei de tudo e nao conseguir resolver e alguem ja passou por algum problema desses agradeco a ajuda. Leonardo Anselmo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NÃO ABRE BANCO FIREBIRD ***
Fiz os testes, e msm assim nao funcionou, da o erro de Unavaliable database. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] NÃO ABRE BANCO FIREBIRD ***
O que esta acontecendo Vc já viu se o Firebird esta rodando ??? Ele esta em uma maquina winodws ou linux ??? Wesley - Original Message - From: Luís To: delphi-br@yahoogrupos.com.br Sent: Monday, May 28, 2007 1:47 PM Subject: Re: [delphi-br] NÃO ABRE BANCO FIREBIRD *** Fiz os testes, e msm assim nao funcionou, da o erro de Unavaliable database. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.0/821 - Release Date: 27/5/2007 15:05 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sobre inherited - parte 2
Ricardo,
Os atributos da sua classe TUCSacramento podem até estar corretos, mas o
tipo deles é que acho que estão errados. Você tem OBJETOS na classe
tratados como String e/ou TDatetime.
Note que paróquia, curso e celebrante tem vida própria. Ou seja, eles
existem mesmo que não haja o Sacramento.
Quanto ao seu problema, só faltou o OVERRIDE na classe Batismo.
Ficaria assim:
Classe Sacramento:
Function Consultar (Var Texto: String; ID: Byte): Byte; Virtual;
...
Function TUCSacramento.Consultar (Var Texto: String; ID: Byte): Byte;
Begin
{código a ser executado}
End;
-
Classe Batismo
Type TUCBatismo = Class (TUCSacramento)
...
Function Consultar (Var Texto: String; ID: Byte): Byte; Override;
Function TUCBatismo.Consultar (Var Texto: String; ID: Byte): Byte;
Begin
Inherited;
{código do consultar batismo a ser executado}
End;
-
Sds,
Romario
Ricardo Souza escreveu:
Romário, antes de mais nada, agradeço a atenção dispensada para o meu
problema. Quanto a ele, os atributos anteriormente informados estão
corretos, pois a classe sacramento engloba 4 classes especialistas, a saber:
batismo, crisma, eucaristia e matrimônio e os atributos que constam nela
estão corretos.
E, sobre o problema de executar o que está na function consultar localizada
em sacramento, basta eu colocar o termo virtual e fazer o código normalmente
e, depois, em batismo faço nova declaração da mesma function consultar e, no
corpo dela, incluo inherited para que faça o que antecessor tem + o código
do herdeiro?
Ex.:
--
classe sacramento:
function consultar (var texto:string;id:byte):byte; virtual;
...
function TUCSacramento.consultar (var texto:string;id:byte):byte;
begin
{código a ser executado}
end;
--
classe batismo
type TUCBatismo = class (TUCSacramento)
...
function consultar (var texto:string;id:byte):byte;
function TUCBatismo.consultar (var texto:string;id:byte):byte;
begin
inherited;
{código do consultar batismo a ser executado}
end;
--
É isso mesmo que eu entendi?
[delphi-br] PivotCube X Teechart
Alguem já teve algum problema quando vai instalar o pivotCube ou o Teechart? O erro é este abaixo: Cannot load package 'tee70.' It contains unit 'TeeAbout,'which is also contained in package 'Tee77'. se desabilito o teechart e instalo o pivot, ele instala sem problemas, e se tento habilitar o componente novamente ele da o mesmo erro, deixando habilitar somente quando desabilitar o pivot do Install Packages [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PivotCube X Teechart
Já, só consegui instalar o Pivot fazendo a mesma coisa, infelizmente como eu só queria testar o bicho desistimos de usar o Pivot por que o sistema em questão tinha muitos gráficos. Eduardo Natanael Rodrigues escreveu: Alguem já teve algum problema quando vai instalar o pivotCube ou o Teechart? O erro é este abaixo: Cannot load package 'tee70.' It contains unit 'TeeAbout,'which is also contained in package 'Tee77'. se desabilito o teechart e instalo o pivot, ele instala sem problemas, e se tento habilitar o componente novamente ele da o mesmo erro, deixando habilitar somente quando desabilitar o pivot do Install Packages [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conversão de Código Java pra Delphi
Olá a todos do grupo. Estou com um grande problema. E está meio
complicado pra eu resolver. Gostaria de saber se há alguém aqui que
possa estar me dando uma mão. Preciso converter um código em java de
uma Fila de Propriedades para o delphi. Mas não estou conseguindo. O
código é esse logo abaixo:
/***
*** Classe que implementa um fila de prioridades simples
*** Fundão da Computação © 2002
*** e-Mail: [EMAIL PROTECTED]
***/
class IntPriorityQueue
{
private int[] queue;
private int size;
private int elements;
public IntPriorityQueue( int TAM )
{
queue= new int[TAM];
size = TAM;
elements = 0;
for ( int j = 0; j TAM; j++ )
queue[j] = -1;
}
// Insere um valor na fila
public void Insert( int value ) {
if ( value -1 elements size )
queue[ elements++ ] = value;
}
// Remove o maior valor da fila
public int Remove() {
int j, aux, max = 0;
if ( elements 0 ) {
for ( j = 1; j elements; j++ )
if ( queue[max] queue[j] )
max = j;
// Troca
aux = queue[max];
queue[max] = queue[elements-1];
queue[elements-1] = aux;
return queue[--elements];
}
return -1;
}
// Imprime os elementos da fila
public void Print()
{
for( int i=0; ielements; i++ )
System.out.println(queue[i]);
}
}
/* Exemplo de utilização da classe */
/*
public class sample {
public static void main(String[] args) {
int TAM = args.length 0 ? args.length : 10;
Heap pq;
pq = new Heap(TAM);
pq.Insert(45);
pq.Insert(65);
pq.Insert(15);
pq.Insert(2);
pq.Insert(100);
pq.Insert(30);
pq.Print();
}
}
*/
Se eu alguém puder me ajudar, eu agradeceria muito.
Obrigado
Re: [delphi-br] Visualização de tela em Delphi
Vcs esão trocando a resolução pelo delphi? Estou fazendo isso, mas agora preciso pegar a resolução atual, alguem sabe? e outra, sempre q eu altero a resolução, a frequencia de atualização da tela volta pra 60 hertz, aih a fica aquela impressao q a tela está tremendo. Isso acontece com + alguem? Tem como alterar isso tmb? vlw. - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br Sent: Friday, May 25, 2007 11:35 AM Subject: Re: [delphi-br] Visualização de tela em Delphi Já verifiquei isto e verifiquei também que, no XP se uma tela estiver ficandopequena e aparecendo barras de rolagem, se voce cliclar no desktop e mandar apresentar como padrão windows convencional o problema desaparece e as telas ficam normais. Me parece problema do windiws XP com aqueles pequenos bordos que ele coloca das janelas. Edison Garcia - Original Message - From: Ricardo César Cardoso [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, May 25, 2007 9:58 AM Subject: Re: [delphi-br] Visualização de tela em Delphi Tb não sei o que pode ser Maria, mas tb já percebi o que vc falou. Em casa tenho um monitor de tubo (CRT) e no trabalho tenho um LCD ambos de 17. Quando rodo um sistema aqui em 800x600 ele fica comendo um pouco da borda mesmo. Achei que era apenas o ajuste de posição horizontal e tentei reajustar e nada. O problema só foi resolvido quando mudei para uma resolução maior e voltei para a resolução anterior, isso com um boot entre as trocas. Vai entender... Sds, Ricardo. maniacapordelphi [EMAIL PROTECTED] escreveu: Porque em alguns monitores a tela feita em Delphi para resolução 800x600 fica diferente (maior) em alguns monitores, ocultando botões ou parte da tela do aplicativo? Parece não ser problema do winXP porque máquinas com winXP apresentam a tela corretamente. Seria alguma configuração do XP? Seria o driver de vídeo? Configuração (obs: a configuração já está 800x600)? Obs isso tem acontecido muito em monitores de tela plana. Se tô falando asnice, me corrijam, mas já comparei tudo com máquinas que apresentam a tela corretamente e não achei nada. Mani _ __ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Firewall - Windows
Alguem sabe como via código eu adicionar uma excessão no firewall do windows xp
do meu executável?
Eu tentei o código :
Reg:= TRegIniFile.Create('System');
Reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StardardProfile\AuthorizedApplications'
, false);
Reg.WriteString( 'List' , Application.ExeName , Application.ExeName
+':*:Enabled:System' );
reg.Free;
Mas aparece a mensagem de falha ao criar a chave(estou logando como
administrador);
Alex
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Visualização de tela em Delphi
*Para pegar a Resolução atual use:* ** *xWidth := Screen.Width; xHeight := Screen.Height; * Em 28/05/07, Magnun Oliveira [EMAIL PROTECTED] escreveu: Vcs esão trocando a resolução pelo delphi? Estou fazendo isso, mas agora preciso pegar a resolução atual, alguem sabe? e outra, sempre q eu altero a resolução, a frequencia de atualização da tela volta pra 60 hertz, aih a fica aquela impressao q a tela está tremendo. Isso acontece com + alguem? Tem como alterar isso tmb? vlw. - Original Message - From: Edison DRP To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, May 25, 2007 11:35 AM Subject: Re: [delphi-br] Visualização de tela em Delphi Já verifiquei isto e verifiquei também que, no XP se uma tela estiver ficandopequena e aparecendo barras de rolagem, se voce cliclar no desktop e mandar apresentar como padrão windows convencional o problema desaparece e as telas ficam normais. Me parece problema do windiws XP com aqueles pequenos bordos que ele coloca das janelas. Edison Garcia - Original Message - From: Ricardo César Cardoso [EMAIL PROTECTED]ricardo_engsoft%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, May 25, 2007 9:58 AM Subject: Re: [delphi-br] Visualização de tela em Delphi Tb não sei o que pode ser Maria, mas tb já percebi o que vc falou. Em casa tenho um monitor de tubo (CRT) e no trabalho tenho um LCD ambos de 17. Quando rodo um sistema aqui em 800x600 ele fica comendo um pouco da borda mesmo. Achei que era apenas o ajuste de posição horizontal e tentei reajustar e nada. O problema só foi resolvido quando mudei para uma resolução maior e voltei para a resolução anterior, isso com um boot entre as trocas. Vai entender... Sds, Ricardo. maniacapordelphi [EMAIL PROTECTED]maniacapordelphi%40yahoo.com.br escreveu: Porque em alguns monitores a tela feita em Delphi para resolução 800x600 fica diferente (maior) em alguns monitores, ocultando botões ou parte da tela do aplicativo? Parece não ser problema do winXP porque máquinas com winXP apresentam a tela corretamente. Seria alguma configuração do XP? Seria o driver de vídeo? Configuração (obs: a configuração já está 800x600)? Obs isso tem acontecido muito em monitores de tela plana. Se tô falando asnice, me corrijam, mas já comparei tudo com máquinas que apresentam a tela corretamente e não achei nada. Mani _ __ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [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] Vcl for the Web não aceita Ajax
Pessoal, Aproveitando o assunto, estou usando o BDS 2006 e queria saber como posso usar Ajax. Alguem tem alguma dica? Obrigado, _ From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Andreano Lanusse Sent: Monday, May 28, 2007 1:21 PM To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Vcl for the Web não aceita Ajax Galdariah, funciona sim. Cada objeto tem evento ALGOAsync, tipo um botão tem o evento onAsyncClick. O que você está tentando fazer? []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear http://www.codegear.com/ .com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email andreano.lanusse@ mailto:andreano.lanusse%40codegear.com codegear.com 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear. http://dn.codegear.com/es com/es http://dn.codegear. http://dn.codegear.com/es com/es Visite CodeGear Developer Network em Português! http://dn.codegear. http://dn.codegear.com/br com/br http://dn.codegear. http://dn.codegear.com/br com/br From: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] On Behalf Of Galdariah Third Sent: Monday, May 28, 2007 8:40 AM To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Subject: [delphi-br] Vcl for the Web não aceita Ajax os eventos onAsync (Ajax) simplesmente não estão funcionando no Delphi 2007. pq? tem q instalar ou habilitar alguma propriedade? no componente a propriedade SubmitOnAsyncEvent já está True (o padrão). alguém pode ajudar? __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/ http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Firewall - Windows
Você só errou na chave, mas o caminho realmente é pelo registro do windows
(altamente inseguro).
\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List
- Mensagem original
De: Alexandre [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
Assunto: [delphi-br] Firewall - Windows
Alguem sabe como via código eu adicionar uma excessão no firewall do windows xp
do meu executável?
Eu tentei o código :
Reg:= TRegIniFile. Create('System' );
Reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\ Parameters\
FirewallPolicy\ StardardProfile\ AuthorizedApplic ations' , false);
Reg.WriteString( 'List' , Application. ExeName , Application. ExeName
+':*:Enabled: System' );
reg.Free;
Mas aparece a mensagem de falha ao criar a chave(estou logando como
administrador) ;
Alex
[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] BDS 2006 e Windows Vista
Olá Bruno... Obrigado pela resposta. Pelas mensagens que retorna, acredito que no Cassini seja direitos sim. Vou verificar isso de perto. A mensagem do Cassini é essa: Access to the path C:\Windows\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\ecostore\3a9b1fff\edded680 is denied. Já no iis 7, me parece que o 2006 não encontra ele na máquina, como se ele não reconhecesse a instalação. Porém a aplicação funciona perfeitamente quando crio a pasta virtual na mão e chamo direto pelo browser. A mensagem que dá quando tento configurar o IIS como servidor da aplicação (Project/Options) é essa: Unable to detect the IIS Web Server. IIS may not be installed, not running or misconfigured. Confirmando assim mesmo a mudança ele me retorna o seguinte na sequência: Virtual directory Webapplication1 is unavailable from IIS Web Server. The Web Server may not be installed, not running or misconfigured. Without the virtual directory you Will be unable to run this application. Would you like to save these Project options anyway? Confirmando ele configura o IIS. Quando tento executar a aplicação pelo BDS ele retorna: The Project cannot be run because creation of virtual directory Webapplication1 on the local IIS Web Server failed. Use Project/Options.../Debugger/ASP.NET to configure the virtual directory. Não sei se isso também pode ter a ver com direitos. O usuário que utilizo no Vista faz parte do grupo administradores. Vou dar mais uma olhada nesse sentido. Caso você ou mais alguém tenha alguma outra informação, eu agradeço. Obrigado pela atenção Abraços _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Bruno Lichot Enviada em: segunda-feira, 28 de maio de 2007 11:17 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] BDS 2006 e Windows Vista Veja se não é problema de permissão de usuario ou de serviço no cassini ou nio iis. 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 Claudiney-listas Enviada em: sábado, 26 de maio de 2007 18:48 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] BDS 2006 e Windows Vista Olá grupo. Venho utilizando o BDS 2006 no desenvolvimento de uma aplicação .net, a princípio pra conhecer a ferramenta. Tudo tranqüilo usando win XP sp2. Porém essa semana instalei o Windows Vista Business e reinstalei o BDS 2006. Até aí nenhum problema, tudo funcionou bem. Porém o Vista vem com o IIS 7, o qual depois de algumas cabeçadas, fiz rodar as aplicações asp.net. Porém quando crio uma nova aplicação, ou tento rodar uma aplicação existente pelo BDS ele me avisa que não encontra o IIS ou que ele está desconfigurado e não abre. Diz que não consegue criar a pasta virtual, mas que eu poderia criá-la manualmente. Fazendo isso a aplicação roda normalmente quando chamo pelo browser, mas nada pelo BDS. Alguém fez essa mudança e passou por este problema? Tem alguma dica ou link onde eu possa conseguir informação a respeito? Mesmo quando mudo para o Cassini ele acusa que não tenho permissão para acessar a pasta temporária para executar a aplicação. Continuo na luta por aqui. Caso alguém possa ajudar, agradeço desde já. Abraços a todos _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2292 (20070525) __ 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]
Re: [delphi-br] Duvida UserControl !
Andreano, Eh. Isso realmente eu vi, mas como eu resolvo esse tipo de problema?. Pois, quando eu programo em outras linguagens eu nao tenho que colocar varios form como no caso de varios buttons?. Entao, vc sabe como eu posso contornar isso ?. Valeu Leonardo Anselmo - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Monday, May 28, 2007 1:18 PM Subject: RE: [delphi-br] Duvida UserControl ! Isso é porque você colocou duas tags form/form no formulários. As páginas em ASP.NET podem ter apenas 1 form. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Leonardo Anselmo Sent: Monday, May 28, 2007 7:41 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Duvida UserControl ! Pessoal, Estou tendo um problema com o uso de UserControl, pois fiz um usercontrol que tem botoes e quando coloco esse usercontrol em outra pagina que tb tem botoes ele nao aceita exibindo a seguinte mensagem: A page can have only one server-side Form tag. Ja tentei de tudo e nao conseguir resolver e alguem ja passou por algum problema desses agradeco a ajuda. Leonardo Anselmo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2293 (20070527) __ 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]
Re: Res: [delphi-br] Firewall - Windows
Esse caminho que você me disse não tem no meu registro, e sim o que
eu havia enviado, inclusive la dentro tem todas as excessões do meu
micro(supostamente parece ser a pasta correta a que eu enviei),
alguma sugestão??
--- Em delphi-br@yahoogrupos.com.br, Jonatã Castelo Branco
[EMAIL PROTECTED] escreveu
Você só errou na chave, mas o caminho realmente é pelo registro do
windows (altamente inseguro).
\SYSTEM\ControlSet001
\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\Authori
zedApplications\List
- Mensagem original
De: Alexandre [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
Assunto: [delphi-br] Firewall - Windows
Alguem sabe como via código eu adicionar uma excessão no firewall
do windows xp do meu executável?
Eu tentei o código :
Reg:= TRegIniFile. Create('System' );
Reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\
Parameters\ FirewallPolicy\ StardardProfile\ AuthorizedApplic
ations' , false);
Reg.WriteString( 'List' , Application. ExeName , Application.
ExeName +':*:Enabled: System' );
reg.Free;
Mas aparece a mensagem de falha ao criar a chave(estou logando como
administrador) ;
Alex
[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: Res: [delphi-br] Firewall - Windows
Alexandro, eu fiz um programa que fazia exatamente o que tu queres. No entanto,
toda a documentação está em outro computador. Sendo assim, só posso te dar uma
resposta mais concreta amanhã de manhã.
- Mensagem original
De: alexandresoaressp [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 16:15:36
Assunto: Re: Res: [delphi-br] Firewall - Windows
Esse caminho que você me disse não tem no meu registro, e sim o que
eu havia enviado, inclusive la dentro tem todas as excessões do meu
micro(supostamente parece ser a pasta correta a que eu enviei),
alguma sugestão??
--- Em [EMAIL PROTECTED] os.com.br, Jonatã Castelo Branco
[EMAIL PROTECTED] . escreveu
Você só errou na chave, mas o caminho realmente é pelo registro do
windows (altamente inseguro).
\SYSTEM\ControlSet0 01
\Services\SharedAcc ess\Parameters\ FirewallPolicy\ DomainProfile\ Authori
zedApplications\ List
- Mensagem original
De: Alexandre alexandresoaressp@ ...
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
Assunto: [delphi-br] Firewall - Windows
Alguem sabe como via código eu adicionar uma excessão no firewall
do windows xp do meu executável?
Eu tentei o código :
Reg:= TRegIniFile. Create('System' );
Reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\
Parameters\ FirewallPolicy\ StardardProfile\ AuthorizedApplic
ations' , false);
Reg.WriteString( 'List' , Application. ExeName , Application.
ExeName +':*:Enabled: System' );
reg.Free;
Mas aparece a mensagem de falha ao criar a chave(estou logando como
administrador) ;
Alex
[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]
__
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: Res: [delphi-br] Firewall - Windows
Ok, eu agradeço!!
- Original Message -
From: Jonatã Castelo Branco
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 28, 2007 4:40 PM
Subject: Res: Res: [delphi-br] Firewall - Windows
Alexandro, eu fiz um programa que fazia exatamente o que tu queres. No
entanto, toda a documentação está em outro computador. Sendo assim, só posso te
dar uma resposta mais concreta amanhã de manhã.
- Mensagem original
De: alexandresoaressp [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 16:15:36
Assunto: Re: Res: [delphi-br] Firewall - Windows
Esse caminho que você me disse não tem no meu registro, e sim o que
eu havia enviado, inclusive la dentro tem todas as excessões do meu
micro(supostamente parece ser a pasta correta a que eu enviei),
alguma sugestão??
--- Em [EMAIL PROTECTED] os.com.br, Jonatã Castelo Branco
[EMAIL PROTECTED] . escreveu
Você só errou na chave, mas o caminho realmente é pelo registro do
windows (altamente inseguro).
\SYSTEM\ControlSet0 01
\Services\SharedAcc ess\Parameters\ FirewallPolicy\ DomainProfile\ Authori
zedApplications\ List
- Mensagem original
De: Alexandre alexandresoaressp@ ...
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Segunda-feira, 28 de Maio de 2007 15:11:59
Assunto: [delphi-br] Firewall - Windows
Alguem sabe como via código eu adicionar uma excessão no firewall
do windows xp do meu executável?
Eu tentei o código :
Reg:= TRegIniFile. Create('System' );
Reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.OpenKey( '\SYSTEM\ ControlSet001\ Services\ SharedAccess\
Parameters\ FirewallPolicy\ StardardProfile\ AuthorizedApplic
ations' , false);
Reg.WriteString( 'List' , Application. ExeName , Application.
ExeName +':*:Enabled: System' );
reg.Free;
Mas aparece a mensagem de falha ao criar a chave(estou logando como
administrador) ;
Alex
[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]
__
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]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi e Oracle, campos 4x maiores?
Olá Pessoal, eu peguei um banco SQL-SERVER e converti para ORACLE.. até ai tudo bem 1 - mas eu reparei que campos CHAR(4) no oracle por exemplo está como CHAR (16) no delphi porque isso? sempre multiplicado por 4 :/ 2 - e outra coisa... no oracle campos NUMBER está aparecendo como FLOAT no delphi.. porque? uso delphi 3 e BDE 5202. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] NÃO ABRE BANCO FIREBIRD ***
Tente colocar o Host antes do caminho: Localhost:C:\Caminho do Banco\Banco.fdb Ao invés de: c:\Caminho do Banco\Banco.fdb Vitor Luiz Redes Cel. Phone: 9677-8445 [EMAIL PROTECTED] _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de BandaLemuel Enviada em: segunda-feira, 28 de maio de 2007 14:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] NÃO ABRE BANCO FIREBIRD *** O que esta acontecendo Vc já viu se o Firebird esta rodando ??? Ele esta em uma maquina winodws ou linux ??? Wesley - Original Message - From: Luís To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, May 28, 2007 1:47 PM Subject: Re: [delphi-br] NÃO ABRE BANCO FIREBIRD *** Fiz os testes, e msm assim nao funcionou, da o erro de Unavaliable database. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.472 / Virus Database: 269.8.0/821 - Release Date: 27/5/2007 15:05 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] StoredProc (BDE)
Ola estou tentando executar a StoredProc no delphi mas acho que estou
fazendo errado, alguem poderia me ajudar?
StoredProc1.Close;
StoredProc1.ParamByName('P_PERIODO').AsInteger:=b;
StoredProc1.ParamByName('P_CATEGORIA').AsInteger:=a;
StoredProc1.ParamByName'V_DATAINI').AsDate:=dtpDataInicial.Date;
StoredProc1.ParamByName('V_DATAFIM').AsDate:=dtpDataFinal.Date;
StoredProc1.Open;
Ao clicar em um botao, ele executa a StoredProc, e passo os parametros
para a StoredProc executar a procedure no oracle.
Isso está correto?
Obrigado...
[delphi-br] Servidor RPC
Bom dia a todos, Alguém sabe me informar o que seria RPC e de que forma eu posso atribuir isso em minhas aplicações Delphi? Qualquer informação ajuda... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Oracle, campos 4x maiores?
1- Muito estranho, acabei de testar e não consegui replicar este erro, acho que houve algum problema na migração das tabelas. 2- Number no Oracle é um float, ate algumas versões anteriores do Oracle não existe tipo INTEGER e FLOAT, tudo era NUMBER com e sem casas decimais. Por habito até hoje trabalho uso o tipo NUMBER, existe alguns profissionais que usam a versão 10g do Oracle que não ache estranho se ele não souber que existe os tipos INTEGER, FLOAT, entre outros que não existiam até pouco tempo atraís. Eduardo Yahoo - André J. J escreveu: Olá Pessoal, eu peguei um banco SQL-SERVER e converti para ORACLE.. até ai tudo bem 1 - mas eu reparei que campos CHAR(4) no oracle por exemplo está como CHAR (16) no delphi porque isso? sempre multiplicado por 4 :/ 2 - e outra coisa... no oracle campos NUMBER está aparecendo como FLOAT no delphi.. porque? uso delphi 3 e BDE 5202. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] StoredProc (BDE)
Tentou: StoredProc1.ExecProc?
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de rzzanatta
Enviada em: segunda-feira, 28 de maio de 2007 17:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] StoredProc (BDE)
Ola estou tentando executar a StoredProc no delphi mas acho que estou
fazendo errado, alguem poderia me ajudar?
StoredProc1.Close;
StoredProc1.ParamByName('P_PERIODO').AsInteger:=b;
StoredProc1.ParamByName('P_CATEGORIA').AsInteger:=a;
StoredProc1.ParamByName'V_DATAINI').AsDate:=dtpDataInicial.Date;
StoredProc1.ParamByName('V_DATAFIM').AsDate:=dtpDataFinal.Date;
StoredProc1.Open;
Ao clicar em um botao, ele executa a StoredProc, e passo os parametros
para a StoredProc executar a procedure no oracle.
Isso está correto?
Obrigado...
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WebService e WSDL
Pessoal...boa tarde! Estou precisando montar um arquivo WSDL e também um WebService para o mesmo... Alguém tem informações sobre isso? O wsdl...de inicio terá que conter as informações de três campos, podendo ler e grava-los. Se alguém poder me dar uma ajuda fico agradecido! Muito Obrigado Abs Tiago _ Obtenha o novo Windows Live Messenger! http://get.live.com/messenger/overview [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compilando todas as rotina do projeto
Ola, Tenho um DataModule em meu projeto que contem varios TTable referente a todas as tabelas de minha aplicação! Todas as minhas telas (Unit's) tem uma include para este DataModule. A questão é que quando altero algo neste DataModule todas as Unit's são compiladas tbm mesmo que não tenha as alterados. Isso faz com que demore muito a compilação! Teria alguma forma para que isso não acontessa ?? É certo ter todas as tabelas em um unico DataModule ou seria melhor dividir em varios DadaModule's para não ter este problema?? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] StoredProc (BDE)
Será que não foi a falta do ( ?
StoredProc1.Close;
StoredProc1.ParamByName('P_PERIODO').AsInteger:=b;
StoredProc1.ParamByName('P_CATEGORIA').AsInteger:=a;
StoredProc1.ParamByName('V_DATAINI').AsDate:=dtpDataInicial.Date;
StoredProc1.ParamByName('V_DATAFIM').AsDate:=dtpDataFinal.Date;
StoredProc1.Open;
- Original Message -
From: Luiz
To: delphi-br@yahoogrupos.com.br
Sent: Monday, May 28, 2007 5:37 PM
Subject: RES: [delphi-br] StoredProc (BDE)
Tentou: StoredProc1.ExecProc?
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de rzzanatta
Enviada em: segunda-feira, 28 de maio de 2007 17:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] StoredProc (BDE)
Ola estou tentando executar a StoredProc no delphi mas acho que estou
fazendo errado, alguem poderia me ajudar?
StoredProc1.Close;
StoredProc1.ParamByName('P_PERIODO').AsInteger:=b;
StoredProc1.ParamByName('P_CATEGORIA').AsInteger:=a;
StoredProc1.ParamByName'V_DATAINI').AsDate:=dtpDataInicial.Date;
StoredProc1.ParamByName('V_DATAFIM').AsDate:=dtpDataFinal.Date;
StoredProc1.Open;
Ao clicar em um botao, ele executa a StoredProc, e passo os parametros
para a StoredProc executar a procedure no oracle.
Isso está correto?
Obrigado...
[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.472 / Virus Database: 269.8.0/821 - Release Date: 27/5/2007 15:05
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compilando todas as rotina do projeto
demorar muito? quantos forms vc tem? 600 ? Em 28/05/07, Tiago Zacchi [EMAIL PROTECTED] escreveu: Ola, Tenho um DataModule em meu projeto que contem varios TTable referente a todas as tabelas de minha aplicação! Todas as minhas telas (Unit's) tem uma include para este DataModule. A questão é que quando altero algo neste DataModule todas as Unit's são compiladas tbm mesmo que não tenha as alterados. Isso faz com que demore muito a compilação! Teria alguma forma para que isso não acontessa ?? É certo ter todas as tabelas em um unico DataModule ou seria melhor dividir em varios DadaModule's para não ter este problema?? Obrigado! [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]
[delphi-br] Re: Vcl for the Web não aceita Ajax
exato Adreano, Async, segui o simples exemplo da Active Delphi, colocar um botão um list e um edit. no asyncclick do botão adicionar o conteúdo no list. mas já tentei diversas outras coisas, e o click não funciona. estranho, a única coisa q funcionou com ajax foi destruir um formulário e chamar outro. brigada por responder! :)
Re: [delphi-br] Re: Vcl for the Web não aceita Ajax
Muito estranho galdariah, eu testei aqui e funcionou numa boa. Em 28/05/07, galdariah [EMAIL PROTECTED] escreveu: exato Adreano, Async, segui o simples exemplo da Active Delphi, colocar um botão um list e um edit. no asyncclick do botão adicionar o conteúdo no list. mas já tentei diversas outras coisas, e o click não funciona. estranho, a única coisa q funcionou com ajax foi destruir um formulário e chamar outro. brigada por responder! :) -- 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]
[delphi-br] Res:WebService e WSDL
Olá Tiago, pelo Delphi vc consegue - procure pelos componentes SOAP que tem no Delphi 7 em diante. Se vc tiver usando Delphi 5 ou 3, busque no SourceForge pelo IndySOAP. Boa Sorte, Josir. Pessoal...boa tarde! Estou precisando montar um arquivo WSDL e também um WebService para o mesmo... Alguém tem informações sobre isso? O wsdl...de inicio terá que conter as informações de três campos, podendo ler e grava-los. Se alguém poder me dar uma ajuda fico agradecido! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] instalador
fala galera to precisando de uma ajuda tenho um programa eu gostaria de fazer um instalador como eu faço pra saber todas as dll e outros arquivos eu devo incluir desde já obrigado [As partes desta mensagem que não continham texto foram removidas]
