[delphi-br] Re: Códigos de Impressoras Matriciais/Jato de Tinta/Laser

2007-01-09 Por tôpico maniacapordelphi

Eu baixei os componentes do Fortes Report, mas no arquivo zip só veio
os dcu. Não tem os fontes. Sabe onde consigo algum fonte que contenha
esses código de impressora?

Mani


--- Em delphi-br@yahoogrupos.com.br, Cyclone - Programação
[EMAIL PROTECTED] escreveu

 Baixe o Pacote de Componentes Fortes Report que lá tem como você
obter de várias impressoras.


 Sidnei Rodrigues de Castro
 Programador

 - Original Message -
 From: maniacapordelphi
 To: delphi-br@yahoogrupos.com.br
 Sent: Tuesday, January 02, 2007 8:39 AM
 Subject: [delphi-br] Códigos de Impressoras Matriciais/Jato de
Tinta/Laser


 Em primeiro lugar, um Feliz 2007 pra todos vocês.
 Estou precisando da relação dos códigos de impressoras
matriciais,
 Jato de tinta e laser, todos os modelos possíveis para fazer
 tratamento de impressão estilo matricial. Códigos de : negrito,
 itálico, fontes, avanço de papel,fonte condensada, fonte normal,
fonte
 expandida. Alguém teria isso pra me ajudar?
 Mani





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






RES: [delphi-br] Re: Códigos de Impressoras Matricia is/Jato de Tinta/Laser

2007-01-09 Por tôpico Alexandre
Bom dia estimada,

Tenho alguns códigos aqui. Não sei se é isto mesmo que queres, mas lá vai.
(também não sei se estão muito corretos, pois tá meio antigo);


   if NomeImp = pfPadraoIBM then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #30+'5';tCompr20  := #30+'0';
  pElite12  := #30+'2';tElite12  := #30+'0';
  pNegrito  := #27+'E';tNegrito  := #27+'F';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfDeskjet500 then
   begin
  pCompr175 := #27+'(s16.67H'; tCompr175 := #27+'(s10H';
  pCompr20  := #27+'(s16.67H'; tCompr20  := #27+'(s10H';
  pElite12  := #27+'(s12H';tElite12  := #27+'(s10H';
  pNegrito  := #27+'(s3B'; tNegrito  := #27+'(s-3B';
  pExpand   := #27+'(s3B'; tExpand   := #27+'(s-3B';
  p8linpol  := #27+'(s1P'; t8linpol  := #27+'(s0P';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfDeskjet600 then
   begin
  pCompr175 := #27+'(s16.67H'; tCompr175 := #27+'(s10H';
  pCompr20  := #27+'(s16.67H'; tCompr20  := #27+'(s10H';
  pElite12  := #27+'(s12H';tElite12  := #27+'(s10H';
  pNegrito  := #27+'(s3B'; tNegrito  := #27+'(s-3B';
  pExpand   := #27+'(s3B'; tExpand   := #27+'(s-3B';
  p8linpol  := #27+'(s1P'; t8linpol  := #27+'(s0P';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfRima then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #27+'['+#5; tCompr20  := #27+'['+#0;
  pElite12  := #27+'['+#2; tElite12:= #27+'['+#1;
  pNegrito  := #27+'E';tNegrito  := #27+'F';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfEpson9pinos then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #27+'M'+#15;tCompr20  := #27+'P';
  pElite12  := #27+'M';tElite12  := #27+'P';
  pNegrito  := #27+'E';tNegrito  := #27+'F';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfEmiliaPS then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #30+'5';tCompr20  := #30+'0';
  pElite12  := #30+'2';tElite12  := #30+'0';
  pNegrito  := #27+'g';tNegrito  := #27+'h';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfEpsonStylusC2 then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #27+'M'+#15;tCompr20  := #27+'P';
  pElite12  := #27+'M';tElite12  := #27+'P';
  pNegrito  := #27+'E';tNegrito  := #27+'F';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfCanonBJC4000 then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #27+'M'+#15;tCompr20  := #27+'P';
  pElite12  := #27+'M';tElite12  := #27+'P';
  pNegrito  := #27+'E';tNegrito  := #27+'F';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
   if NomeImp = pfEpson24pinos then
   begin
  pCompr175 := #15;tCompr175 := #18;
  pCompr20  := #27+'M'+#15;tCompr20  := #27+'P';
  pElite12  := #27+'M';tElite12  := #27+'P';
  pNegrito  := #27+'E';tNegrito  := #27+'F';
  pExpand   := #27+'W'+#1; tExpand   := #27+'W'+#0;
  p8linpol  := #27+'0';t8linpol  := #27+'2';
  pEjetar   := #12;pLinPPage := #27+'C'; // colocar mais -
+chr(qt de linhas)
   end;
 

Saudações;


---
[]’s 

Alexandre

Frase da semana: “Apenas uma guerra é permitida à espécie humana: a guerra
contra a extinção” (Isaac Asimov)

Frase de la semana: “Solo una guerra se permite al hombre: la guerra contra
el desaparición” (Isaac Asimov)


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de maniacapordelphi
Enviada em: terça-feira, 9 de janeiro de 2007 06:39
Para: 

[delphi-br] off-topic: Quais arquivos fazem parte do client do SQL-Server

2007-01-09 Por tôpico GMail
Pessoal:

Gostaria de criar um instalador proprio, que instalasse
a parte do client do SQL-Server 2000 e 2005, sem ter
de usar o instalador do CD do SQL-Server.

Pergunta 1:
---

Sabem se isso e´ viavel ?
(obs.:  Vou usar apenas para facilitar meu trabalho em alguns
clientes - todos os clientes de meus sistemas possuem o SQL-Server
devidamente licenciado).


Pelo que eu descobri ate´ o momento, as DLLs que
fazem parte do client do SQL-Server ficam em C:\WINDOWS\SYSTEM32,
e sao estas:


DBNMPNTW.DLL
DBNETLIB.DLL
DBMSRPCN.DLL
DBMSASDSN.DLL
DBMSVINN.DLL

Vi essas DLLs atraves do menu Iniciar/Programas/Microsoft SQL Server/Client 
Network Utility.

Pergunta 2:
-
Alguem sabe se basta copiar essas DLLs para \WINDOWS\SYSTEM32 ?
Fiz um teste em algumas maquinas, copiando manualmente essas DLLs,
e parece que funcionou bem, mas nao sei se
pode aparecer algum problema futuro que eu nao tenha percebido ainda.

Grato pela atencao de todos
Paulo


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



[delphi-br] Quais arquivos fazem parte do client do SQL-Server

2007-01-09 Por tôpico GMail
Pessoal:

(em mensagm anterior, tentei escrever
off-topic no subject mas o Yahoo bloqueia mensagens)

Gostaria de criar um instalador proprio, que instalasse
a parte do client do SQL-Server 2000 e 2005, sem ter
de usar o instalador do CD do SQL-Server.

Pergunta 1:
---

Sabem se isso e´ viavel ?
(obs.:  Vou usar apenas para facilitar meu trabalho em alguns
clientes - todos os clientes de meus sistemas possuem o SQL-Server
devidamente licenciado).


Pelo que eu descobri ate´ o momento, as DLLs que
fazem parte do client do SQL-Server ficam em C:\WINDOWS\SYSTEM32,
e sao estas:


DBNMPNTW.DLL
DBNETLIB.DLL
DBMSRPCN.DLL
DBMSASDSN.DLL
DBMSVINN.DLL

Vi essas DLLs atraves do menu Iniciar/Programas/Microsoft SQL Server/Client 
Network Utility.

Pergunta 2:
-
Alguem sabe se basta copiar essas DLLs para \WINDOWS\SYSTEM32 ?
Fiz um teste em algumas maquinas, copiando manualmente essas DLLs,
e parece que funcionou bem, mas nao sei se
pode aparecer algum problema futuro que eu nao tenha percebido ainda.

Grato pela atencao de todos
Paulo


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



Re: RES: [delphi-br] Digitar Maiúsculo no Memo

2007-01-09 Por tôpico Murillo Proença
coloca no evento OnKeyPress
Key:= AnsiUpperCase(Key)[1];


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

 Como eu obrigo o usuário a digitar maiúsculo em um Memo?
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: RES: [delphi-br] Digitar Maiúsculo no Me mo

2007-01-09 Por tôpico fabio giro
No evento OnKeyPress do DBMemo eu coloco o seguinte:

Key := AnsiUpperCase(Key)[1];


Bruno Stort [EMAIL PROTECTED] escreveu:  Como 
eu obrigo o usuário a digitar maiúsculo em um Memo?
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   

 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

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



[delphi-br] [OFF-TOPIC] Vaga Programador

2007-01-09 Por tôpico Henrique Peixinho
Pessoal desculpa o off-topic, mas tenho uma vaga aqui na empresa para 
programador, os interessados por favor entra em contato em private comigo.

Grato,

Henrique Peixinho
3Soft Sistemas
(75) 3624-4666

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



[delphi-br] [Meio-off] Vaga programador

2007-01-09 Por tôpico Henrique Peixinho
Pessoal desculpa o off-topic, mas tenho uma vaga aqui na empresa para 
programador, os interessados por favor entra em contato em private comigo.

Grato,

Henrique Peixinho
3Soft Sistemas
(75) 3624-4666

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



[delphi-br] Upload de arquivos

2007-01-09 Por tôpico Bráulio Figueiredo Pinto
Pessoal, Bom dia!

Alguém conhece alguma função ou componente para fazer upload de arquivo?


Atenciosamente,

Bráulio Figueiredo Pinto
[EMAIL PROTECTED]
www.brauliofigueiredo.com.br


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



[delphi-br] Upload de arquivos

2007-01-09 Por tôpico Bráulio Figueiredo Pinto
Pessoal, Bom dia!

Alguém conhece alguma função ou componente para fazer upload de arquivo?


Atenciosamente,

Bráulio Figueiredo Pinto
[EMAIL PROTECTED]
www.brauliofigueiredo.com.br


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



Re: RES: [delphi-br] Digitar Maiúsculo no Memo

2007-01-09 Por tôpico Franklin Paixão
Caro Bruno no grupo já existe um tópico com esse assunto. Não é mau
vontade, mas é sempre bom pesquisar nos tópicos já existente se existe
o assunto que se deseja, pra evitar um elevado numero de mensagens com
mesmo assunto! Mas, pegando a solução já existente do nosso amigo
Fábio é o seguinte:

coloca no evento OnKeyPress
Key:= AnsiUpperCase(Key)[1];

[]'s
Franklin Paixão




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

 Como eu obrigo o usuário a digitar maiúsculo em um Memo?
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Escrever em Arquivo .TXT via rede

2007-01-09 Por tôpico Luizcm_jr
Boa Tarde...


Desejo antes de tudo.. felicidades as todos.. nesse novo ano que inicia.. muita 
paz..alegria.. e serviço...rsr.. pois isso que nos motiva cada vez mais.. a 
progredir


Bom..estou com duvidas.. quanto aos procedimentos de escrita em arquivo .TXT 
via rede..

Alguém saberia como eu posso fazer isso??


Grato...

Junior - Araraquara/SP

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



Re: [delphi-br] Aplicação Distribuída em CD

2007-01-09 Por tôpico Paulo Batalhão
é para distribuir em cd ou rodar do cd ?


- - - -
att' Paulo Batalhão - [EMAIL PROTECTED]
www.arphanet.rainulf.org - http://www.arphanet.rainulf.org/
arphanet.com http://www.arphanet.com/
batalhao.eti.br http://www.batalhao.eti.br/
saudeamericana.com.br http://www.saudeamericana.com.br/
fusame.com.br http://www.fusame.com.br/

Não existe patch para a estupidez humana
  - Original Message - 
  From: Welson Tavares 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, January 08, 2007 2:47 PM
  Subject: [delphi-br] Aplicação Distribuída em CD


  Boa tarde,

  Estou começando agora com programação em Java e também em Delphi, e
  preciso desenvolver algumas aplicações para serem distribuídas em CD.
  Na opinião de vocês, o que seria melhor (Java ou Delphi) para desenvolver
  uma aplicação:

  - Robustas e funcionalidades
  - Fácil Instalação
  - Rode sem problemas em quaisquer (ou grande parte) das máquinas
  - Necessite o mínimo de suporte.

  Desde já agradeço a atenção de todos.

  Welson Tavares

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



   

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



[delphi-br] Select com join em tabelas de outro banco...

2007-01-09 Por tôpico Luis Lopes
Pessoal,

Tem como fazer um select em uma tabela em um banco, com join com outras tabelas 
de outro banco?
A tabela principal está no Firebird 1.5 e as outras (join prá trazer o nome, 
descrição, etc) está no MySQL.
Uso BDS2006 com DBX, mas, a tecnologia de acesso pode ser outra, caso tenha 
como fazer.

Fico muito grato,

 
Luis Alberto
Belo Horizonte - MG




__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

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



Re: RES: [delphi-br] Problema Impressão Matricial em EPSON FX-2190

2007-01-09 Por tôpico paganato
Colegas,
aproveitando vou fazer um gancho nesta msn, gostaria de sabe como
utilizar os comando abaixo, ou seja, imprimir diretamente para uma
porta USB? estou pesquisando sobre esse assunto, pois tenho um sistema
q imprime diretamente para as LPTs e o cliente comprou uma
impressora q possui apenas USB.

Caso alguem pussa me ajudar, agradeço muito.
Abraços,
Alexandre Paganato



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

 está utilizando

 AssignFile(ArqImp, 'LPT1');
 Rewrite( ArqImp );
   WriteLn( ArqImp, 'TEXTO IMPRESSO' );
 CloseFile( ArqImp );

 



Re: [delphi-br] Usar serviço do correio para conseguir CEP

2007-01-09 Por tôpico robersonfox
Aqui, independete do CEP que eu coloco só retorna CEP não encontrado,
até mesmo o CEP que você colocou na mensagem acontece isto.



[delphi-br] Re: Select com join em tabelas de outro banco...

2007-01-09 Por tôpico Murillo Proença
No Oracle existe o dblink, dá uma pesquisada se existe algo para
firebird. 

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

 Pessoal,
 
 Tem como fazer um select em uma tabela em um banco, com join com
outras tabelas de outro banco?
 A tabela principal está no Firebird 1.5 e as outras (join prá trazer
o nome, descrição, etc) está no MySQL.
 Uso BDS2006 com DBX, mas, a tecnologia de acesso pode ser outra,
caso tenha como fazer.
 
 Fico muito grato,
 
  
 Luis Alberto
 Belo Horizonte - MG
 
 
 
 
 __
 Fale com seus amigos  de graça com o novo Yahoo! Messenger 
 http://br.messenger.yahoo.com/ 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Atualização (Refresh)

2007-01-09 Por tôpico rbr_vix_es
Senhores(as),

Estou utilizando uma aplicação MDI onde existem vários botões em um 
determinado formulário que quando clicados, abrem outro formulário. 
Quando fecho esse formulário aberto posteriormente, gostaria de 
atualizar o formulário anterior automaticamente e não estou 
conseguindo.

Já tentei recuperar o Modal Result, mas não funcionou da forma como 
eu gostaria (acho que por se tratar de uma aplicação MDI).

Alguém tem uma dica ou idéia de como posso fazer isso?

Obrigado!

Sds,

Romario











[delphi-br] Epson LX 300

2007-01-09 Por tôpico Fre Cunha
Boa Tarde colegas,

Primeira vez q estou trabalhando com uma impressora matricial e é uma 
Epson LX 300 e estou desenvolvendo uma aplicação com delhi 6 e 
firebird. Bom meu problema é o seguinte monto meu carne numa memo ate 
tudo blzinha, em cima dessa memo mando imprimir com o seguinte codigo:


procedure TFrmRelCarne.BtnImprimirClick(Sender: TObject);
var c : integer;
linha : int64;
begin
  if Length(Trim(MmCarne.Text)) = 0 then
  begin
MessageDlg('Esolha uma venda', mtInformation,[mbok],0);
BtnImprimir.SetFocus;
exit;
  end;

  try
Printer.BeginDoc;
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Font.Name := 'courier new';
c := 1;
linha := 0;
while c = MmCarne.Lines.Count do
begin
  Printer.Canvas.TextOut(0,linha,MmCarne.Lines[c]);

  if c = 85 then
Printer.NewPage;

  linha := linha + 20;
  c := c + 1;
end;

Printer.EndDoc;

MessageDlg('Imprimindo carne...', mtInformation,[mbok],0);
  except
MmCarne.Clear;

MessageDlg('Erro ao imprimir carne', mtError,[mbok],0);
  end;

end;

No começo blz sem problema, mas qdo chega na 9 fatura a impressora 
não imprime mais, sendo q a 9ª ate a 12ª parcela estão na memo 
pelo q percebi ela para onde seria a troca de pagina, alguem viu algo 
pareceido e poderia me ajudar.

OBS: montei um txt com varias paginas e a impressora imprimiu normal, 
por isso q o problema ta na aplicação.

Obrigado.



[delphi-br] Correção: Epson LX 300

2007-01-09 Por tôpico Fre Cunha
Não estou usando esse trecho de codigo:   

if c = 85 then
  Printer.NewPage;


so coloquei pra teste e não funcionou tbem



Res: [delphi-br] Re: Códigos de Impressoras Matr iciais/Jato de Tinta/Laser

2007-01-09 Por tôpico janderson cardoso
olá Mani, vc vai conseguir estes codigo com um fonte do antigo zreport, eu 
tenho aqui e vou enviar em pvt para vc.

- Mensagem original 
De: maniacapordelphi [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 9 de Janeiro de 2007 7:39:22
Assunto: [delphi-br] Re: Códigos de Impressoras Matriciais/Jato de Tinta/Laser









  





Eu baixei os componentes do Fortes Report, mas no arquivo zip só veio

os dcu. Não tem os fontes. Sabe onde consigo algum fonte que contenha

esses código de impressora?



Mani



--- Em [EMAIL PROTECTED] os.com.br, Cyclone - Programação

cycloneprogramacao @... escreveu



 Baixe o Pacote de Componentes Fortes Report que lá tem como você

obter de várias impressoras.





 Sidnei Rodrigues de Castro

 Programador



 - Original Message -

 From: maniacapordelphi

 To: [EMAIL PROTECTED] os.com.br

 Sent: Tuesday, January 02, 2007 8:39 AM

 Subject: [delphi-br] Códigos de Impressoras Matriciais/Jato de

Tinta/Laser





 Em primeiro lugar, um Feliz 2007 pra todos vocês.

 Estou precisando da relação dos códigos de impressoras

matriciais,

 Jato de tinta e laser, todos os modelos possíveis para fazer

 tratamento de impressão estilo matricial. Códigos de : negrito,

 itálico, fontes, avanço de papel,fonte condensada, fonte normal,

fonte

 expandida. Alguém teria isso pra me ajudar?

 Mani











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








  







!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--







__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

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



[delphi-br] Função Format

2007-01-09 Por tôpico Tiago de Assis Pimenta
Galera, queria saber como que funciona essa função format, principalmente o
parametro format('%1s'
 
Por exemplo, para que serve o % , o numero ali S .. o S é de String mas e o
numero ali ? É o tamanho ???
 
Abraço


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



[delphi-br] Traduzir Mensagens MessageDlg

2007-01-09 Por tôpico Alexandre
Pessoal estou com um problemão, eu traduzi as mensagens  do meu Delphi 2005 no 
arquivo consts.pas e fiz o teste em um executavel vazio e traduziu beleza, mas 
quando eu rodo o meu sistema que chama um pacote com a opção BUILD RUNTIME 
PACKAGE as mensagens vem em inglês, procurei em todas as livrarias do delphi 
mas não consigo achar da onde ele esta buscando essas mensagens em ingles sendo 
que ja traduzi e o consts.pas. O unico parametro que tenho é o pacote vcl.dcp, 
mas não consigo recompila-lo.

Obrigado desde ja,

Alexandre

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



[delphi-br] Duvida DbExpress

2007-01-09 Por tôpico Hayalon A. de Oliveira
Pessoal como posso fazer para carregar parametros para o DbExpress, 
tipo para poder selecionar o banco dinamicamente

valeu


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



RES: [delphi-br] Traduzir Mensagens MessageDlg

2007-01-09 Por tôpico Elazar Dornelles Ceza
Boa tarde

Acho que vai ser necessário voce dar um build no pacote onde esta o
const.pas.

Atenc.
Elazar


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Alexandre
Enviada em: terça-feira, 9 de janeiro de 2007 15:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Traduzir Mensagens MessageDlg


Pessoal estou com um problemão, eu traduzi as mensagens do meu Delphi
2005 no arquivo consts.pas e fiz o teste em um executavel vazio e
traduziu beleza, mas quando eu rodo o meu sistema que chama um pacote
com a opção BUILD RUNTIME PACKAGE as mensagens vem em inglês, procurei
em todas as livrarias do delphi mas não consigo achar da onde ele esta
buscando essas mensagens em ingles sendo que ja traduzi e o consts.pas.
O unico parametro que tenho é o pacote vcl.dcp, mas não consigo
recompila-lo.

Obrigado desde ja,

Alexandre

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


 



___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



[delphi-br] Re: Traduzir Mensagens MessageDlg

2007-01-09 Por tôpico Walter Chagas (Yahoo)
A tradução de mensagens do Delphi, pelos meios que usamos, ela só 
traduz na hora da linkedição final do executável. Caso você esteja 
debugando seu projeto, ela vai lá no source do Delphi e pega os 
fontes que tão lá, em Inglês. Mas quando você dá um Build All no 
projeto, as mensagens somente ficarão aportuguesadas, se os dcu da 
pasta lib do Delphi estiverem traduzidas.

No caso de packages, pode haver troço dentro delas que foi compilado 
com as mensagens em ingles. Neste caso você teria que rebuildar a 
package..




[]s



Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]

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

 Pessoal estou com um problemão, eu traduzi as mensagens  do meu 
Delphi 2005 no arquivo consts.pas e fiz o teste em um executavel 
vazio e traduziu beleza, mas quando eu rodo o meu sistema que chama 
um pacote com a opção BUILD RUNTIME PACKAGE as mensagens vem em 
inglês, procurei em todas as livrarias do delphi mas não consigo 
achar da onde ele esta buscando essas mensagens em ingles sendo que 
ja traduzi e o consts.pas. O unico parametro que tenho é o pacote 
vcl.dcp, mas não consigo recompila-lo.
 
 Obrigado desde ja,
 
 Alexandre
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: [delphi-br] TinyDB

2007-01-09 Por tôpico Eduardo Silva dos Santos
da uma procurado no e-mule ou kazza que vc acha na hora.

Em 09/01/07, Welson Tavares [EMAIL PROTECTED] escreveu:

   Bom dia,

 Alguém tem um link ou mesmo o aplicatios, TinyDB para me arranjar.
 Achei vários links e inclusive o da desenvolvedora, mas estão todos
 quebrados.

 Grato

 Welson Tavares

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

 




-- 
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/


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



Re: [delphi-br] Traduzir Mensagens MessageDlg

2007-01-09 Por tôpico Desenvolvimento \(Anderson\)
na verdade é assim:
vc precisa apagar o consts.dcu...
pq se vc não der um build no consts.pas, ele não vai compilar seu programa com 
ele não...
pq qdo compila, o delphi pega só os .dcu para gerar o .exe.

logo, apague o .dcu.

And
  - Original Message - 
  From: Elazar Dornelles Ceza 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 09, 2007 5:21 PM
  Subject: RES: [delphi-br] Traduzir Mensagens MessageDlg


  Boa tarde

  Acho que vai ser necessário voce dar um build no pacote onde esta o
  const.pas.

  Atenc.
  Elazar

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  Em nome de Alexandre
  Enviada em: terça-feira, 9 de janeiro de 2007 15:30
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Traduzir Mensagens MessageDlg

  Pessoal estou com um problemão, eu traduzi as mensagens do meu Delphi
  2005 no arquivo consts.pas e fiz o teste em um executavel vazio e
  traduziu beleza, mas quando eu rodo o meu sistema que chama um pacote
  com a opção BUILD RUNTIME PACKAGE as mensagens vem em inglês, procurei
  em todas as livrarias do delphi mas não consigo achar da onde ele esta
  buscando essas mensagens em ingles sendo que ja traduzi e o consts.pas.
  O unico parametro que tenho é o pacote vcl.dcp, mas não consigo
  recompila-lo.

  Obrigado desde ja,

  Alexandre

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


  ___ 
  Yahoo! Mail - Sempre a melhor opção para você! 
  Experimente já e veja as novidades. 
  http://br.yahoo.com/mailbeta/tudonovo/




   

  __ Informação do NOD32 IMON 1967 (20070109) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br


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



Res: [delphi-br] [OFF-TOPIC] Vaga Programador

2007-01-09 Por tôpico Leonardo Freitag
Onde é a empresa?
Qual o perfil do profissional?
Qual o salário?

- Mensagem original 
De: Henrique Peixinho [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 9 de Janeiro de 2007 10:03:54
Assunto: [delphi-br] [OFF-TOPIC] Vaga Programador









  



Pessoal desculpa o off-topic, mas tenho uma vaga aqui na empresa 
para programador, os interessados por favor entra em contato em private comigo.



Grato,



Henrique Peixinho

3Soft Sistemas

(75) 3624-4666



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






  







!--

#ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;
}
#ygrp-vitnav{
padding-top:10px;
font-family:Verdana;
font-size:77%;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space:nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space:nowrap;
}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;
font-size:77%;
padding:15px 0;
}
#ygrp-ft{
font-family:verdana;
font-size:77%;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;
}

#ygrp-vital{
background-color:#e0ecee;
margin-bottom:20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77%;
font-family:Verdana;
font-weight:bold;
color:#333;
text-transform:uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type:none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right:.5em;
}
#ygrp-vital ul li .cat{
font-weight:bold;
}
#ygrp-vital a {
text-decoration:none;
}

#ygrp-vital a:hover{
text-decoration:underline;
}

#ygrp-sponsor #hd{
color:#999;
font-size:77%;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color:#e0ecee;
margin-bottom:20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type:square;
padding:6px 0;
font-size:77%;
}
#ygrp-sponsor #ov li a{
text-decoration:none;
font-size:130%;
}
#ygrp-sponsor #nc {
background-color:#eee;
margin-bottom:20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family:Arial;
font-weight:bold;
color:#628c2a;
font-size:100%;
line-height:122%;
}
#ygrp-sponsor .ad a{
text-decoration:none;
}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0;}
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120%;
}
blockquote{margin:0 0 0 4px;}
.replbq {margin:4;}
--







__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

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



Re: [delphi-br] Duvida DbExpress

2007-01-09 Por tôpico Plinio Cesar Pavin
Eu mantenho uma cópia do arquivo DBXCONNECTIONS.INI na mesma pasta do 
executável, com as configurações para acesso ao BD, E seto a propriedade:

 LoadParamsOnConnect := TRUE.

Plinio Cesar Pavin

  - Original Message - 
  From: Hayalon A. de Oliveira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 09, 2007 3:55 PM
  Subject: [delphi-br] Duvida DbExpress


  Pessoal como posso fazer para carregar parametros para o DbExpress, 
  tipo para poder selecionar o banco dinamicamente

  valeu

  [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: Epson LX 300

2007-01-09 Por tôpico wandarlei
Boa tarde,

Para imprimir este tipo de documento e qualquer relatório em uma 
impressora matricial eu uso o componete RDPint (Pago) ou o VDOPrint 
(free), com eles tenho controle de linhas colunas página, sem a 
necessidade de desenhar o relatório em tela.

Wandarlei Michelon

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

 Boa Tarde colegas,
 
 Primeira vez q estou trabalhando com uma impressora matricial e é 
uma 
 Epson LX 300 e estou desenvolvendo uma aplicação com delhi 6 e 
 firebird. Bom meu problema é o seguinte monto meu carne numa memo 
ate 
 tudo blzinha, em cima dessa memo mando imprimir com o seguinte 
codigo:
 
 
 procedure TFrmRelCarne.BtnImprimirClick(Sender: TObject);
 var c : integer;
 linha : int64;
 begin
   if Length(Trim(MmCarne.Text)) = 0 then
   begin
 MessageDlg('Esolha uma venda', mtInformation,[mbok],0);
 BtnImprimir.SetFocus;
 exit;
   end;
 
   try
 Printer.BeginDoc;
 Printer.Canvas.Font.Size := 10;
 Printer.Canvas.Font.Name := 'courier new';
 c := 1;
 linha := 0;
 while c = MmCarne.Lines.Count do
 begin
   Printer.Canvas.TextOut(0,linha,MmCarne.Lines[c]);
 
   if c = 85 then
 Printer.NewPage;
 
   linha := linha + 20;
   c := c + 1;
 end;
 
 Printer.EndDoc;
 
 MessageDlg('Imprimindo carne...', mtInformation,[mbok],0);
   except
 MmCarne.Clear;
 
 MessageDlg('Erro ao imprimir carne', mtError,[mbok],0);
   end;
 
 end;
 
 No começo blz sem problema, mas qdo chega na 9 fatura a impressora 
 não imprime mais, sendo q a 9ª ate a 12ª parcela estão na memo 
 pelo q percebi ela para onde seria a troca de pagina, alguem viu 
algo 
 pareceido e poderia me ajudar.
 
 OBS: montei um txt com varias paginas e a impressora imprimiu 
normal, 
 por isso q o problema ta na aplicação.
 
 Obrigado.





Re: [delphi-br] Escrever em Arquivo .TXT via rede

2007-01-09 Por tôpico Alessandro DUARTE de Moraes
Não entendi bem tua dúvida.
O procedimento é o mesmo de gerar na máquina local!
Explique mais detalhadamente tua dúvida.

[]'s

  - Original Message - 
  From: Luizcm_jr 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 09, 2007 11:20 AM
  Subject: [delphi-br] Escrever em Arquivo .TXT via rede


  Boa Tarde...

  Desejo antes de tudo.. felicidades as todos.. nesse novo ano que inicia.. 
muita paz..alegria.. e serviço...rsr.. pois isso que nos motiva cada vez mais.. 
a progredir

  Bom..estou com duvidas.. quanto aos procedimentos de escrita em arquivo .TXT 
via rede..

  Alguém saberia como eu posso fazer isso??

  Grato...

  Junior - Araraquara/SP

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



   
  -- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,45a3a532605981760690636 


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



Re: [delphi-br] Aplicação Distribuída em CD

2007-01-09 Por tôpico Welson Tavares
Distribuir em CD.

Em 09/01/07, Paulo Batalhão [EMAIL PROTECTED] escreveu:

   é para distribuir em cd ou rodar do cd ?

 - - - -
 att' Paulo Batalhão - [EMAIL PROTECTED] batalhao%40msn.com
 www.arphanet.rainulf.org - http://www.arphanet.rainulf.org/
 arphanet.com http://www.arphanet.com/
 batalhao.eti.br http://www.batalhao.eti.br/
 saudeamericana.com.br http://www.saudeamericana.com.br/
 fusame.com.br http://www.fusame.com.br/

 Não existe patch para a estupidez humana
 - Original Message -
 From: Welson Tavares
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Monday, January 08, 2007 2:47 PM
 Subject: [delphi-br] Aplicação Distribuída em CD

 Boa tarde,

 Estou começando agora com programação em Java e também em Delphi, e
 preciso desenvolver algumas aplicações para serem distribuídas em CD.
 Na opinião de vocês, o que seria melhor (Java ou Delphi) para desenvolver
 uma aplicação:

 - Robustas e funcionalidades
 - Fácil Instalação
 - Rode sem problemas em quaisquer (ou grande parte) das máquinas
 - Necessite o mínimo de suporte.

 Desde já agradeço a atenção de todos.

 Welson Tavares

 [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] Campos Agregados

2007-01-09 Por tôpico Eduardo Frighetto
Boa tarde, 

Alguém ae já criou campos agregados em ClientDataSet em runtime ?
Se tiver somente um exemplo, já ajuda muito.

Já procurei no google, no help, no historico do forum, mas nao encontrei nada.
Crio o campo, mas quando vou acessá-lo, tenho um erro de access violation.


Obrigado.

__
Eduardo Frighetto
Cooperate BI
Datacoper Software Ltda.

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



Re: [delphi-br] Escrever em Arquivo .TXT via rede

2007-01-09 Por tôpico Andre Veloso de Mesquita
Pelo que está parecendo você não está tendo permissão de escrita, não é 
isso.

Proceda com as permissões para o usuário e tente novamente.

[ ]'s

- Original Message - 
From: Alessandro DUARTE de Moraes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 09, 2007 3:09 PM
Subject: Re: [delphi-br] Escrever em Arquivo .TXT via rede


Não entendi bem tua dúvida.
O procedimento é o mesmo de gerar na máquina local!
Explique mais detalhadamente tua dúvida.

[]'s

  - Original Message - 
  From: Luizcm_jr
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, January 09, 2007 11:20 AM
  Subject: [delphi-br] Escrever em Arquivo .TXT via rede


  Boa Tarde...

  Desejo antes de tudo.. felicidades as todos.. nesse novo ano que inicia.. 
muita paz..alegria.. e serviço...rsr.. pois isso que nos motiva cada vez 
mais.. a progredir

  Bom..estou com duvidas.. quanto aos procedimentos de escrita em arquivo 
.TXT via rede..

  Alguém saberia como eu posso fazer isso??

  Grato...

  Junior - Araraquara/SP

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




  -- 
  E-mail Seguro Vetorial.net

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM,
  encaminhe para [EMAIL PROTECTED]

  Chave de Identificação: 54568,45a3a532605981760690636


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




[delphi-br] Porta Serial..

2007-01-09 Por tôpico Tatu-yahoogrupos
he possivel ler uma porta serial no delphi diretamente sem ultizar nenhum
componente especifico.
Utilizando a API ...Algum exemplo simples por ai ?


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



RES: [delphi-br] Porta Serial..

2007-01-09 Por tôpico Tatu-yahoogrupos
uma boa pesquisa no amigo google.com.br me retornou
http://www.veloso.kit.net/rs232.html
Desculpem...

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Tatu-yahoogrupos
Enviada em: terça-feira, 9 de janeiro de 2007 22:42
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Porta Serial..



he possivel ler uma porta serial no delphi diretamente sem ultizar nenhum
componente especifico.
Utilizando a API ...Algum exemplo simples por ai ?

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



 



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