[delphi-br] Re: Off-Topic: Botões para Toolbar

2009-09-22 Por tôpico saulofg
http://www.iconarchive.com




[delphi-br] Re: Gravar ligação telefônica

2009-06-30 Por tôpico saulofg
Procura no SourceForge.net tem um ótimo componente chamado AsyncPro, tem uma 
documentação bem completa, com aplicativos exemplo.

Segue link:
http://tpapro.sourceforge.net/

Vale a pena conferir.

--- Em delphi-br@yahoogrupos.com.br, lucaoliveira7 luciano.olive...@... 
escreveu

 Pessoal,
 
 Alguém tem algum material de como fazer ligação telefônica e grava-las 
 através de um modem, utilizando um software feito em Delphi?
 
 Grato,
 
 Luciano.





[delphi-br] Re: Me expliquem o porque por favor.

2009-04-01 Por tôpico saulofg
Tenta fazer assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible := False;
  Application.ProcessMessages;
  Sleep(5000);
  Label1.Visible := True;
  Application.ProcessMessages;
end;


--- Em delphi-br@yahoogrupos.com.br, Roberto wa...@... escreveu

 Tenho num form um botão e um label (visible =false)
 
  
 
 Ao clicar no botão na primeira vez, o label apaga e depois do tempo
 decorrido sleep acende normalmente.
 
 Porque ao clicar nas vezes seguinte não apaga e acende depois do tempo, fica
 sempre aceso?
 
 Já resolvi o assunto, mudando o foco para outro componente e depois
 retornando ao clicar, ainda assim  não entendo porque acende e não apaga
 mais. 
 
  
 
 procedure TForm1.Button1Click(Sender: TObject);
 
 begin
 
Label1.Visible := false;  // esta não acontece na segunda vez em diante
 
 sleep(5000);
 
Label1.Visible := true;
 
   end;
 
  
 
 Roberto(RJ)
 
  
 
  
 
 Em tempo, mesmo com tempos maiores, continua o problema
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Re: Exportar para PDF

2009-03-06 Por tôpico saulofg
Você tentou abrir esse html num TWebBrowser e depois mandar imprimi-lo numa 
impressora PDF?

--- Em delphi-br@yahoogrupos.com.br, Bollasette bollase...@... escreveu

 O FortesReport não ajuda ?
 
   - Original Message - 
   From: marcosdiasvendramini 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Thursday, March 05, 2009 8:59 PM
   Subject: [delphi-br] Re: Exportar para PDF
 
 
   Infelizmente isso não é possível, porque isso vai ser instalado na maquina 
 dos clientes, esse HTML é gerado pelo cobol, e meu programa deve exibir, 
 imprimir e exportar esse HTML.
 
   Já consegui pegar o Texto do WebBrowser e passar para um RichEdit para 
 depois exporta-lo, mas quando a formatação e imagens, tudo é perdido.
 
   Tem um componente que testei e até que funcionou bem, mas é Trial e caro e 
 foi tirado de cogitação, foi o HTML-to-RTF Pro DLL, que na verdade é uma DLL.
 
   Serve exporta-lo para RTF também, com isso já me viro. Se alguem conhecer 
 por favor me ajude.
 
   Muito obrigado pela atenção.
   Até.
 
   --- Em delphi-br@yahoogrupos.com.br, Valfrid-Ly Silva Couto valfrid_ly@ 
 escreveu
   
Olha... você pode usar uma impressora de PDF como o Primo PDF para 
 imprimir diretamente para PDF!!

É freeware e fácil de usar!!



--- Em qui, 5/3/09, marcosdiasvendramini marcosdiasvendramini@ escreveu:
De: marcosdiasvendramini marcosdiasvendramini@
Assunto: [delphi-br] Exportar para PDF
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 5 de Março de 2009, 14:34

Boa tarde pessoal,

Eu tenho um arquivo HTML gerado por outro programa e tenho que abri-lo e
exporta-lo para PDF.

Gostaria de saber como posso fazer isso. Caso não seja possível, já seria
suficiente exportar esse HTML para RTF, pois ja tenho como converter de 
 RTF para
PDF.

O que eu preciso é fazer uma dessas conversões:
de - HTML para PDF
ou - HTML para RTF

Desde de já, obrigado.





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM







Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





[delphi-br] Re: Como capturar número de telefone pelo Delphi

2009-02-04 Por tôpico saulofg
Já estudei bastante sobre esse assunto, mas uma coisa eu ainda não
descobri, qual tipo específico de modem captura a entrada de strings
de identificação.

Eu tenho um modem Creative 56k V90, bem antigo e ele captura essas
strings, o modem do meu notebook, um Acer Aspire 5002WLMi também
captura, mas recentemente um colega meu comprou um modem que
simplesmente não fazia nada. Uma maneira bem simples de vc testar
isso é ligar seu modem em uma linha telefônica que possua sinal de
identificação de chamadas ativado e no hyper terminal do windows mesmo
faça os seguintes testes, depois de estabelecida a conexão com seu modem:

No console digite: ATZ, o modem deve retornar um OK, e em seguida,
AT+VCID=1, o modem deve retornar um outro OK, agora através do seu
celular, ou algum outro jeito, ligue para o telefone na qual o modem
está conectado e veja o resultado, se o modem identificar o numero uma
string do tipo NMBR=112 será recebida (11 é o numero
do telefone de origem da chamada).

No hyper terminal vai ficar algo do tipo:
ATZ
OK
AT+VCID=1
OK

RING
NMBR=11
RING
RING

Se tudo der certo, aí basta você instalar um componente disponivel
para download no SourceForge, chamado AsyncPro, ele monta um hyper
terminal na sua aplicação feita em delphi.

Eu fiz um programa de bina, usando essa técnica, quando recebo alguma
chamada, capturo somente o texto depois do NMBR=.

Qualquer outra dúvida, pode postar...



--- Em delphi-br@yahoogrupos.com.br, marcosroberto_net
marcosroberto__...@... escreveu

 Pessoal, alguém saberia me dizer como fazer para capturar o número da
 bina pelo delphi? usa placa de faz ?
 
 Grato.





[delphi-br] Re: ninguém tem uma opniao????

2008-10-04 Por tôpico saulofg
Se vc estiver usando FireBird, dá pra fazer uma gambiarra se vc
tiver certeza que sempre o primeiro registro vai ser o que vc quer.

na procedure coloca a instrução SELECT FIRST 1 ...

Isso deve resolver seu problema.


--- Em delphi-br@yahoogrupos.com.br, pena_rs [EMAIL PROTECTED] escreveu

 ERRO:
 multiple rows in singleton select at procedure MOV_PRODUTOS
 
 PROCEDURE MOVIMENTA
 procedure TFrmProdutos.Movimenta(VTipo:String; VCodigo:Integer;
 VNome:String;Vordem:Integer);
 begin
 D_M.MOV_produtos.ParamByName('VTIPO').AsString:=VTipo;
 D_M.MOV_produtos.ParamByName('VCODIGO').AsInteger:=VCodigo;
 D_M.MOV_produtos.ParamByName('VNOME').AsString:=VNome;
 D_M.MOV_produtos.ParamByName('VORDEM').AsInteger:=Vordem;
 D_M.MOV_produtos.ExecProc;
 end;
 
 seguinte, eu teste se o produto ja existe com este nome
 VPri:=D_M.Qprodutosproduto.AsString;
 if ((VPri='') or (VPri=' ')) and not Bcancela.Focused
 then Begin
 MessageBeep(32);
 MessageDlg('Produto Inválido',mtError,[mbOk],0);
 DBNome.SetFocus;
 exit;
 end;
 Movimenta('NOME',0,D_M.Qprodutosproduto.AsString,ORDEM);
 VCRetorno:=D_M.MOV_produtos.ParamByName('RCODIGO').AsInteger;
 VNRetorno:=D_M.MOV_produtos.ParamByName('RNOME').AsString;
 if ((VCRetorno0) and (inclusao=1)) or ((inclusao=0) and (VCRetorno0)
 and (VCRetornoD_M.QprodutosCodigo.AsInteger)) and not
 Bcancela.Focused then begin
 MessageBeep(32);
 MessageDlg('Produto com este Nome já Existente'+#10#13+#10#13+
 'Código - '+IntToStr(VCRetorno)+#10#13+
 'Nome - '+VNRetorno,mtError,[mbOk],0);
 if messagedlg('Confirme!',mtconfirmation,[mbyes,mbno],0)=mrNO
 then begin
 DBNome.SetFocus;
 exit;
 end;
 end;
 
 QUANDO VOU TESTAR OUTRO CAMPO É QUE DA O ERRO, MAS O INTERESSANTE QUE
 DA O ERRO, SE EU CONFIRMO QUE JA EXISTE
 VPri:=D_M.QprodutosReffab.AsString;
 if ((VPri'') and (VPriand0) and (inclusao=1)) or ((inclusao=0) and
 (VCRetorno0) and (VCRetornoD_M.QprodutosCodigo.AsInteger)) and not
 Bcancela.Focused then begin
 MessageBeep(32);
 MessageDlg('Referência de Fábrica com este Código já
 Existente'+#10#13+#10#13+
 'Código - '+IntToStr(VCRetorno)+#10#13+
 'Nome - '+VNRetorno,mtError,[mbOk],0);
 if messagedlg('Confirme!',mtconfirmation,[mbyes,mbno],0)=mrNO
 then begin
 DBNome.SetFocus;
 exit;
 end;
 end;
 
 *PROCEDURE *
 
 ELSE IF (:VTIPO='NOME') THEN
 BEGIN
 SELECT CODIGO,PRODUTO FROM PRODUTOS WHERE PRODUTO=:VNOME ORDER
 BY PRODUTO INTO :RCODIGO,:RNOME;
 SUSPEND;
 END
 ELSE IF (:VTIPO='REFFAB') THEN
 BEGIN
 SELECT CODIGO,PRODUTO FROM PRODUTOS WHERE REFFAB=:VNOME ORDER
 BY REFFAB INTO :RCODIGO,:RNOME;
 SUSPEND;
 END





[delphi-br] Re: multicamadas ?

2008-09-11 Por tôpico saulofg
Aqui tem um ótimo exemplo:

http://cc.codegear.com/Download.aspx?id=19442

--- Em delphi-br@yahoogrupos.com.br, alessandra porto 
[EMAIL PROTECTED] escreveu

 
 apresentei aos colegas  alguns probleminhas  que  estou  tendo com 
relação a velocidade do 
 firebird na  web   e foram varios os que  me  deram  a  ideia de 
desenvolver  em multicamadas
 datasnap  para melhor a  performace.
   já li  muita  coisa  na  internet  gostei e  continuo estudando  
logo  começarei  a desenvolver.
 
 gostaria de agradecer  aos  amigos  que  colaboraram e aproveitar  
para  pedir  se alguem tiver algum endereço de um  bom material 
gratuito  exemplos,apostilas,fontes  ou  coisas
 assim  para  indicar  ficaria  muito   grata.
 
 abraço  a  todos
 
 
 
 
 
   Novos endereços, o Yahoo! que você conhece. Crie um email novo 
com a sua cara @ymail.com ou @rocketmail.com.
 http://br.new.mail.yahoo.com/addresses
 
 [As partes desta mensagem que não continham texto foram removidas]






[delphi-br] Re: Programa para chat entre usuários da mesma rede

2008-09-11 Por tôpico saulofg
Você terá que dedicar bastante tempo para desenvolver um programa 
desse tipo. Os componentes que eu recomendo dão o idTCPServer e o 
idTCPClient.

Um amigo meu desenvolveu um em Delphi mesmo usando esses componentes. 
Já fez 1 ano que ele começou a desenvolver e ainda está implementando, 
se quiser dar uma olhada: http://www.createsoft.com.br/maxxy/

Qualquer dúvida entre em contato.


--- Em delphi-br@yahoogrupos.com.br, Sandro [EMAIL PROTECTED] 
escreveu

 Bom dia pessoal, ocorreu uma necessidade aqui onde trabalho de
 desenvolvermos um programa para chat entre os funcionarios da 
empresa,
 somente usuarios da rede interna.
 Nunca fiz nada parecido, mas achei o desafio muito interessante, 
gostaria de
 saber se existe algum componente que possa me ajudar a desenvolver 
este
 projeto. Utilizo o pacote JVCL333CompleteJCL1101-Build2725, mas não 
sei se
 la existe algum componente que possa me ajudar.
 
 Desde já agradeço.
 Sandro Cardoso
 
 
 [As partes desta mensagem que não continham texto foram removidas]






[delphi-br] Re: firebird web

2008-09-06 Por tôpico saulofg
Você já tentou usar sua aplicação dividindo em 3 camadas?
Tenho o mesmo caso numa aplicação com 2 cadastros simples e uso SOAP 
para acesso a banco de dados em todos os clientes.


--- Em delphi-br@yahoogrupos.com.br, James Bond [EMAIL PROTECTED] 
escreveu

 eu costumo trabalhar com replicação via web, acho melhor do q 
acessar 
 diretamente o BD pela web, existem varias ferramentas otimas para 
isso 
 basta ver no firebase.com.br...
 
 agora diretamente pela web sugiro webservices... trabalho com 
oracle 
 via ws e resolve meu problema...
 
 att.
 JB
 
 --- Em delphi-br@yahoogrupos.com.br, alessandra porto 
 alessandraporto11@ escreveu
 
  
  tenho aplicação que usa o bd local e via web em algumas filiais
  noto que em alguns momentos o via web fica lento em algumas 
filiais.
  
  local ele esta otimo
  
  estou usando o firebird 1.5.478   com conexão direta com ip da web
  sem zebedee  ou  qualquer outra  coisa
  
  uso os componentes da paleta interbase do delphi 7 para a conexão
  
  existe alguma configuração do firebird que melhore a performace 
dele 
 na web??
  
  
  
  
  
  
  
  
  
  
Novos endereços, o Yahoo! que você conhece. Crie um email 
novo 
 com a sua cara @ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses
  
  [As partes desta mensagem que não continham texto foram removidas]
 





[delphi-br] Re: SpeedCase

2008-08-25 Por tôpico saulofg
Aqui na empresa onde trabalho nós usamos a SpeedCASE, é uma ótima
ferramenta que facilitou muito o desenvolvimento de um sistema de
saneamento que começamos do zero.

Conseguimos ganhar tempo de desenvolvimento do projeto como um todo e
antecipamos a entrega do produto final.

Pra que já mexe com Delphi não há grandes dificuldades de entendimento
da ferramenta.

Eu gostei tanto da ferramenta que comecei a desenvolver projetos
pessoais com a SpeedCASE e já até tenho clientes usando sistemas que
fiz em casa usando a SpeedCASE Personal, que é uma versão grátis da
ferramenta, possui as mesmas funcionalidades da versão Professional,
restringindo o acesso apenas a um desenvolvedor.

Tenho certeza que você não vai ser arrepender com as facilidades
proporcionadas pela ferramenta.

Qualquer outra dúvida, é só perguntar.

Abraço.

Saulo.

--- Em delphi-br@yahoogrupos.com.br, Wainer [EMAIL PROTECTED] escreveu

 Amigos
 
 Alguem da lista utiliza esta ferramenta?
 
 A empresa onde trabalho esta pensando em utiliza-la, seria uma boa
opcao ou existe(m) outras ferramentas que realmente resolve.
 
 
 Wainer
 16--6697
 16-9101-1757
 
 Wisa soft
 16-3721-7187
 
 o[|||]o   
   â–-o---â–
 CJ3A - 49