Re: [delphi-br] Existe algum macete pra instalar o D2007 no Vista?
Creio que você deva instalar o .NET 2.0 32Bits e executar a instalação como administrador. 2008/12/8 Fellipe Henrique [EMAIL PROTECTED] Amigos, já vi na net muita gente reclamando de instalar o d2007 no vista, e executei quase todos os passos descritos em vários site, tais como: - Nao instalar o Rave - Nao instalar no Program Files - Instalar em outra pasta dentro do C: - Executar o setup como administrador. E nada... quando começa a copiar os arquivos dá a seguinte mensagem: Error! só isso... mais nada... e pronto, aparece o Finish, e não instala Como posso instalar o D2007 no winVista? Ps.: Meu vista é o Home Premium 64bits.. Obrigado. Att. Fellipe H. -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um diretório
Em tempo: meu nome é no singular!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 16:04:05 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Boa Rubens... eu sabia que tinha uma forma melhor... rsrsrs... Wesley
From: Rubem Nascimento da Rocha
Sent: Monday, December 08, 2008 1:56 PM
To: delphi-br
Subject: RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
POG? ARGH! I hate GOP (Gambiarra Oriented Programming)!
Ah, esse povo num sabe mesmo procura as coisas!
Bom, lá vai então um exemplo baseado nos exemplos que tem no help do Delphi (já
que o povo gosta mesmo é de comer o bolo ao invés de montar a própria receita e
aprender mais!)
{ 1a. versão - renomeando o arquivo por completo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
iSeq: integer;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := Format('FIGURA%d.JPG');
Inc(iSeq);
RenameFile(lOldName, lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
{ 2a. versão - retirando todos os pontos do nome do arquivo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := StringReplace(lOldName, '.', EmptyStr, [rfReplaceStr]);
RenameFile(lAuxCaminho + lOldName, lAuxCaminho + lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
Sds.
P.S.: Ah, mas pra que serve essa função IncludeTrailingBackslash() e essa
função StringReplace? Tá no help, brow!
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 13:24:24 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Carlos
Você pode fazer um POG ( Programação Orientada a Gambiarra )
http://desciclo.pedia.ws/wiki/POG , coloque um FileListBox , e filtre pela
extensão, ai da um for , verifica qual nome do arquivo que tem mais de 1 ponto
tipo com a função abaixo, e use a função Rename( nomeAntigo, NomeNovo ) do
delphi para alterar o nome...
function MaisDeUmPonto ( Texto : Value ) : boolean ;
begin
result := false;
if pos ( extractFileName ( texto ) , '.' ) 0 then
result := true ;
end;
Vai funcionar... mas é Gambiarra Wesley...
From: Carlos
Sent: Monday, December 08, 2008 1:15 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Abrir pasta e renomear arquivos de imagens em um diretório
Senhores, boa tarde!
Solicito, dentro das possibilidades, um auxílio para solucionar este
problema:
- tenho uma pasta dentro do disco Ex: c:\pasta
dentro desta pasta, existem várias arquivos de imagem, e todos com o
nome neste modelo 000.000.000..jpg
O que acontece;
Preciso percorrer estes arquivos, e renomea-los sem os pontos e com a
extensão '.jpg';
Nunca fiz este tipo de procedimento, e não sei como faze-lo e não
consegui achar nada na grande rede que pudesse me auxiliar!
Agradeço atenciosamente a atenção e ajuda de todos!
Fraterno abraço,
Carlos
_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
Re: [delphi-br] Quem define o que é realmente POG?
Uma definição minha de P.O.G. é a de todo e qualquer tipo de solução obtida/conseguida por meio improvisado É isso ai Ricardo, Nas outras áreas isso é conhecido como Gambiarra! Nunca vi uma gambia que não funcionasse e nunca vi uma também que um dia não desse problema! Ricardo César Cardoso escreveu: Outro exemplo de P.O.G. é fazer um select igualando uma cláusula where à 1 como no exemplo abaixo: Select * from Clientes Where 1 = 1; Nem me lembro exatamente o contexto onde vi essa POG, mas me lembro que era no Delphi e se não me engano num TSQLQuery. Tudo isso se não me engano pra ter um conjunto de dados vazio. Uma definição minha de P.O.G. é a de todo e qualquer tipo de solução obtida/conseguida por meio improvisado ou sem o uso de ferramentas adequadas. Para o cliente final tudo parece perfeito, mas basta precisar de manutenção que o P.O.G. pode desmoronar... []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 8/12/08, Alexandre Rodrigues [EMAIL PROTECTED] mailto:alexandre_rodrigues_poa%40yahoo.com.br escreveu: De: Alexandre Rodrigues [EMAIL PROTECTED] mailto:alexandre_rodrigues_poa%40yahoo.com.br Assunto: Re: [delphi-br] Quem define o que é realmente POG? Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Segunda-feira, 8 de Dezembro de 2008, 20:59 Um exemplo de POG: Meu sócio fazendo manutenção em um sistema Java encontrou o seguinte: //Faz alguma coisa ... //Pausa for i := 0 to i 100 000 do ; //Faz alguma coisa ... Creio que o programador que fez isso não conhecia a função Sleep e fez esse baita absurdo e se isso não é POG não sei o que é! Quando iniciei na programação, muitas vezes fazia coisas de maneira errada, mas eu tinha noção que aquilo não estava bom, e sempre tentava melhorar. O programador que fez esse Sleep eu conheci, ele se achava o melhor programador do mundo! Coutinho - Yahoo escreveu: Pog!!! Interessante! !! A propósito, onde está o manual que sacramenta o que é POG ou não? Acho interessante essa de se classificar muitas coisas como POG... só porquê vc não criou o sistema anterior, ou porquê não herdado, poliformatico, oop? Me esclareçam... Quem define o que é POG? Venho do Clipper 5, e não tinha essa de gambiarra... era tudo na unha, e meus professores sempre diziam... uma solução tem diversas formas, depende de quem faz... a cabeça do programador é que define o meio, contanto que o resultado seja o desejado... Claro que buscando-se usar da melhor forma possivel as ferramentas de análise e programação disponÃveis no momento! Assim... Vejo algumas coisas que vocês chamam de POG e eu acho que não é gambiarra!!! Sds Emanuel Coutinho Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Problema utilizando Sockets com ClientSocket/SocketClienteServerThread
Realmente tive que fazer dessa forma, tudo que recebo é armazenado em um buffer e é feito o tratamento. José Mário Silva Guedes escreveu: Pela minha experiência isso não tem solução. ( Mas ficaria feliz se alguém tiver uma ) Tem que fazer um tratamento, noi seguinte sentido: Recebeu menos do que esperava? Guarda em uma variável e junta com o resultado do próximo receive. Recebeu mais do que esperava? Pega o que interessa e guarda o resto em uma variável. 2008/12/5 Paulo Coutinho [EMAIL PROTECTED] mailto:paulo%40prsolucoes.com se souber como fazer pra contorna issso me avise tb. tenho o mesmo problema, as mensagens trepam, cortam, dobram. 2008/12/4 Ricardo Lima [EMAIL PROTECTED] mailto:rlmariz%40gmail.com rlmariz%40gmail.com Estamos com um problema em uma implementação de comunicação utilizando sockets, a troca de informação é feita utilizando sendtext/receivetext e os textos são xml que são tratados, esta acontecendo que o socket quando tem muita troca de mensagens recebe mais de um xml ou somente recebe parte do xml no receivetext e quando tenta fazer o tratamento desse texto recebido provaca um erro. Tem alguma forma de garantir que o texto não seja recebido parcial ou que as mensagens não acumulem no buffer do socket? Obrigado. Ricardo -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: [EMAIL PROTECTED] mailto:paulo%40prsolucoes.com paulo%40prsolucoes.com Skype: paulo.prsolucoes [As partes desta mensagem que não continham texto foram removidas] -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema Master-Detail ** Urgente **
Amigo a sua tabela Vendas não há o campo CODVENDA. vc deve estar mandando atualizar por esse campo, os campos que são comuns nas duas tabelas é o COD, o campo ideal para fazer o relacionamento. dê uma olhada ai Rubens Antunes --- Em seg, 8/12/08, Eduardo Melo [EMAIL PROTECTED] escreveu: De: Eduardo Melo [EMAIL PROTECTED] Assunto: Re: [delphi-br] Problema Master-Detail ** Urgente ** Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 8 de Dezembro de 2008, 19:50 Tabela Vendas: CREATE TABLE VENDA ( COD INTEGER NOT NULL, COD_CLIENTE INTEGER, VL_TOT NUMERIC(15,4) , VL_VENDA NUMERIC(15,4) , VL_DESC NUMERIC(15,4) , DT_ENTREGA TIMESTAMP, DT_VENDA TIMESTAMP, NATUREZA_OP VARCHAR(60), FORMA_PGTO VARCHAR(60) ); /*** * * * * * * * / /* Primary Keys */ /*** * * * * * * * / ALTER TABLE VENDA ADD CONSTRAINT PK_VENDA PRIMARY KEY (COD); /*** * * * * * * * / /* Foreign Keys */ /*** * * * * * * * / ALTER TABLE VENDA ADD CONSTRAINT FK_VENDA_1 FOREIGN KEY (COD_CLIENTE) REFERENCES CAD_CLIENTE (COD); Tabela Venda_Item CREATE TABLE VENDA_ITEM ( COD INTEGER NOT NULL, COD_VENDA INTEGER NOT NULL, COD_PRODUTO INTEGER NOT NULL, QTDE INTEGER, VL_UNIT NUMERIC(15,4) , VL_TOTAL NUMERIC(15,4) ); /*** * * * * * * * / /* Primary Keys */ /*** * * * * * * * / ALTER TABLE VENDA_ITEM ADD CONSTRAINT PK_VENDA_ITEM PRIMARY KEY (COD); /*** * * * * * * * / /* Foreign Keys */ /*** * * * * * * * / ALTER TABLE VENDA_ITEM ADD CONSTRAINT FK_VENDA_ITEM_ 1 FOREIGN KEY (COD_VENDA) REFERENCES VENDA (COD); ALTER TABLE VENDA_ITEM ADD CONSTRAINT FK_VENDA_ITEM_ 2 FOREIGN KEY (COD_PRODUTO) REFERENCES PRODUTO (COD); Estou usando o Firebird + Delphi 7 + DBExpress. Quando tento salvar os itens da erro dizendo que nao possui valor no campo cod_venda(campo q relaciona tabela venda), porem mesmo dando um post antes na tabela vendas tb nao funciona. [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Consulta SQL
Marcio
me manda o projeto
meu e-mail é [EMAIL PROTECTED]
para que eu possa analizar e resolver o seu problema.
Abraço
Rubens Antunes
--- Em seg, 8/12/08, marcio [EMAIL PROTECTED] escreveu:
De: marcio [EMAIL PROTECTED]
Assunto: [delphi-br] Re: Consulta SQL
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 8 de Dezembro de 2008, 19:42
Assim como a consulta notei outro erro ele não está gravando os dados
apesar d usar uma procedure para transcreve-los p a tbl:
unit UCadCli;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Grids,
DBGrids,
Mask, DB;
type
TFrm_CadCli = class(TForm)
Panel1: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Panel2: TPanel;
SpdAnterior: TSpeedButton;
SpdProximo: TSpeedButton;
SpdUltimo: TSpeedButton;
SpdNovo: TSpeedButton;
SpdExcluir: TSpeedButton;
SpdAlterar: TSpeedButton;
SpdSalvar: TSpeedButton;
SpdCancelar: TSpeedButton;
SpdAtualizar: TSpeedButton;
SpdPrimeiro: TSpeedButton;
SpdRelatorio: TSpeedButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label2: TLabel;
dbeCodigo: TDBEdit;
Label3: TLabel;
dbeNome: TDBEdit;
Label4: TLabel;
dbeCPF: TDBEdit;
Label5: TLabel;
dbeRG: TDBEdit;
Label6: TLabel;
dbeEndereco: TDBEdit;
Label7: TLabel;
dbeCidade: TDBEdit;
Label8: TLabel;
dbeUF: TDBEdit;
Label9: TLabel;
dbeCEP: TDBEdit;
Label10: TLabel;
dbeFone: TDBEdit;
Label11: TLabel;
dbeCelular: TDBEdit;
Label12: TLabel;
dbeEmail: TDBEdit;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Label13: TLabel;
edtPesquisaNome: TEdit;
SpeedButton13: TSpeedButton;
DBGrid2: TDBGrid;
DsQryClientes: TDataSource;
SpeedButton2: TSpeedButton;
procedure SpeedButton1Click( Sender: TObject);
procedure SpdPrimeiroClick( Sender: TObject);
procedure SpdAnteriorClick( Sender: TObject);
procedure SpdProximoClick( Sender: TObject);
procedure SpdUltimoClick( Sender: TObject);
procedure SpdNovoClick( Sender: TObject);
procedure SpdExcluirClick( Sender: TObject);
procedure SpdAlterarClick( Sender: TObject);
procedure SpdSalvarClick( Sender: TObject);
procedure SpdCancelarClick( Sender: TObject);
procedure SpdAtualizarClick( Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction) ;
procedure FormShow(Sender: TObject);
procedure SpeedButton13Click( Sender: TObject);
procedure SpeedButton2Click( Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_CadCli: TFrm_CadCli;
procedure LimparCampos( );
implementation
uses UDados, UCadastros;
procedure LimparCampos( );
Begin
with Frm_CadCli do
begin
dbeNome.Text := '';
dbeCPF.Text := '';
dbeRG.Text := '';
dbeEndereco. Text := '';
dbeCidade.Text := '';
dbeUF.Text := '';
dbeCEP.Text := '';
dbeFone.Text := '';
dbeCelular.Text := '';
dbeEmail.Text := '';
end;
end;
{$R *.dfm}
procedure TFrm_CadCli. SpeedButton1Clic k(Sender: TObject);
begin
Close;
end;
procedure TFrm_CadCli. SpdPrimeiroClick (Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. First;
end;
procedure TFrm_CadCli. SpdAnteriorClick (Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Prior;
end;
procedure TFrm_CadCli. SpdProximoClick( Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Next;
end;
procedure TFrm_CadCli. SpdUltimoClick( Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Last;
end;
procedure TFrm_CadCli. SpdNovoClick( Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Append;
dbeNome.Text := '';
dbeCPF.Text := '';
dbeRG.Text := '';
dbeEndereco. Text := '';
dbeCidade.Text := '';
dbeUF.Text := '';
dbeCEP.Text := '';
dbeFone.Text := '';
dbeCelular.Text := '';
dbeEmail.Text := '';
dbeNome.SetFocus;
end;
procedure TFrm_CadCli. SpdExcluirClick( Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Delete;
end;
procedure TFrm_CadCli. SpdAlterarClick( Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Edit;
end;
procedure TFrm_CadCli. SpdSalvarClick( Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Append;
Dm_Dados.Tb_ Clientes. Edit;
//Tranferindo os dados
//Dm_Dados.Tb_ ClientesCodigo. Text := dbeCodigo.Text;
Dm_Dados.Tb_ ClientesNome. Text := dbeNome.Text;
Dm_Dados.Tb_ ClientesCPF. Text := dbeCPF.Text;
Dm_Dados.Tb_ ClientesRG. Text := dbeRG.Text;
Dm_Dados.Tb_ ClientesEndereco .Text := dbeEndereco. Text;
Dm_Dados.Tb_ ClientesCidade. Text := dbeCidade.Text;
Dm_Dados.Tb_ ClientesUF. Text := dbeUF.Text;
Dm_Dados.Tb_ ClientesCEP. Text := dbeCEP.Text;
Dm_Dados.Tb_ ClientesFone. Text := dbeFone.Text;
Dm_Dados.Tb_ ClientesCelular. Text := dbeCelular.Text;
Dm_Dados.Tb_ ClientesEmail. Text := dbeEmail.Text;
//Grava os Dados
Dm_Dados.Tb_ Clientes. Post;
ShowMessage( 'Dados Gravados com Sucesso!');
end;
procedure TFrm_CadCli. SpdCancelarClick (Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Cancel;
end;
procedure TFrm_CadCli. SpdAtualizarClic k(Sender: TObject);
begin
Dm_Dados.Tb_ Clientes. Refresh;
end;
procedure TFrm_CadCli. FormClose( Sender: TObject; var Action:
TCloseAction) ;
begin
Dm_Dados.Tb_ Clientes. Close;
end;
procedure
[delphi-br] posição objeto no form
Bom dia, Preciso identificar se algum dos objetos exibidos no form está ocupando mesmo área de outro, se estão sobrepostos. Os objetos são criados em runtime. Alguém poderia me ajudar? Grato, Sandro [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] CDS - Internal Calc
Bom dia, estou tentando criar campos do tipo InternalCalc num CDS que não tem vínculo nenhum, ou seja, fica só na memória, criei ums campos e fiz Create DataSet e funcionou perfeitamente, agora quero criar estes campos InternalCalc e aparece: Name not unique in this context(quando tento fazer Creat DataSet) uso o Delphi 7, como poderia solucionar o problema ?? grato Stainle
Re: [delphi-br] Jedi
Uso o BDS 2006 desde, humm, 2006, :-), e nunca tive problema em instalar componentes. É diferente mas não é difícil. Que dificuldades você está tendo? [] Andrei 2008/12/9 Coutinho - Yahoo [EMAIL PROTECTED] Caramba... Hoje eu decidi... Desisntalei a cópia demo do 2006 que tinha e nem vou instalar outra... por um longo tempo, acho! Até mesmo porquê é muito difícil instalar as bibliotecas no cara... Vai dar trabalho assim lá em Caixa-Pregos!!! Meu D7 tpa redondo... e por enquanto... tá me bastando! Sds Emanuel Coutinho [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] CDS - Internal Calc
Limpe a propriedade FieldDefs que deve resolver. Só um detalhe, se os campos não tem vinculo com banco de dados, eles não precisam ser fkInternalCalc. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Quem define o que é realmente POG?
Minha Opinião sobre POG... é a seguinte... Tem momentos que é necessário se dar um jeito, mesmo porque o cliente tem pressa, eu por exemplo ainda não tenho condições de pagar um curso da borland, o que seria ideal, muitas coisas aprendi com vocês aqui da lista e muitas coisas no google e em sites tipo o active delphi , e nunca tive nenhum curso de programação , apenas quis aprender e corri atras, não sou expert em delphi e estou longe disso, mas vivo a vida pogando quando não sei a maneira correta de fazer, um exemplo é um sistema financeiro que fiz... pelo amor de Deus... quando vi o POG que tinha feito eu refiz ele inteiro... eram muitos modulos.. Primeiro coloquei informações de contas a pagar e dos rateios em uma tabela só... da para imaginar, depois criei uma tabela só para colocar os que teriam que ser baixados, ao inves de apenas criar um campo flag... estava funcionando, mas quando decidi arrumarAUhUHuhAUAhuh... ai foi o problema para separar os rateios dos lançamentos principais e coloca-los em 2 tabelas diferentes.. acho que em momentos de desespero vale tudo, mas é claro que depois para arrumar fica muito mais dificel Wesley From: Coutinho - Yahoo Sent: Tuesday, December 09, 2008 2:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Quem define o que é realmente POG? Ok... Alguns colegas deram exemplos de coisas realmente absurdas, e concordo com eles... Uma coisa é a preguiça de pesquisar e melhorar, outra é ter de implementar uma coisa com alguma criatividade... Supondo... Um cliente tem como rotina trabalhar suas informações de formas padronizadas... usando padrão e uma forma que ainda podem ser melhoradas e otimizadas. Na qualidade de Analista de Sistemas, você detecta isso, então apresenta ao cliente os pontos em que as rotinas de controle, e a documentação pode ser otimizada, mas esse irredutível, diz que há anos... as coisas andam bem assim, e que ele mesmo fez os walkthrough das rotinas, e que não há falhas... É claro que um cara desse nunca ouviu falar em BrainStorming... Você deixa de ganhar o dinheiro, porquê vai ter de fazer um bacalhau aqui e outro ali, ou pega o serviço? Gente, tenho visto o pessoal ficar classificando coisas que claramente são fruto de situações que o programador tem de dar o jeito para funcionar, e a turma fica esfolando... Acho que NINGUÉM detém a melhor resposta para todas as coisas, e que NINGUÉM é palmatória do mundo... Assim... aceitando que nos exemplos que os outros colegas deram de que eram realmente coisas absurdas... peço aos colegas que não esfolem demais os nossos amigos menos esclarecidos e sim, AJUDEM... mas existe uma diferença entre ajudar dizendo: olha amigo, porquê vc não usa uma função tal, que faz isso, ao invés de dizer No google tem, ou Nunca ouviu falar da função tal? Algumas vezes, eu mesmo suscitei a necessidade de alguns colegas estudarem um pouco sobre formas normais, estruturas de dados, atomização da informação, coisas que para alguns é completamente desconhecida... Mas é de vital importância buscarmos harmonizar, e ter despreendimento suficiente para doar a informação incondicionalmente (se não for pirataria por ter aprendido numa revista comprada na banca de jornal... hehehe). Brincadeiras à parte, tenho notado mais um espírito de competitividade entre nós aqui na lista que o de solidariedade! Até mesmo porquê, e muito principalmente, parafraseando o amigo Laureano Nunes, * Muitas vezes fazer um curso de qualidade, onde é passada a METODOLOGIA padrão da ferramenta, sai bm caro e dinheiro não é um luxo que todos tem sobrando. Com todo meu respeito. * Saudações Emanuel Coutnho Laureano Araujo Nunes escreveu: Colega, Eu acredito que os caras que desenvolvem uma ferramenta de desenvolvimento, definem padrões para se trabalhar com ela, para se programar de maneira correta. Fora dos padroes é possível programar com a ferramenta, porém, para quem conhece os padrões de desenvolvimento propostos pelos Engenheiros da Ferramenta todo código montado de maneira, criativa ou não, diferente do é proposto para o uso correto, classifica como GAMBIARRA. Porém, sou a favor de fazer funcionar o programa final. Muitas vezes fazer um curso de qualidade, onde é passada a METODOLOGIA padrão da ferramenta, sai bm caro e dinheiro não é um luxo que todos tem sobrando. Com todo meu respeito. []´s Nunes. __ Information from ESET NOD32 Antivirus, version of virus signature database 3673 (20081208) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problema Master-Detail ** Urgente **
Ola Carlos, Fiz o que você me passou, mas dá o seguinte erro: No corresponding master record found. Já tentei dar um post antes na tabela vendas, mas não tive êxito, o que poderia fazer? Em 08/12/08, Carlos [EMAIL PROTECTED] escreveu: Meu camarada, boa noite! Creio que esteja fazendo Master/Detail com DBExpress ou ADO. Então se vc relacionou os campos certinhos, creio que vc esqueceu de no evento onNewRecord da tabela detail, atribuir ao campo COD_VENDA o valor da tabela Master que é o campo Master. se é que entendi. Tipo assim: cdsClientDataSet1Cod_Venda.Value := cdsClientDataSet2Cod.Value; ou seja, vc está informando que o registro da tabela Venda_Item está relacionado ao respectivo registro da tabela Venda. Espero ter ajudado, mas qualquer coisa, posta ai para nós. Fraterno abraço, Carlos -- Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema Master-Detail ** Urgente **
Rubens, O campo COD de cada tabela é a chave primaria e criei o campo cod_venda na tabela venda_itens como chave estrangeira, preciso também criar esse mesmo campo na tabela venda? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quem define o que é realmente POG?
para os amantes de POG http://desciclo.pedia.ws/wiki/POG -- José Benedito Software Developer [EMAIL PROTECTED] www.jbsolucoes.net +55 19 8116-7826
Re: [delphi-br] Existe algum macete pra instalar o D2007 no Vista?
Hum, meu Vista é Home Premium 64 bits, e infelizmente não posso instalar outra versão, pois só sou registrado nesta... agora, quanto ao .NET 2.0, achei que o próprio instalador instalava ele... mas de qualquer forma vou tentar e aviso aqui. Att. Fellipe H. 2008/12/8 Eduardo Silva dos Santos [EMAIL PROTECTED] Creio que você deva instalar o .NET 2.0 32Bits e executar a instalação como administrador. 2008/12/8 Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Amigos, já vi na net muita gente reclamando de instalar o d2007 no vista, e executei quase todos os passos descritos em vários site, tais como: - Nao instalar o Rave - Nao instalar no Program Files - Instalar em outra pasta dentro do C: - Executar o setup como administrador. E nada... quando começa a copiar os arquivos dá a seguinte mensagem: Error! só isso... mais nada... e pronto, aparece o Finish, e não instala Como posso instalar o D2007 no winVista? Ps.: Meu vista é o Home Premium 64bits.. Obrigado. Att. Fellipe H. -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro Executar o Sistema - Firebird 2.0
Boa tarde amigos da lista Preciso da Ajuda de vcs. Desinstalei o firebird e removi todas as dll's, removi a pasta Odonto e fiz a limpeza do registro e a desfragmentação de disco. Depois instalei o SP2, desativei o firewall do windows, instalei o FIREBIRD, fui na pasta bin, copiei a fbcliente.dll e colei na pasta SYSTEM 32 do windows, depois colei a pasta do sistema com a última modificação na unidade C:, quando que fui utilizar o programa apareceu a seguinte mensagem de erro: aquela mesma mensagem de ERRO, então repeti o procedimento 3 vezes e nada, depois coloquei o cd do Windows XP e pedi para reparar o sistema, tudo certo, então repeti tudo, já não aguentando mais e o domingo já tinha acabado eu parei. Ontém a mesma coisa. sendo que já instalei em 4 máquinas diferentes com winxp e win2000 e funciona perfeitamente, nessa que dá erro é winxp. as mensagens são as seguintes: Runtime Error: program : c:\Odonto\Odonto.exe R6034 An Application has made an attemp to load the C runtime library incorrectly.] Please contact the application's support team for more information. none of the dynamic libraries ca be found: fbclient20.dll, fbclient.dll algum amigo poderia me ajudar? Estou utilizando zeos e firebird 2.1 No aguardo Raphael Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Erro Executar o Sistema - Firebird 2.0
Olá pessoal, Cara, eu vi isso um dia desses com um brother, eu fui passando para ele o que devia ser feito, e eu só recebia o retorno: ... não funfou! :( . Se não for incomodo, instale o TeamViewer e eu vejo isso com você, o cara que teve o problema foi num exemplo que eu postei (com Zeos), quem sabe a gente não resolve, aí postamos o resultado para o pessoal, pode ser? []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: Raphae Fonseca [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 9 de Dezembro de 2008 13:14:58 Assunto: [delphi-br] Erro Executar o Sistema - Firebird 2.0 Boa tarde amigos da lista Preciso da Ajuda de vcs. Desinstalei o firebird e removi todas as dll's, removi a pasta Odonto e fiz a limpeza do registro e a desfragmentação de disco. Depois instalei o SP2, desativei o firewall do windows, instalei o FIREBIRD, fui na pasta bin, copiei a fbcliente.dll e colei na pasta SYSTEM 32 do windows, depois colei a pasta do sistema com a última modificação na unidade C:, quando que fui utilizar o programa apareceu a seguinte mensagem de erro: aquela mesma mensagem de ERRO, então repeti o procedimento 3 vezes e nada, depois coloquei o cd do Windows XP e pedi para reparar o sistema, tudo certo, então repeti tudo, já não aguentando mais e o domingo já tinha acabado eu parei. Ontém a mesma coisa. sendo que já instalei em 4 máquinas diferentes com winxp e win2000 e funciona perfeitamente, nessa que dá erro é winxp. as mensagens são as seguintes: Runtime Error: program : c:\Odonto\Odonto. exe R6034 An Application has made an attemp to load the C runtime library incorrectly. ] Please contact the application' s support team for more information. none of the dynamic libraries ca be found: fbclient20.dll, fbclient.dll algum amigo poderia me ajudar? Estou utilizando zeos e firebird 2.1 No aguardo Raphael Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro Executar o Sistema - Firebird 2.0
Boa tarde, Acho que vc vai ter que registrar as Dll's no sistema. Ou então como aconteceu comigo uma vez, tem que pegar as Runtime libraries do MS - Visual C++. Se bem que tive esse problema ao rodar o FB 1.5.2 num Windows 98. Mas pela mensagem o teu problema é com as Dll's Runtime do MS Visual C++ []'s Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 9/12/08, Raphae Fonseca [EMAIL PROTECTED] escreveu: De: Raphae Fonseca [EMAIL PROTECTED] Assunto: [delphi-br] Erro Executar o Sistema - Firebird 2.0 Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 9 de Dezembro de 2008, 14:14 Boa tarde amigos da lista Preciso da Ajuda de vcs. Desinstalei o firebird e removi todas as dll's, removi a pasta Odonto e fiz a limpeza do registro e a desfragmentação de disco. Depois instalei o SP2, desativei o firewall do windows, instalei o FIREBIRD, fui na pasta bin, copiei a fbcliente.dll e colei na pasta SYSTEM 32 do windows, depois colei a pasta do sistema com a última modificação na unidade C:, quando que fui utilizar o programa apareceu a seguinte mensagem de erro: aquela mesma mensagem de ERRO, então repeti o procedimento 3 vezes e nada, depois coloquei o cd do Windows XP e pedi para reparar o sistema, tudo certo, então repeti tudo, já não aguentando mais e o domingo já tinha acabado eu parei. Ontém a mesma coisa. sendo que já instalei em 4 máquinas diferentes com winxp e win2000 e funciona perfeitamente, nessa que dá erro é winxp. as mensagens são as seguintes: Runtime Error: program : c:\Odonto\Odonto. exe R6034 An Application has made an attemp to load the C runtime library incorrectly. ] Please contact the application' s support team for more information. none of the dynamic libraries ca be found: fbclient20.dll, fbclient.dll algum amigo poderia me ajudar? Estou utilizando zeos e firebird 2.1 No aguardo Raphael Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Utilizando um Scanner do aplicativo em delphi....
Pessoal, alguem tem alguma ideia de um componente e ou algum exemplo de um aplicativo desenvolvido em delphi 7 que tenha acesso a um scanner, efetue o scaneamento e salve a imagem Abraços Pessoal Pablo Vianini _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Utilizando um Scanner do aplicativo em delphi....
Olá pessoal, (http://www.google.com.br/search?hl=pt-BRclient=firefox-achannel=srls=org.mozilla%3Apt-BR%3Aofficialhs=9w6q=twain+delphi+scannerbtnG=Pesquisarmeta=). Achei no Google :) []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: Pablo Henrique Vianini Souza [EMAIL PROTECTED] Para: nddv nddv [EMAIL PROTECTED]; delphi-br delphi-br delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 9 de Dezembro de 2008 14:43:14 Assunto: [delphi-br] Utilizando um Scanner do aplicativo em delphi Pessoal, alguem tem alguma ideia de um componente e ou algum exemplo de um aplicativo desenvolvido em delphi 7 que tenha acesso a um scanner, efetue o scaneamento e salve a imagem Abraços Pessoal Pablo Vianini Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro Executar o Sistema - Firebird 2.0
Tente copiar a dll na pasta do programa... Wesley From: Ricardo César Cardoso Sent: Tuesday, December 09, 2008 3:43 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Erro Executar o Sistema - Firebird 2.0 Boa tarde, Acho que vc vai ter que registrar as Dll's no sistema. Ou então como aconteceu comigo uma vez, tem que pegar as Runtime libraries do MS - Visual C++. Se bem que tive esse problema ao rodar o FB 1.5.2 num Windows 98. Mas pela mensagem o teu problema é com as Dll's Runtime do MS Visual C++ []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 9/12/08, Raphae Fonseca [EMAIL PROTECTED] escreveu: De: Raphae Fonseca [EMAIL PROTECTED] Assunto: [delphi-br] Erro Executar o Sistema - Firebird 2.0 Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 9 de Dezembro de 2008, 14:14 Boa tarde amigos da lista Preciso da Ajuda de vcs. Desinstalei o firebird e removi todas as dll's, removi a pasta Odonto e fiz a limpeza do registro e a desfragmentação de disco. Depois instalei o SP2, desativei o firewall do windows, instalei o FIREBIRD, fui na pasta bin, copiei a fbcliente.dll e colei na pasta SYSTEM 32 do windows, depois colei a pasta do sistema com a última modificação na unidade C:, quando que fui utilizar o programa apareceu a seguinte mensagem de erro: aquela mesma mensagem de ERRO, então repeti o procedimento 3 vezes e nada, depois coloquei o cd do Windows XP e pedi para reparar o sistema, tudo certo, então repeti tudo, já não aguentando mais e o domingo já tinha acabado eu parei. Ontém a mesma coisa. sendo que já instalei em 4 máquinas diferentes com winxp e win2000 e funciona perfeitamente, nessa que dá erro é winxp. as mensagens são as seguintes: Runtime Error: program : c:\Odonto\Odonto. exe R6034 An Application has made an attemp to load the C runtime library incorrectly. ] Please contact the application' s support team for more information. none of the dynamic libraries ca be found: fbclient20.dll, fbclient.dll algum amigo poderia me ajudar? Estou utilizando zeos e firebird 2.1 No aguardo Raphael Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3673 (20081208) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Utilizando um Scanner do aplicativo em delphi....
Boa tarde, Há algum tempo atrás alguém apareceu com a mesma dúvida que você. Se não me engano, um dos links sugeridos foi este [ http://www.delphi3000.com/articles/article_4253.asp?SK= ] Veja se já te ajuda em alguma coisa. []'s Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 9/12/08, Pablo Henrique Vianini Souza [EMAIL PROTECTED] escreveu: Pessoal, alguem tem alguma ideia de um componente e ou algum exemplo de um aplicativo desenvolvido em delphi 7 que tenha acesso a um scanner, efetue o scaneamento e salve a imagem Abraços Pessoal Pablo Vianini Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Commit Automático no Paradox
Boa tarde, Como fazer commit automático com tabelas paradox para que os dados sejam salvos automaticamente ao serem transferidos para a tbl? Grato
Re: [delphi-br] Commit Automático no Paradox
Se não me engano é com o comando DbiSaveChanges(NomeDoObjetoTTable.Handle). Coloca ele no evento afterPost das tabelas. [] Andrei 2008/12/9 marcio [EMAIL PROTECTED] Boa tarde, Como fazer commit automático com tabelas paradox para que os dados sejam salvos automaticamente ao serem transferidos para a tbl? Grato [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir pasta e renomear arquivos de ima gens em um diretório
Rubem.. desculpe... Wesley
From: Rubem Nascimento da Rocha
Sent: Monday, December 08, 2008 10:32 PM
To: delphi-br
Subject: RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Em tempo: meu nome é no singular!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 16:04:05 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Boa Rubens... eu sabia que tinha uma forma melhor... rsrsrs... Wesley
From: Rubem Nascimento da Rocha
Sent: Monday, December 08, 2008 1:56 PM
To: delphi-br
Subject: RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
POG? ARGH! I hate GOP (Gambiarra Oriented Programming)!
Ah, esse povo num sabe mesmo procura as coisas!
Bom, lá vai então um exemplo baseado nos exemplos que tem no help do Delphi (já
que o povo gosta mesmo é de comer o bolo ao invés de montar a própria receita e
aprender mais!)
{ 1a. versão - renomeando o arquivo por completo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
iSeq: integer;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := Format('FIGURA%d.JPG');
Inc(iSeq);
RenameFile(lOldName, lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
{ 2a. versão - retirando todos os pontos do nome do arquivo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := StringReplace(lOldName, '.', EmptyStr, [rfReplaceStr]);
RenameFile(lAuxCaminho + lOldName, lAuxCaminho + lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
Sds.
P.S.: Ah, mas pra que serve essa função IncludeTrailingBackslash() e essa
função StringReplace? Tá no help, brow!
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 13:24:24 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Carlos
Você pode fazer um POG ( Programação Orientada a Gambiarra )
http://desciclo.pedia.ws/wiki/POG , coloque um FileListBox , e filtre pela
extensão, ai da um for , verifica qual nome do arquivo que tem mais de 1 ponto
tipo com a função abaixo, e use a função Rename( nomeAntigo, NomeNovo ) do
delphi para alterar o nome...
function MaisDeUmPonto ( Texto : Value ) : boolean ;
begin
result := false;
if pos ( extractFileName ( texto ) , '.' ) 0 then
result := true ;
end;
Vai funcionar... mas é Gambiarra Wesley...
From: Carlos
Sent: Monday, December 08, 2008 1:15 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Abrir pasta e renomear arquivos de imagens em um diretório
Senhores, boa tarde!
Solicito, dentro das possibilidades, um auxílio para solucionar este
problema:
- tenho uma pasta dentro do disco Ex: c:\pasta
dentro desta pasta, existem várias arquivos de imagem, e todos com o
nome neste modelo 000.000.000..jpg
O que acontece;
Preciso percorrer estes arquivos, e renomea-los sem os pontos e com a
extensão '.jpg';
Nunca fiz este tipo de procedimento, e não sei como faze-lo e não
consegui achar nada na grande rede que pudesse me auxiliar!
Agradeço atenciosamente a atenção e ajuda de todos!
Fraterno abraço,
Carlos
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3673 (20081208) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ambiguous field name between table...
Olá Alisson, tudo blz? Bom, eu fiz o post lá no Forum e o suporte já respondeu, veja em: http://devart.com/forums/viewtopic.php?p=41145#41145 a questão é a seguinte, como temos o campo CODPRO, no SQL da query Detail, o mesmo não deve ser especificado na propriedade DetailField, justamente por ser um situação incomum. o meu inglês também não é dos melhores, eu uso com frequência esse tradutor: http://br.babelfish.yahoo.com/translate_txt da uma olhada no Help do Unidac ele é bem detalhado e vai te ajudar bastante. então é isso, espero que tenha a mesma satisfação que eu tenho ao usar os produtos da DevArt e qualquer coisa pode contar comigo ok. att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... 2008/12/9 Alisson [EMAIL PROTECTED] Não é necessário colocar a propriedade DetailFields? Pra que serve essa propriedade? Quando tiver outro problema vou tentar mandar pro fórum da Devart. Meu inglês é muito fraco, mas eu não sabia que poderia disponibilizar arquivo pra eles baixarem. Assim fica bem mais fácil de apresentar o erro. Muito obrigado pela ajuda, quebrou o maior galho. Eu estava agarrado com isso há dias. Alisson [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] CDS - Internal Calc
valeu, deu certo. obrigado Stainle --- Em ter, 9/12/08, Alisson [EMAIL PROTECTED] escreveu: De: Alisson [EMAIL PROTECTED] Assunto: Re: [delphi-br] CDS - Internal Calc Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 9 de Dezembro de 2008, 9:40 Limpe a propriedade FieldDefs que deve resolver. Só um detalhe, se os campos não tem vinculo com banco de dados, eles não precisam ser fkInternalCalc. _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quem define o que é realmente POG?
É isso colega. Você citou um problema gerado exatamente pela falta de conhecimento das formas normais, e provavelmente porquê você não riscou um DFD, e não foi atrás de analisar seu dicionário de dados. A chave para uma análise de dados satisfatória é atomização da informação. As ferramentas de análise são a base de qualquer sistema a ser desenvolvido. Quando me referí a POG, não me referí a ERROS de concepção do sistema... isto não é POG é erro de análise, e inobservância das formas normais. Fico feliz que você percebeu as coisas erradas que estava fazendo, e está correndo atrás de sempre melhorar. O que me referí na minha segunda mensagem é nossa postura em relação aos outros colegas... Parabéns, vá em frente e meus votos de Sucesso!!! Sds, Emanuel Coutinho BandaLemuel escreveu: Minha Opinião sobre POG... é a seguinte... Tem momentos que é necessário se dar um jeito, mesmo porque o cliente tem pressa, eu por exemplo ainda não tenho condições de pagar um curso da borland, o que seria ideal, muitas coisas aprendi com vocês aqui da lista e muitas coisas no google e em sites tipo o active delphi , e nunca tive nenhum curso de programação , apenas quis aprender e corri atras, não sou expert em delphi e estou longe disso, mas vivo a vida pogando quando não sei a maneira correta de fazer, um exemplo é um sistema financeiro que fiz... pelo amor de Deus... quando vi o POG que tinha feito eu refiz ele inteiro... eram muitos modulos.. Primeiro coloquei informações de contas a pagar e dos rateios em uma tabela só... da para imaginar, depois criei uma tabela só para colocar os que teriam que ser baixados, ao inves de apenas criar um campo flag... estava funcionando, mas quando decidi arrumarAUhUHuhAUAhuh... ai foi o problema para separar os rateios dos lançamentos principais e coloca-los em 2 tabelas diferentes.. acho que em momentos de desespero vale tudo, mas é claro que depois para arrumar fica muito mais dificel Wesley From: Coutinho - Yahoo Sent: Tuesday, December 09, 2008 2:26 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Quem define o que é realmente POG? Ok... Alguns colegas deram exemplos de coisas realmente absurdas, e concordo com eles... Uma coisa é a preguiça de pesquisar e melhorar, outra é ter de implementar uma coisa com alguma criatividade... Supondo... Um cliente tem como rotina trabalhar suas informações de formas padronizadas... usando padrão e uma forma que ainda podem ser melhoradas e otimizadas. Na qualidade de Analista de Sistemas, você detecta isso, então apresenta ao cliente os pontos em que as rotinas de controle, e a documentação pode ser otimizada, mas esse irredutível, diz que há anos... as coisas andam bem assim, e que ele mesmo fez os walkthrough das rotinas, e que não há falhas... É claro que um cara desse nunca ouviu falar em BrainStorming... Você deixa de ganhar o dinheiro, porquê vai ter de fazer um bacalhau aqui e outro ali, ou pega o serviço? Gente, tenho visto o pessoal ficar classificando coisas que claramente são fruto de situações que o programador tem de dar o jeito para funcionar, e a turma fica esfolando... Acho que NINGUÉM detém a melhor resposta para todas as coisas, e que NINGUÉM é palmatória do mundo... Assim... aceitando que nos exemplos que os outros colegas deram de que eram realmente coisas absurdas... peço aos colegas que não esfolem demais os nossos amigos menos esclarecidos e sim, AJUDEM... mas existe uma diferença entre ajudar dizendo: olha amigo, porquê vc não usa uma função tal, que faz isso, ao invés de dizer No google tem, ou Nunca ouviu falar da função tal? Algumas vezes, eu mesmo suscitei a necessidade de alguns colegas estudarem um pouco sobre formas normais, estruturas de dados, atomização da informação, coisas que para alguns é completamente desconhecida... Mas é de vital importância buscarmos harmonizar, e ter despreendimento suficiente para doar a informação incondicionalmente (se não for pirataria por ter aprendido numa revista comprada na banca de jornal... hehehe). Brincadeiras à parte, tenho notado mais um espírito de competitividade entre nós aqui na lista que o de solidariedade! Até mesmo porquê, e muito principalmente, parafraseando o amigo Laureano Nunes, * Muitas vezes fazer um curso de qualidade, onde é passada a METODOLOGIA padrão da ferramenta, sai bm caro e dinheiro não é um luxo que todos tem sobrando. Com todo meu respeito. * Saudações Emanuel Coutnho Laureano Araujo Nunes escreveu: Colega, Eu acredito que os caras que desenvolvem uma ferramenta de desenvolvimento, definem padrões para se trabalhar com ela, para se programar de maneira correta. Fora dos padroes é possível programar com a ferramenta, porém, para quem conhece os padrões de desenvolvimento propostos pelos Engenheiros da Ferramenta todo código montado de maneira, criativa ou não,
Re: [delphi-br] Utilizando um Scanner do aplicativo em delphi....
Procure pelo componente TDelphiTwain é gratuito e muito bom. 2008/12/9 Pablo Henrique Vianini Souza [EMAIL PROTECTED] Pessoal, alguem tem alguma ideia de um componente e ou algum exemplo de um aplicativo desenvolvido em delphi 7 que tenha acesso a um scanner, efetue o scaneamento e salve a imagem Abraços Pessoal Pablo Vianini -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OfTopic] Formação de Grupo de estudo em PHP para montagem de sistemas dinâmicos
Aceita sim kra, vai la pq as aulas ja começaram, se cadastra e começa também... 2008/12/8 Silvio Clécio [EMAIL PROTECTED] Olá pessoal, Aceita iniciantes? Se sim, estou dentro! :) []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED]silvioprog%40yahoo.com.br Gmail, Google Talk: [EMAIL PROTECTED] silvioprog%40gmail.com Hotmail, MSN: [EMAIL PROTECTED] silvio_prog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ De: tuxsmall [EMAIL PROTECTED] tuxsmall%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 4 de Dezembro de 2008 0:37:37 Assunto: [delphi-br] [OfTopic] Formação de Grupo de estudo em PHP para montagem de sistemas dinâmicos Olá gente, Estou procurando pessoas interessadas em formar um grupo de estudo com o objetivo de aprender a montar sistemas dinâmicos usando PHP + MySQL. Lembrando que para entrar e permanecer neste grupo NÃO SE PAGA NADA. É TUDO GRATUITO. Para informações sobre este grupo, por favor contatem em PVT, o seguinte endereço: sitesdinamicos@ gmail.com mailto:sitesdinamicos@ gmail.com Mas por favor, continue lendo... Qual o interesse em montar este grupo de estudo? 1° - Fomentar a troca de conhecimento. Sim, por que quem ensina, aprende por ensinar e quem aprende, ensina ao aprender. 2° - Profissionalizar de modo inteiramente GRATUITA os membros deste grupo de estudo na criação de sites dinâmicos. Imagina você dizendo ao seu cliente: O seu site poderá ser atualizado em tempo real e por você mesmo. Já pensou? Pois é nesse ponto que você vai chegar: profissionalizado mesmo! Oobjetivo é virar referencia em lingua portuguesa sobre oassunto.Quandoas empresas precisarem de profissionais capacitados, elas com certezapensarã o em nós! Este grupo não será unilateral, todos poderão contribuir com o que sabem para a aprendizagem de todos. É algo inédito aqui no Brasil, embora comum nos EUA. A gente pode vir a ser o primeiro e maior grupo do mundo de sistemas dinâmicos em língua portuguesa. Por favor, apoiem! Estamos querendo iniciar os estudos na quinta feira. O que é um site dinâmico? É um sistema onde você faz o site e, depois faz uma área administrativa para poder atualizar o site à hora que quiser. Essa área administrativa é composta de login e senha, onde depois de logado no sistema você pode editar (atualizar) o site. Neste grupo de estudo nós vamos aprender o seguinte: *Preparar o ambiente para desenvolvimento *Criar bancos de dados *Configurar o Dreamweaver para iniciar a programação *Criar menus dinâmicos *Criar contadores de cliques em banners *Dinamizar as páginas, uma a uma *Criar e dinamizar banners rotativos *Criar sistema de cadastro e envio de newsllater *Dinamizar matérias mais lidas *Criar formulário de pesquisa *Criar formulários de contato *Criar a área restrita (login e senha com restrições de acesso) *Alterar o banco de dados (criando tabelas para usuários restritos) *Criar cadastros de conteúdo do site *Criar alterações de cadastros de conteúdo do site *A Hospedar e publicar sites dinâmicos Como primeiro projeto deste grupo de estudo, vamos aprender a criar um portal igual ao Bem Paraná: http://www.bemparan a.com.br/ http://www.bemparan a.com.br/ Depois, no segundo projeto, vamos aprender a montar um sistema de gerenciamento escolar online: uma secretaria escolar online completa, com área dos alunos, área dos pais, área dos professores, matérias, faltas, notas e etc... Cada projeto terá um prazo de três meses para ser concluído. A partir do terceiro trimestre, os projetos serão escolhidos através de sugestões e votação dos próprios membros. Ao fim de um ano, teremos aprendido a criar 4 tipos de sistemas dinâmicos! Para informações sobre este grupo, por favor contatem em PVT, o seguinte endereço: sitesdinamicos@ gmail.com mailto:sitesdinamicos@ gmail.com Mas por favor, só mande e-mail se você for uma pessoa participativa e queira aprender de verdade e que esteja disposta, com o tempo, a contribuir também! Haverão vídeo-aulas ensinando os detalhes, mas todos deverão contribuir com o projeto. Lembrando também que não é necessário saber nada de programação. É preciso saber apenas o básico de montagem de layouts. Se você já faz sites estáticos, esta é a sua chance! Com certeza, uma chance única de se profissionalizar em programação web com qualidade! Até mais gente! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Adriano Silva [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro em Consulta SQL
Opa,
olha eu aki de novo com outro problema de SQL, rsrsrsrsrsrsrs
Tenho um projeto de estudo aki que funciona tudo direitinho, menos a
colsulta ela não gera nenhum erro no cod da consulta contudo não
estou conseguindo fazer com que o rsult da consulta apareça num
DBGrid, me ajudem ai please :)
o cod da unit:
unit UCadContatos;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids,
ExtCtrls,
Buttons;
type
TFrm_Contatos = class(TForm)
GroupBox1: TGroupBox;
Table1: TTable;
DataSource1: TDataSource;
Table1Cod: TAutoIncField;
Table1Nome: TStringField;
Table1Telefone: TStringField;
Table1Email: TStringField;
Table1DataCad: TDateField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
GroupBox2: TGroupBox;
DBGrid2: TDBGrid;
qryConsultaSqlNomeIntervalo: TQuery;
RdGrpOpcoes: TRadioGroup;
Lbldigitenome: TLabel;
Lbldataini: TLabel;
Lbldatafim: TLabel;
Edtnomesql: TEdit;
Mskdtdtini: TMaskEdit;
Mskdtdtfim: TMaskEdit;
btConsultaSqlNomeIntervalo: TBitBtn;
DataSource2: TDataSource;
procedure RdGrpOpcoesClick(Sender: TObject);
procedure btConsultaSqlNomeIntervaloClick(Sender: TObject);
procedure Table1AfterPost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Contatos: TFrm_Contatos;
implementation
{$R *.dfm}
procedure TFrm_Contatos.RdGrpOpcoesClick(Sender: TObject);
begin
with RdGrpOpcoes do
begin
//se o tipo de pesquisa for por nome
if ItemIndex = 0 then
begin
Edtnomesql.Enabled := true;
Mskdtdtini.Enabled := false;
Mskdtdtfim.Enabled := false;
end
//se o tipo de pesquisa for por datas
else if ItemIndex = 1 then
begin
Edtnomesql.Enabled := false;
Mskdtdtini.Enabled := true;
Mskdtdtfim.Enabled := true;
end
//caso não seja definido o tipo de pesquisa
else
begin
Edtnomesql.Enabled := false;
Mskdtdtini.Enabled := false;
Mskdtdtfim.Enabled := false;
end;
end;
end;
procedure TFrm_Contatos.btConsultaSqlNomeIntervaloClick(Sender:
TObject);
begin
if RdGrpOpcoes.ItemIndex = 0 then
begin
//pesquisa por nome
with qryConsultaSqlNomeIntervalo do
begin
close;
sql.Clear;
sql.Add('select * from Contatos');
sql.Add('where nome like :nomep');
ParamByName('nomep').Value := Edtnomesql.Text + '%';
open;
if IsEmpty then
begin
ShowMessage('Este nome não existe, tente outra vez!');
Edtnomesql.SetFocus;
Edtnomesql.Clear;
end;
end;
end
else if RdGrpOpcoes.ItemIndex = 1 then
begin
with qryConsultaSqlNomeIntervalo do
begin
close;
sql.Clear;
sql.Add('select * from Contatos');
sql.Add('where DataCad between :dtini and :dtfim');
ParamByName('dtini').Value := strtodate(Mskdtdtini.Text);
ParamByName('dtfim').Value := strtodate(Mskdtdtfim.Text);
open;
if IsEmpty then
begin
ShowMessage('Não existe contatos cadastrados com este
intervalo de datas, tente outra vez!');
Mskdtdtini.SetFocus;
Mskdtdtini.Clear;
Mskdtdtfim.Clear;
end;
end;
end
else
begin
ShowMessage('Selecione o tipo de pesquisa');
RdGrpOpcoes.SetFocus;
end;
end;
procedure TFrm_Contatos.Table1AfterPost(DataSet: TDataSet);
begin
Table1.CommitUpdates;
end;
end.
Espero pela força de sempre do pessoal ai do grupo :)
Grato
Re: [delphi-br] Re: Problema Master-Detail ** Urgente **
Experimente mover manualmente o código da venda para os itens. O melhor é no evento onnewrecord do itens venda. - Original Message - From: Eduardo Melo To: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Sent: Tuesday, December 09, 2008 10:14 AM Subject: Re: [delphi-br] Re: Problema Master-Detail ** Urgente ** Ola Carlos, Fiz o que você me passou, mas dá o seguinte erro: No corresponding master record found. Já tentei dar um post antes na tabela vendas, mas não tive êxito, o que poderia fazer? Em 08/12/08, Carlos [EMAIL PROTECTED] escreveu: Meu camarada, boa noite! Creio que esteja fazendo Master/Detail com DBExpress ou ADO. Então se vc relacionou os campos certinhos, creio que vc esqueceu de no evento onNewRecord da tabela detail, atribuir ao campo COD_VENDA o valor da tabela Master que é o campo Master. se é que entendi. Tipo assim: cdsClientDataSet1Cod_Venda.Value := cdsClientDataSet2Cod.Value; ou seja, vc está informando que o registro da tabela Venda_Item está relacionado ao respectivo registro da tabela Venda. Espero ter ajudado, mas qualquer coisa, posta ai para nós. Fraterno abraço, Carlos -- Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.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] Mais um BUG do Delphi 2009 ou estou fazendo algo errado?
Eduardo, Realmente a propriedade ParentBackGround estava como TRUE. Ao passar para FALSE a cor apareceu em Design Time. Mas venhamos e convenhamos, no Delphi 2007, ao importar esse mesmo sistema, a cor está correta(Design Time) e a propriedade ParentBackGround está como FALSE. Logo, existe sim algum problema com o Delphi 2009, pois ele deveria respeitar as definições do projeto, assim como ele respeita quando troco o fonte padrão do formulário. []´s João Carlos Eduardo Silva dos Santos escreveu: Da uma olhada na propriedade ParentBackGround e veja se realmente a propriedade Enable Runtime Themes está desativada. 2008/12/8 João Carlos [EMAIL PROTECTED] Pessoal, Tenho um projeto feito em Delphi 7 e em determinado form tem um painel cuja cor de fundo é um azul($00F99959) que apareçe corretamente em tempo de desenvolvimento e de runtime. Quando migrei para o Delphi 2009 essa aplicação, a cor desse painel simplesmente se torna clBtnFace em tempo de desenvolvimento, porém em runtime mostra a cor correta(o tal do azul). Afinal, é mais um BUG do Delphi 2009 ou estou fazendo algo errado. Delphi 2009 com update 1 ( Version 12.0.3210.17555). Enable Runtime Themes desabilitado. O Painel é é um TPanel nativo do Delphi. Alguém sabe de algo parecido? João Carlos [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Update com autoincrement
É isso q comecei a fazer, blza, valeu Alisson... 2008/12/8 Alisson [EMAIL PROTECTED] Faça um programinha que pegue todos os registros, faça um loop e jogue o valor para esse campos. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Adriano Silva [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Abrir pasta e renomear arquivos de imagens em um diretório - Resolvido
Senhores, boa tarde! O problema foi sanado e passo aqui a solução! Queria expor antes que o meu problema não era apenas abrir a pasta e renomear arquivos, e que antes de postar qualquer coisa neste grupo, procuro na grande rede, e modéstia parte, eu sei procurar. Devemos tomar cuidado com palavras mal ditas. Quando ajudamos a alguém, ou achamos que ajudamos devemos fazer de bom grado. Mas quero agradecer de coração ás pessoas que compartilharam seu conhecimento comigo: Como é uma aplicação que deverei usar uma única vez, que é para renomear uma série de imagens com nomes poluidos, uma vez que me interessa apenas os números que constam no nome, ignorando todos os outros caracteres, não fiz nada muito sofisticado: No form eu coloquei um componente TShellTreeView, dois edits e um button. No TShellTreeView eu informo qual o diretório que se encontram os arquivos que queram e no primeiro edit, informo qual o tipo de extensão(*.jpg) e no segundo edit, informo onde é para enviar uma cópia dos arquivos já renomeados: procedure TForm1.aListarExecute(Sender: TObject); var mResult: integer; mSr: TSearchRec; mString, origem, destino : string; begin mResult := FindFirst(tvMain.Path + '\' + eArq.Text, faAnyFile, mSr); while mResult = 0 do begin origem := ''; destino := ''; origem := tvMain.Path + '\' + mSr.Name; destino := eDestino.Text + '\' + soNum(copy(mSr.Name, 1, length(mSr.Name)-4))+ '.JPG'; CopyFile(PChar(origem), PChar(destino), true); mResult := FindNext(mSr); end; end; function TForm1.soNum(mNum:string):string; var i, j: integer; mLetra: string; begin mLetra := '0123456789'; j := length(mNum); for i:=1 to j do if pos(copy(mNum,i,1), mLetra)=0 then mNum := stringReplace(mNum, copy(mNum,i,1), ' ', []); result := copy(stringReplace(mNum, ' ', '', [rfReplaceAll]),1,7); end; É lógico que para desenvolver isto, eu usei pedaços de códigos e a lógica de alguns colegas, inclusive de um artigo da DevMédia que não me recordo o autor. Agardeço a todos, e se alguém quiser entender melhor este código é só falar. Fraterno abraço a todos. Carlos
[delphi-br] Chamar um comando do DOS e receber o resultado dentro do meu sistema
Pessoal: - Preciso chamar um comando do DOS (que exibe dados na tela), e receber a saída do comando no meu sistema - Vou exemplificar com o comando DIR, apenas para facilitar o entendimento: - Meu sistema chamaria (por exemplo) o comando DIR C:\ e o resultado desse comando, em vez de ir para a tela, iria para um TMemo, por exemplo, e então eu processaria o conteúdo desse memo. - Pensei em chamar o comando via rotina WinExecAndWait32, ou algo parecido, enviando o resultado para um .TXT: DIR C:\ C:\TEMP\ARQTESTE.TXT ... depois, eu carregaria o C:\TEMP\ARQTESTE.TXT no TMemo (Memo1.Lines.LoadFromFile) O que está descrito acima eu consigo fazer, mas gostaria de saber Alguém tem uma idéia melhor ? Grato pela atenção de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Chamar um comando do DOS e receber o resultado dentro do meu sistema
Veja se é interessante: http://eugostododelphi.blogspot.com/2008/04/capturando-o-resultado-de-um-comando.html 2008/12/9 Paulo - yahoo [EMAIL PROTECTED] Pessoal: - Preciso chamar um comando do DOS (que exibe dados na tela), e receber a saída do comando no meu sistema - Vou exemplificar com o comando DIR, apenas para facilitar o entendimento: - Meu sistema chamaria (por exemplo) o comando DIR C:\ e o resultado desse comando, em vez de ir para a tela, iria para um TMemo, por exemplo, e então eu processaria o conteúdo desse memo. - Pensei em chamar o comando via rotina WinExecAndWait32, ou algo parecido, enviando o resultado para um .TXT: DIR C:\ C:\TEMP\ARQTESTE.TXT ... depois, eu carregaria o C:\TEMP\ARQTESTE.TXT no TMemo (Memo1.Lines.LoadFromFile) O que está descrito acima eu consigo fazer, mas gostaria de saber Alguém tem uma idéia melhor ? Grato pela atenção de todos Paulo [As partes desta mensagem que não continham texto foram removidas] -- José Mário Silva Guedes Analista Programador Delphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Existe algum macete pra instalar o D2007 no Vista?
pra instalar eu acho q eh melhor vc desativar na seguranca akeles avisos chatos de administrador, alem de estar logado como administrador, nao me lembro o q eu fiz, mas funcionou com o trial... julio cesar - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 09, 2008 12:39 AM Subject: Re: [delphi-br] Existe algum macete pra instalar o D2007 no Vista? Geralmente é o D7 quem apresenta esse tipo de erro que vc descreveu e dá esse tipo de solução o problema. O Delphi 2007 não tinha visto... Mas será que o fato de vc estar usando o Home Basic e ainda por cima 64bits não seriam os vilões da história? Tenta instalar esse D2007 numa outra versão do Vista, se possível. Mesmo que de 64bits. []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 8/12/08, Fellipe Henrique [EMAIL PROTECTED] escreveu: Amigos, já vi na net muita gente reclamando de instalar o d2007 no vista, e executei quase todos os passos descritos em vários site, tais como: - Nao instalar o Rave - Nao instalar no Program Files - Instalar em outra pasta dentro do C: - Executar o setup como administrador. E nada... quando começa a copiar os arquivos dá a seguinte mensagem: Error! só isso... mais nada... e pronto, aparece o Finish, e não instala Como posso instalar o D2007 no winVista? Ps.: Meu vista é o Home Premium 64bits.. Obrigado. Att. Fellipe H. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft. com.br/blogs/ fellipeh - - - - - - CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. # # # Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Codigo Barras - GPS INSS - Folha pagamento
Pessoal alguém sabe onde conseguir as especificações para gerar o código de barras da GPS ? tenho que fazer a impressão da GPS de Retenção de serviços tomados automaticamente em meu sistema, em alguns programas de folha de pagamento, e no programa fornecido pelo site da previdência imprime o código de barras, mas não encontrei informações de como imprimir O meu cliente contrata muitos serviços de terceiros e tem que pagar a guia no ato ou melhor antecipadamente, como eu tenho a opção de lançar as notas de serviços tomados, para controle financeiro ele me pediu para o meu sistema já imprimir a gps, e o banco não aceita sem o código de barras [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Mais um BUG do Delphi 2009 ou estou fazendo algo errado?
Realmente é um Bug mesmo, agora é esperar o Update2 e verificar se foi corrigido. 2008/12/9 João Carlos [EMAIL PROTECTED] Eduardo, Realmente a propriedade ParentBackGround estava como TRUE. Ao passar para FALSE a cor apareceu em Design Time. Mas venhamos e convenhamos, no Delphi 2007, ao importar esse mesmo sistema, a cor está correta(Design Time) e a propriedade ParentBackGround está como FALSE. Logo, existe sim algum problema com o Delphi 2009, pois ele deveria respeitar as definições do projeto, assim como ele respeita quando troco o fonte padrão do formulário. []´s João Carlos Eduardo Silva dos Santos escreveu: Da uma olhada na propriedade ParentBackGround e veja se realmente a propriedade Enable Runtime Themes está desativada. 2008/12/8 João Carlos [EMAIL PROTECTED] jcprog%40gmail.com Pessoal, Tenho um projeto feito em Delphi 7 e em determinado form tem um painel cuja cor de fundo é um azul($00F99959) que apareçe corretamente em tempo de desenvolvimento e de runtime. Quando migrei para o Delphi 2009 essa aplicação, a cor desse painel simplesmente se torna clBtnFace em tempo de desenvolvimento, porém em runtime mostra a cor correta(o tal do azul). Afinal, é mais um BUG do Delphi 2009 ou estou fazendo algo errado. Delphi 2009 com update 1 ( Version 12.0.3210.17555). Enable Runtime Themes desabilitado. O Painel é é um TPanel nativo do Delphi. Alguém sabe de algo parecido? João Carlos -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Mais um BUG do Delphi 2009 ou estou fazendo algo errado?
João, Realmente você tem que estar com a propriedade ParentBackGround false. Agora, o Delphi 2009 está respeitando o valor da propriedade sim, fiz exatamente o que você fez e está ok. From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of João Carlos Sent: Tuesday, December 09, 2008 9:18 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Mais um BUG do Delphi 2009 ou estou fazendo algo errado? Eduardo, Realmente a propriedade ParentBackGround estava como TRUE. Ao passar para FALSE a cor apareceu em Design Time. Mas venhamos e convenhamos, no Delphi 2007, ao importar esse mesmo sistema, a cor está correta(Design Time) e a propriedade ParentBackGround está como FALSE. Logo, existe sim algum problema com o Delphi 2009, pois ele deveria respeitar as definições do projeto, assim como ele respeita quando troco o fonte padrão do formulário. []´s João Carlos Eduardo Silva dos Santos escreveu: Da uma olhada na propriedade ParentBackGround e veja se realmente a propriedade Enable Runtime Themes está desativada. 2008/12/8 João Carlos [EMAIL PROTECTED]mailto:jcprog%40gmail.com Pessoal, Tenho um projeto feito em Delphi 7 e em determinado form tem um painel cuja cor de fundo é um azul($00F99959) que apareçe corretamente em tempo de desenvolvimento e de runtime. Quando migrei para o Delphi 2009 essa aplicação, a cor desse painel simplesmente se torna clBtnFace em tempo de desenvolvimento, porém em runtime mostra a cor correta(o tal do azul). Afinal, é mais um BUG do Delphi 2009 ou estou fazendo algo errado. Delphi 2009 com update 1 ( Version 12.0.3210.17555). Enable Runtime Themes desabilitado. O Painel é é um TPanel nativo do Delphi. Alguém sabe de algo parecido? João Carlos [As partes desta mensagem que não continham texto foram removidas] CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problema Master-Detail ** Urgente **
Consegui faze funcionar, mas tive que na tabela vendas deixar a chave primaira igual a chave estrangeira da tabela venda_itens no caso criei cod_venda na tabela venda e como chave estrangeira na tabela venda_itens o campo cod_venda. Mas gostaria de saber pq precisa ser igual o campo? Em 09/12/08, Gotardo [EMAIL PROTECTED] escreveu: Experimente mover manualmente o código da venda para os itens. O melhor é no evento onnewrecord do itens venda. - Original Message - From: Eduardo Melo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Cc: [EMAIL PROTECTED] gcm3102%40yahoo.com.br Sent: Tuesday, December 09, 2008 10:14 AM Subject: Re: [delphi-br] Re: Problema Master-Detail ** Urgente ** Ola Carlos, Fiz o que você me passou, mas dá o seguinte erro: No corresponding master record found. Já tentei dar um post antes na tabela vendas, mas não tive êxito, o que poderia fazer? Em 08/12/08, Carlos [EMAIL PROTECTED] gcm3102%40yahoo.com.br escreveu: Meu camarada, boa noite! Creio que esteja fazendo Master/Detail com DBExpress ou ADO. Então se vc relacionou os campos certinhos, creio que vc esqueceu de no evento onNewRecord da tabela detail, atribuir ao campo COD_VENDA o valor da tabela Master que é o campo Master. se é que entendi. Tipo assim: cdsClientDataSet1Cod_Venda.Value := cdsClientDataSet2Cod.Value; ou seja, vc está informando que o registro da tabela Venda_Item está relacionado ao respectivo registro da tabela Venda. Espero ter ajudado, mas qualquer coisa, posta ai para nós. Fraterno abraço, Carlos -- Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mais um bug do Unidac
Encontrei mais um bug nos componentes Unidac. Faço uma consulta usando TUniQuery-DatasetProvider-ClientDataset. Nessa consulta uso Union All e o ClientDataset traz apenas 1 registro, quando deveria trazer 7. Postei uma mensagem no fórum da Devart. http://devart.com/forums/viewtopic.php?p=41171#41171 __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Essa é Nova!!! - Delphi para DVD - Só por diletantismo
Pessoal Tenho uma filha de 2 anos e 10 meses.. estou querendo pegar os filmes que fiz dela, e as suas fotos etc... e colocar num DVD... Mas não estou querendo investir muito em mídia para DVD... então, estou pensando em criar um programa que pegue os AVI's que gerei nos filminhos dela, e colocar no DVD-R DL (os de 8.5 Gb... Mas quero criar menus com os filminhos... e só encontro ionformações sobre programas que pegam os AVI's e transformam em arquivos .vob e geram os DVDs Pesquisei na internet, mas só encontro informações sobre programas que fazem isso ... Alguém tem literatura ou tem algum conhecimento de como posso criar no Delphi, ou em outra linguagem os arquivos de menu para os DVDs, mas para rodar os mPeg, ou Avi's que intenciono deixar no formato original, pois meu dvd lê mpeg, avi, divx etc... Agradeço qualquer ajuda, desde já!!! Sds Emanuel Coutinho
