[delphi-br] Erro com ClientDataSet
Olá Colegas da Lista, Uso delphi7 + windowsxp pro e está acontecendo o seguinte: Ao efetuar cds.applyupdates(0) recebdo a seguinte mensagem: Record not found or changed by another user Alguem de vocês já enfrentou issoconseguiram resolver? Já pesquisei na internet, tentei fazer testes com todas as dicas do pessoal, mas não obtive sucesso com nenhuma delas ainda. Agradeço qualquer ajuda. Márcio. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Erro com ClientDataSet
Olá Márcio, verifique o seu DataSetProvider na propriedade UpdateMode se está em upWhereKeyOnly, depois nos TFields do seu SQLDataSet, verifique se a chave primária está com a propriedade ProviderFlags setada em pfInUpdate e pfInKey, os demais campos deixe apenas em pfInUpdate. Abaço Murillo --- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] escreveu Olá Colegas da Lista, Uso delphi7 + windowsxp pro e está acontecendo o seguinte: Ao efetuar cds.applyupdates(0) recebdo a seguinte mensagem: Record not found or changed by another user Alguem de vocês já enfrentou issoconseguiram resolver? Já pesquisei na internet, tentei fazer testes com todas as dicas do pessoal, mas não obtive sucesso com nenhuma delas ainda. Agradeço qualquer ajuda. Márcio. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fazer referencia ao DataSource do form chamador
Bom dia a todos, Trabalho com 2 forms dessa forma: O primeiro possui o dbgrid e o TDataSource que faz a ligacao do banco. A partir desse formulario tenho funções (botoes) que chama um outro formulario que permite fazer manutenção (inclusao, etc.) na referida tabela. Este form de manutenção atende a diversos cadastros, ou seja, o mesmo é criado para diversas tabelas do mesmo banco. Minha duvida esta em como fazer referencia, de forma dinamica, ao Form 1 que chamou o form 2, pois o form1 muda de acordo com a tabela chamada. Tenho como fazer essa referencia no form2, sem que eu informe no USES do form2 a unit do form1? Um abraço. Tavares Tudo que nos acontece nos favorece se a gente não se aborrece e agradece. (Frei Pascoal)
Re: [delphi-br] Re: Erro com ClientDataSet
Olá Murillo, Infelizmente não funcionou mas agradeço tuas dicas! Seria interessante que o Andreano se pronunciasse também nestes casosmas ultimamente tenho visto poucos e-mail´s dele na lista. Abraço, Márcio - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:13 AM Subject: [delphi-br] Re: Erro com ClientDataSet Olá Márcio, verifique o seu DataSetProvider na propriedade UpdateMode se está em upWhereKeyOnly, depois nos TFields do seu SQLDataSet, verifique se a chave primária está com a propriedade ProviderFlags setada em pfInUpdate e pfInKey, os demais campos deixe apenas em pfInUpdate. Abaço Murillo --- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] escreveu Olá Colegas da Lista, Uso delphi7 + windowsxp pro e está acontecendo o seguinte: Ao efetuar cds.applyupdates(0) recebdo a seguinte mensagem: Record not found or changed by another user Alguem de vocês já enfrentou issoconseguiram resolver? Já pesquisei na internet, tentei fazer testes com todas as dicas do pessoal, mas não obtive sucesso com nenhuma delas ainda. Agradeço qualquer ajuda. Márcio. [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.432 / Virus Database: 268.17.18/662 - Release Date: 31/1/2007 15:16 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ModelMaker / Instant Objects
Bom dia João Muito obrigado pela ajuda. As suas respostas me quebraram não um galho, mas uma árvore inteira.. rs Lógico que vão surgindo novidades a cada dia e com elas as dificuldades e dúvidas, mas já deu pra entender bem o funcionamento do IO. O que me deixa um pouco intrigado é que tô achando ele um tanto engessado. Quer dizer, ele tem a maneira própria de fazer as coisas que eu obrigatoriamente tenho que seguir, o que as vezes pode não ser tão funcional pro meu sistema. Sei lá.. ou ainda tenho muito pra descobrir nele. Mas tenho o receio de ficar muito preso na maneira de trabalhar com ele. Mas vou continuar pesquisando mais um pouco, pensar também em algumas outras soluções até encontrar a que mais vai se encaixar na minha realidade. Mas sem dúvidas o IO tem muita coisa boa. Mas muito obrigado pelas respostas e o que precisar que estiver ao meu alcance, estou aí pra ajudar, ok? Abraços. Claudiney Cogo [EMAIL PROTECTED] N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Telefone: 44- 3222-6053 - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Saturday, February 03, 2007 10:45 AM Subject: Re: [delphi-br] ModelMaker / Instant Objects Claudiney Cogo - Listas wrote: Realmente estou tendo algumas dúvidas com o Instant Objects principalmente no tocando as diferenças entre o Selector e o Exposer. O Selector uso sem problemas, é bem simples. O Exposer ainda me dá um pouco de trabalho, pois ele depende de algumas configurações. Ainda não entendi bem o funcionamento dele. Mas pelo que entendi ele seria mais ou menos a Table e o Selector seria como a Query, correto? Não há como fazer uma comparação direta entre decendentes tradicionais de tdataset e os expositores do IO. O que você pode fazer é distuinguir entre um e outro: Selector serve para apresentar objetos que você traz diretamente da base de dados, Exposer serve para apresentar objetos que já estão na memória. Agora o que me dá mais trabalho, ainda não peguei bem o lance, é a questão da propriedade Subject e ContainerName. Subject entendi como sendo uma instância da classe que quero trabalhar, correto? A ContainerName é o ponto onde estou agora tentando entender. Subject é o objeto que você está apresentando e editando. ContainerName é usado quando você tem um Exposer do tipo Container -- ou seja, que aponta para um atributo Parts ou References. Pense em uma nota fiscal. Você tem uma lista de notas fiscais e tais notas são trazidas do banco através do Selector, dentro de um critério de pesquisa. Uma vez na memória -- apresentado para o usuário através de um grid -- você tem duas formas de montar um form para essa nota: 1. você pode usar o exposer para apresentar uma nota em um formulário. Aqui o Mode é amObject e o ContainerName fica vazio. Para você ligar o objeto Nota ao Exposer, basta fazer: NotaExposer.Subject := NotaSelector.CurrentObject; 2. você pode ligar o datasource do seu formulário ao Selector, mas eu particularmente não gosto e contra-indico essa opção por acoplar o formulário ao grid em que você visualiza a lista de notas. Dentro do formulário de nota fiscal você tem os itens da nota. Para apresentar os itens você usa outro exposer, mas neste caso a propriedade Mode é amContent e a propriedade ContainerName é preenchida com o mesmo nome do atributo Itens, que provavelmente é um Parts, e que está definido dentro do objeto Nota Fiscal. Vale lembrar que sou novo em OO, o que dificulta um pouco, pois alguns conceitos ainda não estão totalmente claros. Cadastros usando só o Selector, mesmo usando herança (Part) e referência a outras classes (Reference) eu fiz sem problemas. Agora com o Exposer ainda não consegui decifrar tudo. Principais dúvidas... onde é melhor usar um e onde é melhor usar outro? Selector quando você precisa consultar a base utilizando algum critério de busca e ordenação. Exposer em todos os outros casos, tanto para apresentar objetos soltos (Mode=amObject) quanto apresentar Parts e References de objetos (Mode=amContent). master/detail somento com dois exposer, correto? Master pode ser um selector ou um exposer. Detail sempre um exposer. sempre que usa um tipo Part ele cria um campo blob pra guardar isso no banco? e como acessar essas informações por fora do sistema? não fica prejudicado? ou existe outra forma de fazer isso? Sim, ao criar campos Part, Parts ou References, informe que você quer External Storage. Só funciona para conectores SQL -- ou seja, nada de BDE, DBIsam, etc. Bom... vamos devagar pra não assustar né... :) Valeu pela resposta.. Sem susto, e disponha. Dei uma boa estudada no Model Maker.. não sei tudo, mas dá pra fazer bastante coisa. Caso precise de alguma coisa a respeito, me diga,
Re: [delphi-br] Edição de imagens numa apl icação em Delphi.
Tem uma biblioteca de edição de imagens que eu peguei em algum site a um tempo atrás! Só que nunca parei pra estudar ela, mas tem bastante coisa. Vou ver os royalities pra ver se eu posso postar ná página do grupo! Tem bastante coisa mesmoa lá! Bom Código Ricardo Berti - Original Message - From: Alexandre Gois To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 1:23 AM Subject: [delphi-br] Edição de imagens numa aplicação em Delphi. Pessoal, um olá para todos. Estou precisando adaptar num software que estou desenvolvendo a opção de edição de fotos, tipo um photoshop, para que a pessoa selecione o local desejado e troque de cor ou faça sobreposição de imagens. É claro que não precisa ser na riqueza de detalhes do photoshop, seria somente funções básicas, pintar recortar e colar... por aí. Será possível de fazer?... Aguardo ajuda. Grato. Alexandre Gois. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com Stored Procedure
Bom dia amigos da lista estou tentando montar uma stored procedure que ficará responsável pela operação do cadastro por exemplo: SP_Clientes: Nela terá a parte de inclusão, alteração, exclusão e update dos dados da respectiva tabela. Criei também o generatos e uma trigger para gerar o auto incremento dos campos chave. No delphi coloquei um componente stored procedure e passei os parametros, mas deu um erro sempre dizendo que um parametro necessário está faltando. Algum amigo já implementou dessa forma e poderia me dar uma ajuda??? No aguardo Raphael __ 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] Re: Erro com ClientDataSet
Eu comi o pão que o diabo amassou pra resolver este erro. O fato era que: 1) No seu Query/SQLDataset, dê um clique duplo no componente e adicione os Fields. Marque PfInkey True pros campso chave primaria. 2) No seu DataSourceprovidera, sete o UpdateMode para upWhereKeyOnly e as propriedades poCascadeDeletes, poCascadeUpdates, poAutoRefresh, poPropogateChanges todas estas para True. 1) No seu clientDataset faça a mesmmissima coisa que voce fez na Query/SQLDataset, dê um clique duplo no componente e adicione os Fields. Marque PfInkey True pros campso chave primaria. Aqui funcionou assim. []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, Marcio [EMAIL PROTECTED] escreveu Olá Murillo, Infelizmente não funcionou mas agradeço tuas dicas! Seria interessante que o Andreano se pronunciasse também nestes casosmas ultimamente tenho visto poucos e-mail´s dele na lista. Abraço, Márcio - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:13 AM Subject: [delphi-br] Re: Erro com ClientDataSet Olá Márcio, verifique o seu DataSetProvider na propriedade UpdateMode se está em upWhereKeyOnly, depois nos TFields do seu SQLDataSet, verifique se a chave primária está com a propriedade ProviderFlags setada em pfInUpdate e pfInKey, os demais campos deixe apenas em pfInUpdate. Abaço Murillo --- Em delphi-br@yahoogrupos.com.br, Marcio mds_rs@ escreveu Olá Colegas da Lista, Uso delphi7 + windowsxp pro e está acontecendo o seguinte: Ao efetuar cds.applyupdates(0) recebdo a seguinte mensagem: Record not found or changed by another user Alguem de vocês já enfrentou issoconseguiram resolver? Já pesquisei na internet, tentei fazer testes com todas as dicas do pessoal, mas não obtive sucesso com nenhuma delas ainda. Agradeço qualquer ajuda. Márcio. [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.432 / Virus Database: 268.17.18/662 - Release Date: 31/1/2007 15:16 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir form antes do principal
Bom dia... pelo que entendi você quer abrir pra cadastrar a empresa caso ainda não tenha o registro no banco de dados, ok??? Acredito que você possa fazer da seguinte maneira... no evento Activate do form principal você faz o teste se existe o registro da empresa e caso não exista você chama o form de cadastro da empresa de forma modal (showmodal) e faz o cadastro. Depois segue o sistema normalmente. Na próxima vez o cadastro já vai existir e ele passa direto por essa rotina. Abraço. Claudiney Cogo [EMAIL PROTECTED] N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Telefone: 44- 3222-6053 - Original Message - From: nillgolv To: delphi-br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [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] Edição de imagens numa aplicação em Delphi.
procura nos demos do delphi... tem um editor de imagem lá. Com poucos recusrsos, mas da pra aprender .. Não lembro qual dos demos é se alguem lembrar, da uma força abs Em 05/02/07, Ricardo Berti [EMAIL PROTECTED] escreveu: Tem uma biblioteca de edição de imagens que eu peguei em algum site a um tempo atrás! Só que nunca parei pra estudar ela, mas tem bastante coisa. Vou ver os royalities pra ver se eu posso postar ná página do grupo! Tem bastante coisa mesmoa lá! Bom Código Ricardo Berti - Original Message - From: Alexandre Gois To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, February 05, 2007 1:23 AM Subject: [delphi-br] Edição de imagens numa aplicação em Delphi. Pessoal, um olá para todos. Estou precisando adaptar num software que estou desenvolvendo a opção de edição de fotos, tipo um photoshop, para que a pessoa selecione o local desejado e troque de cor ou faça sobreposição de imagens. É claro que não precisa ser na riqueza de detalhes do photoshop, seria somente funções básicas, pintar recortar e colar... por aí. Será possível de fazer?... Aguardo ajuda. Grato. Alexandre Gois. [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]
Re: [delphi-br] Abrir form antes do principal
Você pode também programar no DPR do seu projeto!! Procure no Google por forms de login no Delphi, normalmente é pra isso que se usa essa programação :) Abraços Henrique - Original Message - From: Claudiney Cogo - Listas To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:51 AM Subject: Re: [delphi-br] Abrir form antes do principal Bom dia... pelo que entendi você quer abrir pra cadastrar a empresa caso ainda não tenha o registro no banco de dados, ok??? Acredito que você possa fazer da seguinte maneira... no evento Activate do form principal você faz o teste se existe o registro da empresa e caso não exista você chama o form de cadastro da empresa de forma modal (showmodal) e faz o cadastro. Depois segue o sistema normalmente. Na próxima vez o cadastro já vai existir e ele passa direto por essa rotina. Abraço. Claudiney Cogo [EMAIL PROTECTED] N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Telefone: 44- 3222-6053 - Original Message - From: nillgolv To: delphi-br Sent: Sunday, February 04, 2007 3:26 PM Subject: [delphi-br] Abrir form antes do principal Pessoal, Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software. Quero que após ter isntalado o projeto, que ao executa-lo após a instalação, ele da show do form cadastro da empresa, sendo assim após já ter cadastrado ele não apresente mais o form ao abrir o projeto e se precisar de abrir depois que seja no menu. Acredito que deu para entender. [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]
Re: [delphi-br] Edição de imagens numa apl icação em Delphi.
Olá Pessoal, a biblioteca é Free e open source pela GNU, eu queria colocar ela no yahoo da lista para disponibiliza-la a todos, mas o arquivo tem +/- 4mb e não é aceito. Então postei ele no 4shared, segue o link: http://www.4shared.com/file/10091862/9ebb10ed/Biblioteca_de_Processamento_Grfico.html Bom Código Ricardo Berti - Original Message - From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:31 AM Subject: Re: [delphi-br] Edição de imagens numa aplicação em Delphi. Tem uma biblioteca de edição de imagens que eu peguei em algum site a um tempo atrás! Só que nunca parei pra estudar ela, mas tem bastante coisa. Vou ver os royalities pra ver se eu posso postar ná página do grupo! Tem bastante coisa mesmoa lá! Bom Código Ricardo Berti - Original Message - From: Alexandre Gois To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 1:23 AM Subject: [delphi-br] Edição de imagens numa aplicação em Delphi. Pessoal, um olá para todos. Estou precisando adaptar num software que estou desenvolvendo a opção de edição de fotos, tipo um photoshop, para que a pessoa selecione o local desejado e troque de cor ou faça sobreposição de imagens. É claro que não precisa ser na riqueza de detalhes do photoshop, seria somente funções básicas, pintar recortar e colar... por aí. Será possível de fazer?... Aguardo ajuda. Grato. Alexandre Gois. [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]
Re: [delphi-br] Re: Erro com ClientDataSet
Olha, já vi esse erro, mas quando vi a solução era simples, os campos chave da tabela não estavam sendo puxados no select, dae o clientdataset se perdia sei lá pq... Não parece ter lógica, enfim... mas veja ae... --- Vitor Luiz Redes Cel. Phone: 9677 8445 - Original Message - From: Marcio To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:25 AM Subject: Re: [delphi-br] Re: Erro com ClientDataSet Olá Murillo, Infelizmente não funcionou mas agradeço tuas dicas! Seria interessante que o Andreano se pronunciasse também nestes casosmas ultimamente tenho visto poucos e-mail´s dele na lista. Abraço, Márcio - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:13 AM Subject: [delphi-br] Re: Erro com ClientDataSet Olá Márcio, verifique o seu DataSetProvider na propriedade UpdateMode se está em upWhereKeyOnly, depois nos TFields do seu SQLDataSet, verifique se a chave primária está com a propriedade ProviderFlags setada em pfInUpdate e pfInKey, os demais campos deixe apenas em pfInUpdate. Abaço Murillo --- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] escreveu Olá Colegas da Lista, Uso delphi7 + windowsxp pro e está acontecendo o seguinte: Ao efetuar cds.applyupdates(0) recebdo a seguinte mensagem: Record not found or changed by another user Alguem de vocês já enfrentou issoconseguiram resolver? Já pesquisei na internet, tentei fazer testes com todas as dicas do pessoal, mas não obtive sucesso com nenhuma delas ainda. Agradeço qualquer ajuda. Márcio. [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.432 / Virus Database: 268.17.18/662 - Release Date: 31/1/2007 15:16 [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] Fazer referencia ao DataSource do form chamador
Tente criar no Form2 uma variável pública do tipo TClientDataSet e sete-a na abretura do Form2 pelo Form1... Ex: (No chamada do Form2 pelo Form1) Form2 := Tform2.Create(Application); Form2.Client := SeuClientDataSet; Form2.ShowModal; FreeAndNil(Form2); No momento de utilizá-lo, tente um typecast como exemplificado abaixo... Ex.: (No botão do Form2, que mandará informações para o Client do Form1) TClientDataSet(Client).EmptyDataSet; TClientDataSet(Client).Append; ... passa-se as informações ... TClientDataSet(Client).Post; OBS.: Onde Client é a variável pública que vc criou... Dessa forma acho que funfa... mas não tentei... é um exemplo de cabeça... testa aí e nos diz o resultado... Rodrigo Madureira Barbosa _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Tavares Enviada em: segunda-feira, 5 de fevereiro de 2007 09:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Fazer referencia ao DataSource do form chamador Prioridade: Alta Bom dia a todos, Trabalho com 2 forms dessa forma: O primeiro possui o dbgrid e o TDataSource que faz a ligacao do banco. A partir desse formulario tenho funções (botoes) que chama um outro formulario que permite fazer manutenção (inclusao, etc.) na referida tabela. Este form de manutenção atende a diversos cadastros, ou seja, o mesmo é criado para diversas tabelas do mesmo banco. Minha duvida esta em como fazer referencia, de forma dinamica, ao Form 1 que chamou o form 2, pois o form1 muda de acordo com a tabela chamada. Tenho como fazer essa referencia no form2, sem que eu informe no USES do form2 a unit do form1? Um abraço. Tavares Tudo que nos acontece nos favorece se a gente não se aborrece e agradece. (Frei Pascoal) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ModelMaker / Instant Objects
Claudiney Cogo - Listas wrote: O que me deixa um pouco intrigado é que tô achando ele um tanto engessado. Quer dizer, ele tem a maneira própria de fazer as coisas que eu obrigatoriamente tenho que seguir, o que as vezes pode não ser tão funcional pro meu sistema. Sei lá.. ou ainda tenho muito pra descobrir nele. Mas tenho o receio de ficar muito preso na maneira de trabalhar com ele. De que forma? Dê alguns exemplos. Mas vou continuar pesquisando mais um pouco, pensar também em algumas outras soluções até encontrar a que mais vai se encaixar na minha realidade. Mas sem dúvidas o IO tem muita coisa boa. O que o IO tem de bom é seu paradigma -- orientação a objetos -- bem como os experts que ajudam a criar objetos de negócio. -- João Morais
[delphi-br] parâmetro no rave
Bom Dia, Pessoal alguem sabe como ler um parâmetro do rave pelo delphi? Vou ser mais claro tenho um relatorio e nele tenho um text com a quantidade de páginas geradas, sei como gravar isso num parâmentro do rave, mas não consigo ler esse parâmetro pelo delphi. Se alguem tive alguma ideia de como fazer isso da uma ajuda. Grato, Henrique Peixinho [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Timer para Execução paralela [RESOLVIDO]
Boa tarde João!
Olha, meu amigo, vc é fera mesmo! O abacaxi já tá totalmente descascado! Só fiz
a alteração de mais um detalhezinho pra gente poder saborear o dito cujo...
O projeto funcionou perfeitamente! MUITISSIMO OBRIGADO, vc não sabe o quanto me
ajudou.
Fiz as alterações como vc sugeriu e as units ficaram com abaixo:
( Unit do Cronômetro *)
type
TfrmCrometro = class(TForm)
{...}
procedure ComPortError(Sender: TObject; Errors: TComErrors);
procedure FinalizaCronometro(Sender: TObject);
procedure CriaTimer;
{...}
public
{ Public declarations }
Iniciado : Boolean; // Flag do primeiro sinal da porta
HoraIni : TDateTime; // Data e hora do recebimento do primeiro sinal
MyTimer : TTimer; // Objeto Timer criado dinamicamente
end;
{...}
implementation
{$R *.dfm}
uses ThreadMonitora;
{...}
Procedure TfrmCrometro.ComPort1Error(Sender: TObject; Errors: TComErrors);
// Este evento se repete enquanto o botão do hardware está acionado
// ele fica mandando pulsos para o computador a cada 1ms
Begin
if not Iniciado then
begin
HoraIni := Now; // implementei a inicialização dentro de um TButtom
Iniciado := True; // Esse seria o flag da recepção do primeiro evento.
// Código de criação da Thread - Como Fazer?
// Seria assim?
with TThreadMonitora.Create(True) do
begin
Priority := tpLowest; // baixei mais ainda a prioridade
StartTime := HoraIni;
Started := @Iniciado;
Resume;
end;
end
else
begin
MyTimer.Free;
CriaTimer;
end;
End;
Procedure TfrmCrometro.FinalizaCronometro(Sender: TObject);
Begin
if Iniciado then // aqui foi a jogada de mestre. para o contador visual
begin
Iniciado := False;
Label1.Caption := FormatDateTime('hh:mm:ss:zzz', Now - HoraIni);
end
End;
Procedure TfrmCrometro.CriaTimer;
Begin
MyTimer := TTimer.Create(Self);
with MyTimer do
begin
Interval := 125;
Name := 'DynaTimer';
OnTimer := FinalizaCronometro;
end;
End;
{...}
()
(* Unit da Thread de contagem )
unit ThreadMonitora;
interface
uses
Classes, SysUtils, Windows;
type
TThreadMonitora = class(TThread)
private
{ Private declarations }
FStartTime : TDateTime;
protected
procedure Execute; override;
procedure AtualizaLabel;
public
Started: ^Boolean;
property StartTime: TDateTime read FStartTime write FStartTime;
end;
implementation
uses uCronometro;
{ TThreadMonitora }
Procedure TThreadMonitora.AtualizaLabel;
Begin
frmCrometro.Label1.Caption := FormatDateTime('hh:mm:ss:zzz', Now -
StartTime);
End;
Procedure TThreadMonitora.Execute;
Begin
{ Place thread code here }
while Started^ do
Synchronize(AtualizaLabel);
End;
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]
[delphi-br] Drag and Drop num listbox
Pessoal, Boa tarde. Preciso fazer o seguinte: Dois listbox: LISTA1 LISTA2 campo1 campox campo2 campoy campo3 campoz campoxx campoyy campozz Preciso fazer com que, ao clicar em campo1 (LISTA1) e arrastar para a LISTA2 este se posicione onde eu soltar, entenderam? Exemplo, seu eu arrastar o campo1 e parar em cima do campoz(daí tanto faz se ele vai cair em acima ou abaixo do campoz) eu gostaria que este elemento fosse inserido naquela região, pois arrastar simplesmente pra LISTA2 e inserir no final até que não tá pegando tanto, mas ficar no local que eu soltar é que não tô conseguindo fazer. Alguém teria uma luz? Saudações. --- []'s Alexandre Frase da semana: Os pequenos atos que se executam são melhores que todos aqueles grandes que se planejam. (George C. Marshall)
[delphi-br] Duvida Tquery pedindo usuario e senha banco de dados
Boa Tarde!!! Bom gostaria de saber como eu faço pra o tQuery nao fica pedidndo o usuario e senha do banco de dados, toda vez que eu vo rodar o sistema!!! Estou usando delphi7.0 com banco de dados interbase. Obrigado!!
Res: [delphi-br] Duvida Tquery pedindo usuario e senha banco de dados
So voce usar a Query conectada a um TDataBase e nele setar a propriedade Login Prompt para False. Márcio C Tenreiro Programador pleno Universidade de marilia/SP ---Mensagem original--- De: walter_3wm Data: 05/02/2007 16:22:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Duvida Tquery pedindo usuario e senha banco de dados Boa Tarde!!! Bom gostaria de saber como eu faço pra o tQuery nao fica pedidndo o usuario e senha do banco de dados, toda vez que eu vo rodar o sistema!!! Estou usando delphi7.0 com banco de dados interbase. Obrigado!! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Timer para Execução p aralela [RESOLVIDO]
Ricardo César Cardoso wrote:
Boa tarde João!
Olha, meu amigo, vc é fera mesmo! O abacaxi já tá totalmente
descascado! Só fiz a alteração de mais um detalhezinho pra
gente poder saborear o dito cujo...
O projeto funcionou perfeitamente! MUITISSIMO OBRIGADO,
vc não sabe o quanto me ajudou.
Olá Ricardo.
Disponha! Obrigado por seu retorno, bom saber que deu tudo certo.
Depois você tira a poupa desse abacaxi, separa metade e manda aqui pra
gente fazer um suco :-))
Fiz as alterações como vc sugeriu e as units ficaram com abaixo:
Ficou legal.
Estive olhando a implementação do ttimer e verifiquei um truque para
você resetar o timer. Ao invés de destruí-lo e recriá-lo a cada 1ms,
tente apenas reassociar o evento ontimer. Se funcionar, de cara você
economiza 2000 alocações+liberações de memória por segundo.
--
João Morais
( Unit do Cronômetro *)
type
TfrmCrometro = class(TForm)
{...}
procedure ComPortError(Sender: TObject; Errors: TComErrors);
procedure FinalizaCronometro(Sender: TObject);
procedure CriaTimer;
{...}
public
{ Public declarations }
Iniciado : Boolean; // Flag do primeiro sinal da porta
HoraIni : TDateTime; // Data e hora do recebimento do primeiro sinal
MyTimer : TTimer; // Objeto Timer criado dinamicamente
end;
{...}
implementation
{$R *.dfm}
uses ThreadMonitora;
{...}
Procedure TfrmCrometro.ComPort1Error(Sender: TObject; Errors: TComErrors);
// Este evento se repete enquanto o botão do hardware está acionado
// ele fica mandando pulsos para o computador a cada 1ms
Begin
if not Iniciado then
begin
HoraIni := Now; // implementei a inicialização dentro de um TButtom
Iniciado := True; // Esse seria o flag da recepção do primeiro evento.
// Código de criação da Thread - Como Fazer?
// Seria assim?
with TThreadMonitora.Create(True) do
begin
Priority := tpLowest; // baixei mais ainda a prioridade
StartTime := HoraIni;
Started := @Iniciado;
Resume;
end;
end
else
begin
MyTimer.Free;
CriaTimer;
end;
End;
Procedure TfrmCrometro.FinalizaCronometro(Sender: TObject);
Begin
if Iniciado then // aqui foi a jogada de mestre. para o contador visual
begin
Iniciado := False;
Label1.Caption := FormatDateTime('hh:mm:ss:zzz', Now - HoraIni);
end
End;
Procedure TfrmCrometro.CriaTimer;
Begin
MyTimer := TTimer.Create(Self);
with MyTimer do
begin
Interval := 125;
Name := 'DynaTimer';
OnTimer := FinalizaCronometro;
end;
End;
{...}
()
(* Unit da Thread de contagem )
unit ThreadMonitora;
interface
uses
Classes, SysUtils, Windows;
type
TThreadMonitora = class(TThread)
private
{ Private declarations }
FStartTime : TDateTime;
protected
procedure Execute; override;
procedure AtualizaLabel;
public
Started: ^Boolean;
property StartTime: TDateTime read FStartTime write FStartTime;
end;
implementation
uses uCronometro;
{ TThreadMonitora }
Procedure TThreadMonitora.AtualizaLabel;
Begin
frmCrometro.Label1.Caption := FormatDateTime('hh:mm:ss:zzz', Now -
StartTime);
End;
Procedure TThreadMonitora.Execute;
Begin
{ Place thread code here }
while Started^ do
Synchronize(AtualizaLabel);
End;
END.
(**)
[delphi-br] [OT] Dica pra Forum/Lista de Discussão sobre C++
Olá amigos, você podem me indicar algum Fórum ou Lista de Discussão sobre C++, que seja movimentada, para um iniciante? Desde já agradeço -- _ Fellipe Henrique [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Timer para Execução p aralela [RESOLVIDO]
Joao Morais wrote: poupa desse abacaxi, Faz melhor, tira a polpa porque abacaxi sequer tem pena. :-)) -- João Morais
[delphi-br] Imprimir em Impressora na Rede
Olá. Tem alguma maneira que eu possa imprimir em uma impressora na rede usando nome da máquina + nome da impressora? Eu gostaria de criar um cadastro de impressoras na rede. Valeu. -- Leodinei Bielak In theory, there is no difference between theory and practice. In practice, however..
Re: [delphi-br] Criar Timer para Execução paralela [RESOLVIDO]
Vou testar essa dica aí que vc passou. Qualquer coisa, te informo!
Sds,
Ricardo.
Joao Morais [EMAIL PROTECTED] escreveu:
Ricardo César Cardoso wrote:
Boa tarde João!
Olha, meu amigo, vc é fera mesmo! O abacaxi já tá totalmente
descascado! Só fiz a alteração de mais um detalhezinho pra
gente poder saborear o dito cujo...
O projeto funcionou perfeitamente! MUITISSIMO OBRIGADO,
vc não sabe o quanto me ajudou.
Olá Ricardo.
Disponha! Obrigado por seu retorno, bom saber que deu tudo certo.
Depois você tira a poupa desse abacaxi, separa metade e manda aqui pra
gente fazer um suco :-))
Fiz as alterações como vc sugeriu e as units ficaram com abaixo:
Ficou legal.
Estive olhando a implementação do ttimer e verifiquei um truque para
você resetar o timer. Ao invés de destruí-lo e recriá-lo a cada 1ms,
tente apenas reassociar o evento ontimer. Se funcionar, de cara você
economiza 2000 alocações+liberações de memória por segundo.
--
João Morais
( Unit do Cronômetro *)
type
TfrmCrometro = class(TForm)
{...}
procedure ComPortError(Sender: TObject; Errors: TComErrors);
procedure FinalizaCronometro(Sender: TObject);
procedure CriaTimer;
{...}
public
{ Public declarations }
Iniciado : Boolean; // Flag do primeiro sinal da porta
HoraIni : TDateTime; // Data e hora do recebimento do primeiro sinal
MyTimer : TTimer; // Objeto Timer criado dinamicamente
end;
{...}
implementation
{$R *.dfm}
uses ThreadMonitora;
{...}
Procedure TfrmCrometro.ComPort1Error(Sender: TObject; Errors: TComErrors);
// Este evento se repete enquanto o botão do hardware está acionado
// ele fica mandando pulsos para o computador a cada 1ms
Begin
if not Iniciado then
begin
HoraIni := Now; // implementei a inicialização dentro de um TButtom
Iniciado := True; // Esse seria o flag da recepção do primeiro evento.
// Código de criação da Thread - Como Fazer?
// Seria assim?
with TThreadMonitora.Create(True) do
begin
Priority := tpLowest; // baixei mais ainda a prioridade
StartTime := HoraIni;
Started := @Iniciado;
Resume;
end;
end
else
begin
MyTimer.Free;
CriaTimer;
end;
End;
Procedure TfrmCrometro.FinalizaCronometro(Sender: TObject);
Begin
if Iniciado then // aqui foi a jogada de mestre. para o contador visual
begin
Iniciado := False;
Label1.Caption := FormatDateTime('hh:mm:ss:zzz', Now - HoraIni);
end
End;
Procedure TfrmCrometro.CriaTimer;
Begin
MyTimer := TTimer.Create(Self);
with MyTimer do
begin
Interval := 125;
Name := 'DynaTimer';
OnTimer := FinalizaCronometro;
end;
End;
{...}
()
(* Unit da Thread de contagem )
unit ThreadMonitora;
interface
uses
Classes, SysUtils, Windows;
type
TThreadMonitora = class(TThread)
private
{ Private declarations }
FStartTime : TDateTime;
protected
procedure Execute; override;
procedure AtualizaLabel;
public
Started: ^Boolean;
property StartTime: TDateTime read FStartTime write FStartTime;
end;
implementation
uses uCronometro;
{ TThreadMonitora }
Procedure TThreadMonitora.AtualizaLabel;
Begin
frmCrometro.Label1.Caption := FormatDateTime('hh:mm:ss:zzz', Now -
StartTime);
End;
Procedure TThreadMonitora.Execute;
Begin
{ Place thread code here }
while Started^ do
Synchronize(AtualizaLabel);
End;
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]
[delphi-br] DLL???
Boa Tarde a todos! Criei uma Dll no delphi, mas não consigo registrá-la no windows. Tentei com o regsvr32. Alguém pode me indicar como proceder? Desde já agradeço!
Re: [delphi-br] Imprimir em Impressora na Rede
se for de maneira direta, em padrão txt, vc pode usar: assignfile(f,'\\SERVIDOR\EPSON'); rewrite(f); writeln(f,'Linha1'); closefile(f) já se for de maneira gráfica, dê uma olhada na unit PRINTERS. tem uma propriedade chamada printerindex procura por isso na net q vc acha o q quer... eu já fiz isso, mas não lembro onde está para demonstrar. - Original Message - From: Leodinei Bielak To: delphi-br Sent: Monday, February 05, 2007 4:52 PM Subject: [delphi-br] Imprimir em Impressora na Rede Olá. Tem alguma maneira que eu possa imprimir em uma impressora na rede usando nome da máquina + nome da impressora? Eu gostaria de criar um cadastro de impressoras na rede. Valeu. -- Leodinei Bielak In theory, there is no difference between theory and practice. In practice, however.. __ Informação do NOD32 2038 (20070205) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Eh possivel criar instalador com direitos de gravar DLLs na pasta do Windows
(jah enviei esta mensagem, mas nao a vi na lista) Criei um pequeno programa que simplesmente copia (atualiza) duas DLLs (do BDE) na pasta \WINDOWS\SYSTEM32, e atualiza algumas chaves do registro do Windows. Se um usuario comum executa o programa instalador que eu criei, a instalacao parece ocorrer normalmente, mas as DLLs nao sao atualizadas. Se o usuario se loga com uma conta com privilegio de ADMINISTRADOR, as DLLs sao atualizadas normalmente. Se eu usar o o Inno Setup, eh possivel criar um instalador que tenha direitos de sobrepor DLLs, criar ou modificar registros do Windows, etc ? Ou mesmo com um instalador feito no Inno serah necessario executar com uma conta com privilegios de Administrador ? Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Eh possivel criar instalador com direitos de gravar DLLs na pasta do Windows
Isso é um problema de permissão, mesmo com o InnoSetup vai acontecer a mesma coisa. 2007/2/5, Paulo Sérgio Dias (GMail) [EMAIL PROTECTED]: (jah enviei esta mensagem, mas nao a vi na lista) Criei um pequeno programa que simplesmente copia (atualiza) duas DLLs (do BDE) na pasta \WINDOWS\SYSTEM32, e atualiza algumas chaves do registro do Windows. Se um usuario comum executa o programa instalador que eu criei, a instalacao parece ocorrer normalmente, mas as DLLs nao sao atualizadas. Se o usuario se loga com uma conta com privilegio de ADMINISTRADOR, as DLLs sao atualizadas normalmente. Se eu usar o o Inno Setup, eh possivel criar um instalador que tenha direitos de sobrepor DLLs, criar ou modificar registros do Windows, etc ? Ou mesmo com um instalador feito no Inno serah necessario executar com uma conta com privilegios de Administrador ? Paulo [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]
RES: [delphi-br] Eh possivel criar instalador com direitos de gravar DLLs na pasta do Windows
Ola Paulo, As permissões de acesso aos arquivos e DLLs é feita pelo windows e com certeza vc não vai conseguir burlar as mesmas de modo convencional e lícito. Busque outras alternativas para a instalação dessas DLLs. []'s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Sérgio Dias (GMail) Enviada em: segunda-feira, 5 de fevereiro de 2007 19:20 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Eh possivel criar instalador com direitos de gravar DLLs na pasta do Windows (jah enviei esta mensagem, mas nao a vi na lista) Criei um pequeno programa que simplesmente copia (atualiza) duas DLLs (do BDE) na pasta \WINDOWS\SYSTEM32, e atualiza algumas chaves do registro do Windows. Se um usuario comum executa o programa instalador que eu criei, a instalacao parece ocorrer normalmente, mas as DLLs nao sao atualizadas. Se o usuario se loga com uma conta com privilegio de ADMINISTRADOR, as DLLs sao atualizadas normalmente. Se eu usar o o Inno Setup, eh possivel criar um instalador que tenha direitos de sobrepor DLLs, criar ou modificar registros do Windows, etc ? Ou mesmo com um instalador feito no Inno serah necessario executar com uma conta com privilegios de Administrador ? Paulo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Agradecimentos - Eh possivel criar instalador com direitos de gravar DLLs na pasta do Windows
Sérgio: As permissões de acesso aos arquivos e DLLs é feita pelo windows e com certeza vc não vai conseguir burlar as mesmas de modo convencional e lícito. Busque outras alternativas para a instalação dessas DLLs. Ok. Muito obrigado pelas informacoes ! Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Erro com ClientDataSet
Marcio, vc colocou os seus campos em tempo de design ou vc simplesmente faz select * from tabela em tempo de execucao Eu tb tenho esse problema as vezes, e me parece que é por que eu faço um select em tempo de execucao e nao seto o providerFlags de cada campo e ate agora nao achei outra possibilidade para esse erro - Original Message - From: Marcio To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:25 AM Subject: Re: [delphi-br] Re: Erro com ClientDataSet Olá Murillo, Infelizmente não funcionou mas agradeço tuas dicas! Seria interessante que o Andreano se pronunciasse também nestes casosmas ultimamente tenho visto poucos e-mail´s dele na lista. Abraço, Márcio - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Monday, February 05, 2007 9:13 AM Subject: [delphi-br] Re: Erro com ClientDataSet Olá Márcio, verifique o seu DataSetProvider na propriedade UpdateMode se está em upWhereKeyOnly, depois nos TFields do seu SQLDataSet, verifique se a chave primária está com a propriedade ProviderFlags setada em pfInUpdate e pfInKey, os demais campos deixe apenas em pfInUpdate. Abaço Murillo --- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] escreveu Olá Colegas da Lista, Uso delphi7 + windowsxp pro e está acontecendo o seguinte: Ao efetuar cds.applyupdates(0) recebdo a seguinte mensagem: Record not found or changed by another user Alguem de vocês já enfrentou issoconseguiram resolver? Já pesquisei na internet, tentei fazer testes com todas as dicas do pessoal, mas não obtive sucesso com nenhuma delas ainda. Agradeço qualquer ajuda. Márcio. [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.432 / Virus Database: 268.17.18/662 - Release Date: 31/1/2007 15:16 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Rave Reports - Dúvida Simples
Saudações Pessoal, Minha aplicação funciona perfeitamente na minha máquina e em outras com o Delphi e o Rave, contudo nem abre em pcs que não tenham eles, preciso colocar algo do Rave em anexo à aplicação? Tipo uma dll ou exe? Atenciosamente, André Prata [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Comunicação entre duas máquinas
Quero fazer um programa com o minimo de recursos para que possa passar informações entre usuários da internet conectados e logados no meu site...essas informações eu pretendo utilizar, nao necessáriamente como bate papo, mas para fazer um determinado jogo de xadrez funcionar entre os integrantes logados. Cada lance da partida é descrito numa string chamada de FEN de mais ou menos uns 40 caracteres, chegando a um máximo de 72 caracteres. Alguem teria pelo menos uma ideia inicial de como poderia fazer essa comunicação acontecer Marcos P. M. de Souza www.mpsoftwares.com http://www.mpsoftwares.com/ [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Comunicação entre duas máquinas
Quero fazer um programa com o minimo de recursos para que possa passar informações entre usuários da internet conectados e logados no meu site...essas informações eu pretendo utilizar, nao necessáriamente como bate papo, mas para fazer um determinado jogo de xadrez funcionar entre os integrantes logados. Cada lance da partida é descrito numa string chamada de FEN de mais ou menos uns 40 caracteres, chegando a um máximo de 72 caracteres. Alguem teria pelo menos uma ideia inicial de como poderia fazer essa comunicação acontecer Marcos P. M. de Souza [As partes desta mensagem que não continham texto foram removidas]
