RES: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado infinitamente
Jhosef, esse seu problema até já foi relatado uma vez no site QualityCentral,
da Embarcadero (http://qc.embarcadero.com/wc/qcmain.aspx?d=3534).
As propriedades Color e SelectedColor são usadas pelo TDBCtrlGrid quando a sua
exibição é feita pelo próprio componente. O fato dessas propriedades serem
usadas pelo controle para exibição dos painéis, e o fato de você estar
referenciando uma dessas propriedades (Color) no evento, faz com que o mesmo
seja disparado várias vezes, causando essa recursão.
Tenha em mente que quando você usa o evento OnPaintPanel, é o código neste
evento que é responsável pela 'pintura' dos painéis do TDBCtrlGrid, e não mais
o próprio componente. Ou seja, é você que é o responsável por essa exibição
customizada, e não mais o componente, cabendo ao mesmo apenas chamar o evento
codificado por você.
O help do Delphi explica que, nesse evento, o código deve usar a propriedade
Canvas para ‘pintar’ o painel, e não simplesmente fazer essa alternância de
cor, pelos motivos já explicados.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Dirlei
Enviada em: segunda-feira, 6 de setembro de 2010 14:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado
infinitamente
Quando você muda a propriedade color, o evento OnPaintPanel é chamado
novamente, o que gera uma sequência infinita de chamadas recursivas.
Você precisa atribuir nil ao evento OnPaintPanel no início da
implementação e reatribuir ctrAgendaPaintPanel no final para evitar isso
(de preferencia usando try..finally).
Mas acho que você não quer mudar a cor do DBCtrlGrid inteiro dependendo
do Status (pelo código, me parece que é isso que q vc está fazendo).
Deve haver algum objeto em tempo de execução que represente o painel do
registro corrente no grid. Se houver, é a cor desse painel que você
precisa mudar.
[]'s
--
Dirlei Dionísio
Novo artigo: Sorteio de ingresso para o Dev In Rio
http://MaisQueBomCodigo.blogspot.com
Em Seg, 2010-09-06 às 15:14 -0300, Jhosef Marks escreveu:
procedure TfrmClientePrincipal.ctrAgendaPaintPanel(DBCtrlGrid: TDBCtrlGrid;
Index: Integer);
begin
if DBCtrlGrid.datasource.dataset.FieldByName('STATUS').AsString = 'C'
then begin
DBCtrlGrid.Color := $00D2D2FF;
end else begin
DBCtrlGrid.Color := clWindow;
end;
end;
Att,
*Jhosef Marks de Carvalho*
*Blog: **http://www.jhosefmarks.com.br* http://www.jhosefmarks.com.br*
Jesus est voltando
*
*E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar
a minha face e se converter dos seus maus caminhos, ento eu ouvirei dos
cus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) *
Em 6 de setembro de 2010 15:08, Rubem Rocha
rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br escreveu:
Kd o cdigo do evento
Sds.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br] Em
nome de Jhosef Marks
Enviada em: segunda-feira, 6 de setembro de 2010 13:59
Assunto: [delphi-br] TDBCtrlGrid: Evento OnPaintPanel sendo chamado
infinitamente
Boa tarde a todos, tenho um TDBCtrlGrid com poucos registros (em torno de
uns 10).
No evento OnPaintPanel, eu fiz uns ifs para que de acordo com o status do
registro fosse pintado de uma cor...
Acontece que isso est travando o meu formulrio... pois a funo est
sendo
chamada infinitamente...
Algum j uso esse componente e teve algum problema?
[As partes desta mensagem que no continham texto foram removidas]
[As partes desta mensagem que no continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abrir Excel
Defina melhor abrir uma planilha do Excel dentro do meu aplicativo e depois salvar essa planilha? Você quer abrir a planilha com uma interface a là planilha eletrônica para edição dos dados e posterior gravação, ou quer pelo menos acesso à planilha via código para alteração e posterior gravação? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alisson Enviada em: segunda-feira, 6 de setembro de 2010 15:13 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abrir Excel Pessoal, é possível abrir uma planilha do Excel dentro do meu aplicativo e depois salvar essa planilha? Eu gostaria de abrir essa planilha como se eu estivesse editando no Excel. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas
550 horas correspondem a 22 dias e 22 horas! Cabalístico isso não? Curiosidades a parte, de fato, esse range de horas pode até ser permitido a nível de armazenamento dentro de um TDateTime, uma vez que um TDateTime é na verdade um double e a parte fracionária de um double corresponde à parte do horário. No entanto, as funções de formatação do Delphi só consideram a faixa de horário compreendida entre 00:00:00 e 23:59:59, que é o range de horas correspondente a um dia. Se fosse você, não usaria TDateTime por conta da limitação já comentada. Eu usaria uma variável inteira, com o valor inicial 550, e formataria essa variável com a máscara !000:00:00;0;_ usando a função FormatMaskText() da unit MaskUtils. Daí, a contagem do cronômetro decrescente não seria mistério: basta um TTimer da vida decrementando esse valor inicial no evento OnTimer em uma unidade e mostrando o valor formatado conforme já explicado. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alexandre - Yahoo Enviada em: sexta-feira, 3 de setembro de 2010 10:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Cronometro Regressivo - Maior que 24 horas Pessoal estou com um grande dilema, quero fazer um cronometro regressivo, só que começa com 550:00:00 ou seja, 550 HORAS, mas óbviamente está dando pau, pois o padrão é 24 ao dia, tem como fazer esse tipo de cronometro?começando por 550 horas? Alex [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas
Ah, esqueci de comentar um detalhe. Tem que ficar atento na hora de decrementar o valor. Se por exemplo o valor está em 00, o valor tem que decrementar para 59, e não 99. Se tiver um tempinho, implemento um exemplo disso e posto na área de arquivos da lista. Sds. De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br] Enviada em: sexta-feira, 3 de setembro de 2010 11:59 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas Prioridade: Alta 550 horas correspondem a 22 dias e 22 horas! Cabalístico isso não? Curiosidades a parte, de fato, esse range de horas pode até ser permitido a nível de armazenamento dentro de um TDateTime, uma vez que um TDateTime é na verdade um double e a parte fracionária de um double corresponde à parte do horário. No entanto, as funções de formatação do Delphi só consideram a faixa de horário compreendida entre 00:00:00 e 23:59:59, que é o range de horas correspondente a um dia. Se fosse você, não usaria TDateTime por conta da limitação já comentada. Eu usaria uma variável inteira, com o valor inicial 550, e formataria essa variável com a máscara !000:00:00;0;_ usando a função FormatMaskText() da unit MaskUtils. Daí, a contagem do cronômetro decrescente não seria mistério: basta um TTimer da vida decrementando esse valor inicial no evento OnTimer em uma unidade e mostrando o valor formatado conforme já explicado. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alexandre - Yahoo Enviada em: sexta-feira, 3 de setembro de 2010 10:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Cronometro Regressivo - Maior que 24 horas Pessoal estou com um grande dilema, quero fazer um cronometro regressivo, só que começa com 550:00:00 ou seja, 550 HORAS, mas óbviamente está dando pau, pois o padrão é 24 ao dia, tem como fazer esse tipo de cronometro?começando por 550 horas? Alex [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas
Uma outra forma de trabalhar com isso, já que o TDateTime é incompatível, é criar um novo pra trabalhar com esse tipo específico de cronômetro. Ou seja, uma nova classe. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: sexta-feira, 3 de setembro de 2010 12:32 Para: Rubem Rocha; delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas Prioridade: Alta Ah, esqueci de comentar um detalhe. Tem que ficar atento na hora de decrementar o valor. Se por exemplo o valor está em 00, o valor tem que decrementar para 59, e não 99. Se tiver um tempinho, implemento um exemplo disso e posto na área de arquivos da lista. Sds. De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br ] Enviada em: sexta-feira, 3 de setembro de 2010 11:59 Para: 'delphi-br@yahoogrupos.com.br mailto:%27delphi-br%40yahoogrupos.com.br ' Assunto: RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas Prioridade: Alta 550 horas correspondem a 22 dias e 22 horas! Cabalístico isso não? Curiosidades a parte, de fato, esse range de horas pode até ser permitido a nível de armazenamento dentro de um TDateTime, uma vez que um TDateTime é na verdade um double e a parte fracionária de um double corresponde à parte do horário. No entanto, as funções de formatação do Delphi só consideram a faixa de horário compreendida entre 00:00:00 e 23:59:59, que é o range de horas correspondente a um dia. Se fosse você, não usaria TDateTime por conta da limitação já comentada. Eu usaria uma variável inteira, com o valor inicial 550, e formataria essa variável com a máscara !000:00:00;0;_ usando a função FormatMaskText() da unit MaskUtils. Daí, a contagem do cronômetro decrescente não seria mistério: basta um TTimer da vida decrementando esse valor inicial no evento OnTimer em uma unidade e mostrando o valor formatado conforme já explicado. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Alexandre - Yahoo Enviada em: sexta-feira, 3 de setembro de 2010 10:31 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Cronometro Regressivo - Maior que 24 horas Pessoal estou com um grande dilema, quero fazer um cronometro regressivo, só que começa com 550:00:00 ou seja, 550 HORAS, mas óbviamente está dando pau, pois o padrão é 24 ao dia, tem como fazer esse tipo de cronometro?começando por 550 horas? Alex [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] cast de float para byte
Não se pode fazer cast de um tipo de dados cujo tamanho é maior que o do
dado que irá receber o resultado da conversão. O tipo Byte, como o próprio
nome do tipo diz, tem um byte de tamanho. Já o tipo Real (que no final das
contas é um Double) tem 8 bytes de tamanho. O que se pode fazer é
representar um dado Real (ou Double) como um array de 8 bytes, assim:
program RealToBytes;
{$APPTYPE CONSOLE}
uses SysUtils;
var
cod: Real;
c: array[0..SizeOf(Real) - 1] of byte absolute cod;
i: integer;
begin
cod := 123.45;
for i := 0 to SizeOf(Real) - 1 do
WriteLn(Format('$%2.2X', [c[i]]));
WriteLn(Eoln);
end.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de felipe govoni
Enviada em: quinta-feira, 2 de setembro de 2010 08:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] cast de float para byte
bom dia
estou tentando fazer isso:
var cod :real;
c :byte;
begin
cod := 1;
c := byte(cod);
end;
mas da erro de cast, alguem sabe como fazer essa transformação?
--
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br
[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] cast de float para byte
A título de esclarecimento, um valor do tipo byte corresponde a um valor
inteiro compreendido entre a faixa de valores de 0 até 255. Um valor do tipo
Real (que é um Double!) pode passar desse valor, e ainda poder receber
valores negativos. A grosso modo, esta também poderia ser uma explicação
aceitável para não ser possível fazer cast(conversão de tipo) de Real para
Byte.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: quinta-feira, 2 de setembro de 2010 11:39
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] cast de float para byte
Prioridade: Alta
Não se pode fazer cast de um tipo de dados cujo tamanho é maior que o do
dado que irá receber o resultado da conversão. O tipo Byte, como o próprio
nome do tipo diz, tem um byte de tamanho. Já o tipo Real (que no final das
contas é um Double) tem 8 bytes de tamanho. O que se pode fazer é
representar um dado Real (ou Double) como um array de 8 bytes, assim:
program RealToBytes;
{$APPTYPE CONSOLE}
uses SysUtils;
var
cod: Real;
c: array[0..SizeOf(Real) - 1] of byte absolute cod;
i: integer;
begin
cod := 123.45;
for i := 0 to SizeOf(Real) - 1 do
WriteLn(Format('$%2.2X', [c[i]]));
WriteLn(Eoln);
end.
Sds.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de felipe govoni
Enviada em: quinta-feira, 2 de setembro de 2010 08:38
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] cast de float para byte
bom dia
estou tentando fazer isso:
var cod :real;
c :byte;
begin
cod := 1;
c := byte(cod);
end;
mas da erro de cast, alguem sabe como fazer essa transformação?
--
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] cast de float para byte
Beleza, mas seria melhor ainda que você mostrasse como você fez para que
outros colegas que, como você, poderão (ou irão) passar pelo mesmo problema
saibam com contorná-lo. Isso é até uma maneira de se mostrar grato à lista
no momento em que você precisou dela. Só o venha a nós e ao vosso reino
nada é chato, não é mesmo?
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de felipe govoni
Enviada em: quinta-feira, 2 de setembro de 2010 12:30
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] cast de float para byte
na verdade o valor dentro da variavel era um valor entre 65 e 90, por isso
achei que daria pra converter pra byte.
eu ja resolvi o problema, eu que estava fazendo errado.
mas mesmo assim obrigado.
Em 2 de setembro de 2010 20:12, Rubem Rocha
rubem.ro...@dtmanaus.com.brescreveu:
A título de esclarecimento, um valor do tipo byte corresponde a um valor
inteiro compreendido entre a faixa de valores de 0 até 255. Um valor do
tipo
Real (que é um Double!) pode passar desse valor, e ainda poder receber
valores negativos. A grosso modo, esta também poderia ser uma explicação
aceitável para não ser possível fazer cast(conversão de tipo) de Real
para
Byte.
Sds.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: quinta-feira, 2 de setembro de 2010 11:39
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] cast de float para byte
Prioridade: Alta
Não se pode fazer cast de um tipo de dados cujo tamanho é maior que o do
dado que irá receber o resultado da conversão. O tipo Byte, como o próprio
nome do tipo diz, tem um byte de tamanho. Já o tipo Real (que no final das
contas é um Double) tem 8 bytes de tamanho. O que se pode fazer é
representar um dado Real (ou Double) como um array de 8 bytes, assim:
program RealToBytes;
{$APPTYPE CONSOLE}
uses SysUtils;
var
cod: Real;
c: array[0..SizeOf(Real) - 1] of byte absolute cod;
i: integer;
begin
cod := 123.45;
for i := 0 to SizeOf(Real) - 1 do
WriteLn(Format('$%2.2X', [c[i]]));
WriteLn(Eoln);
end.
Sds.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
] Em
nome de felipe govoni
Enviada em: quinta-feira, 2 de setembro de 2010 08:38
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
Assunto: [delphi-br] cast de float para byte
bom dia
estou tentando fazer isso:
var cod :real;
c :byte;
begin
cod := 1;
c := byte(cod);
end;
mas da erro de cast, alguem sabe como fazer essa transformação?
--
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br
RES: [delphi-br] Programador Delphi (CAMPO GRANDE-MS)
Então no que se baseiam pesquisas salariais de mercado de TI? Em todas as regiões do nosso País, ou somente no eixo Sul-Sudeste? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 1 de setembro de 2010 16:57 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Programador Delphi (CAMPO GRANDE-MS) Marcos, Uma coisa há de se considerar: O custo de vida em CG é baixo. Eu conheço lá, já que a Telemont mantem o Centro de Operações do Centro Oeste da OI lá, e o fez por ser a cidade da área 2 da OI de menor custo pra implantação do Centralizado. Salários, voce não pode se parametrizar pela sua região. Por exemplo, em Porto Velho, com 1500 reais voce vive legal. Em São Paulo voce passa fome. Salario de 5 mil reais em São Paulo, é um valor na média, em Palmas, no Tocantins, voce seria milionário. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr Twitter: @wchagas - Original Message - From: Marcos Abreu Ferreira maferreira...@gmail.com mailto:maferreira.f2%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, September 01, 2010 5:49 PM Subject: Re: [delphi-br] Programador Delphi (CAMPO GRANDE-MS) Não é polêmica não, é escravidão mesmo!!! Em 1 de setembro de 2010 16:59, Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br escreveu: Eu não poderia deixar de comentar esse anúncio! Eu não sei se a região do anúncio trabalha com essa faixa salarial, mas, olha, pra trabalhar esse tanto e ter essa experiência e essa escolaridade, acho que estão oferecendo muito pouco! Não quero criar polêmica aqui, pelo amor de Deus! Só queria deixar registrada uma opinião. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Douglas Uesato ues...@multicoisas.com.br mailto:uesato%40multicoisas.com.br uesato%40multicoisas.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Setembro de 2010 12:19:03 Assunto: [delphi-br] Programador Delphi (CAMPO GRANDE-MS) Programador Delphi Empresa Contratante: Multicoisas - Analisar e desenvolver sistema de gestão ERP em Delphi. - Ensino Superior (cursando ou concluído) na área de informática. - Experiência em desenvolvimento de Sistemas, Delphi, Firebird e MySQL. Local de trabalho: Campo Grande - MS. Tipo de contratação: CLT, efetivo. Horário: 8h diárias, com 1:30h de intervalo e 4 horas no sábado. Benefícios: VT, VR, Assistência médica (após o período de experiência) e Seguro de vida (após o período de experiência) Faixa Salarial: R$ 1200,00 + Produtividade Cidade: Campo Grande Quantidade de vaga(s): 1 Interessados enviar o currículo para o email: mailto:ues...@multicoisas.com.br mailto:uesato%40multicoisas.com.br uesato%40multicoisas.com.br ues...@multicoisas.com.br mailto:uesato%40multicoisas.com.br uesato%40multicoisas.com.br [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] [MAF] Velocidade de processamento
Eu penso que a solução, além de usar TClientDataSet, teria que fazer uso de threads e filas, na intenção de implementar algo que em .NET chamamos de thread pool (pool de threads). Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo César Cardoso Enviada em: terça-feira, 31 de agosto de 2010 12:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [MAF] Velocidade de processamento Ao invés de uma TList, poderia usar TQueue ou TStack dependendo da necessidade e volume de dados. Agora uma pergunta de quem leu e releu e não entendeu direito: vc não conseguiria usar um descendente de TStream para resolver essa sua necessidade? Acho que seria até melhor do que Array ou estruturas de fila (TQueue), pilha (TStack) ou lista (TList). Atenciosamente, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 31/8/10, Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br escreveu: De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Assunto: Re: [delphi-br] [MAF] Velocidade de processamento Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Terça-feira, 31 de Agosto de 2010, 13:04 cara... o mais rápido acho que não é nem array nem cds... imagino que uma lista dinâmica ( TList ) seria mais rápida e fácil de manipular, além de ser mais estruturada mas se vc exibe as informações num grid, vc teria q sincronizar tanto a TList como o array, nesse caso acho que seria mais rápido manipular direto o cds mesmo... o/ Em 31/08/2010 12:22, Marcos Abreu Ferreira escreveu: Pessoal, estou desenvolvendo uma aplicação onde vou recebendo as informações por socket, salvo em um ClientDataSet e disponibilizo elas em um Grid. Em algumas situações a quantidade de informações é muito grande e veem todas juntas. O campo índice do ClientDataSet é um campo posição (numérico de 2 posições) e o outro campo é o horário. Quando recebo a linha de informação, verifico se a posição 1 e a posição anterior existem, carregar os tempos delas em variáveis e depois verificar se a posição recebida existe, e caso exista, somente altero o valor do horário e as diferenças entre elas, e se não estiver, crio um novo registro. Essa verificação da posição 1 e a anterior seria mais rápida se eu usasse um array ou o ClientDataSet mesmo? e a gravação/alteração seria mais rápida em qual situação? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi 2010 ta doido?
Poste as declarações que você usou no RAD Studio 2010! Assim você ajuda
aqueles outros colegas que tem (ou poderão vir a ter) o mesmo problema que
você, além de ser uma forma de ser grato à lista! Porque só o venha a
nós, e ao vosso reino nada é meio chato, não?
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Iran Lima
Enviada em: quarta-feira, 25 de agosto de 2010 12:51
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Delphi 2010 ta doido?
Resolvido.
O problema era exatamente nas declarações.
Obrigado amigo.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Clairton
Enviada em: terça-feira, 24 de agosto de 2010 18:54
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi 2010 ta doido?
a Declaração das funçoes tbm tem que estar com o Ansi...
function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao:
AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString;
Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario:
AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer;
StdCall; External 'BEMAFI32.DLL';
Att.:
Clairton Eloisio Müller
Em 24/08/2010 18:46, Iran Lima escreveu:
Já tentei com pansichar
E nada.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de Roni Rodrigo
Enviada em: terça-feira, 24 de agosto de 2010 18:27
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi 2010 ta doido?
tenta converter em pansichar...
ex:
Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
PAnsiChar(aliquota)...
Em 24/08/2010 17:01, Iran Lima escreveu:
Gente to com um problema ao passar parâmetros strings no Delphi 2010 ,
Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica
nome
a sem extensão.
Outro Exemplo ao chamar o método da Bemafi32.dll
Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
sTipoQtde, FormatFloat('0', quantidade), iDecimal,
FormatFloat('0.00',valorUnitario),
sTipoDesconto, FormatFloat('0.00',0) );
so vai a primeira letra de cada parâmetro
2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
impressora), no
Debug passa tudo blz mas a impressora recebe errado
O que pode ser isso???
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
--
*Inovação é o combustível do crescimento.*
*Clairton Eloísio Müller*
Depto. Desenvolvimento
E-mail: clair...@dessis.com.br mailto:clairton%40dessis.com.br
mailto:clairton%40dessis.com.br
mailto:clair...@dessis.com.br mailto:clairton%40dessis.com.br
mailto:clairton%40dessis.com.br
Site: http://www.dessis.com.br
*Dessis Sistemas de Gestão Empresarial*
Rua José Marangoni, 380 - Vila Nova Cx. Postal 417
CEP: 89259-500 - Jaraguá do Sul - SC
Fone/Fax: (0xx 47)3371-7842/3371-2640/3371-7144
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ordenacao em cxGrid
Tem catrabilhões de dicas para ordenação de ClientDataSet na Internet, e da maneira que você quer, sem essa lusitanice de construir um ORDER BY pra receber novamente os dados, gerando tráfego inútil na rede e denegrindo desempenho tanto da aplicação como da própria rede. Se bobear, pode acabar encontrando também nas mensagens antigas da lista, em http://br.groups.yahoo.com/group/delphi-br/messages. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quinta-feira, 26 de agosto de 2010 09:28 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ordenacao em cxGrid Pessoal, Como eu faço a ordenacao no grid cxGrid? Quero que ao clicar no titulo da coluna do cxGrid as informacoes sejam colocadas em ordem alfabetica. Lembrando que meu cxGrid estah conectado a um TClientDataSet e nao quero colocar o ORDER BY na instrucao SELECT. Obrigado MuriloCunha [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Classe Recursiva
No Object Pascal do Delphi 7, declarações forward são usadas com classes, interfaces, procedures e functions. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Roni Rodrigo Enviada em: quinta-feira, 26 de agosto de 2010 19:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Classe Recursiva se eu não me engano, declarações forward são só para classes sim... o/ Em 26/08/2010 09:30, Diego Garcia escreveu: eu tentei fazer isso com Record e não consegui... é somente com classe? *Diego Garcia* Twitter:http://www.twitter.com/drgarcia1986 Em 26 de agosto de 2010 09:20, Rubem Nascimento da Rocha djpardalro...@hotmail.com mailto:djpardalrocha%40hotmail.com escreveu: Como diria a Oi, Simples Assim!. type TMinhaClasse = class; TMinhaClasse = class private fCampo1: string; fCampo2: string; fCampo3: string; fObjetoPai: TMinhaClasse; public property ObjetoPai: TMinhaClasse read fObjetoPai write fObjetoPai; end; Para entender isso, informe-se no help do Delphi sobre declarações prévias (ou forward) de classes. Sim, pq melhor do que pegar algo pronto pra uso é entender o que se recebe, certo:;) Boa sorte. Sds. To:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From:marcosdoer...@gmail.com mailto:marcosdoerner%40gmail.com marcosdoerner%40gmail.com Date: Wed, 25 Aug 2010 22:13:10 + Subject: [delphi-br] Classe Recursiva Ola a todos, estou criando uma classe na minha regra de negocio mais ou menos da seguinte forma Type TminhaClasse = Class private atributo1 : string; atributo2 : string; atributo3 : string; classePai : TminhaClasse; public ... end; A minha duvida é como declaro o atributo classePai já que a minha TminhaClasse ainda não foi declarada. E a classePai pode conter ou não a estrutura e acaba sendo recursiva, o Pai pode ter um pai e assim por diante. Marcos [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Migrar delphi 7 para Delphi 2010.
Uma coisa é uma coisa, e outra coisa é outra coisa! Ou seja, uma coisa é migração de projetos em versões maiores de uma ferramenta de desenvolvimento, e outra coisa é execução de aplicativos em versões maiores de ambientes operacionais. Creio que você deveria ter aberto um novo tópico na lista falando sobre execução de aplicativos Delphi em plataformas operacionais superiores ao Windows XP (Windows Vista, Windows Server 2008, Windows 7, etc.) Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Abreu Ferreira Enviada em: quarta-feira, 25 de agosto de 2010 11:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Migrar delphi 7 para Delphi 2010. Bruno, Desenvolvi uma aplicação para um cliente no Delphi 7 e funciona perfeitamente no Windows XP. Recentemente ele foi testar a aplicação no Windows Vista e ela não funciona direito. O meu ambiente é Windows XP Pro + Delphi 7. Será que pode dar problema na hora do sistema rodar no Windows Vista por causa dos problemas de direito de gravação na pasta do sistema, pois a cada informação recebida, o meu sistema grava ela num arquivo texto. 2010/8/25 Bruno Lichot bruno.lic...@microfocus.com Oi Samuel, Todas as minhas migrações foram tranqüilas. É necessário alguns pontos de atenção: - Primeiro passo é certificar que todos os componentes de terceiros que usa já estão instalados com as devidas versões no Delphi 2010 ou se você tem os fontes, que já tenha feito o build e instalado no Delphi 2010. - Faça um backup do seu projeto e crie uma nova pasta para o projeto a ser migrado no Delphi 2010. - Apague todos os arquivos que NÃO sejam os .pas, .dfm e .dpr - Abra o dpr no Delphi 2010, configure todas as opções de projetos relevantes que você usa e de um build. O único trabalho que tive foi no uso de interfaces, APIs e funções que obrigatoriamente trabalham com AnsiString onde tive que usar typecast ou acertar alguma parte do código. O compilador te ajuda muito nesse processo e o Delphi migra todo o grosso para Unicode. Já migrei todo tipo de projeto, desde API de hardware, sistemas simples ou compexos client/Server ate aplicações de missão critica e web com DataSnap e DBExpress. Todas as migrações foram bem tranqüilas e executadas com sucesso. Não deixe de fazer todos os updates e hostfixes do Delphi, isso ajuda bastante. Abs Bruno Segue alguns links que podem te ajudar: Links Úteis Site do produto: http://www.embarcadero.com/products/delphi http://www.embarcadero.com/products/rad-studio Por que migrar do Delphi 7: http://edn.embarcadero.com/br/article/39230 No Developer Network tem o maior e mais completo conteúdo Delphi do mundo e completamente gratuito: http://edn.embarcadero.com/br Central de Recursos: http://www.embarcadero.com/products/rad-studio/resource-center Link de Vídeos (Português, Inglês e Espanhol): http://edn.embarcadero.com/br/article/39777 http://edn.embarcadero.com/article/37460 http://cc.embarcadero.com/coderage http://edn.embarcadero.com/article/39129 http://etnaweb04.embarcadero.com/rad-studio-2010/ Central de Documentação: HTTP://docs.embarcadero.com Meu link de downloads gratuitos: http://cc.embarcadero.com/author/795118 Central de Código: http://cc.embarcadero.com Central de Qualidade: http://qc.embarcadero.com Migração: http://www.embarcadero.com/rad-studio-2010-migration-center DataSnap: http://www.embarcadero-info.com/in_action/radstudio/db.html REST: http://www.embarcadero-info.com/in_action/radstudio/rest.html UNICODE: http://www.embarcadero.com/images/dm/technical-papers/delphi-unicode-migrati on.pdf Casos de Sucesso: http://www.embarcadero.com/application-showcase Link para quem quiser submeter seus casos de sucesso: http://www.surveymonkey.com/s.aspx?sm=BNcBkVCUCEDharLhLrmCyg_3d_3d Delphi Update: http://blogs.embarcadero.com/nickhodges/2009/12/14/39338 Webinars: Segredos do Delphi: http://update.codegear.com/forms/AMUSCA0911Delphi2010MigrationWebinar11-17 Posts e Recursos On-line: Delphi DirectWrite: http://blogs.embarcadero.com/pawelglowacki/2009/12/14/38872/ Teste Unitário: http://www.youtube.com/watch?v=nyZnfxDqThE Protegendo os Dados da sua Aplicação: http://blogs.embarcadero.com/amannarino/2009/12/11/interbase-2009-discover-t he-best-way-to-ensure-secure-data-protection-for-your-applications/ Delphi Recursos On-Line: http://blogs.embarcadero.com/pawelglowacki/2009/12/02/38849 Auditoria e Métricas com Delphi: http://blogs.embarcadero.com/michaelrozlog/2009/11/23/37000 DataSnap: http://blogs.embarcadero.com/davidi/2009/11/06/39866 Estatisticas de Migração com Unicode: http://blogs.embarcadero.com/ao/2009/10/09/39042 Touch Move Demo: http://chrisbensen.blogspot.com/2009/09/touch-demo-part-i.html http://chrisbensen.blogspot.com/2009/10/touch-demo-part-ii.html http://chrisbensen.blogspot.com/2009/10/touch-demo-part-iii.html
RES: [delphi-br] Programacao SAP
Quando desenvolvi uma integração com o banco de dados do SAP Business One (ERP da SAP para PME Pequenas e Médias Empresas), não tinha nada disso. Podia consultar normalmente os dados com um SELECT da vida. No All-In-One (antigo SAP R3), acredito que possa ser feita a mesma coisa. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fabiano Moura Enviada em: sexta-feira, 20 de agosto de 2010 10:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Programacao SAP *Bom dia!* Então, para mim que era somente fazer a conexão com o banco e pegar as informações, a não ser que estas informações são criptografadas. Gostaria de saber como funciona este esquema de pegar os dados pelo SAP e gostaria de saber se os colegas possui algum material disponível sobre SAP e ABAP. *Obrigado,* * * *Fabiano* Em 20 de agosto de 2010 09:33, Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br escreveu: Como que é isto? Tem alguma trava específica no banco via trigger? Deve ter né? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcos Abreu Ferreira maferreira...@gmail.com mailto:maferreira.f2%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, August 20, 2010 8:05 AM Subject: Re: [delphi-br] Programacao SAP Fabiano, para acessar os dados do SAP não é tão simples assim! Não basta ter um drive para Oracle que você vai conseguir acessar os dados. A SAP nem deixa ter acesso a aplicações terceiras aos dados. Acessar diretamente o banco de dados sem chances Trabalho com SAP e sei como as coisas funcionam. Se quiser posso dar uma pesquisada para você. Em 19 de agosto de 2010 13:47, Fabiano Moura mctbra...@gmail.com mailto:mctbrasil%40gmail.com escreveu: Boa tarde! Não manjo e nem sei como é um sistema SAP, mas estou com um projeto com um amigo meu para implantarmos um sistema numa indústria que tem, e eles utilizam o banco de dados Oracle, como SGBD. Você tendo um driver de conexão com o Oracle é suficiente. Sinceramente, não sei se eles tem algo feito como por exemplo WebService, mas pelo que um amigo me falou não, como estamos projetando e estudando o negócio, assim que terminar esta etapa, verificarei como é feito a integração. Fabiano Em 19 de agosto de 2010 08:51, Murilo Cunha mcscu...@yahoo.com.br mailto:mcscunha%40yahoo.com.br mcscunha%40yahoo.com.br escreveu: Pessoal, Alguem jah fez integracao com o sistema S.A.P.? Gostaria de montar uma integracao com o meu sistema para insercao de dados no SAP. Eh dificil montar esta integracao (muitas horas)? Quais componentes usaram para enviar as informacoes para o banco? DBExpress? O SAP tem condicoes de insercao dos dados pela WEB? Ou seja, posso conectar no SAP e enviar os dados por WEB? OBS.: Preciso do maior numero de informacoes sobre este assunto, pois estou montando um orcamento para este projeto. Muito Obrigado MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- Att, Marcos A. Ferreira São Paulo - Brasil +55 11 9309-3936 +55 11 8905-9889 MSN: maferre...@hotmail.it mailto:maferreira%40hotmail.it Google Talk: maferreira.f2 Skype: maferreira.f2 LinkedIn: http://www.linkedin.com/in/maferreira/ Twitter: @effedois http://www.twitter.com/effedois/ Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o. Agradecemos sua cooperação. This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Dúvida! Existe algum WebService da SEFAZ para obter dados dos contribuintes?
http://www.consultacpf.com WebService de acesso via modelo pré-pago que permite consultar informações tanto de pessoas jurídicas como pessoas físicas. A empresa é parceira tecnológica (distribuidor nacional autorizado) do SERASA. A empresa dispõe ainda de um canal para desenvolvedores (http://dn.consultacpf.com) que queiram integrar suas aplicações com o WebService. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de felipe govoni Enviada em: sexta-feira, 20 de agosto de 2010 09:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dúvida! Existe algum WebService da SEFAZ para obter dados dos contribuintes? eu acredito que a cdl tenha um serviço parecido, se informe com a cdl de sua cidade. Em 20 de agosto de 2010 10:48, Fellipe Henrique felli...@gmail.comescreveu: Bom dia amigos, um cliente meu, está querendo que ao digitar o CPF ou CNPJ, eu já traga as informações da pessoa... pela NF-e eu consigo pegar pelo CNPJ, mas somente empresas que utilizam NFe, pessoas físicas eu não consigo. Ouvi dizer que o SERASA tem essa informação, que se pagaria uma taxa para isso... é verdade? Alguém já fez algo parecido? Att. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Ordenar clicando no título do dbgrid
É bom complementar esta dica dizendo que isto só funciona se, e somente se, o datasource do DBGrid estiver apontando para um ClientDataSet. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Stclara Enviada em: sexta-feira, 20 de agosto de 2010 15:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ordenar clicando no título do dbgrid ola... no evento ontitleclick do dbgrid: ClientDataSet1.IndexFieldNames := Column.Field.FieldName; []'s Stclara. Em 20/8/2010 16:17, Allan GabrielAM escreveu: Olá, procurei no histório da lista e não encontrei, preciso fazer que o sistema entenda que ao clicar no título da coluna de um dbgrid ele ordene por ela, alguém poderia me dar uma ajuda?, uso Delphi7 + FireBird 2.03 + IBX. Atenciosamente, Rafael [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] Ordenar clicando no título do dbgrid
Essa dica é velha e, ao mesmo tempo, dispendiosa. Ela faz com que o dataset (no caso, a consulta qyConsulta) seja fechado e depois aberto com uma nova cláusula SQL ORDER BY. Isso gera idas-e-voltas ao servidor, gerando tráfego de rede desnecessário, denegrindo até mesmo o desempenho da aplicação. A melhor prática é ter os dados carregados e ordenados localmente em um ClientDataSet associado ao datasource usado pelo DBGrid. Tem dicas à botão na Internet falando sobre como ordenar um ClientDataSet. O próprio Bruno Lichot tem exemplos que abordam isso. É só procurar nas mensagens antigas da lista, em http://br.groups.yahoo.com/group/delphi-br/messages. Sds. P.S.: Lembrando sempre que o que se ordena não é o componente de exibição, e sim a fonte dos dados do mesmo, OK? ;) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Nazareno Neto Enviada em: sexta-feira, 20 de agosto de 2010 15:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ordenar clicando no título do dbgrid qyConsulta.Close; qyConsulta.SQL[3]:=' Order By '+TABELA+Column.FieldName; qyConsulta.Open; Em 20 de agosto de 2010 16:17, Allan GabrielAM alla...@americamoveiseletro.com.br escreveu: Olá, procurei no histório da lista e não encontrei, preciso fazer que o sistema entenda que ao clicar no título da coluna de um dbgrid ele ordene por ela, alguém poderia me dar uma ajuda?, uso Delphi7 + FireBird 2.03 + IBX. Atenciosamente, Rafael [As partes desta mensagem que não continham texto foram removidas] -- Nazareno Neto Desenvolvedor Delphi e Firebird Skype: nazareno.nobrega http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com
RES: [delphi-br] Ordenar clicando no título do dbgrid
Brow, como já foi dito, só funciona com ClientDataSet. Portanto, ... !
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Allan GabrielAM
Enviada em: sexta-feira, 20 de agosto de 2010 18:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ordenar clicando no título do dbgrid
Olá, no caso estou usando Ibquery + DataSource + IbqUpdateDataSet, funciona
mesmo assim? não testei pois estou sem o delphi nesse final de semana pois
estou viajando.
Grato
Rafael.
- Original Message -
From: Fabricio Colombo
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, August 20, 2010 5:59 PM
Subject: Re: [delphi-br] Ordenar clicando no título do dbgrid
Eu utilizo o código abaixo. Desse modo ele ordena de forma crescente e
decrescente. E com o Rubem falou, tem que usar o ClientDataSet.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
enum_IndexOption: TIndexOptions;
str_IndexAsc,
str_IndexDesc,
str_IndexName: String;
begin
if (Column.Field.FieldKind = fkData) then
begin
str_IndexAsc := Concat('asc_',Column.FieldName);
str_IndexDesc := Concat('desc_',Column.FieldName);
str_IndexName := '';
enum_IndexOption := [];
if (ClientDataSet1.IndexName = str_IndexAsc) then
begin
str_IndexName := str_IndexDesc;
enum_IndexOption := [ixDescending];
end
else if (ClientDataSet1.IndexName = str_IndexDesc) then
begin
str_IndexName := str_IndexAsc;
end
else
begin
str_IndexName := str_IndexAsc;
end;
ClientDataSet1.IndexDefs.Clear;
ClientDataSet1.IndexDefs.Add(str_IndexName,Column.FieldName,enum_IndexOption
);
ClientDataSet1.IndexName := str_IndexName;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Componente ou Solução para Contro le de Usuário.
Essa primeira acredito que seja fácil de resolver. Coloca um MainMenu no formulário principal e associa ele ao componente UserControl. Depois cria uma rotina que lê o MainMenu e cria os grupos/botões/etc. no JvOutlookBar, já verificando se alguma opção do menu ficou habilitada ou escondida depois que foram aplicadas as políticas de controle de acesso do UserControl após o login do usuário. Ah, e antes que você pergunte... não fiz nada sobre isso e, acredito eu, não tenha exemplo pronto (peixe pescado, tratado e frito, pronto pra comer!) disso rolando por aí na net. Se eu tivesse uma necessidade de implementação igual a sua, partiria para essa abordagem! :D Boa sorte. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: sexta-feira, 20 de agosto de 2010 18:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Componente ou Solução para Controle de Usuário. Amigos, Vocês que trabalham com o User Control poderia me ajudar em dois problemas ? 1ª Eu preciso migrar o controle de usuário para UserControl de uma aplicação que trabalho com JvOutlookBar, mas não estou conseguindo associar o controle de menu ao de botões do JvOutlookBar. 2ª Eu gostaria de saber como resolver o problema de envio de e-mail do UserControl, pois mesmo usando as dll informadas no suporte, não funciona. Abraços. Em 20 de agosto de 2010 18:19, Mauri Lima ma...@uze.com.br escreveu: Boa Tarde, A ultima versão e a UserControl2.30RC3, tenho aki se vc quiser posso enviar para seu e-mail ou se alguém quiser e disponibilizar, não sei se posso por na área de arquivos do grupo. Mauri Lima Boa Vista - Roraima O Ponto mais setentrional ao norte do Brasil e aqui!!.. Monte Caburaí homologado em 1999. Como extremo norte do Brasil. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: sexta-feira, 20 de agosto de 2010 07:49 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Componente ou Solução para Controle de Usuário. Disponibilizei a versão 2.18A do UserControl no endereço abaixo: http://www.upshare.me/files/hQRQel1282304804/UserControl2.18a.rar.html Não sei ainda se existe uma versão mais nova. Mas veja se esta lhe ajuda. Trabalho com UserControl a muito tempo e não tenho o que me queixar dele. Abraço. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marciano Venter Enviada em: quinta-feira, 19 de agosto de 2010 17:04 Para: lista-del...@yahoogrupos.com.br lista-delphi%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Componente ou Solução para Controle de Usuário. Boa tarde pessoal, estou procurando um componente bom pra controle de acesso dos usuarios, eu utilizada o UserControl, mas o site está fora do ar a um tempinho e não tenho o arquivo, estou procurando pelos arquivos dele ou por outra opção. Alguma sugestão ? Atenciosamente, -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF
RES: [delphi-br] Re: THTTPrio thread safe?
Posta um how-to (como fazer) sobre esse problema e solução relatados. Alguns colegas da lista podem passar por problema semelhante. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alemão Enviada em: quinta-feira, 19 de agosto de 2010 11:04 Para: delphi-br Assunto: [delphi-br] Re: THTTPrio thread safe? Galera, consegui resolver o problema. Substitui o THttpRIO pelos componentes TclSoapMessage e TclHttp da suite de componentes Clever Internet suíte. O programa ficou muito mais estável depois desta troca, mais rápido no retorno com mutias threads simultaneas. Pra quem estiver com problemas usando o httprio, ja serve como dica. Obrigado a todos. Em 18 de agosto de 2010 19:31, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Pessoal possuo um client que consome um webservice. Acontece que ele pode criar mais de uma thread simultanea para chamar o mesmo webservice ou ainda webservices diferentes. Cada thread cria o seu respectivo THttpRio. Acontece que ele esta dando alguns problemas estranhos, algumas vezes, apesar do WS ja ter retornado a informação, o httprio demora para retornar essa informação da consulta. Não é nenhm tipo de erro nas threads, pois quando eu chamo uma ou duas simultaneamente, tudo ocorre normalmente. O problema acontece quando muitas estão executadas juntas. Pesquisando na internet achei alguns sites falando que este componente nao é thread safe. Alguem ja teve algum problema utilizando-o? Ou ainda, conhecem algum outro componente bom, ou melhor que o thttprio para fazer chamadas a um webservice? Obrigado Alemão. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Como Associar 2 Classe a uma variavel
Fiz um esquema bem prático. Criei uma classe que é a factory de queries e nessa classe factory há um método estático (class method) pra registrar (ou associar) uma classe de conexão com uma função que se encarregará de instanciar a classe de consulta correta para o tipo de conexão. Depois disso, criei uma unit que fará o registro dos tipos de conexão e classe de consulta respectiva que minha aplicação poderá utilizar. Ficou bem prático. Tô montando um exemplo de uso disso e assim que estiver pronto, eu vou postar na área de arquivos da lista pro povo poder atestar a técnica. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Roni Rodrigo Enviada em: terça-feira, 10 de agosto de 2010 12:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Como Associar 2 Classe a uma variavel se vc quer só criar as querys, pode usar uma factory: TQueryFactory = class class function CreateQry(ConnType: ???): TDataSet; end; implementation class function TQueryFactory.CreateQry(ConnType: ??): TDataSet; begin if ConnType = ctBDE then Result := TQuery.Create(nil) else if FConnType = ctUniDac then Result := TUniQuery.Create(nil); end; ai vc constroi as classes usando a factory: q := TQueryFactory.CreateQry(FConnType); mas dentro da factory, como disse o Márico, vc vai ter que ter um if ou case pra checar qual o tipo de conexão o/ Em 09/08/2010 15:25, NTS INFORMÁTICA escreveu: Eric, Na verdade, muitos metodos são comuns as 3 ou mais classes que eu fosse trabalhar, para a conexao com meu dicionario de dados., tenho que fazer isso para compatibilidade de conexões com BDE. Então eu aproveitaria muita linha de codigo no meu dicionario de dados. q.DataBaseName // Metodo Somente na Tquery ( Derivado da TDataBase ) q.Connection // Metodo Somente na TUniQuery ( Derivado da TUniConnection ) q.Connection // Metodo Somente na TAdoiQuery ( Derivado da TAdoConnection ) // todos os demais metodos são iguais q.SQL q.Open q.Close - Original Message - From: eric_developer To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Sunday, August 08, 2010 9:18 PM Subject: [delphi-br] Re: Como Associar 2 Classe a uma variavel Marcio, não vejo sentido lógico no pedido, o IF será necessário mesmo que tivesse chamando somente uma classe, ainda teria que testar FConnType. Eric Developer Systems --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, NTS INFORMÁTICA ntsi...@... escreveu Amigos, existe alguma forma ou maneira para associar classes diferentes a uma variavel, pois muito metodos sao comuns as 2 classes, e outro não, isso seria muito bom para evitar IFs Exemplo Abaixo ? l var q : TComponent; i : Integer; begin if FConnType = ctBDE then q := TQuery.Create(nil); if FConnType = ctUniDac then q := TUniQuery.Create(nil); Márcio [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] Estrutura Padrã o de Software
Informem-se sobre TDI (Tabbed-Document Interface). É uma boa alternativa ao MDI, e eu uso essa abordagem em meus projetos Delphi e .NET(C#). Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quarta-feira, 11 de agosto de 2010 10:03 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Estrutura Padrão de Software Entendi Então, realmente, não ha como trabalhar com DataModule numa aplicação MDI? Porque foi uma das exigencias do cliente poder abrir mais de um cadastro de uma vez... Eu tb não gosto de trabalhar com MDI... muito trabalhoso... mas, fazer o q... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Adriano de F. Trindade trind...@desbrava.com.br mailto:trindade%40desbrava.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 10 de Agosto de 2010 17:03:46 Assunto: RES: [delphi-br] Estrutura Padrão de Software Minha aplicação é SDI. Bem mais simples e menos propensa á erros, tipo, um registro ser modificado em um form e no outro você ter o mesmo dado atualizado. Quanto mais você deixar o usuário fazer o que ele quiser, maior serão as possibilidades de algo dar errado. Mas isso é a minha opção pessoal, claro. As precauções e checagens para MDI e SDI são bem diferentes. Você define como você quer trabalhar. Eu tenho uma maneira bem peculiar de trabalhar aqui, muito “old school”. Falou! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Eny Urias Enviada em: terça-feira, 10 de agosto de 2010 15:51 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: [delphi-br] Estrutura Padrão de Software Como vc trabalha numa aplicação MDI utilizando DataModule? Se o usuário quiser abrir dois formularios de clientes como vc faz? Não dá conflito já que os componentes de acesso aos dados estão no DM? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Adriano de F. Trindade trind...@desbrava.com.br mailto:trindade%40desbrava.com.br mailto:trindade%40desbrava.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 9 de Agosto de 2010 19:03:05 Assunto: RES: [delphi-br] Estrutura Padrão de Software Não quero te desanimar, mas mostrar os problemas provoca a busca de soluções para eles, e com isso aprende-se. Pelo jeito você está meio “cru” no negócio, e a lógica, você até que está indo bem, considerando a herança dos formulários. O que falta, na real, é você fracionar estes seus casos de uso aí. Explico: DataSource, por exemplo, alguns formulários vão precisar de um, outros de 5 e outros de 20. Se você fazer no seu modelo primário um único DataSource, em cada formulário que você criar herdando este formulário, terá que adicionar mais DataSources. Mas, se você fizer o modelo com 10, aí você atende a maioria dos casos, e em raras oportunidades terás que adicionar mais data sources além desses 10 aí. Entendeu o exemplo? Eu quis dizer: projetar considerando o máximo de possibilidades para cada form, e não o mínimo. Certo? Agora esqueça esses data sources aí. Crie um único Data Module, com um nome bem curto (eu uso “DM”) e coloque todos seus componentes de acesso á dados lá: ClientDataSets, DataModules, DataSetProviders e por aí vai. Desta maneira, você não vai ter componentes de acesso á dados espalhados pelo seu projeto. Eu comecei há 5 anos atrás um sistema mais ou menos da maneira que você estava começando este. Começou com 34 tabelas e hoje tem 220 tabelas no BD. De todo o tempo de desenvolvimento, no mínimo 30% dele foi refazendo coisas que fiz sem considerar todas as possibilidades. Por exemplo: ao projetar um formulário para Notas Fiscais, você precisa de uma tabela para os dados da NF e outra para o detalhamento da NF, que são os produtos/serviços. Primeiro fiz com uma tabela para produtos e outra para serviços: tive que refazer para colocar produtos e serviços em uma única tabela. Alguns valores como frete e seguro iam no corpo da NF. Não, não dá certo, valores de frete e seguro tem que ser distribuídos pelos itens da NF para conseguir gerar a NF-e direito. No corpo da NF, só dados cadastrais, dados monetários tem que ser tudo nos itens. E tome refazer enormes partes do código. Minha dica pra ti é: vá para o Delphi por último. Faça funcionar no papel primeiro. Vai lidar com Notas Fiscais? Estude o lay-out da NFe e do SPED antes para saber de quais dados você precisará e modelar seu BD de acordo. Sugiro usar a padronização de nomes de campos que consta no lay-out da NF-e, vai tornar sua vida mais fácil
RES: RES: [delphi-br] Aplicacao na NET
String de conexão para um banco de dados hospedado em um serviço de hospedagem? Não vejo isso com bons olhos, e acredito piamente que os administradores de tais provedores de hospedagem também não concordem com isso, por questões óbvias de segurança. Sugiro que você pense em aplicação web sim! O Intraweb permite que você escreva uma aplicação web como se fosse desktop. Troque uma idéia com o nosso colega Jackson Gomes. Ele é representante do produto aqui no Brasil e está presente nas nossas listas de discussão. Agora, caso você continue insistindo em aplicação desktop, a solução é hospedar o banco de dados no serviço de hospedagem e, juntamente com ele, um WebService que permite acesso ao banco de dados hospedado. Um WebService pode ser chamado por uma aplicação desktop. Mas aí teria que ver com o serviço de hospedagem como seria pra acessar seu WebService. Mas continua valendo a dica. Aproveite também estava oportunidade para adotar uma nova abordagem (para você) em desenvolvimento de aplicações com Delphi, que é a abordagem Web. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quarta-feira, 11 de agosto de 2010 14:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Aplicacao na NET Pessoal, Pensando em uma aplicacao NAO WEB (pois nao sei mexer com componentes WEB) como poderia fazer? Estava pensando em uma aplicacao desktop MAS que tivesse acesso ao banco na WEB. Como fazer isso? Como montar uma string de conexao para acessar o BD na NET? Obrigado MuriloCunha On 11/08/2010 14:28, Rubem Rocha wrote: Crie uma aplicação web e hospede-a juntamente com o banco de dados. Teoricamente, no mesmo local onde você hospeda o seu site, você pode hospedar o banco de dados. Daí, a aplicação acessará o banco de dados no servidor onde o seu site/portal está hospedado. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Murilo Cunha Enviada em: quarta-feira, 11 de agosto de 2010 13:03 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Aplicacao na NET Pessoal, Esclarecam algumas duvidas (qual a opiniao dos senhores), por favor: Quero fazer uma aplicacao de apontamentos de atividades/horas. Esta aplicacao estah ligada a um banco de dados onde guardo todos estes apontamentos e horas. Este banco pode ser ORACLE ou FIREBIRD (ou outro FREE). Duvidas: A) Onde devo colocar este arquivo de banco de dados para que todos acessem este de qualquer lugar? FTP? 4Sared? Pasta compartilhada no servidor? Uso de SVN? B) Como vou acessar este banco de dados? Alguem tem algum exemplo de conexao na NET? Obrigado MuriloCunha [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] OFF TOPIC - Oportunidade Programador
Outra coisa. Só pra auxiliar os colegas interessados na vaga... o que são relatórios QQ??? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de uelson barbosa cavalcante Enviada em: domingo, 8 de agosto de 2010 14:35 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] OFF TOPIC - Oportunidade Programador Encaminha o cv para que e-mail De: webmasterbzn rodr...@respec.com.br mailto:rodrigo%40respec.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Domingo, 8 de Agosto de 2010 15:07:15 Assunto: [delphi-br] OFF TOPIC - Oportunidade Programador Boa tarde, Tem um cliente que está precisando de um programador que tenha o seguinte: Conheça: -Delphi -Firebird/Interbase -OOP - Não precisa ser o cara não -Relatórios QQ um Ja trabalhou com: - Sistema de Pedidos - Compra/Venda/Faturamento - Nfe Salário: de 1.500,00 a 2.600,00 VT / VR(10,00) duração: 6 a 8 meses Com grande probabilidade de ficar para sempre, rsrs. Tudo depende da pessoa e comprometimento. Local: São Paulo, SP - Centro (Prox. Metro Republica ou Luz) Enviar CV com pretenção salárial Att, Rodrigo Mota. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Àrea de Transferência
// Deve ser feito um uses para a unti Clipbrd Clipboard.Clear Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ferreira Enviada em: segunda-feira, 9 de agosto de 2010 14:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Àrea de Transferência Caros Colegas, Como posso limpar a área de transferência, e após mandar um texto para a mesma, para que o usuário possa colar em outro campo. Desde já agradeço. Ok! josé ferreira [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Autoincremento X ClientDataSet
Lembre-se sempre: quem procura, acha! (Artigo How to use AutoInc fields with DataSnap Como usar campos auto-incremento com DataSnap) http://edn.embarcadero.com/article/20847 (Código fonte referente ao artigo necessário registro gratuito no portal para download) http://cc.embarcadero.com/Item/14448 Boa sorte. Sds. P.S.: O artigo é excelente, mas não tem versão dele em português, OK? ;) De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 09:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Autoincremento X ClientDataSet Vcs não tem noção de quanto eu to apanhando pra tentar fazer a coisa funcionar. Tenha a tabela de vendas com o campo código (Autoinc)... Tenho a tabela de itens com o campo codigo referente a venda e o campo id (autoinc)... Mas, como estou utilizando cds, tá dando key violation (lógico!) na tabela itens. Eu tenho medo de utilizar campo int nos codigos. Temo que dois usuarios ao mesmo tempo deem applyupdates com o mesmo codigo. Então como devo proceder? Fiquei a noite inteira ontem pesquisando... Peguei alguns exemplos no site da embarcadero mas nenhum deu certo... Como vcs trabalham? Lembro que eu quero digitar o pedido inteiro com itens e tudo antes de dar o applyupdates nas tabelas porque eu atualizo o estoque depois que eu salvo a venda. Agradeço a quem der um luz! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Autoincremento X ClientDataSet
Eu sempre usei (e ainda uso) as técnicas abordadas por esse artigo, e até hoje não tive problemas. E já usei isso com SQL Server, FireBird e InterBase. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 10:07 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Autoincremento X ClientDataSet E quem lê direito não perde tempo! Aff! Falei que já peguei os exemplos do site da embarcadero e tb nao deu certo... Esse aí eu já li de cabo a rabo e testei tudo o que falam lá! Mas, mesmo assim obrigada pela atenção! Achei esse artigo do Walter http://www.oocities.com/walterchagas/ClientDataset.html... mas tb não funciona por causa do Autoinc na tabela de detalhes... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 5 de Agosto de 2010 10:46:00 Assunto: RES: [delphi-br] Autoincremento X ClientDataSet Lembre-se sempre: quem procura, acha! (Artigo “How to use AutoInc fields with DataSnap” – Como usar campos auto-incremento com DataSnap) http://edn.embarcadero.com/article/20847 (Código fonte referente ao artigo – necessário registro gratuito no portal para download) http://cc.embarcadero.com/Item/14448 Boa sorte. Sds. P.S.: O artigo é excelente, mas não tem versão dele em português, OK? ;) De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 09:19 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Autoincremento X ClientDataSet Vcs não tem noção de quanto eu to apanhando pra tentar fazer a coisa funcionar. Tenha a tabela de vendas com o campo código (Autoinc)... Tenho a tabela de itens com o campo codigo referente a venda e o campo id (autoinc)... Mas, como estou utilizando cds, tá dando key violation (lógico!) na tabela itens. Eu tenho medo de utilizar campo int nos codigos. Temo que dois usuarios ao mesmo tempo deem applyupdates com o mesmo codigo. Então como devo proceder? Fiquei a noite inteira ontem pesquisando... Peguei alguns exemplos no site da embarcadero mas nenhum deu certo... Como vcs trabalham? Lembro que eu quero digitar o pedido inteiro com itens e tudo antes de dar o applyupdates nas tabelas porque eu atualizo o estoque depois que eu salvo a venda. Agradeço a quem der um luz! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Autoincremento X ClientDataSet
Uma pena, Waltão! Esse site era uma boa referência até para iniciantes em Delphi. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quinta-feira, 5 de agosto de 2010 10:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Autoincremento X ClientDataSet Pra fazer autoinc na tabela detail, ou voce cria um campo autoinc ou então clona o CDS, busca o ultimo valor e grava no CDS original. Esse site meu não existe mais em vista que a Geocities foi extinta. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, August 05, 2010 11:06 AM Subject: Res: RES: [delphi-br] Autoincremento X ClientDataSet E quem lê direito não perde tempo! Aff! Falei que já peguei os exemplos do site da embarcadero e tb nao deu certo... Esse aí eu já li de cabo a rabo e testei tudo o que falam lá! Mas, mesmo assim obrigada pela atenção! Achei esse artigo do Walter http://www.oocities.com/walterchagas/ClientDataset.html... mas tb não funciona por causa do Autoinc na tabela de detalhes... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 5 de Agosto de 2010 10:46:00 Assunto: RES: [delphi-br] Autoincremento X ClientDataSet Lembre-se sempre: quem procura, acha! (Artigo “How to use AutoInc fields with DataSnap” – Como usar campos auto-incremento com DataSnap) http://edn.embarcadero.com/article/20847 (Código fonte referente ao artigo – necessário registro gratuito no portal para download) http://cc.embarcadero.com/Item/14448 Boa sorte. Sds. P.S.: O artigo é excelente, mas não tem versão dele em português, OK? ;) De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 09:19 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Autoincremento X ClientDataSet Vcs não tem noção de quanto eu to apanhando pra tentar fazer a coisa funcionar. Tenha a tabela de vendas com o campo código (Autoinc)... Tenho a tabela de itens com o campo codigo referente a venda e o campo id (autoinc)... Mas, como estou utilizando cds, tá dando key violation (lógico!) na tabela itens. Eu tenho medo de utilizar campo int nos codigos. Temo que dois usuarios ao mesmo tempo deem applyupdates com o mesmo codigo. Então como devo proceder? Fiquei a noite inteira ontem pesquisando... Peguei alguns exemplos no site da embarcadero mas nenhum deu certo... Como vcs trabalham? Lembro que eu quero digitar o pedido inteiro com itens e tudo antes de dar o applyupdates nas tabelas porque eu atualizo o estoque depois que eu salvo a venda. Agradeço a quem der um luz! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Autoincremento X ClientDataSet
Eny, Você não foi específica sobre qual exemplo você baixou, e poderia haver mais de um artigo no portal falando sobre o assunto. Por isso q eu postei o link do artigo e código fonte relacionado. Desculpe se pratico leitura dinâmica (skimming/scanning). ;) Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 10:07 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Autoincremento X ClientDataSet E quem lê direito não perde tempo! Aff! Falei que já peguei os exemplos do site da embarcadero e tb nao deu certo... Esse aí eu já li de cabo a rabo e testei tudo o que falam lá! Mas, mesmo assim obrigada pela atenção! Achei esse artigo do Walter http://www.oocities.com/walterchagas/ClientDataset.html... mas tb não funciona por causa do Autoinc na tabela de detalhes... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 5 de Agosto de 2010 10:46:00 Assunto: RES: [delphi-br] Autoincremento X ClientDataSet Lembre-se sempre: quem procura, acha! (Artigo “How to use AutoInc fields with DataSnap” – Como usar campos auto-incremento com DataSnap) http://edn.embarcadero.com/article/20847 (Código fonte referente ao artigo – necessário registro gratuito no portal para download) http://cc.embarcadero.com/Item/14448 Boa sorte. Sds. P.S.: O artigo é excelente, mas não tem versão dele em português, OK? ;) De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 09:19 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Autoincremento X ClientDataSet Vcs não tem noção de quanto eu to apanhando pra tentar fazer a coisa funcionar. Tenha a tabela de vendas com o campo código (Autoinc)... Tenho a tabela de itens com o campo codigo referente a venda e o campo id (autoinc)... Mas, como estou utilizando cds, tá dando key violation (lógico!) na tabela itens. Eu tenho medo de utilizar campo int nos codigos. Temo que dois usuarios ao mesmo tempo deem applyupdates com o mesmo codigo. Então como devo proceder? Fiquei a noite inteira ontem pesquisando... Peguei alguns exemplos no site da embarcadero mas nenhum deu certo... Como vcs trabalham? Lembro que eu quero digitar o pedido inteiro com itens e tudo antes de dar o applyupdates nas tabelas porque eu atualizo o estoque depois que eu salvo a venda. Agradeço a quem der um luz! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Criar Componente Delphi
Ricardo, você está corretíssimo, em gênero, número e grau. Agora uma dica pra tentar melhorar suas buscas ao Google ou qualquer outro mecanismo de busca. Ao invés de usar: TControl TPersistent guia componentes Delphi pdf Tente isto: Delphi development guide, no campo destinado a informar qualquer uma das palavras, informe component components components. Ou seja, coloque as palavras-chave em ordem de relevância dentro do contexto do que você necessita encontrar. Ah, e em inglês! Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo Enviada em: quinta-feira, 5 de agosto de 2010 12:36 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Re: Criar Componente Delphi Pois é, Ricardo, nunca vi este guia traduzido. Na época eu nao sabia nada de ingles e foi uma eternidade pra ler com o dicionario na mao... Na epoca eu tb aprendi que tradutor automatico nao pode ser usado para textos tecnicos de qualquer profissão morro de rir dos resultados, tipo fonts o tradutor passava pra pias batismais. O que mais me tirou gargalhadas foi a tradução do help do winzip uma vez que zip era o saco lacrado para congelados... entao tinha que ser dicionario na mao e ponto. hoje ja to bem mais safo no ingles e sempre recomendo a todos que ainda nao tao bem no ingles, que corram atras pra que leiam tao rapido em ingles como em portugues, pois se um cara bom da alemanha, china, russia, puder responder a uma pergunta nossa num forum, ele vai fazê-lo em ingles. E ler direto do original vc capta mais rapido o que o autor queria dizer. fui agora no google e procuei por tcontrol tpersistent guia componentes delphi pdf mas nao fui muito feliz... o melhor q achei foi isto, em espanhol: http://www.publispain.com/supertutoriales/programacion/delphi/cursos/4/ccind .htm espero q ajude Ricardo Bianchin --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Ricardo Rocha ricardo_r...@... escreveu Olá Ricardo Bianchin, Fico muito grato pelo guia de componentes que vc me indicou... Vai ser de grande valor... Se vc tiver um guia deste tipo em pt_br tmb seria bom... Atenciosamente, Ricardo Messias da Silva Rocha Bacharel em Ciência da Computação De: Ricardo ricardodevelo...@... Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 2 de Agosto de 2010 15:52:10 Assunto: [delphi-br] Re: Criar Componente Delphi na epoca do delphi 7 eu li este guia. foi tudo o q eu precisei ate hoje pra criar componentes. é um texto longo mas realmente tem q saber estes topicos pra criar componentes. O capitulo 13 é sobre um componente abrir um form modal http://www.win.tue.nl/~wstomv/edu/delphi/Delphi7ComponentWritersGuide.pdf Ricardo Bianchin --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Ricardo Rocha ricardo_rmsr@ escreveu Olá, Alguém aqui do grupo já criou um componente para Delphi? Estou precisando de transformar um formulário em um componente, alguém sabe os procedimentos para fazer esse tipo de componente. Vou dar um exemplo. Tenho um componente feito pelo Luciano Pimenta da DevMedia onde, que executa um formulário de busca que está dentro do componente! Obrigado a todos. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC | ARTIGO] A Importância do Inglês para o Profissional de TI
Inglês é http://br.noticias.yahoo.com/especiais/mercadoti_artigo2 fundamental Por Jacqueline Lafloufa Houve um tempo em que saber inglês era um diferencial para a carreira profissional. Hoje, em especial na área de TI, o conhecimento do idioma é fundamental, já que grande parte das atividades relacionadas envolve seu uso. Essa necessidade básica advém da globalização do mercado, que atualmente conta com multinacionais que elegem o inglês como língua 'universal' dentro da empresa. Em multinacionais, muitos dos líderes e gestores são estrangeiros, fazendo com que as reuniões e comunicações internas sejam realizadas em inglês, mesmo que você utilize a língua local para conversar com seus colegas de mesmo nível hierárquico, explica Bruno Franciscon Mazzotti, recém-formado em Ciência da Computação pela Universidade de São Paulo (USP), campus São Carlos. Em geral, grande parte dos processos seletivos para a área de TI requer inglês, ainda que em nível 'instrumental' quando não se tem o domínio do idioma, mas é possível compreender assuntos, porém sem muitos detalhes para compreender manuais, textos técnicos e para utilizar programas desenvolvidos nessa língua. Nas multinacionais, alguns dos processos seletivos costumam ter uma etapa em inglês, como forma de avaliar a desenvoltura do candidato no idioma. São provas e exercícios realizados em inglês, e a desenvoltura no idioma é certamente um destaque, conta Guilherme Junqueira, Analista de Desempenho da Inmetrics. Logicamente, o conhecimento do inglês não é algo determinante na carreira de um profissional talentoso. Muita gente que só fala português consegue se destacar nas empresas, principalmente se forem empreendedores. Estes não 'precisam' falar uma língua estrangeira porque, no momento em que precisarem, podem contratar alguém que o faça, pontua Bruno Mendes dos Santos, produtor de games da Tectoy Digital. Contudo, o idioma está tão infiltrado na área de TI que é complicado conseguir atravessar a formação acadêmica sem ao menos ter de lidar com o idioma de maneira 'instrumental'. Eu diria que 99,9% da documentação de TI está disponível em inglês. Se não houver fluência, é necessário ao menos compreender o inglês instrumental. Quem ocupa cargos gerenciais, precisa do inglês para dar conta do relacionamento com clientes e fornecedores internacionais, lembra dos Santos. Para os jovens graduandos da área, o básico pode ser aceitável, mas professores e profissionais do ramo destacam que apenas o conhecimento dos jargões técnicos pode não ser suficiente no dia a dia dentro das empresas. Com a globalização da economia e a ocorrência cada vez mais frequente de projetos que envolvem clientes em outros países, o nível de conhecimento de inglês exigido dos profissionais de TI vem aumentando gradativamente, lembra Roberto Carlos Mayer, presidente de Assespro São Paulo e diretor da MBI. O conhecimento técnico somente não é suficiente para que o profissional lide bem com a demanda do trabalho. De modo geral, os jovens conhecem os termos técnicos e jargões da área. O que lhes prejudica é a pronúncia inadequada desses termos, o que pode causar sérios ruídos de comunicação, alerta Lizika Goldchleger, gerente acadêmica da escola de idiomas Cultura Inglesa. O cotidiano de um profissional jovem da área de TI em uma multinacional envolve interagir intensamente em inglês com clientes e colegas de várias partes do mundo. O que falta, normalmente, é a fluência e a assertividade na hora de explicar um problema, dar uma solução com clareza e objetividade, dar e pedir esclarecimentos, concordar e/ou discordar de forma assertiva, porém educada, e saber lidar com situações de alto grau de urgência de forma calma e precisa, esclarece ela. Um jeito de dar uma 'arrancada' no inglês é fazer um curso de imersão no exterior. A grande vantagem é que ao passar uma temporada em um país anglófono, o esforço para falar em inglês é diário, já que praticamente todas as suas atividades precisam ser realizadas no idioma. Mas se você não tem essa possibilidade, não se preocupe: cursos nacionais podem te dar o mesmo traquejo que uma viagem internacional. A dica é se dedicar e se esforçar. Não são exceções os casos de alunos brasileiros que nunca viajaram [para fora do país] e que têm extremo sucesso e níveis de proficiência avançados, afirma o professor doutor Marcos Cesar Polifemi, diretor do Centro de Linguística Aplicada da Yázigi Internexus. Uma forma de abreviar o tempo de aprendizagem é organizar-se e dedicar pelo menos 30 minutos por dia para autoestudo, sugere Lizika, da Cultura Inglesa. Quem já tem inglês em nível básico pode se interessar também por cursos específicos para a área de TI, que dão ênfase aos termos técnicos e assuntos discutidos no setor de TI. Trabalham-se os jargões da área e também o vocabulário relacionado à carreira e a entrevistas de emprego em cursos voltados tanto para a leitura como para a conversação e compreensão oral, esclarece
RES: [delphi-br] Re: Quem grande empresa usa Delphi ?
Pra mim, Waltão, isso é birra dos puristas e xiitas que teimam em dizer que C++ ou Java são o Santo Graal, o Supra Sumo, a última Coca-Cola do deserto em termos de linguagem de programação. Já vi até software para gravação de CD e software para edição de áudio feito em Delphi, deixando os xiitas do C++ se remoendo de raiva. Ponto. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 4 de agosto de 2010 08:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Quem grande empresa usa Delphi ? Na verdade, o Delphi tem uma grande abrangencia graças a sua linguagem usada que é o Object Pascal. Até hoje não sei o porque de terem inventanto tantos mitos de que o Delphi é ultrapassado, morreu, não presta ou é limitado. Com Delphi dá pra voce fazer um caminhão de coisas e com produtividade invejável para muitos desenvolvedores de outras linguagens. Com ele, voce pode desenvolver aplicações que vão desde a automação industrial até as comerciais básicas. Eu, sinceramente, opinião minha, não consigo ver alguma coisa que consiga fazer frente a ele até hoje. E olha que eu tenho mexido pouco com Delphi atualmente e muito mais com Visual Studio. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Vinicius Santos vinicius.santos.li...@gmail.com mailto:vinicius.santos.lista%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, August 03, 2010 8:08 PM Subject: Re: [delphi-br] Re: Quem grande empresa usa Delphi ? Em 03/08/2010 16:52, Rubem Nascimento da Rocha escreveu: Acabei de conferir o produto principal deles, chamado SIENGE. É um ERP específico para empresas de construção civil. Mas, pelo vídeo de apresentação, eles dizem que é feito em Java!! Sim. A SoftPlan utiliza Java e Delphi. Os sistemas da parte jurídica são todos em Delphi 5. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Programa para Modelagem de Dados
Justamente por termos várias opções, para vários gostos, necessidades e, é claro, bolsos, não existe um produto que você possa dizer que é o melhor. Por isso, colega Alexandre, em T.I., nada é absoluto, pois tudo é relativo! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Roni Rodrigo Enviada em: terça-feira, 3 de agosto de 2010 12:04 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Programa para Modelagem de Dados o Rational Studio da IBM é muito bom, mas caro e pra mim não valeria a pena, por isso nem fui muito atrás... baixei o trial do Enterprise Architect e to pensando seriamente em adota-lo... além de completo ele também gera o escopo das classes para diversas linguagens, incluindo o Delphi... dos programas free, o q eu mais gostei foi do Jude... ele é bem completo... mas claro que há várias outras opções... o/ Em 03/08/2010 12:27, Alexandre escreveu: Pessoal, qual programa de modelagem de dados vocês usam? Qual o melhor? Há algum free(preciso perguntar)? A idéia é que irei usar múltiplos bancos(firebird, oracle, mysql, sqlserver), então a geração automática de scripts(ou banco) ajudaria muito. Sei que pedir um que criasse triggers, procedures, functions, sequences para cada banco seria demais, mas se existir. :) Grato, Alexandre [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICA] Como Adicionar Ordenação Customizada ao TSh elListView
http://delphi.about.com/od/vclusing/ss/custom-sorting-tshelllistview-delphi. htm Rubem Nascimento da Rocha 92 8429 2865 rubem.ro...@digitalti.com.br assinatura email Digital TI - Coordenação de Automação Av. Carvalho Leal, 1330 - 1º Andar Cachoeirinha - 69065-001 Manaus/AM Call Center: 92 2101-0100 http://www.dtmanaus.com.br www.dtmanaus.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Criar Componente Delphi
Para os que não sabem, esse PDF é a versão eletrônica do um livro Component Writers Guide (Guia para Desenvolvedores de Componentes¹) que acompanha o Delphi 7 licenciado. Sds. P.S.: (1)Dado o contexto a que se destina o livro, a tradução da palavra Writers soa melhor como desenvolvedores ao invés de escritores, que é a sua tradução ipsis literis (tal e qual) da palavra. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo Enviada em: segunda-feira, 2 de agosto de 2010 14:52 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Criar Componente Delphi na epoca do delphi 7 eu li este guia. foi tudo o q eu precisei ate hoje pra criar componentes. é um texto longo mas realmente tem q saber estes topicos pra criar componentes. O capitulo 13 é sobre um componente abrir um form modal http://www.win.tue.nl/~wstomv/edu/delphi/Delphi7ComponentWritersGuide.pdf Ricardo Bianchin --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Ricardo Rocha ricardo_r...@... escreveu Olá, Alguém aqui do grupo já criou um componente para Delphi? Estou precisando de transformar um formulário em um componente, alguém sabe os procedimentos para fazer esse tipo de componente. Vou dar um exemplo. Tenho um componente feito pelo Luciano Pimenta da DevMedia onde, que executa um formulário de busca que está dentro do componente! Obrigado a todos. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ferramenta para transcrever codigo C++ Builder para Delphi
const
MAX_CALIBRES = 16;
MAX_COLORES= 8;
MAX_FORMAS = 4;
MAX_DENSIDADES = 4;
MAX_DEFECTOS = 4;
type
tagDatosFrutas = packed record
nDatosPeso, nDatosFrutas: integer;
end;
DatosPartida: array[0..MAX_CALIBRES, 0..MAX_COLORS,
0..MAX_FORMAS - 1, 0..MAX_DENSIDADES - 1,
0..MAX_DEFECTOS - 1] of tagDatosFatura;
procedure DescomprimeDatos(pStream: TBlobStream; DatosPartidaP: Pointer);
var
pDatoActual: Pointer;
i, j, nDato, nNumRepeticiones: integer;
begin
try
pDatoActual := DatosPartidaP;
try
for i := 0 to pStream.Size div (SizeOf(integer) shl 1) - 1 do
begin
pStream.Read(nNumRepeticiones, SizeOf(integer));
pStream.Read(nDato, SizeOf(integer));
for j := 0 to nNumRepeticiones - 1 do
begin
pDatoActual := nDato;
pDatoActual := pDatoActual + SizeOf(integer);
end;
end;
except
raise;
end;
finally
pStream.Free;
end;
end;
// Chamada em Delphi (convertida do C++Builder)
pStream :=
TBlobStream(ExportarDB.PartidasQ.CreateBlobStream(ExportarDB.PartidasQ.Field
ByName('Datos'), bmRead));
DescomprimeDatos(pStream, @DatosPartida);
// DATOS DE LA PARTIDA ** si la máquina es de solo peso
// Datos de la partida 10 pesos
for Calibre := 1 to 10 do
begin
Peso := DatosPartida[Calibre, 0, 0, 0, 0].nDatosPeso;
Frutas = DatosPartida[Calibre, 0, 0, 0, 0].nDatosFrutas;
end;
// Destrio - en caso de que la máquina tenga
Peso := DatosPartida[0, 0, 0, 0, 0].nDatosPeso;
AS := AS + strAux;
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Walter Chagas (Bol)
Enviada em: sexta-feira, 30 de julho de 2010 08:25
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Ferramenta para transcrever codigo C++ Builder para
Delphi
Eu precisei uma vez, na faculdade, de ferramentas pra portar código pascal
para C++. Achei muitas que faziam o contrario (algumas eram a própria
pagina) mas infelizmente não salvei as URLs senão até te passaria.
Os dois códigos são portáveis, basta voce saber o que um significa no outro.
O Struts, por exemplo, corresponde ao Record no Pascal. Variável com
asterisco na frente é um ponteiro, a seta (-) voce substitui pelo ponto e o
catch é o Exception no pascal
Mas dá uma olhada na web que vc deve achar tais ferramentas. Mas só
lembrando que as que vi convertiam apenas algorítmos e não forms e recursos
visuais.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: thevorte...@yahoo.com.br mailto:thevortex78%40yahoo.com.br
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, July 30, 2010 7:31 AM
Subject: [delphi-br] Ferramenta para transcrever codigo C++ Builder para
Delphi
Bom dia pessoal, tenho um cliente que tem uma maquina de classificação de
frutas e esta maquina possui um sistema que foi desenvolvido em C++ Builder
e armazena dados no MySQL, acontece que tem um campo onde o programador
armazena uma array muiltidimensional em um campo BLOB (vai saber La por que,
como eu disse o cara é programador de C++ Builder), descobri esse campo
quando fomo tentar importar os registros de classificação para o banco de
dados do ERP da empresa, entrei em contato com o programador dizendo como
poderia facilmente recuperar esses dados e ele me enviou esse código:
#define MAX_CALIBRES 16
#define MAX_COLORES 8
#define MAX_FORMAS 4
#define MAX_DENSIDADES 4
#define MAX_DEFECTOS 4
//--
struct tagDatosFrutas {
int nDatosPeso;
int nDatosFrutas;
};
struct tagDatosFrutas DatosPartida [MAX_CALIBRES+1]
[MAX_COLORES+1]
[MAX_FORMAS]
[MAX_DENSIDADES]
[MAX_DEFECTOS];
//--
void __fastcall DescomprimeDatos(TBlobStream *pStream, int* DatosPartidaP)
{
int *pDatoActual;
int nDato, nNumRepeticiones;
int i, j;
pDatoActual = DatosPartidaP;
try {
// Se divide por dos porque hago 2 lecturas en cada iteracion
for (i=0; i(int)(pStream-Size/(sizeof(int)*2)); i++) {
pStream-Read (nNumRepeticiones, sizeof (int));
pStream-Read (nDato, sizeof (int));
for (j=0; jnNumRepeticiones; j++) {
*pDatoActual = nDato;
pDatoActual++;
}
}
}
catch (...) {
throw;
}
delete pStream;
}
//--
** Tratamiento de la información de la partida después de seleccionarla
//--
(Código para c++ builder)
pStream = (TBlobStream *)ExportarDB-PartidasQ-
CreateBlobStream(ExportarDB-PartidasQ-
FieldByName(Datos), bmRead);
DescomprimeDatos( pStream, (int
RES: [delphi-br] Algoritimo porreta!!
Não vejo nada de porreta nisso! Isso será, no final das contas, uma verdadeira ginástica de scripts SQL que deverão rodar no banco de dados para: 1) Salvar os dados da tabela alvo em uma outra tabela temporária com a mesma estrutura da tabela alvo; 2) Dropar a tabela alvo do banco de dados, tomando cuidado com as dependências que a tabela possui (triggers, stored procedures, constraints, etc.); 3) Recriar a tabela alvo em questão com os campos na nova ordem física; 4) Copiar os dados que estão na tabela temporária para a nova tabela alvo. Não sei se existem bancos de dados que permitam, por meio de algum comando previsto em seu respectivo SQL Engine, que permita definir a ordem física de campos em uma tabela. Em todo caso, a receita de bolo genérica é essa! Porreta?!?!?!? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Algoritimo porreta!! Pessoal, Estou com uma certa dificuldade em montar este algoritimo. Tenho uma tabela no banco onde cadastro varias VARIAVEIS, por exemplo: varNome varEndereco varNumero varTelefone Cada uma dessas linhas representa uma coluna em outra tabela, por exemplo: ID Nome Endereco Numero Telefone 1 Murilo R. Alemanha 300 1234 2 Mauricio R. Tiradentes 123 1234 Se o usuario mudar a ordem de preenchimento desta tabela (ordem das variaveis) o sistema deve tb alterar as informacoes no banco, por exemplo varNumero varEndereco varTelefone varNome As informacoes seriam trocadas de colunas automaticamente, por exemplo: ID Numero Endereco Telefone Nome 1 300 R. Alemanha 1234 Murilo 2 123 R. Tiradentes 1234 Mauricio Como acertar estas informacoes (UPDATE) de acordo com a ordem do usuario??? Obrigado MuriloCunha [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Algoritimo porreta!!
Sinceramente, não vejo qualquer relação entre esta pergunta e o texto inicial da dúvida, em todo caso ... Quem procura, acha: Pesquisa AltaVista: http://www.altavista.com/web/results?itag=odypg=aqaqmode=saqa=Oracle+SQL+ Updateaqp=from+another+tableaqo=aqn=kgs=1kls=1dt=tmperiodd2=0dfr%5Bd %5D=1dfr%5Bm%5D=1dfr%5By%5D=1980dto%5Bd%5D=28dto%5Bm%5D=7dto%5By%5D=201 0filetype=rc=dmnswd=lh=nbq=10 Dica de um dos links encontrados na pesquisa anterior: http://decipherinfosys.wordpress.com/2007/01/31/update-data-in-one-table-wit h-data-from-another-table/ Boa sorte! Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Algoritimo porreta!! Rubem, Desculpe a ignorancia, mas como faco este UPDATE: UPDATE ca_analisis_dig SET ca_analisis_dig.ana1_c = ca_analisis_dig_old.ana4_c WHERE codigo = 'T01' ca_analisis_dig = tabela que gostaria de arrumar os campos ca_analisis_dig_old = tabela com os dados originais OBS.: Estou usando ORACLE Obrigado MuriloCunha On 28/07/2010 16:25, Rubem Rocha wrote: Ah, mais uma coisa: 5) Dropar a tabela temporária! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 28 de julho de 2010 15:19 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Algoritimo porreta!! Prioridade: Alta Não vejo nada de porreta nisso! Isso será, no final das contas, uma verdadeira ginástica de scripts SQL que deverão rodar no banco de dados para: 1) Salvar os dados da tabela alvo em uma outra tabela temporária com a mesma estrutura da tabela alvo; 2) Dropar a tabela alvo do banco de dados, tomando cuidado com as dependências que a tabela possui (triggers, stored procedures, constraints, etc.); 3) Recriar a tabela alvo em questão com os campos na nova ordem física; 4) Copiar os dados que estão na tabela temporária para a nova tabela alvo. Não sei se existem bancos de dados que permitam, por meio de algum comando previsto em seu respectivo SQL Engine, que permita definir a ordem física de campos em uma tabela. Em todo caso, a receita de bolo genérica é essa! Porreta?!?!?!? Sds. De: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br ] Em nome de Murilo Cunha Enviada em: quarta-feira, 28 de julho de 2010 15:06 Para: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Algoritimo porreta!! Pessoal, Estou com uma certa dificuldade em montar este algoritimo. Tenho uma tabela no banco onde cadastro varias VARIAVEIS, por exemplo: varNome varEndereco varNumero varTelefone Cada uma dessas linhas representa uma coluna em outra tabela, por exemplo: ID Nome Endereco Numero Telefone 1 Murilo R. Alemanha 300 1234 2 Mauricio R. Tiradentes 123 1234 Se o usuario mudar a ordem de preenchimento desta tabela (ordem das variaveis) o sistema deve tb alterar as informacoes no banco, por exemplo varNumero varEndereco varTelefone varNome As informacoes seriam trocadas de colunas automaticamente, por exemplo: ID Numero Endereco Telefone Nome 1 300 R. Alemanha 1234 Murilo 2 123 R. Tiradentes 1234 Mauricio Como acertar estas informacoes (UPDATE) de acordo com a ordem do usuario??? Obrigado MuriloCunha
RES: [delphi-br] [off-topic] Contrato de p roteção intelectual
Não seria melhor a gente procurar um advogado com especialidade em direito autoral pra sanarmos essas questões? Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jhosef Marks Enviada em: terça-feira, 27 de julho de 2010 12:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [off-topic] Contrato de proteção intelectual Sem contar que quando vc registra o teu sistema, vc envia os fontes junto para o registro. Ou seja, o fonte tbem conta bastante... Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 27 de julho de 2010 13:26, Dirlei Dionísio dir...@gmail.com escreveu: Imagine se alguém tivesse a propriedade intelectual sobre a ideia de um ERP, CRM, BI, Billing, etc, etc, etc... Proteger apenas os fontes (não a ideia) é possível, mas a menos que você tenha criado algoritmos fantásticos (que dificilmente alguém conseguiria fazer parecido sem olhar seus fontes), não valerá a pena. -- Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em 27 de julho de 2010 13:04, Fellipe Henrique felli...@gmail.comfellipeh%40gmail.com escreveu: Acredito que, diferentemente dos EUA, no BR não se tem a propriedade da idéia.. ou seja, voce pode criar contrato que quiser, se o cara sair da empresa em montar algo igual ao seu voce nao pode processar... desde que ele nao pegue codigo nenhum, e mesmo que pegar algum codigo, e modificar, já era... ou seja, no BR propriedade intelectual de software é complicado... []s Em 27 de julho de 2010 11:00, Walter Chagas (Bol) wchag...@bol.com.brwchagasj%40bol.com.br escreveu: Isso não funciona. Ja foi umas cem trilhões de vezes debatido aqui na lista e a conclusão que sempre se chega é esta. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.comwhitesockets% 40hotmail.com SKYPE: WalterChagasJr - Original Message - From: MaxxSoft - Huander huan...@maxxsoft.com.brhuander%40maxxsoft.com.br huander%40maxxsoft.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Tuesday, July 27, 2010 10:12 AM Subject: [delphi-br] [off-topic] Contrato de proteção intelectual Pessoal, a dúvida não é sobre delphi! mas estou recorrendo a vocês! Alguém tem um modelo de contrato a ser firmado entre empregado e empregador sobre a proteção dos fontes, idéia e tudo que dizer respeito ao desenvolvimento realizado dentro da empresa? Eu conhecia como contrato de proteção intelectual, mas pode ter outro nome. Quero fazer este contrato entre meus colaboradores para tentar me resguardar de futuros usos indevidos do que é desenvolvido pela empresa. Agradeço a todos que possam colaborar! Att. Huander Leão [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] [OFF] - Motivação
ah férias? programador não tira férias rapah! É, pode ter colega que não tira férias, mas eu sou humano e preciso, sempre que possível, recarregar as baterias. Mais um conselho pro Iran: tente cultivar um hobby que te permita descomprimir seu cérebro. Eu, por exemplo, toco como DJ em uma casa noturna das 23h00 até 01h00 da matina. Enquanto minha recarga de bateria não chega, faço descompressão cerebral tocando como DJ. Já alivia e muito meu estresse. Depois, é só ir pra casa dormir pelo menos umas 8 horas de sono. Ah, e isso eu não abro mão. Quando chega final de semana, a primeira oportunidade que tenho, durmo muito mesmo! E que se danem aqueles que dizem que dormir é perda de tempo! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Iran Lima Enviada em: terça-feira, 27 de julho de 2010 16:13 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] [OFF] - Motivação Cara gostei da dica do heavy metal, já me ajudou bastante na concentração e no ritmo do trabalho. Mas aqui onde trabalho fico com o fone só de um lado. Queria eu, usar um fone do grandão pra não ouvir nenhum som externo, mas tenho que atender telefone(suporte) e toda hora um vem alguém falar e tirar minha concentração. E depois ainda vem um e fala Porque ainda não ta pronto??? Vai demorar quanto tempo... Fico puto com essas perguntas, como farei previsão de tempo se não posso prever as interrupções??? -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de JB Enviada em: terça-feira, 27 de julho de 2010 15:59 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF] - Motivação caro Irã, trabalho a 11 anos como analista, programador, documentador, testador, trocador de galão de água, treinador, polidor, dba, suporte, secretário, gerente de projetos, saco de pancadas e as vezes fazendo um cafézinho rs, nada que alguém do segmento não precise pra se (des) motivar rs. Após todo esse tempo hoje estou em plenitude, ams o caminho foi duro. Siga os conselhos de Jhosef Marks. Palavras sábias, mas entenda a diferença da busca por motivação e de macaco que pula de galho em galho, num currículo conta muito o tempo de experiência em cada empresa, as vezes vc pensa que não está evoluindo mas sempre se tira algo, mentalize que você precisa melhorar sempre e não a empresa, a empresa é a cara dos funcionários, se tiver uns FDP que fazem panelinha então vc ta fudido mesmo rs. Trilhe o caminho com pedras, no final vai encontrar uma casa de massagens para os pés. No mais, programe ouvindo muito heavy metal e as vezes música clássica, fique off-line quando estiver compondo seus códigos rs ah férias? programador não tira férias rapah! boa sorte JB 2010/7/27 Fabiano Moura mctbra...@gmail.com mailto:mctbrasil%40gmail.com : *Boa tarde!* Irã, acredito que sua desmotivação é associado por falta de trabalhos interessantes, por isso, eu acho que primeiramente deve tentar na empresa que trabalha, caso não consiga nada para se motivar, procure outra empresa. Irá te ajudar! Bons programadores querem desafios, sem desafios se sentem desmotivados, então amigo, procura algo desafiador, ou como o companheiro Dirlei falou, consiga algo open-source para você contribuir e aumentar a motivação. *Obrigado,* * * *Fabiano* Em 27 de julho de 2010 14:03, Luis Alberto - Yahoo! luisalbertolo...@yahoo.com.br mailto:luisalbertolopes%40yahoo.com.br escreveu: Todos no mercado de trabalho, independente do segmento, está sujeito a isso. Ou a empresa tem que criar mecanismos de motivação ou você tem que procurar, na empresa, alguma motivação. Caso não seja possível, o melhor é mudar de ares mesmo. __ ___ Luis Lopes Belo Horizonte - MG luisalbertolo...@yahoo.com.br mailto:luisalbertolopes%40yahoo.com.br (31) 9741-7473 -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jhosef Marks Enviada em: terça-feira, 27 de julho de 2010 13:46 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF] - Motivação Se tu entende que não tem mais para onde crescer na empresa que vc esta atualmente, procura outra... rs Foi o que eu fiz até chegar em uma empresa que eu realmente tenho muito para aprender e crescer... Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em
RES: [delphi-br] Importação ignora 1ª linha do a rquivo
Me mande esse arquivo preu analisá-lo.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ralp Alves Bezerra
Enviada em: segunda-feira, 26 de julho de 2010 08:05
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo
Pois é Rubem, desculpe por não citar seu nome. Foram tantas as pessoas que
tentaram ajudar que as vezes cometemos estes deslizes.
Já no caso da importação, aqui realmente ele não reconhece a primeira linha
do arquivo. Será que é por causa da extensão (.DCD)? Este é o padrão
utilizado pelo tribunal aqui do Ceará.
Abraço.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Rubem Rocha
Enviada em: sexta-feira, 23 de julho de 2010 15:21
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo
Prioridade: Alta
Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época. Não
vi nada de anormal. Ele sempre pega todas as linhas do texto.
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 12:19
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo
Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.
--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com
Em 23 de julho de 2010 10:11, Ralp Alves Bezerra ral...@gmail.com
mailto:ralprd%40gmail.com
mailto:ralprd%40gmail.com escreveu:
Nobres colegas,
Recentemente tive um problema com a importação de um arquivo.
Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
consegui
sanar o problema.
A importação foi realizada. Porém, fazendo uma analise mais detalhada,
notei
que primeira linha do arquivo nunca é importada. Fica sempre faltando o
primeiro registro do arquivo.
Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
poder
me ajudar fico grato.
Abraço.
unit ufAnaliseDados;
interface
uses
Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
XiPanel, Dialogs, JvDialogs, XiProgressBar;
type
TfrmSIMNE = class(TForm)
XiPanel1: TXiPanel;
btImportar: TSpeedButton;
dbgDados: TDBGrid;
DBGrid1: TDBGrid;
srcDados: TDataSource;
JvOpenDialog1: TJvOpenDialog;
Barra: TXiProgressBar;
procedure btImportarClick(Sender: TObject);
private
fDadosTratados: TStringList;
fCdsDadosTratados: TClientDataSet;
procedure PrepararDados;
procedure AnalisarArquivo;
procedure CriarDataSet;
procedure LiberarDados;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frmSIMNE: TfrmSIMNE;
implementation
uses SysUtils, uDM, uImportaProcesso;
{$R *.dfm}
{ TfrmAnaliseDados }
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]), ftString, 40);
{ Cria o ClientDataset com os campos definidos }
fCdsDadosTratados.CreateDataSet;
{ Preenche o ClientDataSet com os dados tratados }
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
lLinhaDados.QuoteChar := '';
while fDadosTratados.Count 0 do
begin
fCdsDadosTratados.Append;
lLinhaDados.DelimitedText := fDadosTratados[0];
for i := 0 to 15 do
fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
fDadosTratados.Delete(0);
end;
finally
lLinhaDados.Free;
end;
{ Vincula o ClientDataSet ao DataSource associado ao DBGrid }
srcDados.DataSet := fCdsDadosTratados;
end;
procedure TfrmSIMNE.AnalisarArquivo;
var
lQtde, lCampos: integer;
lArquivo, lLinhaDados: TStringList;
sLinhaDados: string;
begin
If JvOpenDialog1.Execute then
Begin
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(JvOpenDialog1.FileName);
lCampos := 0;
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
while lArquivo.Count 0 do
begin
sLinhaDados := lArquivo[0];
lLinhaDados.DelimitedText := sLinhaDados;
lLinhaDados.QuoteChar := '';
lQtde := lLinhaDados.Count;
if lCampos = 0 then
lCampos
RES: [delphi-br] Interrupção SQL BDE
O BDE até possui um mecanismo de callback para bancos de dados, mas isso na época em que foi lançado só funcionada (teoricamente) com bancos de dados SyBase. Ou seja, muito provavelmente o BDE não implementa, para os bancos de dados que ele suporta, um mecanismo de callback para poder verificar, por exemplo, o estado de execução de uma consulta SQL. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de rcesa...@ymail.com Enviada em: segunda-feira, 26 de julho de 2010 08:56 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Interrupção SQL BDE Prezados, Existe alguma forma de interromper um SQL feito através do TQuery (BDE) ou determinar durante quanto tempo ele pode ser executado? Eu gostaria de poder interromper a execução de um SQL depois de, digamos, 2 segundos de execução. É possível? Obrigado, Ricardo. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Importação ignora 1ª linha do a rquivo
Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época. Não
vi nada de anormal. Ele sempre pega todas as linhas do texto.
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 12:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo
Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.
--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com
Em 23 de julho de 2010 10:11, Ralp Alves Bezerra ral...@gmail.comescreveu:
Nobres colegas,
Recentemente tive um problema com a importação de um arquivo.
Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
consegui
sanar o problema.
A importação foi realizada. Porém, fazendo uma analise mais detalhada,
notei
que primeira linha do arquivo nunca é importada. Fica sempre faltando o
primeiro registro do arquivo.
Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
poder
me ajudar fico grato.
Abraço.
unit ufAnaliseDados;
interface
uses
Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
XiPanel, Dialogs, JvDialogs, XiProgressBar;
type
TfrmSIMNE = class(TForm)
XiPanel1: TXiPanel;
btImportar: TSpeedButton;
dbgDados: TDBGrid;
DBGrid1: TDBGrid;
srcDados: TDataSource;
JvOpenDialog1: TJvOpenDialog;
Barra: TXiProgressBar;
procedure btImportarClick(Sender: TObject);
private
fDadosTratados: TStringList;
fCdsDadosTratados: TClientDataSet;
procedure PrepararDados;
procedure AnalisarArquivo;
procedure CriarDataSet;
procedure LiberarDados;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frmSIMNE: TfrmSIMNE;
implementation
uses SysUtils, uDM, uImportaProcesso;
{$R *.dfm}
{ TfrmAnaliseDados }
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]), ftString, 40);
{ Cria o ClientDataset com os campos definidos }
fCdsDadosTratados.CreateDataSet;
{ Preenche o ClientDataSet com os dados tratados }
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
lLinhaDados.QuoteChar := '';
while fDadosTratados.Count 0 do
begin
fCdsDadosTratados.Append;
lLinhaDados.DelimitedText := fDadosTratados[0];
for i := 0 to 15 do
fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
fDadosTratados.Delete(0);
end;
finally
lLinhaDados.Free;
end;
{ Vincula o ClientDataSet ao DataSource associado ao DBGrid }
srcDados.DataSet := fCdsDadosTratados;
end;
procedure TfrmSIMNE.AnalisarArquivo;
var
lQtde, lCampos: integer;
lArquivo, lLinhaDados: TStringList;
sLinhaDados: string;
begin
If JvOpenDialog1.Execute then
Begin
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(JvOpenDialog1.FileName);
lCampos := 0;
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
while lArquivo.Count 0 do
begin
sLinhaDados := lArquivo[0];
lLinhaDados.DelimitedText := sLinhaDados;
lLinhaDados.QuoteChar := '';
lQtde := lLinhaDados.Count;
if lCampos = 0 then
lCampos := lQtde
else if lQtde lCampos then
raise Exception.CreateFmt(
'Quantidade de campos das linhas de dados é variável.' +
sLineBreak + sLineBreak +
sLinhaDados +
sLineBreak + sLineBreak +
'(%d %d).', [lQtde, lCampos])
else
fDadosTratados.Add(sLinhaDados);
lArquivo.Delete(0);
end;
finally
lLinhaDados.Free;
end;
finally
lArquivo.Free;
end;
end;
end;
constructor TfrmSIMNE.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
PrepararDados;
AnalisarArquivo;
CriarDataSet;
end;
destructor TfrmSIMNE.Destroy;
begin
LiberarDados;
inherited Destroy;
end;
procedure TfrmSIMNE.LiberarDados;
begin
if Assigned(fDadosTratados) then
fDadosTratados.Free;
if Assigned(fCdsDadosTratados) then
begin
fCdsDadosTratados.Close;
fCdsDadosTratados.Free;
end;
end;
procedure TfrmSIMNE.PrepararDados;
begin
fDadosTratados := TStringList.Create
end;
procedure TfrmSIMNE.btImportarClick(Sender: TObject);
begin
DM.cds_SIM601.Open;
Try
DM.cds_SIM601.DisableControls;
fCdsDadosTratados.First;
fCdsDadosTratados.DisableControls;
Barra.Position:=0;
Barra.Max:=fCdsDadosTratados.RecordCount;
while not fCdsDadosTratados.Eof do
Begin
DM.cds_SIM601.Insert;
DM.cds_SIM601.fieldbyname('Numero_NE').AsString
RES: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO]
Então a RTTI foi revisada para atuar no escopo public de objetos. Isso aconteceu a partir de qual versão do Delphi? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Roni Rodrigo Enviada em: quarta-feira, 21 de julho de 2010 11:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: MethodAddress retornando NIL [CANCELADO] propriedades da seção published e métodos da public métodos private e protected não podem ser chamados externos à classe, pois isso quebra o paradigma da orientação a objetos o/ Em 19/07/2010 22:07, Fabricio Colombo escreveu: Essa rotina só funciona em um método declarado na seção published, correto? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: FW: [DICA] Linb Visual JS - IDE Web para JavaScript
Esta é uma alternativa de ferramenta para web que não impede que se possa usar uma ferramenta como o Delphi para criar camadas que possam interagir com a interface web criada nesta ferramenta da dica. Não vejo problema algum em divulgar uma dica referente a uma ferramenta que possa ser usada como alternativa para, em conjunto com o Delphi, desenvolver aplicações para Internet. E ainda mais sendo ela free e opensource. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: terça-feira, 20 de julho de 2010 18:54 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: FW: [DICA] Linb Visual JS - IDE Web para JavaScript olá, minha dica seria se as dicas fossem direcionadas ao uso principal da ferramenta Delphi, assim logo o assunto será ScriptCase, Maker, etc, além de ofuscar as diversas questões relacionadas diretamente ao propósito desde grupo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Nascimento da Rocha djpardalro...@... escreveu Visual JS é uma ferramenta web para design rápido de interfaces RIA com AJAX envolvendo programação de scripts. Escrita em puro javascript(jsLinb), VisualJS produz grandes capacidades com browsers web. Com este poderoso construtor, desenvolvedores profissionais e corporativos podem criar suas aplicações web como se fossem criá-las em VB ou Delphi, contando com suporte para texto com sintaxe destacada. Através de sua poderosa biblioteca de componentes AJAX (jsLinb), VisualJS simplifica designs complexos e entediantes, casos onde webdesigners são melhores que programadores. Mais de 40 componentes suportados. Os componentes são puramente construídos em XHTML, CSS, JavaScript e XML, que são padrões aceitos pela indústria e, consequentemente, são compatíveis com todos os grandes browsers, como Internet Explorer, Firefox, Opera e Safari, e podem ser colocadas em qualquer local na página. O design via arrastar-e-soltar insere componentes AJAX da galeria de componentes para a sua página. Ajuste seu tamanho, posição e outros atributos. E então você terá completado o trabalho. Construa sua página sem qualquer trabalho de codificação! O que você vê é exatamente o que você terá. Nenhum deslocamento, nenhuma transformação. Após o design completado, é feita a geração automática de código JavaScript pelo construtor visual enquanto ocorre o arrasto dos componentes. É claro também que se pode chavear entre o design da página e o código gerado para escrevê-lo manualmente. Todos os código gerados funcionam bem com qualquer browser popular e plataforma de sistema operacional. Layout flexível - As interfaces web criadas podem se redimencionar e reorganizar os componentes para se acomodarem ao tamanho da janela do browser e resolução de tela. Recursos: Enables Single-Page Interfaces, allows creation of zero-footprint applications with rich user-interface; Allows development of complex GUI with AJAX using Drag 'n' Drop; Provides most common widgets (more than 40. dialog, treebar, menu and toolbar, treegrid, tabs, colorPicker, datePikcer and more...); Exactly what you see is what you get; Support dynamic loading an extra file as a component of application; Custom widgets easily with OOP UI framework; Support for multilingual interface: change localization strings on the fly; Cross-browser, Supports modern browsers (IE6+, firefox1.5+, opera9+, safari3+); Output pure client Javascript code, that is platform-independent and server language-independent. Endereço: http://code.google.com/p/linb/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [CLIENTDATASET 3 TABELAS]
Isso é um relacionamento ‘n’-pra-‘n’. A tabela TAB_rep_cli representa esse relacionamento. Vejo que na verdade é um cadastro para uma única tabela, tendo as tabelas de representantes e de clientes como sendo de lookup. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quarta-feira, 21 de julho de 2010 16:49 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] [CLIENTDATASET 3 TABELAS] Não entendi muito bem sua pergunta Vc quer cadastrar o cliente e já liga-lo ao representante? É isso? -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Marcio mar...@sulfabril.com.br mailto:marcio%40sulfabril.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Julho de 2010 16:59:11 Assunto: [delphi-br] [CLIENTDATASET 3 TABELAS] Olá para os entendidos ... como é que se faz para usar ClientDataset com 3 tabelas no caso . ex: (Respresentantes 1-N Clientes ) TAB_Representante x TAB_rep_cli x TAB_Cliente supondo que eu esteja cadastrando o cliente, como faco para fazer a ligacao com o representante ?? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [DICA] Raudus - Aplicaçõe s RIA com Delphi 7/2006/2007
Bem, seria o caso então de analisar como o Raudus funciona para criarmos um produto semelhante a ele, mas que use jQuery, que até onde me consta é free! O que acham da idéia? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jackson Gomes - ToolsComps Enviada em: terça-feira, 20 de julho de 2010 17:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [DICA] Raudus - Aplicações RIA com Delphi 7/2006/2007 Gostei dele, alguém ai já usou ? quanto custa? A ferramenta é gratuita, mas para distribuir suas aplicações, vc precisa incluir a ExtJS (biblioteca JS usada pela ferramente), que é paga (729 USD) -- Jackson [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Procurar Nome da tabela dentro da query
Não tem algoritmo ou fórmula mirabolante pra esse caso. Usando a função Pos(), peque a posição da palavra FROM e a posição da próxima cláusula seguinte ao FROM (que pode ser WHERE, GROUP BY, HAVING, ORDER BY ou qualquer uma outra, dependendo do banco de dados que estejas usando). Recorte a string dentro desse faixa de posições e analise para obter o(s) nome(s) da(s) tabela(s) desejada(s). Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: quinta-feira, 15 de julho de 2010 10:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Procurar Nome da tabela dentro da query Alguém tem algum algoritimo para capturar o nome da tabela a que se refere uma query? por exemplo um objeto TsqlQuery com a instrução: ' select nome,telefone from CLIENTE where idcliente = :cliente '; o algoritimo iria retornar 'CLIENTE'. [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] MethodAddress retornando NIL
Eric, se você pensa em implementar algum tipo de automação em seus aplicativos, envolvendo a manipulação de elementos nele contidos, sugiro você pesquisar sobre ferramentas de scripting para Delphi. Uma boa alternativa, free e de código fonte aberto, é o PascalScript, da RemObjects (http://www.remobjects.com/ps). Caso não seja essa a sua necessidade, explique-a melhor, com riqueza de detalhes, para que possamos discutir uma alternativa técnica para tal. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: quinta-feira, 15 de julho de 2010 12:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] MethodAddress retornando NIL Alosi, Desta forma eu também já tinha encontrado na internet e na documentação. Veja que se você usar sua rotina como exemplifiquei anteriormente, não funcionará: ExecMethod( edit1, 'SETFOCUS' ) --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , jalosii jalo...@... escreveu Implementei sem problemas na semana passada em um sistema meu. Qual o real problema que vc está tendo? Sua procedure seria assim: unit Unit2; interface uses ...; type TForm2 = class(TForm) ... private procedure ExecMethod(NoObjecto: TObject; Nome_Metodo: String); ... var Form2: TForm2; type //tem que ser aqui, não sei explicar por que, mas se por acima do form no mesmo type causa erro TExec = procedure of object; ... procedure TForm2.ExecMethod(NoObjecto: TObject; Nome_Metodo: String); var Rotina: TMethod; Exec: TExec; begin Rotina.Data := Pointer(NoObjeto); Rotina.Code := NoObjeto.MethodAddress(Nome_Metodo);//Aqui que causa erro pra vc? if not Assigned(Rotina.Code) then exit; Exec := TExec(Rotina); Exec; end; ... O que eu percebi é se o método que vc quer chamar nã estiver nas declarações do FORM no lugar certo, o MethodAddress não encontra, tentei por em private e não achou, troquei o local da declaração pra acima do private e funcionou, no meu caso chamo uma procedure de outro form, pra que nesse não tenha acesso a banco de dados e está funcionando. Verifique teu código e se tiver mais erros nos avise pra ver se pudemos lhe ajudar. Alosi DigitalSystem Bento Gonçalves-RS [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] MethodAddress retornando NIL
Se você quer usar algo parecido com macro-substituição, o Delphi não dá suporte para isso, porquê simplesmente isso não é previsto na sua arquitetura. Em linguagens interpretadas, como o PHP, ou pseudo-interpretadas, como o (ainda vivo) Clipper, isso é possível (ou seja, pode ser mamão com açúcar, pois a arquitetura dessas linguagens assim o permite. Eu entendi o seu objetivo, por isso mesmo que sugeri uma ferramenta para scripting, por ser mais fácil nessa abordagem fazer tais chamadas dinâmicas, visto que um script pode ter código que pode ser criado e atribuído aos eventos de um objeto em tempo de execução e, ainda, poder ser chamado facilmente pelo seu nome. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: quinta-feira, 15 de julho de 2010 13:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] MethodAddress retornando NIL Colega, não é executar Scripts, por favor veja o que ja postamos. o pequeno e completo exemplo que foi postado, esta bem claro e fácil, é uma pena que há restrições e não consegui montar nada equivalente. O que faço facilmente em outra linguagem estruturada com poucos recursos OOP, parece ser mosca branca de zóio verde ou extravagante demais em Delphi rsrs. Só me resta aguardar, tentar outros caminhos ou desistir disso, o que acho tão simples, é um mistérios aos demais. Fiz uma pesquisa aqui, achei um colega querendo o mesmo (tópico de uns 2 anos), entrei em contato com ele e até hoje não conseguiu. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Rocha rubem.ro...@... escreveu Eric, se você pensa em implementar algum tipo de automação em seus aplicativos, envolvendo a manipulação de elementos nele contidos, sugiro você pesquisar sobre ferramentas de scripting para Delphi. Uma boa alternativa, free e de código fonte aberto, é o PascalScript, da RemObjects (http://www.remobjects.com/ps). Caso não seja essa a sua necessidade, explique-a melhor, com riqueza de detalhes, para que possamos discutir uma alternativa técnica para tal. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de eric_developer Enviada em: quinta-feira, 15 de julho de 2010 12:07 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] MethodAddress retornando NIL Alosi, Desta forma eu também já tinha encontrado na internet e na documentação. Veja que se você usar sua rotina como exemplifiquei anteriormente, não funcionará: ExecMethod( edit1, 'SETFOCUS' ) --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , jalosii jalosii@ escreveu Implementei sem problemas na semana passada em um sistema meu. Qual o real problema que vc está tendo? Sua procedure seria assim: unit Unit2; interface uses ...; type TForm2 = class(TForm) ... private procedure ExecMethod(NoObjecto: TObject; Nome_Metodo: String); ... var Form2: TForm2; type //tem que ser aqui, não sei explicar por que, mas se por acima do form no mesmo type causa erro TExec = procedure of object; ... procedure TForm2.ExecMethod(NoObjecto: TObject; Nome_Metodo: String); var Rotina: TMethod; Exec: TExec; begin Rotina.Data := Pointer(NoObjeto); Rotina.Code := NoObjeto.MethodAddress(Nome_Metodo);//Aqui que causa erro pra vc? if not Assigned(Rotina.Code) then exit; Exec := TExec(Rotina); Exec; end; ... O que eu percebi é se o método que vc quer chamar nã estiver nas declarações do FORM no lugar certo, o MethodAddress não encontra, tentei por em private e não achou, troquei o local da declaração pra acima do private e funcionou, no meu caso chamo uma procedure de outro form, pra que nesse não tenha acesso a banco de dados e está funcionando. Verifique teu código e se tiver mais erros nos avise pra ver se pudemos lhe ajudar. Alosi DigitalSystem Bento Gonçalves-RS [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Procurar Nome da tabela dentro da query
Pode ser que existam parsers mas, como podes constatar que isso é bem simples, nada impede que você possa construir o seu próprio parser. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: quinta-feira, 15 de julho de 2010 14:25 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Procurar Nome da tabela dentro da query Obrigado, achei que alguém podesse ter um parser para fazer isto. From: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thu, July 15, 2010 11:52:45 AM Subject: RES: [delphi-br] Procurar Nome da tabela dentro da query Não tem algoritmo ou fórmula mirabolante pra esse caso. Usando a função Pos(), peque a posição da palavra ‘FROM’ e a posição da próxima cláusula seguinte ao FROM (que pode ser WHERE, GROUP BY, HAVING, ORDER BY ou qualquer uma outra, dependendo do banco de dados que estejas usando). Recorte a string dentro desse faixa de posições e analise para obter o(s) nome(s) da(s) tabela(s) desejada(s). Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Evaldo Enviada em: quinta-feira, 15 de julho de 2010 10:41 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Procurar Nome da tabela dentro da query Alguém tem algum algoritimo para capturar o nome da tabela a que se refere uma query? por exemplo um objeto TsqlQuery com a instrução: ' select nome,telefone from CLIENTE where idcliente = :cliente '; o algoritimo iria retornar 'CLIENTE'. [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] MethodAddress retornando NIL
Se você não define um local apropriado para o método ou propriedade, ele será por default declarado como published, em se tratando de componentes. Por isso que o MethodAddress funcionou! No caso de classes normais, sem serem descendentes de TPersistent ou TComponent, a declaração default é como public. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de jalosii Enviada em: quinta-feira, 15 de julho de 2010 08:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] MethodAddress retornando NIL Implementei sem problemas na semana passada em um sistema meu. Qual o real problema que vc está tendo? Sua procedure seria assim: unit Unit2; interface uses ...; type TForm2 = class(TForm) ... private procedure ExecMethod(NoObjecto: TObject; Nome_Metodo: String); ... var Form2: TForm2; type //tem que ser aqui, não sei explicar por que, mas se por acima do form no mesmo type causa erro TExec = procedure of object; ... procedure TForm2.ExecMethod(NoObjecto: TObject; Nome_Metodo: String); var Rotina: TMethod; Exec: TExec; begin Rotina.Data := Pointer(NoObjeto); Rotina.Code := NoObjeto.MethodAddress(Nome_Metodo);//Aqui que causa erro pra vc? if not Assigned(Rotina.Code) then exit; Exec := TExec(Rotina); Exec; end; ... O que eu percebi é se o método que vc quer chamar nã estiver nas declarações do FORM no lugar certo, o MethodAddress não encontra, tentei por em private e não achou, troquei o local da declaração pra acima do private e funcionou, no meu caso chamo uma procedure de outro form, pra que nesse não tenha acesso a banco de dados e está funcionando. Verifique teu código e se tiver mais erros nos avise pra ver se pudemos lhe ajudar. Alosi DigitalSystem Bento Gonçalves-RS eric_developer escreveu: isso é muito diferente do que preciso, mesmo assim obrigado. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Fabricio Colombo fabricio.colombo@... escreveu Para o método SetFocus, seria melhor vc chamar direto o método. Por exemplo, se vc estiver em um form, bastaria chamar Self.FocusControl(edit1) ou vc cria um método seu procedure TForm1.SetFocusComponent(AComponent: TComponent); begin if AComponent is TWinControl then TWinControl(AComponent).SetFocus; end; Que outros métodos vc precisa invocar? Praticamente todos os métodos comuns entre os componentes visuais, estão presentes em TControl e TWinControl, que são as classes base. Em 14 de julho de 2010 20:49, eric_developer developer.syst...@...escreveu: executar métodos, irei passar para minha função, o objeto e a string com o nome do método, exemplo: myCallMethod( edit1, 'SETFOCUS' ) ; --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Fabricio Colombo fabricio.colombo.mva@ escreveu O que vc está pretendendo fazer Eric? Em 14 de julho de 2010 16:02, Mário Guedes jmarioguedes@escreveu: Eu fiz assim: http://eugostododelphi.blogspot.com/2010/04/como-executar-um-metodo-pelo-nom e.html *José Mário Silva Guedes* e-mail: jmarioguedes@ jmarioguedes%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Sugestão
Moderador, porquê não instituímos sorteios de brindes (ou coisa do tipo) para aqueles colegas da lista que colaborarem com dicas para a lista? Assim, podemos enriquecer o conteúdo da mesma, afim de que ela fique menos 0-800-HELPDESK e seja mais útil também. Ah, mas quem poderia providenciar tais brindes? Ora, não temos inscritos na lista pessoas de destaque da Embarcadero? Eles poderiam dar uma forçinha para essa idéia dar certo. Que tal? Sds. [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para:
RES: Res: [delphi-br] OldValue e NewValue - de novo !
Não, não fica! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jean Alysson Enviada em: quarta-feira, 14 de julho de 2010 09:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: [delphi-br] OldValue e NewValue - de novo ! O problema é que os valores de OldValue e NewValue so aparecem quando executamos um POST, mas desejo fazer essa verificacao sem executar POST, quando o usuario sai do campo (OnExit) de desconto. Será que o valor antigo fica em memoria ? --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Marcelo leite_rom...@... escreveu Quando o usuario nao pode usar o desconto, compara o oldValue com newValue se for diferente volta para o OldValue não precisa guardar em variavel nenhuma.está meio confuso. De: Jean Alysson jeanp...@... Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Julho de 2010 8:20:49 Assunto: [delphi-br] OldValue e NewValue - de novo ! Olá pessoal, esta duvida já passou por aqui e nao vi uma solucao ideal, vou coloca-la novamente em outras palavras para ver se aparece uma solucao. Pelo jeito o OldValue e NewValue funcionam quando quando passamos pelo POST e ApplyUpdates, mas eu gostaria de verificar por exemplo: em um campo de valor_desconto, o usuario digita um valor e tecla ENTER, eu verifico se ele pode usar esse desconto, se nao puder eu tenho que voltar o valor anterior, existe como saber este ValorAnterior sem ter que guardar o valor no OnEnter do DBEdit e depois recupera-lo ? Assim eu saberei tbm se esse campo foi alterado. Obrigado Jean Alysson [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Ora, o StringReplace vai retirar as aspas onde apenas haverão aspas, e o separador será ponto-e-vírgula. Não vejo problema nenhum nisso. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 08:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 6:14 PM Subject: RES: RES: [delphi-br] Importação de Arquivo Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,”] para [;] 2) De [“,] para [;] 3) De [“,”] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br
RES: RES: [delphi-br] Importação de Arquivo
Ok. Identifiquei que são 38 campos em cada linha de dados. Só preciso saber o significado e tipo de dados de cada um deles. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 11:07 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo O arquivo original http://www.grupog2gestao.com.br/NE201005.txt De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:00 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas
RES: RES: [delphi-br] Importação de Arquivo
Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e Delimiter. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fabricio Colombo Enviada em: quarta-feira, 14 de julho de 2010 09:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente. Em 14 de julho de 2010 10:03, Ralp Alves Bezerra ral...@gmail.comescreveu: Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PE DRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.brmailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] MethodAddress retornando NIL
Olha o help! MethodAddress só funciona para métods published!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de eric_developer
Enviada em: quarta-feira, 14 de julho de 2010 13:04
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] MethodAddress retornando NIL
Boa tarde pessoal,
alguem sabe como obter o ponteiro de métodos existentes ? no exemplo, se eu
criar o método teste para o form2, funciona, retornando o ponteiro.
No lugar de form2, usarei componentes edit, combobox, etc e metodos
existentes.
procedure TForm2.teste ;
begin
ShowMessage('OLA');
end;
procedure TForm2.Button1Click(Sender: TObject);
var
routine : TMethod ;
Begin
routine.data:=pointer(form2) ;
routine.Code:=Form2.MethodAddress('teste') ; // Nome do metodo
if routine.Code nil then
begin
ShowMessage('OK');
end;
end;
Grato,
Eric Developer Systems
[As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Eu leria linha-a-linha, e cada linha lida retiraria todas as aspas! Depois, usaria o bom e velho TStringList pra separar os dados da linha, usando as propriedades DelimitedText e Delimiter. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de anckerdj Enviada em: terça-feira, 13 de julho de 2010 16:38 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Ralp Alves Bezerra wrote: Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 Use um parser simples (autômato) e vai funcionar sempre. []'s [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas: 1) De [,”] para [;] 2) De [“,] para [;] 3) De [“,”] para [;] Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! Bem mais fácil pra ler, não? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 13 de julho de 2010 17:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Em termos de código, ficaria assim:
{ Troca as virgulas e aspas por ponto-e-vírgula }
function NormalizaLinha(sLinha: string): string;
begin
Result := sLinha;
Result := StringReplace(Result, ',', ';', [rfReplaceAll]);
Result := StringReplace(Result, ',', ';', [rfReplaceAll]);
Result := StringReplace(Result, ',', ';', [rfReplaceAll]);
end;
procedure ImportarArquivo(NomeArquivo: string);
var
sLinha: string;
lArquivo, lLinha: TStringList;
begin
if not FileExists(NomeArquivo) then
Exit;
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(NomeArquivo);
while lArquivo.Count 0 do
begin
if not Assigned(lLinha) then
begin
lLinha := TStringList.Create;
lLinha.Delimiter := ';';
end;
sLinha := NormalizeLinha(lArquivo[0]);
lLinha.DelimitedText := sLinha;
{ Aqui, o StringList lLinha contém, em cada posição
dentro dele, um valor separado. Aqui, poste o código
para efetuar a importação do registro! }
lArquivo.Delete(0);
end;
finally
if Assigned(lLinha) then lLinha.Free;
lArquivo.Free;
end;
end;
Sds.
De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br]
Enviada em: terça-feira, 13 de julho de 2010 17:15
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta
Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas:
1) De [,”] para [;]
2) De [“,] para [;]
3) De [“,”] para [;]
Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula!
Bem mais fácil pra ler, não?
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome
de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo
Não não não não.
Da forma como você está propondo, voce supoe que entre os valores do tipo
String (que são delimitados por aspas duplas) pode vir apenas um valor float.
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:
601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2
,002,,33901400,130.00
como ficaria este caso?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo
tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores
decimais não será substituida. Ai ele terá um separador padrão o ponto e
virgula. depois fica facil.
De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo
é mas e a virgula dos valores decimais??
É um enigma essa parada daí.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo
Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um
separador padrão ai facaria muito mais facil de trabalhar
De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.
Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ]
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta
Qual é exatamente a sua dificuldade?
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject
RES: [delphi-br] Como atribuir instruções a evento s em tempo de execução ?
Na verdade não seria atribuição de instruções a eventos, mas atribuições de
métodos a eventos. Isso é simples de se fazer. Basta que o método possua uma
assinatura igual a que é requerida pelo evento. Por exemplo, o evento
OnClick de um botão é definido como um ponteiro para um método de um objeto
que deve possuir como parâmetro um elemento do tipo TObject, conforme é
definido no help da seguinte maneira:
type TNotifyEvent = procedure (Sender: TObject) of object;
(Fonte: help do Delphi)
Sabendo disto, você só pode atribuir diretamente a um evento um método de
objeto que tenha a mesma assinatura requerida pelo evento. Não se pode
simplesmente atribuir um ShowMessage(). Mesmo com a possibilidade existente
na linguagem Delphi do RAD Studio 2010 de permitir atribuição anônima de
eventos, os mesmos devem obedecer a assinatura do evento.
Portanto, colega Eric, você tem que criar um método de objeto com a
assinatura do evento para que o mesmo possa ser atribuído diretamente a ele.
Exemplo:
{ Método criado com assinatura requerida pelo evento OnClick }
procedure ObjetoQualquer.MostraMensagem(Sender: TObject);
begin
ShowMessage(Evento atribuído em run-time);
end;
procedure MeuBotao(UmForm: TForm);
begin
with TButton.Create(UmForm) do
begin
Parent := UmForm;
Width := 60;
Left := 10;
Top := oFrm.Height - oBtn.Height - 40;
Caption := 'Close';
OnClick := ObjetoQualquer.MostraMensagem;
end;
end;
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Anderson Junior
Enviada em: domingo, 11 de julho de 2010 20:22
Para: delphi-br@yahoogrupos.com.br; memsystems-pas...@yahoo.com
Assunto: Re: [delphi-br] Como atribuir instruções a eventos em tempo de
execução ?
boa noite, vc conegui resolver seu problema com Como atribuir
instruções a eventos em tempo de execução ?
Em 19/01/2010 02:48, developer.systems escreveu:
Boa noite a todos !
Tenho uma função que cria o botão tem tempo de execução, mas como
atribuir em tempo de execução, uma função/procedure ao evento onClick ?
procedure MeuBotao( oFrm: TForm ) ;
var oBtn: TButton ;
begin
oBtn:=TButton.Create(oFrm);
oBtn.Parent:=oFrm;
oBtn.Width:=60;
oBtn.Left:=10;
oBtn.Top:=oFrm.Height-oBtn.Height-40;
oBtn.Caption:='Close';
//oBtn.onClick Neste evento, atribuir por exemplo: ShowMessage(
'MyButton RunTime and onClick' ) ;
end;
Virtualmente/Regards
Eric
Developer.Systems
São Paulo - Brasil
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ENC: [DICA] Rotina pra Checar Descendência de Inst âncias de Objetos
{ Checa se uma instância de objeto pertence a uma sub-classe de uma
determinada classe }
function IsSubClassOf(AnInstance: TObject; AClass: TClass): boolean;
var
lClassRef: TClass;
begin
lClassRef := AnInstance.ClassType.ClassParent;
repeat
Result := (lClassRef = AClass);
lClassRef := lClassRef.ClassParent;
until Result or (not Assigned(lClassRef));
end;
{ Checa se uma instância de objeto pretence a uma determinada classe }
function IsClassOf(AnInstance: TObject; AClass: TClass): boolean;
begin
Result := (AnInstance.ClassType = AClass);
end;
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Como atribuir instruções a evento s em tempo de execução ?
Ah, mas e se eu não tiver um método de objeto e sim uma rotina solta, que
não está declarada em um objeto, mas que eu queira atribuí-la a um evento?
Como eu faço?
Assim perguntaria um hipotético participante da lista. Também tem jeito sim.
Existe uma estrutura chamada TMethod que pode representa os
dados(argumentos) e código de um método. Com essa estrutura, é possível
manipular eventos de forma a ser possível atribuir rotinas soltas de
objetos a eventos. Vamos a um exemplo.
Supondo que queremos atribuir uma rotina solta a um botão que iremos criar
para um formulário, de forma análoga ao exemplo fornecido pelo Eric. Usando
a estrutura TMethod faríamos assim:
procedure MostraMensagem(Data: Pointer; Sender: TObject);
begin
ShowMessage(Evento atribuído em tempo de execução.);
end;
procedure MeuBotao(UmForm: TForm);
var
Botao: TButton;
Evento: TNotifyEvent;
begin
Botao := TButton.Create(UmForm);
with Botao do
begin
Parent := UmForm;
SetBounds(10, UmForm.Height - Botao.Height - 40, 60, Botao.Height);
Caption := Close;
end;
TMethod(Evento).Code := @MostraMensagem;
TMethod(Evento).Data := Botao;
Botao.OnClick := Evento;
end;
(Referência: http://www.delphi3000.com/articles/article_3335.asp)
É importante prestar atenção para a assinatura da rotina solta. Ela recebe
dois argumentos, um que consiste num dado referente à instância que irá
chamar o código do evento, e outro que é faz parte da assinatura do evento.
Ou seja, para atribuir rotinas soltas a um evento, ainda assim estas devem
possuir a assinatura do evento precedida de um ponteiro para a instância de
objeto que será indicada na chamada ao evento.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: segunda-feira, 12 de julho de 2010 11:44
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Como atribuir instruções a eventos em tempo de
execução ?
Prioridade: Alta
Na verdade não seria atribuição de instruções a eventos, mas atribuições de
métodos a eventos. Isso é simples de se fazer. Basta que o método possua uma
assinatura igual a que é requerida pelo evento. Por exemplo, o evento
OnClick de um botão é definido como um ponteiro para um método de um objeto
que deve possuir como parâmetro um elemento do tipo TObject, conforme é
definido no help da seguinte maneira:
type TNotifyEvent = procedure (Sender: TObject) of object;
(Fonte: help do Delphi)
Sabendo disto, você só pode atribuir diretamente a um evento um método de
objeto que tenha a mesma assinatura requerida pelo evento. Não se pode
simplesmente atribuir um ShowMessage(). Mesmo com a possibilidade existente
na linguagem Delphi do RAD Studio 2010 de permitir atribuição anônima de
eventos, os mesmos devem obedecer a assinatura do evento.
Portanto, colega Eric, você tem que criar um método de objeto com a
assinatura do evento para que o mesmo possa ser atribuído diretamente a ele.
Exemplo:
{ Método criado com assinatura requerida pelo evento OnClick }
procedure ObjetoQualquer.MostraMensagem(Sender: TObject);
begin
ShowMessage(Evento atribuído em run-time);
end;
procedure MeuBotao(UmForm: TForm);
begin
with TButton.Create(UmForm) do
begin
Parent := UmForm;
Width := 60;
Left := 10;
Top := oFrm.Height - oBtn.Height - 40;
Caption := 'Close';
OnClick := ObjetoQualquer.MostraMensagem;
end;
end;
Sds.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Anderson Junior
Enviada em: domingo, 11 de julho de 2010 20:22
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ;
memsystems-pas...@yahoo.com mailto:memsystems-pascal%40yahoo.com
Assunto: Re: [delphi-br] Como atribuir instruções a eventos em tempo de
execução ?
boa noite, vc conegui resolver seu problema com Como atribuir
instruções a eventos em tempo de execução ?
Em 19/01/2010 02:48, developer.systems escreveu:
Boa noite a todos !
Tenho uma função que cria o botão tem tempo de execução, mas como
atribuir em tempo de execução, uma função/procedure ao evento onClick ?
procedure MeuBotao( oFrm: TForm ) ;
var oBtn: TButton ;
begin
oBtn:=TButton.Create(oFrm);
oBtn.Parent:=oFrm;
oBtn.Width:=60;
oBtn.Left:=10;
oBtn.Top:=oFrm.Height-oBtn.Height-40;
oBtn.Caption:='Close';
//oBtn.onClick Neste evento, atribuir por exemplo: ShowMessage(
'MyButton RunTime and onClick' ) ;
end;
Virtualmente/Regards
Eric
Developer.Systems
São Paulo - Brasil
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi Prism
No Prism, vc programa voltado para o .NET. A sintaxe da linguagem Delphi do Prism é adequada para as convenções do .NET. Informe-se mais. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ray Silva Enviada em: terça-feira, 6 de julho de 2010 16:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi Prism Pessoal, boa tarde. Alguém já está trabalhando com o Delphi Prism? Qual o feedback de vocês? Eu iniciei um projeto na empresa onde trabalho e estou tenho um pouco de dificuldade com relação a documentação e até mesmo a linguagem em sí. Tentei usar o With e me parece que no Prism ele não é suportado. Foi uma grande surpresa. Referente à documentação, não tenho visto muita atividade nos fóruns EDN, o Wiki do Prism tá bem básico. Referente a linguagem: Quando eu vou acessar algum evento existente, ele duplica os métodos! Segue um exemplo que aconteceu agora: ... type morador = public partial class(System.Web.UI.Page) protected method btnSalvar_Click(sender: System.Object; e: System.EventArgs); method btnSalvar_Click(sender: System.Object; e: System.EventArgs); ... Estou tentando imaginar o que pode ser isso. Bug da IDE? ! Qual a opinião de vocês? O que esperam ou não esperam do Prism? Grande abraço a todos. Jump off cliffs all the time and build your wings on the way down. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Executar aplicativos a partir da me mória
A API do Windows só suporta carregar um processo em disco e executá-lo. Portanto, vais ter que obrigatoriamente salvar esse binário em disco (seja físico ou virtual) e executá-lo. A alternativa, como o Waltão sugeriu, seria um ramdrive, que seria um disco em memória. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: sexta-feira, 18 de junho de 2010 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Executar aplicativos a partir da memória Bom dia, alguem sabe informar se é possível (e como) executar aplicativos windows (EXE qualquer) a partir da memória ? ou seja, supondo que armazenei o mesmo em banco de dados e efetuei um load para variavel de memória, a partir daí executá-lo, sem precisar descarregar em disco. Eric Developer Systems www.magaldi.eti.br [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Executar aplicativos a partir da memória
Em qualquer ambiente operacional, todo processo é um programa em execução, e um programa nada mais é do que código a ser executado que encontra-se armazenado em memória de massa. Ou seja, salvo em disco. Portanto, para um programa se tornar um processo ele deve ser carregado do disco e depois executado. E nesse processo, não tem pra onde correr, você sempre dependerá da API do sistema operacional para isso. Os mais experientes me corrijam caso eu esteja errado! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: sexta-feira, 18 de junho de 2010 17:48 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Executar aplicativos a partir da memória quem sabe exista alguma forma que não dependa da API do Windows. Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Rocha rubem.ro...@... escreveu A API do Windows só suporta carregar um processo em disco e executá-lo. Portanto, vais ter que obrigatoriamente salvar esse binário em disco (seja físico ou virtual) e executá-lo. A alternativa, como o Waltão sugeriu, seria um ramdrive, que seria um disco em memória. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de eric_developer Enviada em: sexta-feira, 18 de junho de 2010 09:27 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Executar aplicativos a partir da memória Bom dia, alguem sabe informar se é possível (e como) executar aplicativos windows (EXE qualquer) a partir da memória ? ou seja, supondo que armazenei o mesmo em banco de dados e efetuei um load para variavel de memória, a partir daí executá-lo, sem precisar descarregar em disco. Eric Developer Systems www.magaldi.eti.br [As partes desta mensagem que não continham texto foram removidas]
RES: RES: RES: [delphi-br] Executar aplicativos a part ir da memória
Não contraria, pois o RAM Drive constaria na memória, e como vc quer executar um binário que está em memória, ... Resta só pesquisar pra saber como criar um RAM drive via API do Windows. E mais ainda, descobrir como esse RAM Drive seja visível somente à sua aplicação. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: sexta-feira, 18 de junho de 2010 18:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Executar aplicativos a partir da memória pelo Delphi ou outra linguagem, talvez o que desejo exatamente não seja possível, como eu disse, é possível criar disco virtual usando um pedaço da RAM, ou seja, acredito que isso já contraria o que descreveu, mas enfim... Caso alguém conheça uma forma, por favor, nos informe. Grato, Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Rocha rubem.ro...@... escreveu Em qualquer ambiente operacional, todo processo é um programa em execução, e um programa nada mais é do que código a ser executado que encontra-se armazenado em memória de massa. Ou seja, salvo em disco. Portanto, para um programa se tornar um processo ele deve ser carregado do disco e depois executado. E nesse processo, não tem pra onde correr, você sempre dependerá da API do sistema operacional para isso. Os mais experientes me corrijam caso eu esteja errado! Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de eric_developer Enviada em: sexta-feira, 18 de junho de 2010 17:48 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Executar aplicativos a partir da memória quem sabe exista alguma forma que não dependa da API do Windows. Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Rocha rubem.rocha@ escreveu A API do Windows só suporta carregar um processo em disco e executá-lo. Portanto, vais ter que obrigatoriamente salvar esse binário em disco (seja físico ou virtual) e executá-lo. A alternativa, como o Waltão sugeriu, seria um ramdrive, que seria um disco em memória. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de eric_developer Enviada em: sexta-feira, 18 de junho de 2010 09:27 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Executar aplicativos a partir da memória Bom dia, alguem sabe informar se é possível (e como) executar aplicativos windows (EXE qualquer) a partir da memória ? ou seja, supondo que armazenei o mesmo em banco de dados e efetuei um load para variavel de memória, a partir daí executá-lo, sem precisar descarregar em disco. Eric Developer Systems www.magaldi.eti.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Duvida NFe com duas CFOP
Luis Carlos, Discordo de você quando diz que fui infeliz em meu comentário. A experiência mostra que muitos contadores não possuem o devido conhecimento acerca do tema abordado, ou seja, ainda acreditam que CFOP e Natureza de Operação é a mesma coisa. Ainda mais quando o assunto é nota fiscal eletrônica (NF-e), aí é que eles se enrolam mais ainda! Fico feliz que você seja uma (rara) exceção! Minha observação é com base na minha experiência, cuja mesma é embasada em fatos. Concordo que os contadores é quem deveriam ter esse entendimento, mas em termos de NF-e prefiro dirimir minhas dúvidas com experientes analistas de negócio e consultores de ERPs. Respeito sua opinião, assim como gostaria que você respeitasse a minha, pois ela é baseada em experiência e vivência de fatos. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Luis Carlos Enviada em: quarta-feira, 16 de junho de 2010 20:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Duvida NFe com duas CFOP Não vá cair na besteira de solucionar essa dúvida com um contador, pq a maioria dos contadores ou não sabem nem para onde vai esse negócio de NF-e ou, assim como vc, devem imaginar que CFOP e natureza de operação são a mesma coisa. Rubem, Você foi infeliz nesse seu comentário acima, CFOP faz parte da rotina de um escritório contábil que trabalha com a escrita fiscal, o que provavelmente você se baseou, foi que na contabilidade, que como em muitas áreas, ela também têm seus especialistas na, contabilidade publica, contabilidade comercial, contabilidade do terceiro setor, contabilidade rural, fiscais, rh,etc.., então você deve fazer a pergunta para a devida área e como em muitas áreas existem muitos maus profissionais sem o menor profissionalismo, não é ? Bom, respondendo a questão do sr. Samuel, sim, cada mercadoria têm o seu CFOP, isso é devido pela tributação diferenciada de cada mercadoria, ex: Natureza da Operação: Venda Mercadoria: 01-Arroz - CFOP 5.102 : venda de mercadoria adquirida de 3º para revenda Mercadoria: 02-Cerveja - CFOP 5.403 - venda de mercadoria adquirida de 3º para revenda com subst.trib. Os CFOP não só podem ser feita como deve ser feita ao contador da empresa, porque cada mercadoria se comporta diferente nas empresas. Cada um opina na sua área, e quem não é da área, não dê respostas precipitadas. Luis Carlos Contador e Programador. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Duvida NFe com duas CFOP
Discordo de você quando diz que fui infeliz em meu comentário. A experiência mostra que muitos contadores não possuem o devido conhecimento acerca do tema abordado, ou seja, ainda acreditam que CFOP e Natureza de Operação é a mesma coisa. Ainda mais quando o assunto é nota fiscal eletrônica (NF-e), aí é que eles se enrolam mais ainda! Fico feliz que você e outros colegas desta lista sejam (raras) exceções! Minha observação é com base na minha experiência, cuja mesma é embasada em fatos. Concordo que os contadores é quem deveriam ter esse entendimento, mas em termos de NF-e prefiro dirimir minhas dúvidas com experientes analistas de negócio e consultores de ERPs. Respeito sua opinião, assim como gostaria que você respeitasse a minha, pois ela é baseada em experiência e vivência de fatos. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Gildenor - Autogere Informática Enviada em: quarta-feira, 16 de junho de 2010 23:17 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Duvida NFe com duas CFOP Caro Luis, Parabéns!!! Att, -- Gildenor Teixeira Programado, Contador. Autogere - Sistemas de Automação e Gestão 61 9985-9008 Em 16 de junho de 2010 21:54, Luis Carlos luyskar...@gmail.com escreveu: Não vá cair na besteira de solucionar essa dúvida com um contador, pq a maioria dos contadores ou não sabem nem para onde vai esse negócio de NF-e ou, assim como vc, devem imaginar que CFOP e natureza de operação são a mesma coisa. Rubem, Você foi infeliz nesse seu comentário acima, CFOP faz parte da rotina de um escritório contábil que trabalha com a escrita fiscal, o que provavelmente você se baseou, foi que na contabilidade, que como em muitas áreas, ela também têm seus especialistas na, contabilidade publica, contabilidade comercial, contabilidade do terceiro setor, contabilidade rural, fiscais, rh,etc.., então você deve fazer a pergunta para a devida área e como em muitas áreas existem muitos maus profissionais sem o menor profissionalismo, não é ? Bom, respondendo a questão do sr. Samuel, sim, cada mercadoria têm o seu CFOP, isso é devido pela tributação diferenciada de cada mercadoria, ex: Natureza da Operação: Venda Mercadoria: 01-Arroz - CFOP 5.102 : venda de mercadoria adquirida de 3º para revenda Mercadoria: 02-Cerveja - CFOP 5.403 - venda de mercadoria adquirida de 3º para revenda com subst.trib. Os CFOP não só podem ser feita como deve ser feita ao contador da empresa, porque cada mercadoria se comporta diferente nas empresas. Cada um opina na sua área, e quem não é da área, não dê respostas precipitadas. Luis Carlos Contador e Programador. [As partes desta mensagem que não continham texto foram removidas] Uma idéia realmente boa é simples, inesperada e relevante. (Nadja Schnetzler) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Função Explode
Correção na segunda implementação:
function SplitStr(const s: string; sep: Char): TStringDynArray; overload;
var
ls: TStrings;
begin
ls := SplitStr(s, sep);
try
SetLength(Result, 0);
while ls.Count 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := ls[0];
ls.Delete(0);
end;
finally
ls.Free;
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 15 de junho de 2010 11:02
Para: delphi-br
Assunto: RE: [delphi-br] Função Explode
Prioridade: Alta
Não tem nativa. Vai ter que implementar.
Exemplo de implementação:
{ Retorna um TStrings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStrings; overload;
begin
Result := TStringList.Create;
Result.Delimiter := sep;
Result.DelimitedText := s;
end;
{ Retorna um array dinâmico de strings contendo em cada posição
cada palavra de um texto especificado }
function SplitStr(const s: string; sep: Char): TStringDynArray; overload;
var
ls: TStrings;
begin
ls := SplitStr(s, sep);
SetLength(Result, 0);
while ls.Count 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := ls[0];
ls.Delete(0);
end;
end;
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: evaldoave...@yahoo.com.br mailto:evaldoavelar%40yahoo.com.br
Date: Tue, 15 Jun 2010 07:55:25 -0700
Subject: [delphi-br] Função Explode
Delphi tem alguma função explode nativa?
ou vou ter que implementar?
por exemplo:
A string:
str := teste,teste,teste,teste
explode(str,',');
retorna uma stringlist:
teste
teste
teste
tese
__
O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA
MAIS AQUI.
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.asp
x?tabid=1
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.as
px?tabid=1catid=1WT.mc_id=1589 catid=1WT.mc_id=1589
[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] heranca ajudinha simples
O q vc quer dizer exatamente com consultar o código do form pai? Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de alessandra porto Enviada em: sexta-feira, 11 de junho de 2010 13:54 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] heranca ajudinha simples amigos como faço para consultar o form pai quando não sei o nome dele no projeto e encontro somente isso no form filho. procedure TFmCadUsuarios.BtnGravarClick(Sender: TObject); begin inherited; end; existe algunha tecla ou associação que faço sobre a palavra inherited; que me leve ao codigo do form pai ? estou usando delphi 7 grata [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Buscar/Procurar Texto em PDF
Algum colega na lista teve necessidade de fazer busca de textos em arquivos PDF? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] (unknown)
A lista não aceita anexos nas msgs. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Barbosa Araujo Enviada em: quinta-feira, 10 de junho de 2010 09:16 Para: barbosa.sanf...@gmail.com Assunto: [delphi-br] (unknown) Prezados, Segue currículo de um amigo meu. Ele tem bastante experiência na área. Se puderem ajudar na recolocação dele eu agradeço. Se necessário, pedirei a ele que elabore um currículo mais direcionado à oferta, vez que esse ora encaminhado está mais aberto. Obrigado pela ajuda, Marcelo Barbosa [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Buscar/Procurar Texto em PDF
Descobri uma maneira, usando a type library do Acrobat que é instalada com o produto. Vejam o VBScript abaixo: Option Explicit Dim AcroApp, AcroAVDoc Dim gPDFPath, bReset, nCount gPDFPath = C:\QTTutorial.pdf ' ** Initialize Acrobat by creating App object Set AcroApp = CreateObject( AcroExch.App ) ' ** show Acrobat AcroApp.Show() ' ** Set AVDoc object Set AcroAVDoc = CreateObject( AcroExch.AVDoc ) ' ** open the PDF If AcroAVDoc.Open( gPDFPath, ) Then AcroAVDoc.BringToFront() bReset = True : nCount = 0 Do While AcroAVDoc.FindText( Checkpoint, True, True, bReset ) bReset = False : nCount = nCount + 1 Wait 0, 200 Loop End If AcroApp.CloseAllDocs() AcroApp.Exit() Print The word 'Checkpoint' was found nCount times. Set AcroApp = Nothing Sds. Grato a todos que tiveram atenção com minha dúvida. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Enviada em: quinta-feira, 10 de junho de 2010 14:14 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Buscar/Procurar Texto em PDF O Adobe Professional voce pode salvar em txt em depois pesquisar De: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 10 de Junho de 2010 12:58:27 Assunto: [delphi-br] Buscar/Procurar Texto em PDF Algum colega na lista teve necessidade de fazer busca de textos em arquivos PDF? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas
Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Se for uma aplicação que pode necessitar de algum tipo de replicação ou contenção massificada de dados, optaria pelo SQL Server Express 200x ou FireBird. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de junho de 2010 12:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas No caso de usar o Firebird embacado, para matar o esquema de uma unica conexao é soh fazer uma aplicação multicamada, os usuários se conectam no servidor que por sua vez se conecta no banco (uma unica conexao no banco). Quanto ao SQLite, já ouvi falar muito bem, só fica o esquema de ter que usar componentes de terceiro ou desenvolver seu proprio drive de conexão. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 5 de junho de 2010 11:01, arossi75 anderson.ro...@gmail.com escreveu: Use o Firebird embedded. Vc não instala nada apenas copia agumas dlls e arquivos para o raiz de seu exec. O arquivo do BD é o mesmo usado pela versão servidor. Caso um dia seu sistema comece a ser acessado por mais pessoas , basta apenas instalar a versão servidor e alterar a forma de acesso em seu sistema. Porém a versão embedded do Firebird é MONOUSUÁRIO!!, ou seja, somente dá acesso local ao banco de dados, não adianta fazer aquela velha gambiarra de compartilhar uma pasta.
RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas
Pelos motivos que expus. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vitor Yahoo Enviada em: segunda-feira, 7 de junho de 2010 13:26 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Por que usaria o paradox Rubem? _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 13:12 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Se for uma aplicação que pode necessitar de algum tipo de replicação ou contenção massificada de dados, optaria pelo SQL Server Express 200x ou FireBird. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de junho de 2010 12:01 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas No caso de usar o Firebird embacado, para matar o esquema de uma unica conexao é soh fazer uma aplicação multicamada, os usuários se conectam no servidor que por sua vez se conecta no banco (uma unica conexao no banco). Quanto ao SQLite, já ouvi falar muito bem, só fica o esquema de ter que usar componentes de terceiro ou desenvolver seu proprio drive de conexão. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 5 de junho de 2010 11:01, arossi75 anderson.ro...@gmail.com mailto:anderson.rossi%40gmail.com mailto:anderson.rossi%40gmail.com escreveu: Use o Firebird embedded. Vc não instala nada apenas copia agumas dlls e arquivos para o raiz de seu exec. O arquivo do BD é o mesmo usado pela versão servidor. Caso um dia seu sistema comece a ser acessado por mais pessoas , basta apenas instalar a versão servidor e alterar a forma de acesso em seu sistema. Porém a versão embedded do Firebird é MONOUSUÁRIO!!, ou seja, somente dá acesso local ao banco de dados, não adianta fazer aquela velha gambiarra de compartilhar uma pasta. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: FastCubo
Parece aquela história do povo falar Data Modulo, ao invés de Data Module, ou pelo menos falar em português claro módulo de dados. RS RS RS! Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de eric_developer Enviada em: quarta-feira, 2 de junho de 2010 08:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: FastCubo Acho que é um Cubo Rápido rsrsrs É um produto da empresa que desenvolve o FastReport. FASTCUBE is a tool for effective data analysis. FastCube enables you to analyze data and to build summary tables (data cutoffs) as well as to create various reports and graphs easily and instantly. It's a handy tool for efficient analytical data arrays handling. FastCube is a set of OLAP Desktop components. It supports Delphi 5, Delphi 6, Delphi 7, Delphi 2005, Delphi 2006/Turbo Delphi, Delphi 2007, Delphi 2009, C++Builder 6, C++Builder 2007, C++ Builder 2009, CodeGear RAD Studio 2009, Lazarus. Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Rubem Nascimento da Rocha djpardalro...@... escreveu O que é FastCubo??? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: wild...@... Date: Tue, 1 Jun 2010 22:52:53 -0300 Subject: [delphi-br] FastCubo Olá pessoal gostaria de estar tendo conato com usuários do fastcubo pois não estou conseguindo criar um campo calculado com calculo de % entre um valor e outro. Agradeço qualquer ajuda. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Criando Matriz
Esboce mais ou menos o q você quer fazer. Pode ser um pedaço de código hipotético que ilustre bem sua idéia. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leonardo Baldino Enviada em: segunda-feira, 31 de maio de 2010 14:10 Para: Grupo_Delphi Assunto: [delphi-br] Criando Matriz alguel sabe como eu posso fazer para criar uma matriz em tempo de execução usando valores de duas variaveis integer para linha e coluna. -- Leonardo Carlos Baldino - The Highlander [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] Criando Matriz
Se você está usando arrays de variants, prefira o uso da função
VarArrayCreate(). Caso contrário, se você está trabalhando com arrays de
tipos de dados primitivos, sugiro que você crie funções especializadas para
cada tipo de array que você irá trabalhar. O exemplo abaixo trabalha com
vetores e matriz de valores numéricos inteiros.
program DynArraySample;
{$APPTYPE CONSOLE}
uses
SysUtils{$IF CompilerVersion = 14.0}, Types{$IFEND};
type
{$IF CompilerVersion 14.0}
TIntegerDynArray = array of Integer;
{$IFEND}
TIntegerMultiDynArray = array of TIntegerDynArray;
function CreateIntegerArray(const Columns: integer): TIntegerDynArray;
overload;
begin
SetLength(Result, Columns);
end;
function CreateIntegerArray(const Rows, Columns: integer):
TIntegerMultiDynArray; overload;
var
i: integer;
begin
SetLength(Result, Rows);
for i := Low(Result) to High(Result) do
Result[i] := CreateIntegerArray(Columns);
end;
var
i, j: Integer;
Vetor: TIntegerDynArray;
Matriz: TIntegerMultiDynArray;
begin
Randomize;
Vetor := CreateIntegerArray(3);
for i := Low(Vetor) to High(Vetor) do
Vetor[i] := Random(100);
WriteLn('Mostrando vetor criado ...');
for i := Low(Vetor) to High(Vetor) do
WriteLn(Vetor[i]);
WriteLn; WriteLn;
SetLength(Vetor, 0);
Matriz := CreateIntegerArray(3, 4);
for i := Low(Matriz) to High(Matriz) do
for j := Low(Matriz[i]) to High(Matriz[i]) do
Matriz[i, j] := Random(100);
WriteLn('Mostrando matriz criada ...');
for i := Low(Matriz) to High(Matriz) do
begin
for j := Low(Matriz[i]) to High(Matriz[i]) do
Write(Matriz[i, j], ' ');
WriteLn;
end;
SetLength(Matriz, 0);
WriteLn(Eoln);
end.
Boa sorte.
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: segunda-feira, 31 de maio de 2010 14:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criando Matriz
algo do tipo eu insero em dois edits o numero de colunas e linhas e quando
eu clico em um bitbtn eu crio uma matriz em tempo de execução com o numero
de linhas e colunas que eu indiquei
Em 31 de maio de 2010 15:11, Rubem Rocha
rubem.ro...@dtmanaus.com.brescreveu:
Esboce mais ou menos o q você quer fazer. Pode ser um pedaço de código
hipotético que ilustre bem sua idéia.
Sds.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Leonardo Baldino
Enviada em: segunda-feira, 31 de maio de 2010 14:10
Para: Grupo_Delphi
Assunto: [delphi-br] Criando Matriz
alguel sabe como eu posso fazer para criar uma matriz em tempo de execução
usando valores de duas variaveis integer para linha e coluna.
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Leonardo Carlos Baldino - The Highlander
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Delphi 7 x JVCL x Windows 7
Algum colega teve sucesso com essa tríade? Sds. Rubem Nascimento da Rocha 92 8429 2865 rubem.ro...@digitalti.com.br assinatura email Digital TI - Coordenação de Automação Av. Carvalho Leal, 1330 - 1º Andar Cachoeirinha - 69065-001 Manaus/AM Call Center: 92 2101-0100 http://www.dtmanaus.com.br www.dtmanaus.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] dbMemo
Isso não é pau no componente. Isto está intimamente relacionado com o conjunto de caracteres usado pelo PostgreSQL para armazenar caracteres nesse campo memo. Sugiro uma boa estudada na documentação do PostgreSQL para entender como esse SGBDR lida com conjuntos de caracteres. No FireBird e no SQL Server, existe a figura do COLLATION. Estude a documentação do PostgreSQL para saber se existe algo semelhante (ou igual) e que esteja influenciando nesse comportamento estranho no armazenamento dos caracteres. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de rzzanatta Enviada em: terça-feira, 18 de maio de 2010 15:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] dbMemo poruqe quando digito no dbmemo exemplo C:\teste.txt ele grava certo no banco, mas quando vou ver novamente apos ser gravado esse campo me mostra assim c:ëte.txt e nao c:\teste.txt? é pau de componente? eu uso Postgres [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] matemática complexa
{ ODEIO FAZER RECEITA DE BOLO! GR! }
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended;
begin
Result := ValorBruto * (0.145 * Ord(ComNota)) * 1.30;
end;
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Walter Chagas (Bol)
Enviada em: terça-feira, 18 de maio de 2010 16:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] matemática complexa
Cade o Rubem Rocha?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: geovan127
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, May 18, 2010 4:44 PM
Subject: [delphi-br] matemática complexa
Olá pessoal sou novo no delphi gostaria de tirar uma dúvida com vcs ,
preciso criar um código que faça a seguinte operação:
recebo um valor bruto:17.000
diminuo 14,5% desse valor (com nota fiscal) e depois multiplico por 30% =
valor final
caso se for sem nota recebo o valor bruto e já *(multiplico) direto por 30%,
obtivendo o valor final, somente isso.
Uso o Delphi 7.0
Agradeço imensamente, o interesse e a ajuda de todos obrigado.
Geovan Martins
Administrador de Redes Linux
LPIC
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] matemática complexa
Ops! Escrevi na carreira e só agora detectei um bug!
Aí vai a receita de bolo corrigida!
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended;
begin
Result := ValorBruto * IfThen(ComNota, 0.145, 1) * 0.30
end;
Necessita da unit Math declara no uses.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: terça-feira, 18 de maio de 2010 17:03
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] matemática complexa
Prioridade: Alta
{ ODEIO FAZER RECEITA DE BOLO! GR! }
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended;
begin
Result := ValorBruto * (0.145 * Ord(ComNota)) * 1.30;
end;
Sds.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Walter Chagas (Bol)
Enviada em: terça-feira, 18 de maio de 2010 16:57
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] matemática complexa
Cade o Rubem Rocha?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
mailto:wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
mailto:whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: geovan127
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, May 18, 2010 4:44 PM
Subject: [delphi-br] matemática complexa
Olá pessoal sou novo no delphi gostaria de tirar uma dúvida com vcs ,
preciso criar um código que faça a seguinte operação:
recebo um valor bruto:17.000
diminuo 14,5% desse valor (com nota fiscal) e depois multiplico por 30% =
valor final
caso se for sem nota recebo o valor bruto e já *(multiplico) direto por 30%,
obtivendo o valor final, somente isso.
Uso o Delphi 7.0
Agradeço imensamente, o interesse e a ajuda de todos obrigado.
Geovan Martins
Administrador de Redes Linux
LPIC
[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] matemática complexa
Se não dessa forma, então deve ser dessa:
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended;
begin
Result := ValorBruto - (ValorBruto * IfThen(ComNota, 0.145, 1) * 0.30)
end;
A explicação da dúvida não ficou muito clara pra mim! Por isso que escrevi
essas hipóteses!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: terça-feira, 18 de maio de 2010 17:14
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] matemática complexa
Prioridade: Alta
Ops! Escrevi na carreira e só agora detectei um bug!
Aí vai a receita de bolo corrigida!
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended;
begin
Result := ValorBruto * IfThen(ComNota, 0.145, 1) * 0.30
end;
Necessita da unit Math declara no uses.
Sds.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Rubem Rocha
Enviada em: terça-feira, 18 de maio de 2010 17:03
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] matemática complexa
Prioridade: Alta
{ ODEIO FAZER RECEITA DE BOLO! GR! }
function ValorFinal(ValorBruto: Extended; ComNota: Boolean): Extended;
begin
Result := ValorBruto * (0.145 * Ord(ComNota)) * 1.30;
end;
Sds.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Walter Chagas (Bol)
Enviada em: terça-feira, 18 de maio de 2010 16:57
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] matemática complexa
Cade o Rubem Rocha?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
mailto:wchagasj%40bol.com.br
mailto:wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
mailto:whitesockets%40hotmail.com
mailto:whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: geovan127
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Tuesday, May 18, 2010 4:44 PM
Subject: [delphi-br] matemática complexa
Olá pessoal sou novo no delphi gostaria de tirar uma dúvida com vcs ,
preciso criar um código que faça a seguinte operação:
recebo um valor bruto:17.000
diminuo 14,5% desse valor (com nota fiscal) e depois multiplico por 30% =
valor final
caso se for sem nota recebo o valor bruto e já *(multiplico) direto por 30%,
obtivendo o valor final, somente isso.
Uso o Delphi 7.0
Agradeço imensamente, o interesse e a ajuda de todos obrigado.
Geovan Martins
Administrador de Redes Linux
LPIC
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acbr ou Emissor de NFe
Tem que ter um certificado do contribuinte para poder acessar os ambientes de homologação. Não pode ser qualquer certificado. Tem que ser um certificado contendo os dados de contribuinte já autorizado na SEFAZ para acessar o ambiente de homologação. O certificado digital, seja A1(arquivo) ou A3(token), deve obrigatoriamente ser instalado no computador. Não pode apontar para um arquivo de rede simplesmente. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: segunda-feira, 17 de maio de 2010 13:56 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Acbr ou Emissor de NFe Nesse caso eu tenho que testar na maquina do cliente por causa do certificado? Ou existe alguma maneira de testar sem eu ter o certificado na maquina? Alias, outra duvida... no cliente, só o computador onde esta instalado o certificado é que as notas podem ser enviadas? Não dá pra fazer uso do certificado na rede? Agradeço a atenção de todos! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 17 de Maio de 2010 13:01:26 Assunto: Re: [delphi-br] Acbr ou Emissor de NFe cara... se vc vai comecar, sugiro usar o acbr, algum outro componente, ou criar suas próprias classes... mas de qualquer forma, enviando direto pro web service... dá um pouco de trabalho no início, mas as vantagens a longo prazo são grandes.. Nunca usei o programa emissor da RF, mas parece que ele é permitido para empresas até determinado porte, ou seja, não são todas as empresas que podem enviar a nf pelo programa deles.. outra coisa é que o cara vai ter q gerar um txt.. e ir no programa da receita pra enviar a nota... Em 17/05/2010 10:07, Eny Urias escreveu: Olá pessoal! Preciso implementar no sistema o envio de NFe... O meu cliente já utiliza o programa Emissor da receita... estou na duvida se inicio o trabalho com o ACBr ou simplesmente envio o txt para o Emissor da receita. Qual a vantagem de cada um? Algum já teve essa duvida? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Intraweb
Não teve sucesso com projetos Web? E o DataSnap pra aplicações escaláveis? O DataSnap é uma tecnologia madura e robusta para desenvolvimento de aplicações distribuídas e escaláveis, semelhante à tecnologia WCF (Windows Communication Foundation) do .NET Framework, e ela existe desde os tempos do Delphi 3. Com as facilidades de desenvolvimento web que começaram a surgiram a partir do Delphi 5, a ferramenta sempre teve ‘bala na agulha’ para grandes projetos web. O melhor exemplo disso é o site da Saraiva. 100% Delphi. Equivoca-se que acha que o Delphi não dá conta no quesito web. Além disso, ouso dizer que quem primeiro trouxe o desenvolvimento RAD para web foi o Delphi. O Visual Studio e o ASP.NET apenas acompanharam essa tendência. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Alexandre Lemos Rodrigues Enviada em: quinta-feira, 13 de maio de 2010 20:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Intraweb Discordo. Se o sistema caminhar pro grande porte e o 'boss achar que está economizando utilizando Delphi com IW, vai chegar uma hora que o sistema não vai aguentar escalar e a mudança pra outra linguagem vai vir de qualquer jeito, só que da pior forma possível. E o barato vai sair caro. O JBuilder da Borland é uma bruta ferramenta e Java é uma linguagem que nasceu pra web, ao contrário do Delphi, que brilha no Desktop mas nunca conseguiu repetir o mesmo sucesso no browser. Uma solução que tenta aliar os prós e contras é portar seu servidor de aplicações pra Java e consumir os web services no sistema Delphi desktop e na tecnologia que você preferir pra web. Vai ser mais lento que usar o Intraweb direto e mais rápido que redesenvolver tudo. Em 13 de maio de 2010 18:21, Jackson Gomes - ToolsComps jack...@toolsandcomps.com mailto:jackson%40toolsandcomps.com escreveu: Nosso problema aqui é que temos o sistema feito em delphi e gostaríamos de compartilhar regras de negócio do mesmo para o desenvolvimento, diminuindo o nosso retrabalho. E o boss quer que se use o delphi para isso, principalmente depois de conferência com o Bruno Lichot. Seu boss está com toda razão, visto que linha de código vale dinheiro. Já pensou re-escrever milhares de linha de código em Java só por causa de modinha? Tudo bem que Java não é modinha, é uma linguagem muito boa, robusta, etc, etc... mas tem é que pensar com o bolso numa hora dessas... Pense bem, seu boss resolve re-escrever o sistema em Java. Pra isso ser viável financeiramente, ele precisa de uma equipe que já domine a linguagem, conheça uma boa ferramenta, domine os frameworks, etc... Se ele não tem isso em casa, vai mandar a equipe Delphi embora, mantem um só pra segurar o sistema atual e contrata outra turma... Eu, preferencialmente, partiria para Java dado o tamanho do sistema que temos. Muito pelo contrário. Dado o tamanho do sistema, ficaria no Delphi mesmo. Tem que pensar com o bolso, não somos mais acadêmicos... Pra quem não conhece, tem uma lista de IW que eu participo. Tem uma movimentação razoável lá (http://br.groups.yahoo.com/group/iwbr/) Também assista a esse vídeo: http://edn.embarcadero.com/br/article/40335 Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Banco Sybase sem BDE
Você precisa adquirir e instalar um OleDB Provider para Sybase. Veja no(s) CD(s) de instalação do SyBase não incluem esse OleDB Provider para ser instalado no computador cliente. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Paulo Salvador Enviada em: segunda-feira, 10 de maio de 2010 14:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Banco Sybase sem BDE Pessoal, gostaria de saber se existe como acessar tabelas do banco Sybase sem usar BDE (não queria substituir por ZEOS ou outro destes), gostaria de usar ADO. Para isso queria saber como fazer para que apareça o Sybase nas Propriedades de associação de dados que aparece quando vou colocar a string de conexão clicando em Build no componente ADOConection. Grato Paulo. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: OFF-TOPIC registro do windows com 15 MB !!??
Penso que esse conceito de compactação não é aplicável ao registro do Windows, pois a maioria (pra não dizer 100%) dos utilitários que existem voltados para manutenção do registro do Windows propõe-se a fazer apenas o que o CCleaner faz, ou seja, excluir apenas entradas inválidas do registro do Windows. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Luiz Escobar Enviada em: sexta-feira, 7 de maio de 2010 15:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: OFF-TOPIC registro do windows com 15 MB !!?? Então mas esse CCleaner é pra limpar entradas invalidas, o que quero é compactar, tipo quando vc compacta pasta no Outlook Express, entende, vc vai apagando e-mails mas o danados ainda ficam lá, ai de tempos em tempos vc compacta pra excluir, igual arquivos DBFs... []s Luiz Escobar From: simoesluciano Sent: Friday, May 07, 2010 4:26 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Re: OFF-TOPIC registro do windows com 15 MB !!?? CCleaner nele. Faz um backup antes. Mas não espere milagres. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luiz Escobar esco...@... escreveu CARA, que susto, meu registro do WindowsXP esta com 15MB, tem como limpar e fazer um defrag nisso ??? Tudo bem que tem coisa instalada pra caramba, mas pera ai 15MB ??? no meu note esta com 9 MB e tem muita mais coisas Não esta dando ERRO, mas se compactar isso com certeza a maquina vai ficar com uma resposta melhor... [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [OFF TOPIC] Comunicador entre equipes
Microsoft Office Communicator. Além de ser interno, pode ser configurado pra receber contatos externos, como por exemplo contatos do MSN. Usamos na empresa. Muito bom. Informe-se. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fellipe Henrique Enviada em: sexta-feira, 7 de maio de 2010 15:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [OFF TOPIC] Comunicador entre equipes Primeiro, desculpe pelo OFF, mas aqui acredito que terei mais chances de achar... Amigos, alguém conhece, ou já trabalhou com algum sistema de envio de mensagens para equipes, tipo um Outlook, porém interno, na própria empresa...entre setores e etc..? Obrigado. -- _ T.·.F.·.A.·. Fellipe Henrique [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Qual o limite de tamanho para u m executável?
Deduzo eu que seja Developer Network. Uma abreviação para indicar o site para relacionamento com desenvolvedores da Embarcadero, cujo endereço principal é http://edn.embarcadero.com. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Albuquerque Enviada em: terça-feira, 4 de maio de 2010 09:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Qual o limite de tamanho para um executável? Walter, Perdoe minha enorme ignorância, mas oque/onde é DN ? Desde já agradeço a atenção dispensada. Att. Albuquerque -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Walter Chagas (Bol) Enviada em: terça-feira, 4 de maio de 2010 10:41 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Qual o limite de tamanho para um executável? Tudo que aprendi sobre como configurar o compilador e o linkeditor no Delphi eu obtive lá no DN. Ce já foi lá? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fellipe Henrique felli...@gmail.com mailto:fellipeh%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, May 04, 2010 10:03 AM Subject: Re: [delphi-br] Qual o limite de tamanho para um executável? Ótima explicação Walter... só mais uma coisa.. procurei na net, algo sobre o compilador e linkeditor.. mas nao achei uma configuração padrão boa.. você teria algo? []s Em 4 de maio de 2010 09:25, Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br escreveu: Executáveis muito grandes são mal sinal. Sinal de que o projeto/programação/codificação está mal estruturado. Sinal de que o compilador ou o Linkeditor estão mal configurados. Sinal de que o projeto está muito gordo ou cheio de coisas que nunca serão usadas. Executáveis muito grandes, são lentos, dão problemas de alocação de memória e recursos, dentre outros. Quase todos aqui são unânimes em propor a modularização. Quebrar seu exe em dll's ou Bpl's que, inclusive, facilitam muito a manutenção visto que dependendo do que for, voce só mexe na dll e pronto. Não compromete o resto do sistema. Convem sempre analisar as configurações do compilador e do linkador antes de gerar o exe final para implantar. Pode-se perfeitamente, por exemplo, desabilitar as opções de debugação. Outra coisa que incha executavel é mandar incluir parametros e mapeamento interno para usar o Turbo Debugger da borland (Include TD32 Debug Info). Verifique se isto está habilitado. A regra básica é: O executavel passou de 4MB, é hora de revisão. Revise se há rotinas que podem ser incorporadas em módulos, bem como funções. Revise se há redundância de código e se fragmentos de código comuns em vários pontos não podem ser convertidos em uma função a ser armazenada em uma dll que faça a mesma coisa. Imagens, devem ser restritas ao mínimo possível e, preferencialmente, de baixa resolução. Imagens grandes = executaveis grandes = alocação maior de memória. Forms podem ser racionados. Verifique se um processo/Rotina em seu sistema que use 5 forms não podem cair pra pra 2 forms ou mesmo 1 com abas. Componenetes de acesso a dados (Queries, DSPs e CDS´s) podem ser reaproveitados. Verifique se voce não está usando componentes demais pra coisas de menos. E por aí vai... []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fabiano Moura mctbra...@gmail.com mailto:mctbrasil%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, May 03, 2010 11:48 PM Subject: Re: [delphi-br] Qual o limite de tamanho para um executável? E eu que pensei que o meu programa de 8 MB era grande, rsrsrs!!! Em 3 de maio de 2010 19:29, Marcos Alexandre Lemos Rodrigues marcosalexandre.rodrig...@gmail.com mailto:marcosalexandre.rodrigues%40gmail.com escreveu: Limite não existe, já vi executáveis com mais de 300 MB. Só não é prático. Melhor separar em pacotes bpl mesmo ou então em dlls, que além de ficar mais fácil trabalhar, existe opção de carregar na memória apenas quando o usuário realmente precisar do módulo, economizando memória geral. Em 3 de maio de 2010 19:14, Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br escreveu: 35MB? Meu amigo, considere para ontem separar sua aplicação em
RES: [delphi-br] ClientDataSet
Informe-se no help do Delphi sobre a propriedade UpdateStatus do TClientDataSet. Acredito que este seja o caminho. Veja exemplo de uso desta propriedade (extraído do help do Delphi 7). procedure TDBClientTest.ProviderUpdateData(Sender: TObject; DataSet: TCustomClientDataSet); begin with DataSet do while not EOF do begin if UpdateStatus = usDeleted then LogDelete(DataSet, UserName, Date, Time); Next; end; end; Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Abreu Ferreira Enviada em: segunda-feira, 3 de maio de 2010 11:01 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ClientDataSet Eny, não uso banco de dados na aplicação. Recebo as informações por socket e as vou salvando em um ClientDataSet e com o tempo as vou processando. Para que ela não seja reprocessada, gostaria de marcar com um X em um determinado campo no processamento daquele determinado registro. Logo depois do processamento de todos os registros, quero apagar os que estiverem marcado com o X para liberar memória. Pensei em fazer isso, pois enquanto faço o processamento, o sistema pode estar recebendo novos registros. Em 1 de maio de 2010 20:48, Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br escreveu: Você tem duas opções... Aplicar um filtro com o estado que vc quer e fazer um while e ir apagando um por um processo + demorado... Usar um componente para fazer o delete no banco usando um parametro com o estado que vc quer.. processo + rapido... Aí vai de vc escolher -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Marcos Abreu Ferreira maferreira...@gmail.com mailto:maferreira.f2%40gmail.com maferreira.f2%40gmail.com Para: lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br lista-delphi%40yahoogrupos.com.br; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sábado, 1 de Maio de 2010 18:35:26 Assunto: [delphi-br] ClientDataSet Pessoal, Tenho um clientdataset com 3 campos -Codigo (string,12) -Nome (string,35) -Estado (string,2) Preciso colocar uma ação num botao onde eu vá apagar os registros de um determinado estado no clientdataset. Como fazer? Att, marcos [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [OFF] FENASOFT
FENASOFT? Há décadas que não vejo e nem ouço falar nisso! Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alemão Enviada em: segunda-feira, 3 de maio de 2010 14:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF] FENASOFT Fenasoft? Acho que acabou. Pelo menos nunca mais ouvi falar. É uma pena, a feira era muito boa quando estava no auge. Há um tempo atrás, tinha a comdex tb, mas acho que também acabou. []s Em 30 de abril de 2010 16:27, Murilo Cunha mcscu...@yahoo.com.br escreveu: Pessoal, Alguem saberia informar quando vai ser a FENASOFT 2010? Onde vai ser? Se nao existe mais, qual feira tao grande quanto essa para irmos buscar solucoes para nossas empresas? Obrigado. MuriloCunha
RES: [delphi-br] Qual o limite de tamanho para u m executável?
35MB? Meu amigo, considere para ontem separar sua aplicação em módulos, preferencialmente em pacotes BPL. Tem material a botão na Internet falando sobre isso. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fellipe Henrique Enviada em: segunda-feira, 3 de maio de 2010 16:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Qual o limite de tamanho para um executável? Amigos, tenho um executável, que está chegando perto dos 35MB... existe algum limite? se passar dele começa a dar problemas? que tipos de problemas? Att. -- _ T.·.F.·.A.·. Fellipe Henrique [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Encerrar Thread
Posta o código para ver como você está implementando e assim sugerir melhorias. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: sexta-feira, 30 de abril de 2010 08:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Encerrar Thread Olá! Estou começando a trabalhar com threads... Mas estou com uma dúvida... Tenho um loop de atualização de dados... Mas como é um processo demorado, quero deixar disponível um botão para o usuário encerrar o programa. Como faço para que, ao pressionar o botão, o programa aguarde um aviso da thread dizendo que está liberada e aí eu possa encerrar a thread e o programa? Já procurei em tudo quanto é lugar e achei umas funções da API: PostThreadMessage e WaitforSingleObject... mas não consegui aplica-las. Alguem sabe como eu posso fazer isso? Desde já agradeço! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICA] Site da Microsoft para auxiliar a homologar soluções para o Windows 7
https://www.isvappcompat.com/brasil [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abreviar nomes de Componentes
Não existe uma lista padronizada, o que existe é um padrão de nomenclatura, chamado trigramação, que consiste em utilizar as iniciais mais significativas de uma entidade (ou classe) para compor o nome de um atributo (ou de um objeto). Existem na Internet sugestões de nomenclatura de componentes, mas nenhuma delas é padronizada, oficializada por assim dizer. Portanto, o que você quer, na realidade, não é uma lista com nomes abreviados de componentes Delphi, e sim um padrão para nomenclatura. Sendo assim, sugiro que informe-se mais sobre o tema trigramação na Internet e monte seu próprio padrão de nomenclatura de componentes. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dimas Enviada em: quarta-feira, 21 de abril de 2010 10:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abreviar nomes de Componentes Oi pessoal Preciso de uma lista com os nomes abreviados dos componentes em Delphi. Exemplo: TComboBox = Cbx Sei que tem uma lista com todos os nomes Abreviados para seguir uma padronizaão. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Tratamento de bitmap com resultad os diferentes em diferentes configurações de videos.
Segundo o help do Delphi, a classe TBitmap suporta DIB (device-independent bitmap) e DDB (device-dependent bitmap). Informe-se também no help do Delphi sobre a propriedade HandleType. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quinta-feira, 22 de abril de 2010 15:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configurações de videos. Mas qual é o problema especificamente? Que erro tá dando? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Alemão To: delphi-br Sent: Thursday, April 22, 2010 11:43 AM Subject: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configurações de videos. Pessoal, alguém conhece algo a este respeito? Trabalha com processamento de imagem? Ainda não consegui resolver este problema até hoje. []s Alemao Em 21 de fevereiro de 2010 15:47, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Encontrei a sigla... o tipo de bmp é DIB (Device Independent Bitmap). O Delphi suporta este tipo de bitmap? Isto resolveria o problema? []s Alemão. Em 21 de fevereiro de 2010 15:41, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Pessoal, estou com um problema, recebo uma imagem em JPG e a converto para bitmap no delphi normalmente usando o assign BMP.Assign(JPG). A partir deste bitmap, faço vários tratamentos, baseado em suas cores, por exemplo: if bmp.canvas.pixels[i] = clblue then bmp.canvas.pixels[i] := clwhite. Tudo OK, fuciona perfeitamente na minha máquina, que possui configuração de cores True Color de 32 bits, mas quando executo em maquinas com intensidade de cores diferentes: 16 ou 8 bits por exemplo, o resultado sai bastante diferente. Andei pesquisando na internet e vi que o bitmap tem uma relação de dependência com a intensidade de cores do windows, porém vi que existe um tipo de bitmap que é independente dessa configuração do windows, tem até uma sigla pra esse tipo de imagem, só não me lembro agora qual é... Alguem tem uma idéia de como posso contornar este problema? Trabalhar com o bitmap independente das configurações do windows? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
