Re: [delphi-br] Imagem!!

2006-07-27 Por tôpico Henrique Guidi
Hmmm.. acho q envolve uma matemática aí no evento onmousedown vc vai 
ter o X e Y do mouse... daí vc faz um calculo onde IF (Y  te tal) and 
(Y  que outro tal) then
   IF(X  faz 
uma conta com o X e Y aí) and (X  faz uma conta com o X e Y aí) then
  Faz oq tem q fazer

Sou péssimo pra matemática eu preciso sentar com uma caneta e 
escrever uma resposta rápida é essa... faz um calculo com X e y pra 
gerar um triangulo e boa (qnto maior o y maior a área de X, daí forma um 
triangulo)

Vlw, Guidi




leonardo_basquiat escreveu:

 E ai pessoal td bem? Estoy com um problema, preciso delimitar uma área
 sensível ao clique do mouse em uma imagem.jpg no form, a área q preciso
 é um triangulo...  Alguem tem alguma ideia de cmo posso fazer isso???

 Valeu



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Rave ... 2 Colunas, Coluana de Positivos e Coluna de Negativos ...

2006-07-26 Por tôpico Henrique Guidi
Olá Gustavo, tem certeza que vc quer dividir o databand em 2 colunas?
acho q o melhor é deixar em 1 coluna só o databand e colocar 2 datatext 
para assim formar as 2 colunas... Para isso sua query vai ter que mudar.
Acho que essa seria a minha solução. Agora é só quebrar a cabeça aí para 
gerar um query com 2 colunas, uma para os números positivos e outra para 
os negativos.

Isso até pq eu tive um BAITA problema com dividir em 2 colunas o 
Databand (na verdade acho q tive que dividir a area em 2 colunas), pois 
na mudança de página o último registro era perdido O.o Erro total do Rave.

Espero ter ajudado,
Guidi



gustavohenriquephn escreveu:

 Pessoal, estou precisando fazer um relatório no rave que tenha duas
 colunas uma delas será de números positivos e a outra coluna será de
 números negativos, inclusive no final tenho que fazer o total de
 cada coluna.

 Exemplo :

 Coluna A Coluna B
 teste R$ 1,00 teste5 R$ -2,00
 teste2 R$ 5,00 teste6 R$ -6,00
 teste18 R$ -8,00

 Total de A = 6 Total de B = -16
 Total Final = -10

 A Quantidade de registros que irei colocar em cada coluna
 provavelmente nunca será igual, pode ser que eu tenha 10 registros
 para a coluna A e apenas 4 registros para a coluna B, e pode ser que
 eu tenha 8 para a coluna B e apenas 2 para a Coluna A.



 Inicialmente coloquei um DataBand dividi em duas colunas, o problema
 é que sai assim
 Coluna A Coluna B
 teste R$ 1,00 teste5 R$ -6,00
 teste2 R$ 5,00 teste5 R$ -2,00
 teste18 R$ -8,00


 Alguém tem alguma Luz ?, qualquer ajuda será bem vinda.




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: RES: [delphi-br] Start do Firebird

2006-07-25 Por tôpico Henrique Guidi
Pelo visto o seu FB é por programa se fosse serviço seria algo assim:

if not (ServiceGetStatus(nil, 'FirebirdGuardianDefaultInstance') = 
SERVICE_RUNNING) then
  ShellExecute(0,'open', 'fbguard.exe', 
'',PChar(ProgDir+'FireBird\Bin'),SW_SHOW);
//inicia o guard... ele inicia o server e fik tudo certo

Guidi


Hayalon escreveu:

 Não sei se resolve mas vc podia usar o winexec



   _ 

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
 nome de Moked - Tamara (Brazil)
 Enviada em: terça-feira, 25 de julho de 2006 08:48
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Start do Firebird





   http://www.moked.com.br/   Tamara Clemente - Suporte Técnico
 Moked do Brasil - Consultoria de Segurança Empresarial
 Divisão MokInf de Informática
 PABX: (55-11) 5071-2748
 [EMAIL PROTECTED]
 www.moked.com.br http://www.moked.com.br/

 Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo
 Nível de Prioridade:  Alto  Médio  Baixo
 Destinatário/s: Lista de divulgação
 -
 Bom dia,

 Pessoal, tem como eu fazer o start do Firebird através da minha aplicação?

 Maiores especificações: ñ quero q o firebirs seja startado quando o pc é
 inicializado, pois nem tds as vezes o programa é utilizado, então queria
 que, ao clicar no executavel da minha aplicação, antes de qquer coisa 
 fosse
 dado o start no firebird, sem a necessidade de ir la e clicar no botão
 start.

 Tem como fazer isso? uso o firebird 1.5 e BDS2005...

 Obrigada,


 Tamara
 A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000

 Serviços prestados no Brasil na área de segurança pessoal e empresarial:
 Consultoria e Assessoria | Diagnósticos e Projetos | Curso e 
 Treinamentos |
 Auditoria e Sindicância | Software de Gestão | Help-desk 24hs

 O emitente da mensagem é o responsável por seu conteúdo e divulgação,
 proibindo sua reprodução sem a prévia autorização do mesmo.
 Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
 comprometimento com os Custo envolvidos!




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] Importacao de dados: DOS para Delphi(Firebird)

2006-07-25 Por tôpico Henrique Guidi
no Torry.net tem estes exemplos:

/{Starts a program and wait until its terminated:
  WindowState is of the SW_xxx constants }
/*function *ExecAndWait(*const *FileName, Params: *string*;
  WindowState: Word): Boolean;
*var
  *SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: *string*;
*begin
  */{ Enclose filename in quotes to take care of
long filenames with spaces. }
  /CmdLine := '' + FileName + '' + Params;
  FillChar(SUInfo, SizeOf(SUInfo), #0);
  *with *SUInfo *do
  begin
*cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
  *end*;
  Result := CreateProcess(*nil*, PChar(CmdLine), *nil*, *nil*, False,
CREATE_NEW_CONSOLE *or
*NORMAL_PRIORITY_CLASS, *nil*,
PChar(ExtractFilePath(FileName)),
SUInfo, ProcInfo);
  /{ Wait for it to finish. }
  /*if *Result *then
*WaitForSingleObject(ProcInfo.hProcess, INFINITE);
*end*;



/{ Execute a complete shell command line and waits until terminated. }
/*function *ExecCmdLineAndWait(*const *CmdLine: *string*;
  WindowState: Word): Boolean;
*var
  *SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
*begin
  */{ Enclose filename in quotes to take care of
long filenames with spaces. }
  /FillChar(SUInfo, SizeOf(SUInfo), #0);
  *with *SUInfo *do
  begin
*cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
  *end*;
  Result := CreateProcess(*nil*, PChar(CmdLine), *nil*, *nil*, False,
CREATE_NEW_CONSOLE *or
*NORMAL_PRIORITY_CLASS, *nil*,
*nil */{PChar(ExtractFilePath(Filename))}/,
SUInfo, ProcInfo);
  /{ Wait for it to finish. }
  /*if *Result *then
*WaitForSingleObject(ProcInfo.hProcess, INFINITE);
*end*;


Flw,
Guidi

fernandoaldrighi escreveu:

 - Preciso ler um arquivo texto
   que contem enes linhas
   sendo cada linha, um registro a ser gravado em uma tabela do Firebird.

   (até ai tudo bem, sem problemas)



 - Dentro do meu formulario em Delphi
   chamo um programa executavel em DOS ,que ira gerar o arquivo texto.
   Estou usando a linha abaixo:
   winexec('command.com /c e:\cliente\TXTCLI4.exe', sw_shownormal);

   (ate aqui tuido bem, sem problemas)


 - O problema e´:
   Como saber que o programa DOS ja acabou de ser executado
   para o formulario continuar o processo.


 Ou seja:
 1- formulario chama um programa DOS
 2- programa DOS ira ler dados (em Cobol) e gerar um arquivo texto
 3- formulario deve aguardar que o programa DOS conclua
 4- para depois poder ler o arquivo texto
 5- e atualizar minha base de dados em Firebird.


 Como controlar uma pausa entre a parte 2 e 3 ?





 - Atraves do formulario, feito em Delphi,
   que ira ler este arquivo texto



 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Henrique Guidi
Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
o caso é que o programa em Kylix que precisava mandar o som pro speaker 
vai rodar como processo e não sei pq mas qndo roda como processo ele 
não manda o som pro speaker (como programa funciona ok). Estou tentando 
agora gerar um som normal mesmo... vou por caixa de som no PC-linux e 
tentar tocar um wav
Daí cabe a pergunta:

Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca 
chamada ALSAPAS mas o site esta off.
Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?

se alguem tiver algo a acrescentar, mandaem ai.
VLW,
Guidi


Rubem Nascimento da Rocha escreveu:

 Play sound through the PC Speaker
 http://www.swissdelphicenter.ch/en/showcode.php?id=323

 Sds.


 From: Luiz Escobar [EMAIL PROTECTED]
 Reply-To: delphi-br@yahoogrupos.com.br
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] SOM SPEAKER
 Date: Tue, 18 Jul 2006 15:18:14 -0300
 
 musiquinha num sei não mas deve até ter... procura no google som
 speaker sound speaker play speaker wav speaker e vai tentando
 
 até lá... vai usando:
 
   Beep;
 
 ou...
 
   Beep( nfrequencia, nduração );
 
 
 Luiz Escobar
 
 
 
 
 
 - Original Message -
 From: Henrique Guidi
 To: delphi-br@yahoogrupos.com.br
 Sent: Tuesday, July 18, 2006 1:58 PM
 Subject: [delphi-br] SOM SPEAKER
 
 
 Alguem teria idéia de como fazer um som no speaker? Um beep seria
 suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
 speaker seria legal tb.
 Eu preciso disso no Kylix, mas nem no Delphi estou achando.
 
 Vlw,
 Guidi
 
 PS: A função beep era pra isso? //no meu WinXP não rolou
 
 
 
 




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] SOM SPEAKER

2006-07-19 Por tôpico Henrique Guidi
Eu gostaria de usar o Lazarus, mas ainda estão torcendo o nariz

Guidi
 PS: não vamos fugir tanto do assunto :) ainda não testei o MMSYSTEM no 
kylix mas acho que ele é feito pro windows e não vai funcionar.


Andre Mesquita escreveu:

 a versão Free não acessa Banco de Dados e pode ser obtida no site da 
 Borland.

 É a versão 3.

 Completo só pagando ou então comprando em ferramentas como o e-Mule.

 [ ]'s,
   - Original Message -
   From: Luiz Escobar
   To: delphi-br@yahoogrupos.com.br
   Sent: Wednesday, July 19, 2006 2:06 PM
   Subject: Re: [delphi-br] SOM SPEAKER



   onde consigo o kylix mais novo para baixar, o que seja FREE  ;-)

   Luiz Escobar



   - Original Message -
   From: Henrique Guidi
   To: delphi-br@yahoogrupos.com.br
   Sent: Wednesday, July 19, 2006 11:51 AM
   Subject: Re: [delphi-br] SOM SPEAKER


   Vlw galera, todos os posts me ajudaram muito pena que não serviu :/
   o caso é que o programa em Kylix que precisava mandar o som pro speaker
   vai rodar como processo e não sei pq mas qndo roda como processo ele
   não manda o som pro speaker (como programa funciona ok). Estou tentando
   agora gerar um som normal mesmo... vou por caixa de som no PC-linux e
   tentar tocar um wav
   Daí cabe a pergunta:

   Alguem sabe como tocar um wav no KYLIX? vi que tem uma biblioteca
   chamada ALSAPAS mas o site esta off.
   Será que o velho USES MMSYSTEM e PLAYSOUND(); funciona pra KYLIX?

   se alguem tiver algo a acrescentar, mandaem ai.
   VLW,
   Guidi


   Rubem Nascimento da Rocha escreveu:

Play sound through the PC Speaker
http://www.swissdelphicenter.ch/en/showcode.php?id=323
   
Sds.
   
   
From: Luiz Escobar [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] SOM SPEAKER
Date: Tue, 18 Jul 2006 15:18:14 -0300

musiquinha num sei não mas deve até ter... procura no google som
speaker sound speaker play speaker wav speaker e vai 
 tentando

até lá... vai usando:

  Beep;

ou...

  Beep( nfrequencia, nduração );


Luiz Escobar





- Original Message -
From: Henrique Guidi
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 18, 2006 1:58 PM
Subject: [delphi-br] SOM SPEAKER


Alguem teria idéia de como fazer um som no speaker? Um beep seria
suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no
speaker seria legal tb.
Eu preciso disso no Kylix, mas nem no Delphi estou achando.

Vlw,
Guidi

PS: A função beep era pra isso? //no meu WinXP não rolou







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] SOM SPEAKER

2006-07-18 Por tôpico Henrique Guidi
Alguem teria idéia de como fazer um som no speaker? Um beep seria 
suficiente, mas se alguem tiver uma funçãozinha que toque midi/wav no 
speaker seria legal tb.
Eu preciso disso no Kylix, mas nem no Delphi estou achando.

Vlw,
Guidi

PS: A função beep era pra isso? //no meu WinXP não rolou




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] Rave x Bitmap

2006-07-17 Por tôpico Henrique Guidi
Tenda pelo script do Rave
no evento OnBeforePrint vc poe algo assim:
if (val  10) then
  logo.image.(num lembro se tem bitmap).loadfromfile(arquivo)
else
  logo.image...loadfromfile(outroarquivo);

ou seja independente dos erros que estou cometendo acima, acho q por 
script da pra fazer legal. E é semelhante ao delphi language mesmo.
VLW,
Guidi

Adenes I. Freire Junior escreveu:

 Como faço para imprimir uma foto de acordo a determinado critério 
 usando o componete Bitmap do Rave Report ?
 Por exemplo:

   Imprimir foto1 ou foto2 na pasta Fotos dependendo da situação.



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Rave Report

2006-07-11 Por tôpico Henrique Guidi
Cara isso seria facil de resolver se alguem resolver este problema mais 
genérico:

Alguem sabe onde eu consigo um tutorial no minimo razoável sobre Rave 
Language? (linguagem script do Rave)
Eu já vi uns que comentam a linguagem no meio de um tutorial geral sobre 
o Rave mas algo útil sobre a linguagem ainda estão me devendo.

Por lá deve ter alguma variável do tipo Preview = true ou IsPreview 
mas não sei :/

Guidi



Adenes I. Freire Junior escreveu:

 Gostaria de saber se existe alguma forma de mostrar uma imagem (no 
 componente Bitmap) somente no preview do Rave e não imprimir essa 
 imagem, imprimir somente os dados.

 [As partes desta mensagem que não continham texto foram removidas]




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] App Console no Delphi CrossKylix Linux

2006-07-10 Por tôpico Henrique Guidi
Achei a resposta desse meu problema. Criar uma aplicação console não tem 
erro, nem colocar um datamodule e fazer tudo oq tem q ser feito na mão
O problema é que no windows isso funciona, compilando pro Linux e 
tentando executar dá um erro na abertura da aplicação no console
O resolução deste problema é q no uses do datamodule é criado 
automaticamente a referencia para a unit QtTypes que não é necessária (e 
ainda mais, causa o erro). É só retirar esta referencia que a aplicação 
roda legal no linux sem a necessidade do X.

Guidi

Henrique Guidi escreveu:

 Olá,
 uso o CrossKylix para compilar uns modulos para o apache feitos em Delphi.
 Agora gostaria de fazer um programa console que se conecte ao banco de
 Dados Firebird. Tem como eu fazer este aplicativo no Delphi e usar o
 CrossKylix para gerar um executável pro linux?
 Guidi




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: [delphi-br] [OFF] Clipper - alguem ainda tem?

2006-07-10 Por tôpico Henrique Guidi
Aff... aqui também temos clientes que usam a versão DOS do nosso sistema 
(Clipper). Escritórios Contábeis são foda... tudo tiuzão da filosofia 
se funciona deixa quieto

Guidi


Daniel Pohren escreveu:

 Boa tarde.

 Alguem na lista ainda tem o Clipper?
 Temos apenas um cliente rodando com o sistema nesta linguagem, e ele nos
 pediu uma alteração...

 Já fiz a alteração dele, mas preciso que alguém compile e me mande o
 executável...

 Interessados, favor enviar o preço deste serviço para mim pelo email
 [EMAIL PROTECTED]

 Favor NÃO responder para a lista.

 Obrigado.

 -- 
 Daniel Pohren
Naphta Informática


 [As partes desta mensagem que não continham texto foram removidas]




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Interpretador de comandos

2006-07-07 Por tôpico Henrique Guidi
Visando o seu problema demoro pra vc fazer um interpretador
tem muito tutorial que te ajudaria, mas o que mais te ajudaria é lembrar 
(ou aprender) das coisas vistas na matéria de Compiladores da faculdade. 
Usando as técnicas básicas vc gera um interpretador facinho. (talvez 
procurando por: compiladores calculadora... afinal é o primeiro trabalho 
de qlq curso de compiladores)

uma ideia sem os parsers e tudo mais é assim:
numa função é chamado uma outra pra calcular cada operação (a+b) 
encontrada na formula segundo os parenteses e retira os parenteses... 
para cada calculo de (a+b) ele é substituido na formula original pelo 
valor... assim segue o while até que não tenha mais operadores nela. O 
resultado esta ai...

no caso de variáveis (que no seu casod eve ter) então de cara é 
substituido as variáveis por valores... e no caso de não ter valores pra 
alguma variável... dai quebra a cabeca pra melhorar o codigo ;-)

Guidi - que fala de compiladores como se não tivesse ficado de DP nesta 
matéria.


Desenvolvimento (Anderson) escreveu:

 Olá,

 os programas q desenvolvo são voltados à cálculos, onde cada cliente 
 geralmente pede um cálculo específico...
 Daí, tenho muito trabalho melhorando meu sistema para atender a eles.
 Acontece as vezes, de fazer um recurso q pode acabar prejudicando outro.
 Daí, cheguei num momento q preciso ampliar meu sistema, de maneira 
 drástica. Eu tava pensando em criar um interpretador de comandos, tipo 
 uma programação em BASIC, onde o proprio cliente poderia mudar a forma 
 de como é feito o cálculo no sistema...
 Alguma sugestão para eu fazer isso?
 Existe componente pra facilitar minha vida?
 Minha idéia pode ser aproveitada?

 Muito obrigado

 Anderson



 [As partes desta mensagem que não continham texto foram removidas]

 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Imprimir Código de Barra

2006-07-06 Por tôpico Henrique Guidi
Tem muitas formas...
RAVE é uma delas. O Quick tb tem mas se não me engano dá problema em 
impressora laser.
Se o caso não é bem esse ainda tem vários componentes que geram os 
códigos: 
http://www.vclcomponents.com/Delphi/Printing___Reporting/fbarcode_zip-info.html
neste caso vc terá que usar um pouco da criatividade pra imprimir da 
forma desejada.
Guidi.


Jenifer escreveu:

 Oi Gente.



 Não sei nem por onde começar. Preciso desenvolver uma forma de imprimir
 Códigos de Barra para uso interno.

 Agradeço qualquer ajuda.



 {{}}
 Jenifer



 [As partes desta mensagem que não continham texto foram removidas]

 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] Banco de Dados e console

2006-07-06 Por tôpico Henrique Guidi
Olá galera, estou tentando desenvolver uma aplicação console {$APPTYPE 
CONSOLE} com acesso a um banco de dados Firebird. Tem como?
dizem que sim, mas não vi nada que me ajude.
Tentem fazer uma aplicação de leia um entrada 'read(codigo)' e gerem um 
insert com ela 'insert into clientes (cod, nome, val) values 
(codigo,'sei la',)'...
Se alguem sabe algo (qlq coisa) posta aqui pra mim.
Vlw, aguardo a ajuda de vocês.
Guidi



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Procurar janela aberta e Maximizar

2006-07-05 Por tôpico Henrique Guidi
Desculpe a confusão.
tai ai, este pega o notepad e maximiza:

var
Hwnd : THandle;
begin
  Hwnd:= FindWindow('Notepad', nil);
  if Hwnd  0 then
ShowWindow(Hwnd,SW_SHOWMAXIMIZED);
end;




conexaoi escreveu:

 Uma ajuda para Iniciante .

 Eu tenho dois aplicativos em delphi (Menu.exe) e (projeto.exe)
 como eu faço quando clicar no botão finalizar do aplicativo
 (projeto.exe) ele encontrar a janela (Menu.exe) que está aberta e
 minimizada e restaurar a janela.

 O amigo Henrique Guidi me ajudou com com esse código, mas não tá
 dando certo!


 var
 Hwnd : THandle;

 begin

   Hwnd:= FindWindow('Menu', nil);
   Hwnd.WindowState := wsNormal;

 end;



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: RES: RES: [delphi-br] Compactar executavel - OFF

2006-07-03 Por tôpico Henrique Guidi
Não é dll, é um programa chamado diff mesmo (no linux eh diff) que gera 
um patch com a diferença binária entre 2 arquivos. Assim ele gera um 
outro arquivo (patch). Vc envia este para seu cliente ele usa este 
arquivo e o diff (lembre-se da interface gráfica, não mande ele abrir o 
console e digitar diif -x patch.dif  -o programa.exe) para gerar um 
programa.exe com as mudanças... assim ele terá a versão mais nova gerada 
a partir da soma da versão velha com o patch.
Lembrando que eu ainda não fiz um super teste nesta área. Mas gostaria 
se saber mais sobre o diff e/ou qualque outro gerador de patch, pois 
acho que essa é a solução para o seu problema e para muitos que poderia 
usar esta tecnologia para atualizar o software online, como é feito em 
jogos (Ultima Online por exemplo).

Um abraço,
Guidi


Moked - Tamara (Brazil) escreveu:

 Guidi,

 Isso realmente seria muito interessante...

 Meu colega de trabalho havia comentado a respeito de algo parecido, 
 onde se eu mudo algo em apenas um form q eu ñ precise enviar o 
 executavel inteiro para ser substituído.

 Seria este o caso? Ou neste caso seriam as dll's?

 Obrigada,

 Tamara Clemente - Suporte Técnico
 Moked do Brasil - Consultoria de Segurança Empresarial
 Divisão MokInf de Informática
 PABX: (55-11) 5071-2748
 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
 www.moked.com.br http://www.moked.com.br/


 

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 
 Em nome de Henrique Guidi
 Enviada em: sábado, 1 de julho de 2006 05:01
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: RES: [delphi-br] Compactar executavel - OFF


 Vocês já ouviram falar do diff?? se o caso for só atualização do
 software já ouvi falar de um programinha (procurar por diff) que gera
 uma diferença binária entre 2 arquivos, gerando um terceiro só com as
 modificações
 Assim vc gera um patch de atualização (bem menor) e enviar só ele
 daí o cliente executa o atualizador que gera o arquivo final, com a
 versão atual. (não esqueça de fazer isso interativo, cliente gosta de
 barrinhas de progresso :-D )

 sei lá... a solução é boa, se acharem o que eu estou dizendo manda o
 link pra mim tb... faz um bom tempo que esqueci desse assunto.

 Guidi


 Valfrid-Ly Silva Couto escreveu:

 --LNNET9f9KQvMoWCj0OK-aS3BgKxKGDLlhOCIc7-
 Mime-Version: 1.0
 Content-Transfer-Encoding: quoted-printable
 Content-Type: text/plain; charset=ISO-8859-1
 
 Acho que o caminho deveria ser outro
 
 Voc=EA deveria modularizar o seu sistema utilizando pacotes (BPLs) e 
 DLLs d=
 e forma que o seu usu=E1rio baixaria apenas o pacote ou DLL 
 modificada, dei=
 xando assim a atualiza=E7=E3o bem mais leve e sem d=FAvidas a 
 manuten=E7=E3=
 o mais simples!
 
 Campus [EMAIL PROTECTED] escreveu: Sem falar que em muitos lugares 
 do Bras=
 il, a internet s=F3 chega pelas ondas
 de r=E1dio.
 
 
 - Original Message -=20
 From: Moked - Tamara (Brazil)=20
 To:=20
 Sent: Friday, June 30, 2006 9:02 AM
 Subject: RES: RES: [delphi-br] Compactar executavel - OFF
 
 
 Luiz,
 
 Meu atual problema eh: meus clientes =F1 tem um bom acesso a 
 internet, send=
 o
 assim, meu arquivo de atualiza=E7=E3o tem q ser o menos pesado 
 poss=EDvel, =
 pois
 ninguem gosta de fikar hrs a espera de baixar um arquivo. Conversando 
 com o
 pessoal vi as desvantagens de compactar o executavel  que devo 
 atualizar no=
 s
 meus clientes, mas se eu gerar um nv instalador(chamado de 
 atualizador) sem
 compactar este ficar=E1 muito pesado, j=E1 compactado fika menos pesado.
 
 Bom, j=E1 fui praticamente chamada de pr=E9-hist=F3rica aqui por ter 
 dito d=
 a
 capacidade baixa de computadores, assim como a existencia ainda de 
 internet
 at=E9 msm discada, mas esta =E9 a realidade em q convivo em meus 
 clientes.
 Ningu=E9m coloca uma super m=E1quina turbinada com uma super internet 
 em um=
 a
 portaria ou recep=E7=E3o.
 
 Obrigada,
 
 Tamara Clemente - Suporte T=E9cnico
 Moked do Brasil - Consultoria de Seguran=E7a Empresarial
 Divis=E3o MokInf de Inform=E1tica
 PABX: (55-11) 5071-2748
 [EMAIL PROTECTED]
 www.moked.com.br=20
 
  
 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: RES: [delphi-br] Compactar executavel - OFF

2006-06-30 Por tôpico Henrique Guidi
Vocês já ouviram falar do diff?? se o caso for só atualização do 
software já ouvi falar de um programinha (procurar por diff) que gera 
uma diferença binária entre 2 arquivos, gerando um terceiro só com as 
modificações
Assim vc gera um patch de atualização (bem menor) e enviar só ele 
daí o cliente executa o atualizador que gera o arquivo final, com a 
versão atual. (não esqueça de fazer isso interativo, cliente gosta de 
barrinhas de progresso :-D )

sei lá... a solução é boa, se acharem o que eu estou dizendo manda o 
link pra mim tb... faz um bom tempo que esqueci desse assunto.

Guidi




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




Re: RES: [delphi-br] Compactar executavel - OFF

2006-06-28 Por tôpico Henrique Guidi
Sou novo na lista mas espero que vc ache no histórico que as aplicações 
com UPX consomem muito mais RAM... dependendo do seu cliente isso é de 
se pensar. Ocupar mais HD ou mais RAM?
Guidi

Moked - Tamara (Brazil) escreveu:

 Sério? Vou dar uma olhada la pra ver se acho estas discussões... faz 
 um ano q usamos aqui e nunca tivemos problemas nos clientes...

 PS: faz um ano q a empresa usa, eu tive q usar o UPX esta semana...rs...

 Obrigada,

 Tamara Clemente - Suporte Técnico
 Moked do Brasil - Consultoria de Segurança Empresarial
 Divisão MokInf de Informática
 PABX: (55-11) 5071-2748
 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
 www.moked.com.br http://www.moked.com.br/


 

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] 
 Em nome de Daniel Bastos
 Enviada em: quarta-feira, 28 de junho de 2006 12:16
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] Compactar executavel - OFF


 O upx te da as opções de compactação quando se chama ele sem parametros...
 mas o upx (assim como outros compactadores de executáveis) não são
 recomendados para uso...

 Tive alguns problemas com ele ... a aplicação tava funcionando redondinha
 mas quando rodou no cliente deu pau sem o upx ela funcionou
 perfeitamente...

 Tem várias discussões anteriores sobre isso no histórico da lista

 abraço


 Em 27/06/06, Moked - Tamara (Brazil) [EMAIL PROTECTED] escreveu:
 
   A... prompt de comando putz...rs... valew
 
 
  Tamara Clemente - Suporte Técnico
  Moked do Brasil - Consultoria de Segurança Empresarial
  Divisão MokInf de Informática
  PABX: (55-11) 5071-2748
  [EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
 
  www.moked.com.br http://www.moked.com.br/
 
 
  
 
  De: delphi-br@yahoogrupos.com.br 
 [mailto:[EMAIL PROTECTED] Em
  nome de Eduardo Silva dos Santos
  Enviada em: terça-feira, 27 de junho de 2006 11:47
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Compactar executavel - OFF
 
 
 
  No prompt de comando use:
 
  Upx -9 seu_arquivo.exe
 
  ele vai compactar no maximo...
 
  caso queira descompactar..
 
  Upx -d seu_arquivo.exe
 
 
  Em 27/06/06, Moked - Tamara (Brazil) [EMAIL PROTECTED] escreveu:
  
  
  
   http://www.moked.com.br/ Tamara Clemente - Suporte Técnico
   Moked do Brasil - Consultoria de Segurança Empresarial
   Divisão MokInf de Informática
   PABX: (55-11) 5071-2748
   [EMAIL PROTECTED]
   www.moked.com.br http://www.moked.com.br/
  
   Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo
   Nível de Prioridade:  Alto  Médio  Baixo
   Destinatário/s: Lista de divulgação
  
  
 -
  
   Pessoal,
  
   Preciso de uma ajudinha aqui para compactar meu executável.
  
   Tenho aqui na minha máquina o UPX (herança do programador antigo), 
 mas ñ
   faço ideia de como usá-lo. Nesta pasta contem varios arquivos, entre
  eles
   inclusive um executavel...
  
   Minha dúvida: vi na net q há varios parâmetros, graus de compressão e
   tals... onde especifico isso? Este executável, teria sido gerado para
   compactar o executavel dos meus sistemas? Caso seja, como eu uso ele?
  
   Obrigada,
  
  
  
   Tamara
   A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000
  
   Serviços prestados no Brasil na área de segurança pessoal e 
 empresarial:
   Consultoria e Assessoria | Diagnósticos e Projetos | Curso e
  Treinamentos
   | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs
  
   O emitente da mensagem é o responsável por seu conteúdo e divulgação,
   proibindo sua reprodução sem a prévia autorização do mesmo.
   Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
   comprometimento com os Custo envolvidos!
  
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
   Links do Yahoo! Grupos
  
  
  
  
  
  
  
  
 
 
  --
  Eduardo Silva dos Santos
  DRD Sistemas.
  (27) 3218-4201
  MSN: [EMAIL PROTECTED]
  Site: http://www.drdsistemas.com/
 
 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Re: Email Com formato html

2006-06-27 Por tôpico Henrique Guidi
Olha, vê se ajuda

uses IdSMTP, IdMessage;

  function EnviaAvisoEmail(Para: string):Boolean;
  var
htmpart, txtpart: TIdText;
imgpart: TIdAttachment;
email: TIdMessage;
imgName : string;
html: TStrings;

  begin
email := TIdMessage.Create(nil);
try
  email.From.Address := '[EMAIL PROTECTED]';
  email.From.Name := 'FROM';
  imgName   := 'i:\email\imagemfundoSS.jpg';

  html := TStringList.Create();
  html.Text := Corpo; //html

  email.Recipients.EMailAddresses := Para;
  email.Subject := 'SUBJECT';
  email.ContentType := 'multipart/mixed';
  email.Body.Assign(html);

  txtpart := TIdText.Create(email.MessageParts);
  txtpart.ContentType := 'text/plain';
  txtpart.Body.Text := '';

  htmpart := TIdText.Create(email.MessageParts, html);
  htmpart.ContentType := 'text/html';

  imgpart := TIdAttachment.Create(email.MessageParts, imgName);
  imgpart.ContentType := 'image/jpeg';
  imgpart.FileIsTempFile := true;
  imgpart.ContentDisposition := 'inline';
  imgpart.ExtraHeaders.Values['content-id'] := 'imagemfundo';
  imgpart.DisplayName := 'imagemfundo';

  Result := False;
  with TIdSMTP.Create(nil) do
  try
Host := 'smtp.A.com.br'
Port := 25;
Connect(1000);
Send(email); //envia a msg
Result := True;
  finally
if Connected then
  Disconnect;
Free;
  end;
finally
  email.Free;
  html.Free;
end;
  end;

ese envia um e-mail com imagemd e fundo anexado mas que não fik no anexos.
Para aparecer a imagem no fundo vc deve mudar o SRC da imagem background 
no HTML para cid:imagemfundo assim vai.
Flw,
Guidi

Isaque J escreveu:

Bom dia Murillo,

Existe componente indy que faz essa transformação para html? E para
 apresenta uma mensagem recebida no formato html, existe algum componente
 para isso?

Grande Abraço,
Isaque Jota



 2006/6/27, Isaque J [EMAIL PROTECTED]:
 
 
 
  Em 14/06/06, Murillo Proença [EMAIL PROTECTED] escreveu:
 
utilize os componentes Indy, funciona blzinha.
  
  
   
Galera, preciso saber como faco pra enviar um email pelo Delphi Com
   formato
HTML. Nao serve enviar anexo. O que eu quero é mandar aquelas
   mensagens Com
uma imagem de fundo e coisa assim;
   
   
Abracos
   
Marcio
Programador Pleno
Unimar - Universidade de Marilia
   
[As partes desta mensagem que não continham texto foram removidas]
   
  
  
  
  
  
  
  
   --
   Cordiais saudações,
   Isaque Niche Ramos Jota
  
  


 -- 
 Cordiais saudações,
 Isaque Niche Ramos Jota


 [As partes desta mensagem que não continham texto foram removidas]

 __._,






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] App Console no Delphi CrossKylix Linux

2006-06-23 Por tôpico Henrique Guidi
Olá,
uso o CrossKylix para compilar uns modulos para o apache feitos em Delphi.
Agora gostaria de fazer um programa console que se conecte ao banco de 
Dados Firebird. Tem como eu fazer este aplicativo no Delphi e usar o 
CrossKylix para gerar um executável pro linux?
Guidi




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html