Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Nilson Chagas
Outro chute então... olha os direitos no arquivo PDOXUSRS.NET... e como o
amigo havia te indicado... se vc não está logando como administrador, então
de o direito total aos usuários para este arquivo que te mostrei.

Agora segue um conselho, que se fosse bom não era de graça. hahaahahaha...
LARGA MÃO DE PARADOX. rsrsrsrs

Em 02/10/07, Joel Alexandre [EMAIL PROTECTED] escreveu:

 Licerio,

 Vou dar um chute aqui. Experimente aumentar o numero de files do XP.
 Basta editar o arquivo C:\WINDOWS\SYSTEM32\CONFIG.NT. Altere a linha do
 Files=40 para Files=200.

 Como o Paradox trabalhar de modo semelhante ao DBF, pode ser este o
 problema.

 []Os Joel
  Ola pessoal.. tenho um cliente q tem uma rede com 8 computadores
  rodando sobre windows 98.. perfeitamente .. ate q ele colocou um
  terminal com XP por conta da exirgencia de um soft... esta dando uns
  erros na abertura de arquivos do meu programa feito em D7 com
  Paradox... somente neste terminal XP... tem alguma configuracao de rede
  diferenciada para este caso tanto a nivel de S.O. como a nivel de
  BDE 
 
  Grato pela ajuda
 
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 




 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos





-- 
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br


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



[delphi-br] Re: Programação para WEB

2007-10-03 Por tôpico Murillo Proença
uso BDP

--- Em delphi-br@yahoogrupos.com.br, André Luis de Oliveira
[EMAIL PROTECTED] escreveu

 Murillo só uma informação, qual componente q vc usa fazer a
comunicação com o oracle?
 
 
   - Original Message - 
   From: Murillo Proença 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Tuesday, October 02, 2007 4:41 PM
   Subject: [delphi-br] Re: Programação para WEB
 
 
   Fala aí Rodrigo, blz?
 
   Estou desenvolvendo no BDS2006 / ASP.NET, framework 1.1 com BDP e
   Oracle de banco. Tá tudo rodando blzinha aqui na empresa, apesar de
   que se você puder trabalhar com o BDS2007, já compensa partir para o
   DBX4, pois o BDP foi abortado. E trabalhar com o GridView, que tem uma
   série de recursos prontos, que no DataGrid tinha que fazer na mão.
 
   Abraço
 
   Murillo Proença 
 
   --- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
   rodrigod6@ escreveu
   
Prezados Colegas,

Desenvolvo em Delphi 2005 for Windows e preciso desenvolver um
   modulo do sistema para WEB, então gostaria de alguns comentários das
   experiências passadas, sobre as seguintes ferramentas: Delphi 2005 for
   .net, Delphi 2006 for .net, Delphi 2007 for .net , Delphi for PHP,
   IntraWeb. 
Analisando algumas questões : 
- Suporte ao framework 1.1 x 2.0
- Uso do DataGrid x GridView
- BDP x DBX4 x FB provider
- Suporte a ajax

Qualquer informação é bem vinda, um site com comparações, 

muito obrigado,


Rodrigo


Abra sua conta no Yahoo! Mail, o único sem limite de espaço
   para armazenamento!
http://br.mail.yahoo.com/

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

 
 

--
 
 
   No virus found in this incoming message.
   Checked by AVG Free Edition. 
   Version: 7.5.488 / Virus Database: 269.13.37/1042 - Release Date:
1/10/2007 18:59
 
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: RES: [delphi-br] Imprimir lista de arquivos

2007-10-03 Por tôpico monicadachary
Sim, eu tentei, mas o meu problema é que apareça uma caixa de 
impressão no início e que a impressora escolhida seja válida p/ todos 
os arquivos a serem impressos.

Coloquei no onClick do meu botão imprimir o seguinte código de teste:

if PrinterSetupDialog1.Execute then
begin
   ShellExecute(Handle, 'print','C:\Teste.doc', nil,nil,SW_HIDE);
   ShellExecute(Handle, 'print','C:\Teste.pdf', nil,nil,SW_HIDE);
end;

Porém, o problema é que a impressora escolhida no diálogo é ignorada. 
O ShellExecute é enviado diretamente p/ a impressora padrão da 
máquina. Como faço p/ a impressora escolhida no PrinterSetup ser 
levada em conta?



--- Em delphi-br@yahoogrupos.com.br, Davi Eduardo Borges Wall 
[EMAIL PROTECTED] escreveu

 Oi Monica
 
  
 
 Por que você não abre uma caixa de dialogo de impressao ?
 
  
 
 Em dialogs, acho que se chama TPrinterSetup
 
  
 
 []'s
 
  
 
 De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED] Em nome de monicadachary
 Enviada em: terça-feira, 2 de outubro de 2007 17:36
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Imprimir lista de arquivos
 
  
 
 Olá pessoal,
 
 Tenho uma dúvida quanto a imprimir arquivos no Delphi. Tentei 
 pesquisar no Google e nas msgs da lista, mas não achei nada que se 
 adaptasse ao que eu preciso.
 
 Tenho uma aplicação na qual há uma lista de arquivos cadastrados 
pelo 
 usuário e ele tem a opção de escolher determinados arquivos p/ 
serem 
 impressos. Então eu poderia ter na listagem Arquivo1.doc e 
 Arquivo2.pdf, por exemplo.
 
 O que eu preciso é que quando o usuário selecione os arquivos e 
 clique no botão p/ imprimir, apareça uma caixa de diálogo de 
 impressão, na qual ele irá escolher a impressora, e que esta 
 configuração irá valer p/ todos os arquivos a serem impressos. Ou 
 seja, seleciona os arquivos, seleciona a impressora e manda todos 
p/ 
 a impressão.
 
 Encontrei exemplos de códigos do tipo:
 
 ShellExecute(Handle, 'print','C:\Teste.doc', nil,nil,SW_HIDE);
 
 Porém envia o arquivo p/ a impressora padrão, não abre o diálogo. E 
 também vale somente p/ um arquivo.
 
 Vocês teriam alguma sugestão de implementação p/ este problema?
 
  
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Continuar download do ponto em que parou

2007-10-03 Por tôpico Daniel Lucena
Olá senhores,

Estou precisando melhorar uma função que realizada downloads de atualizações do 
meu sistema. Gostaria de poder continuar o download do arquivo de atualização 
do ponto em que parou, no caso de uma perda de conexão por qualquer motivo.

Uso uma função bem simples, específica para o download, mas sempre recomeça do 
inicio em caso de perda de conexão.

function BaixarArquivo(vURL, vArquivo : String): Boolean;
begin
  with TDownloadURL.Create(application) do
  try
URL:= vURL;
FileName := vArquivo;
ExecuteTarget(nil) ;
  finally
Free;
  end;
end;

Já pesquisei e encontrei diversos exemplos com uso de bibliotecas e alguns 
componenetes, porém nenhum com resume do download!

Alguem poder me dar uma sugestão?

Muito obridado a todos, mais uma vez!


Daniel Vitor
Eng. de Computação
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Leonardo Quinino
WIN98 + PARADOX,   isso é um arakiri.

Em 03/10/07, Nilson Chagas [EMAIL PROTECTED] escreveu:

   Outro chute então... olha os direitos no arquivo 
 PDOXUSRS.NEThttp://pdoxusrs.net/...
 e como o
 amigo havia te indicado... se vc não está logando como administrador,
 então
 de o direito total aos usuários para este arquivo que te mostrei.

 Agora segue um conselho, que se fosse bom não era de graça. hahaahahaha...
 LARGA MÃO DE PARADOX. rsrsrsrs

 Em 02/10/07, Joel Alexandre [EMAIL 
 PROTECTED]joel_alexandre2002%40yahoo.com.br
 escreveu:
 
  Licerio,
 
  Vou dar um chute aqui. Experimente aumentar o numero de files do XP.
  Basta editar o arquivo C:\WINDOWS\SYSTEM32\CONFIG.NT. Altere a linha do
  Files=40 para Files=200.
 
  Como o Paradox trabalhar de modo semelhante ao DBF, pode ser este o
  problema.
 
  []Os Joel
   Ola pessoal.. tenho um cliente q tem uma rede com 8 computadores
   rodando sobre windows 98.. perfeitamente .. ate q ele colocou um
   terminal com XP por conta da exirgencia de um soft... esta dando uns
   erros na abertura de arquivos do meu programa feito em D7 com
   Paradox... somente neste terminal XP... tem alguma configuracao de
 rede
   diferenciada para este caso tanto a nivel de S.O. como a nivel de
   BDE 
  
   Grato pela ajuda
  
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
  armazenamento!
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
  
 
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Links do Yahoo! Grupos
 
 
 

 --
 Visite:
 Fundamental: www.amados.com.br
 Dúvidas:http://nilsoftware.blogspot.com/
 Obrigatório: www.saopaulofc.com.br

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

 




-- 
Leonardo Quinino


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



RE: [delphi-br] Continuar download do ponto em que parou

2007-10-03 Por tôpico Rubem Nascimento da Rocha

Procure no site de componentes Delphi http://www.torry.net pelo componente 
ALWininetHttpClient.
Sds.
 


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 3 Oct 2007 09:15:50 
-0300Subject: [delphi-br] Continuar download do ponto em que parou




Olá senhores,Estou precisando melhorar uma função que realizada downloads de 
atualizações do meu sistema. Gostaria de poder continuar o download do arquivo 
de atualização do ponto em que parou, no caso de uma perda de conexão por 
qualquer motivo.Uso uma função bem simples, específica para o download, mas 
sempre recomeça do inicio em caso de perda de conexão.function 
BaixarArquivo(vURL, vArquivo : String): Boolean;beginwith 
TDownloadURL.Create(application) dotryURL:= vURL;FileName := 
vArquivo;ExecuteTarget(nil) ;finallyFree;end;end;Já pesquisei e encontrei 
diversos exemplos com uso de bibliotecas e alguns componenetes, porém nenhum 
com resume do download!Alguem poder me dar uma sugestão?Muito obridado a todos, 
mais uma vez!Daniel VitorEng. de ComputaçãoAbra sua conta no Yahoo! Mail, o 
único sem limite de espaço para armazenamento! [As partes desta mensagem que 
não continham texto foram removidas] 






_
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live 
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true

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



RE: [delphi-br] Continuar download do ponto em que parou

2007-10-03 Por tôpico Rubem Nascimento da Rocha

Outra dica:
 
http://www.connectfusion.com
 
Sds.
 


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 3 Oct 2007 09:15:50 
-0300Subject: [delphi-br] Continuar download do ponto em que parou




Olá senhores,Estou precisando melhorar uma função que realizada downloads de 
atualizações do meu sistema. Gostaria de poder continuar o download do arquivo 
de atualização do ponto em que parou, no caso de uma perda de conexão por 
qualquer motivo.Uso uma função bem simples, específica para o download, mas 
sempre recomeça do inicio em caso de perda de conexão.function 
BaixarArquivo(vURL, vArquivo : String): Boolean;beginwith 
TDownloadURL.Create(application) dotryURL:= vURL;FileName := 
vArquivo;ExecuteTarget(nil) ;finallyFree;end;end;Já pesquisei e encontrei 
diversos exemplos com uso de bibliotecas e alguns componenetes, porém nenhum 
com resume do download!Alguem poder me dar uma sugestão?Muito obridado a todos, 
mais uma vez!Daniel VitorEng. de ComputaçãoAbra sua conta no Yahoo! Mail, o 
único sem limite de espaço para armazenamento! [As partes desta mensagem que 
não continham texto foram removidas] 






_
Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx

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



[delphi-br] Como colocar um icone diferente em uma caixa de mensagem

2007-10-03 Por tôpico infso11
Pessoal:

Geralmente, exibo mensagens ao usuario atraves de MessageDlg, usando
os icones padronizados do Delphi (mtWarning, mtConfirmation, etc.)

Porem, agora preciso exibir algumas mensagens e exibir icones diferentes
Por exemplo, uma das mensagens e´:

Para executar esta operacao, clique primeiramente no botao [aqui vai o desenho 
do botao].

Pergunta:

Existe alguma funcao do Delphi ou da  API do Windows para eu fazer isso, ou 
tenho
que criar um Form especialmente para mostrar mensagens com meus icones ?

Obrigado pela atencao de todos
Paulo


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



Re: [delphi-br] Como colocar um icone diferente em uma caixa de mensagem

2007-10-03 Por tôpico Nilson Chagas
Vou dar um pitaco...

Cria vc mesmo... vc terá muito mais flexibilidade para fazer outras coisas.

Em 03/10/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu:

   Pessoal:

 Geralmente, exibo mensagens ao usuario atraves de MessageDlg, usando
 os icones padronizados do Delphi (mtWarning, mtConfirmation, etc.)

 Porem, agora preciso exibir algumas mensagens e exibir icones diferentes
 Por exemplo, uma das mensagens e´:

 Para executar esta operacao, clique primeiramente no botao [aqui vai o
 desenho do botao].

 Pergunta:

 Existe alguma funcao do Delphi ou da API do Windows para eu fazer isso, ou
 tenho
 que criar um Form especialmente para mostrar mensagens com meus icones ?

 Obrigado pela atencao de todos
 Paulo

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

  




-- 
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br


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



Re: RES: [delphi-br] Duvída em sintaxe SQL =20?=

2007-10-03 Por tôpico Daniel Lucena
Obrigado Vitor e Claudiney pelas dicas!

Eu já conhecia o soundex, e fiz alguns testes com ele, até conseguir o 
resultado desejado, porém com um tempo de resposta de mais de 20 min em uma 
base com apenas 9900 registros

Achei muito lento! 

Mas, muito obrigado pela colaboração!

Abraços!
 
Vitor Redes [EMAIL PROTECTED] escreveu:   
Tem no firebird sim... procure no google por soundex firebird...
 ou vá direto na firebase que tem.
 
 Vitor.
 
 _  
 
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
 nome de Claudiney Cogo
 Enviada em: segunda-feira, 1 de outubro de 2007 16:25
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] Duvída em sintaxe SQL 
 
 Olá Daniel.
 
 Não sei dizer se isso existe no Firebird, mas no SQL Server existe uma
 função chamada SOUNDEX que pode ser usada pra testar a semelhança fonética
 entre duas palavras. Nunca usei, mas de repente pode ser uma saída pra você.
 Acredito que a sintaxe seja mais ou menos o seguinte:
 
 select * from tabela where soundex(nome) = soundex(:paramnome)
 
 ou algo assim... Se alguém da lista já usou essa função, pode complementar
 melhor.
 
 Abraço.
 _
 Claudiney Cogo
 N2 Sistemas e Soluções em Informática
 Av. São Paulo, 172 - 15º Andar - Sala 1505
 Maringá - Paraná
 www.n2solutions.com.br
 
 - Original Message - 
 From: Daniel Lucena 
 To: delphi-br 
 Sent: Monday, October 01, 2007 3:14 PM
 Subject: [delphi-br] Duvída em sintaxe SQL 
 
 Boa tarde senhores,
 
 Primeiramente peço desculpas por enviar a este forum uma questão nao
 diretamente relacionada a delphi e sim a firebird. Mas como não obtive
 respostas lá, as vezes alguem aqui possa me ajudar.
 
 Estou elaborando uma função de consulta por fonema, porém estou com
 dificuldades na sintaxe select com firebird:
 
 Ex:
 
 Quero encontrar a palavra CHAVE no banco de dados, sendo passado como
 paramentro CHAVE ou XAVE.
 
 logo, criei a seguinte seleção:
 
 select palavra from dicionario where palavra like '[X,CH]AVE'
 
 Não obtive o resultado desejado! Foi retornado NULL, pois a seleção
 verificou '[X,CH]AVE' na integra e não 'XAVE' ou 'CHAVE'.
 
 Alguem conhece essa sintaxe?
 Alguem pode me ajudar?
 
 Desde já muito obrigado!
 
 Daniel Vitor
 Eng. de Computação
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 __ NOD32 2563 (20071001) Information __
 
 This message was checked by NOD32 antivirus system.
 http://www.eset. http://www.eset.com com
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   


Daniel Vitor
Eng. de Computação
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



RE: [delphi-br] Continuar download do ponto em que parou

2007-10-03 Por tôpico Daniel Lucena
Obridado Rubem,

Estou baixando e vou testar!

Abraço!

Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: 
  
 Procure no site de componentes Delphi http://www.torry.net pelo componente 
ALWininetHttpClient.
 Sds.
  
 
 To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 3 Oct 2007 09:15:50 
-0300Subject: [delphi-br] Continuar download do ponto em que parou
 
 Olá senhores,Estou precisando melhorar uma função que realizada downloads de 
atualizações do meu sistema. Gostaria de poder continuar o download do arquivo 
de atualização do ponto em que parou, no caso de uma perda de conexão por 
qualquer motivo.Uso uma função bem simples, específica para o download, mas 
sempre recomeça do inicio em caso de perda de conexão.function 
BaixarArquivo(vURL, vArquivo : String): Boolean;beginwith 
TDownloadURL.Create(application) dotryURL:= vURL;FileName := 
vArquivo;ExecuteTarget(nil) ;finallyFree;end;end;Já pesquisei e encontrei 
diversos exemplos com uso de bibliotecas e alguns componenetes, porém nenhum 
com resume do download!Alguem poder me dar uma sugestão?Muito obridado a todos, 
mais uma vez!Daniel VitorEng. de ComputaçãoAbra sua conta no Yahoo! Mail, o 
único sem limite de espaço para armazenamento! [As partes desta mensagem que 
não continham texto foram removidas] 
 
 __
 Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live 
Search Maps!
 http://www.livemaps.com.br/index.aspx?tr=true
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   


Daniel Vitor
Eng. de Computação
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



RE: [delphi-br] Como colocar um icone diferente em uma caixa de mensagem

2007-10-03 Por tôpico Fernando de Simas

Paulo
 
Eu não sou adepto do MessageDlg, eu prefiro usar o MessageBox.
 
A sintaxe é a seguinte:
 
Application.MessageBox('Mensagem a Ser exibida','Título da 
Menssagem',icone+botoes);
 
fica mais ou menos assim:
 
Application.MessageBox('Deseja excluir este cliente?','Confirmar 
Exclusão',mb_iconquestion+mb_yesno);
 
onde:
mb_iconquestion = icone de interrogação
mb_yesno = botões sim e não
 
também há:
mb_iconerror = icone de erro
mb_iconwarning = icone de atenção
mb_iconinformation = icone de informação
 
nos botões
mb_cancel = cancelar
mb_abort = abortar
 
um exemplo prático:
 
if application.messagebox('Deseja excluir este cliente?','Confirmar 
exclusão?',mb_iconquestion+mb_yesno) = mrYes then
 TbClientes.Delete
  else
   Exit;
 
onde mrYes = retorno da mensagem
 
é isso aew
 
qualquer coisa dá um toque.
 
Fernando


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 3 Oct 2007 09:14:59 
-0300Subject: [delphi-br] Como colocar um icone diferente em uma caixa de 
mensagem




Pessoal:Geralmente, exibo mensagens ao usuario atraves de MessageDlg, usandoos 
icones padronizados do Delphi (mtWarning, mtConfirmation, etc.)Porem, agora 
preciso exibir algumas mensagens e exibir icones diferentesPor exemplo, uma das 
mensagens e´:Para executar esta operacao, clique primeiramente no botao [aqui 
vai o desenho do botao].Pergunta:Existe alguma funcao do Delphi ou da API do 
Windows para eu fazer isso, ou tenhoque criar um Form especialmente para 
mostrar mensagens com meus icones ?Obrigado pela atencao de todosPaulo[As 
partes desta mensagem que não continham texto foram removidas] 






_
Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com 
Alertas MSN! É GRÁTIS!
http://alertas.br.msn.com/

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



[delphi-br] Colocar uma linha em preto horizontal usando o beforeprint da banda detail

2007-10-03 Por tôpico bene20032004
Estou listando os dados de uma tabela única,que não esta relacionada a 
outra,  em um determinado momento de acordo com a condição de um campo 
eu quero colocar uma linha horizontal em preto para separar o relatorio.


ex: se o campo x=''
   ___
  

Tem como fazer isto ?



Res: RES: [delphi-br] Imprimir lista de arquivos

2007-10-03 Por tôpico Andre Luis Silveria
procedure FazPrnAtualVirarDefault(Impressora: Integer);
var
   Res: DWORD;
   Device: array[0..255] of char;
   Driver: array[0..255] of char;
   Port: array[0..255] of char;
   WindowsStr: array[0..255] of char;
   hDeviceMode: THandle;
begin
   if (Impressora = Printer.Printers.Count - 1) then
   begin
  // Pega dados da impressora atual
  Printer.PrinterIndex := Impressora;
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  // Monta string exigida pela API do Windows
  StrCat(Device, ',');
  StrCat(Device, Driver);
  StrCat(Device, ',');
  StrCat(Device, Port);
  StrPCopy(WindowsStr, 'windows');
  // Torna a impressora a atual;
  WriteProfileString(WindowsStr, 'device', Device);
  SendMessageTimeout(HWND_BROADCAST, WM_WININICHANGE, 0,
 DWORD(@WindowsStr),
 SMTO_NORMAL, 1000, Res);
   end;
end;

Pegue o Indice da impressora que o usuário selecionar e seta ela como padrão, 
guarde o indice da impressora padrão anterior.

- Mensagem original 
De: monicadachary [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 3 de Outubro de 2007 8:39:13
Assunto: Re: RES: [delphi-br] Imprimir lista de arquivos









  



Sim, eu tentei, mas o meu problema é que apareça uma caixa de 

impressão no início e que a impressora escolhida seja válida p/ todos 

os arquivos a serem impressos.



Coloquei no onClick do meu botão imprimir o seguinte código de teste:



if PrinterSetupDialog1 .Execute then

begin

   ShellExecute( Handle, 'print','C:\ Teste.doc' , nil,nil,SW_HIDE) ;

   ShellExecute( Handle, 'print','C:\ Teste.pdf' , nil,nil,SW_HIDE) ;

end;



Porém, o problema é que a impressora escolhida no diálogo é ignorada. 

O ShellExecute é enviado diretamente p/ a impressora padrão da 

máquina. Como faço p/ a impressora escolhida no PrinterSetup ser 

levada em conta?



--- Em [EMAIL PROTECTED] os.com.br, Davi Eduardo Borges Wall 

[EMAIL PROTECTED] .. escreveu



 Oi Monica

 

  

 

 Por que você não abre uma caixa de dialogo de impressao ?

 

  

 

 Em dialogs, acho que se chama TPrinterSetup

 

  

 

 []'s

 

  

 

 De: [EMAIL PROTECTED] os.com.br [mailto:delphi-

[EMAIL PROTECTED] com.br] Em nome de monicadachary

 Enviada em: terça-feira, 2 de outubro de 2007 17:36

 Para: [EMAIL PROTECTED] os.com.br

 Assunto: [delphi-br] Imprimir lista de arquivos

 

  

 

 Olá pessoal,

 

 Tenho uma dúvida quanto a imprimir arquivos no Delphi. Tentei 

 pesquisar no Google e nas msgs da lista, mas não achei nada que se 

 adaptasse ao que eu preciso.

 

 Tenho uma aplicação na qual há uma lista de arquivos cadastrados 

pelo 

 usuário e ele tem a opção de escolher determinados arquivos p/ 

serem 

 impressos. Então eu poderia ter na listagem Arquivo1.doc e 

 Arquivo2.pdf, por exemplo.

 

 O que eu preciso é que quando o usuário selecione os arquivos e 

 clique no botão p/ imprimir, apareça uma caixa de diálogo de 

 impressão, na qual ele irá escolher a impressora, e que esta 

 configuração irá valer p/ todos os arquivos a serem impressos. Ou 

 seja, seleciona os arquivos, seleciona a impressora e manda todos 

p/ 

 a impressão.

 

 Encontrei exemplos de códigos do tipo:

 

 ShellExecute( Handle, 'print','C:\ Teste.doc' , nil,nil,SW_HIDE) ;

 

 Porém envia o arquivo p/ a impressora padrão, não abre o diálogo. E 

 também vale somente p/ um arquivo.

 

 Vocês teriam alguma sugestão de implementação p/ este problema?

 

  

 

 

 

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








  







!--

#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--



!--

#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--



!--

#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 

Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Joel Alexandre

 LARGA MÃO DE PARADOX. rsrsrsr
Licerio, veja só.. Seguindo o conselho do colega, se vc usar 
qualquer banco: MySQL, Firebird, PostgreSQL. Usando o Zeos e as classes 
ZTable dele, vc vai ter um banco de dados descente e, com toda certeza, 
não precisará mexer em quase nada do seu programa.
Para mudar seus componentes tb não haverá esforço. Existe um 
utilitário EXCELENTE que se chama GExperts, vc pega em: 
http://www.gexperts.org/download.html, com ele vc pode marcar todos os 
componentes Table que vc tem aí e alterar para o ZTable.
   
Precisando vc sabe que estou por aí..

[]Os Joel
 



-- 
 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] Código de Barras

2007-10-03 Por tôpico dhsb
Pessoal estou desenvolvendo um pequeno programa de biblioteca e agora 
estou com dificuldades em termina-lo, pois nao estou conseguindo emitir 
etiquetas com codigo de barras. A escola ja tem uma impressora de 
etiquetas de codigo de barras Marca SEAL , modelo TLP2642PSA. Tenho uma 
tabela chamada Itens que tem um campo chamado cod_barras de seis 
algarismos como eu poderia resolver este problema ? alguem ja tem algo 
pronto ou dicas que possa me ajudar, pois a primeira vez que estou 
trabalhando com isso.

Valeu



Re: [delphi-br] Resolução de video

2007-10-03 Por tôpico Hudson
Ola a todos da lista...

gente achei um componente ele funcionou 90 % do estava precisando...

Alguem ja ouvio falar em FormAutoSize?

Valeu gente!

  - Original Message - 
  From: Hudson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, September 30, 2007 11:25 PM
  Subject: [delphi-br] Resolução de video


  Ola a todos da lista...

  Gente, vi um sistema e fiquei com uma certa inveja.
  o sistema foi feito em java um controle de estoque...mas o q me chamou a 
atenção foi que ele rodava em todas as resoluções 1024X768 - 800X600...
  fiz o teste para todos
  (se da para fazer em java da pra fazer em delphi).

  então mão na massa, pesquisei o help do delphi e na web vi alguns codigo que 
não chegava perto do que eu queria...

  agora a pegunta é, exite algum componente pago ou free que faz este processo?.

  alguem sabe o que devo fazer para chegar a este ponto...

  valeu galera!

  Atenciosamente Hudson Dias
  www.alcancedigital.com.br
  MSN: [EMAIL PROTECTED]
  Skype: hudson_bh
  Tele: (31)3434-6304

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



   

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



Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico itabyte
Licério blz cara , qual são os erros que estão dando??

JESUS TE AMA !!!




[delphi-br] SQL não está lendo as informações que preciso

2007-10-03 Por tôpico itasouza
Amigos
Preciso de uma ajuda!!
Tenho dois grides que ao selecionar 1 me lista informações em outro. 
O detalhe e que o meu sql esta funcionando mais
apenas para o primeiro teste, quando seleciona no gride um tipo 
diferente ele não me traz nada, pois pula o segundo sql da consulta.


Agradeço a ajuda!!


procedure TForm1.SQL4;
begin
  TMOV2.Close;
  TMOV2.SQL.Clear;
if MAN.FieldByName('MINUTA').Text  'SEM MINUTA' then //verifica
if MAN.FieldByName('MINUTA').Text  '  -'  then   // 
verifica
if MAN.FieldByName('MINUTA').Text  '000-' then   //verifica
begin
  TMOV2.SQL.Add('SELECT');
  TMOV2.SQL.Add(' M.NUMEROMOV,');
  TMOV2.SQL.Add(' C.NOME,');
  TMOV2.SQL.Add(' M.DATAEMISSAO,');
  TMOV2.SQL.Add(' CAST(M.PESOBRUTO AS FLOAT) PESOBRUTO,');
  TMOV2.SQL.Add(' M.QUANTIDADE,');
  TMOV2.SQL.Add(' M.IDMOV,');
  TMOV2.SQL.Add(' MC.DATAMINUTA,');
  TMOV2.SQL.Add(' MC.MINUTA,');
  TMOV2.SQL.Add(' MC.MINUTAANT,');
  TMOV2.SQL.Add(' MC.MINUTAHIST');
  TMOV2.SQL.Add('FROM TMOV M,FCFO C,TMOVCOMPL MC');
  TMOV2.SQL.Add(' WHERE M.CODCFO = C.CODCFO');
  TMOV2.SQL.Add(' AND MC.IDMOV = M.IDMOV');
  TMOV2.SQL.Add(' AND M.STATUS  '+ QuotedStr('C'));
  TMOV2.SQL.Add(' AND MC.MINUTA = '+ QuotedStr(MAN.FieldByName
('MINUTA').Text));
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.01'));
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.12'));
  TMOV2.SQL.Add(' ORDER BY M.NUMEROMOV,C.NOME ');
  //Memo4.lines.AddStrings(TMOV2.sql);
  //exit;
end
else   //não consegue ler este, mesmo quando as opções a cima 
são iguais
  begin
  TMOV2.SQL.Add('SELECT ');
  TMOV2.SQL.Add('M.NUMEROMOV,');
  TMOV2.SQL.Add('C.NOME,');
  TMOV2.SQL.Add('M.DATAEMISSAO,');
  TMOV2.SQL.Add('CAST(M.PESOBRUTO AS FLOAT) PESOBRUTO,');
  TMOV2.SQL.Add('M.QUANTIDADE,');
  TMOV2.SQL.Add('M.IDMOV,');
  TMOV2.SQL.Add('MC.DATAMINUTA,');
  TMOV2.SQL.Add('MC.MINUTA,');
  TMOV2.SQL.Add(' MC.MINUTAANT,');
  TMOV2.SQL.Add(' MC.MINUTAHIST');
  TMOV2.SQL.Add(' FROM TMOV M,FCFO C,TMOVCOMPL MC');
  TMOV2.SQL.Add(' WHERE M.CODCFO = C.CODCFO');
  TMOV2.SQL.Add(' AND MC.IDMOV = M.IDMOV');
  TMOV2.SQL.Add(' AND M.STATUS  '+ QuotedStr('C'));
  TMOV2.SQL.Add(' AND MC.MINUTA IS NULL ');
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.01'));
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.12'));
  TMOV2.SQL.Add(' ORDER BY M.NUMEROMOV,C.NOME');
  Memo4.lines.AddStrings(TMOV2.sql);
  // exit;
end;
TMOV2.Open;
end;




[delphi-br] serial físico do HD no win Server

2007-10-03 Por tôpico Evaldo
Alguém já precisou capturar o serial físico do Hd no windows Server 2003 e 
obteve sucesso, mesmo para usuários sem privilégios?   se sim como foi feito?



  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

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



Re: Res: RES: [delphi-br] Imprimir lista de arquivos

2007-10-03 Por tôpico monicadachary
Ola Andre,

Adaptei p/ o que eu precisava e deu certo.

Eu não tinha pensado neste sentido de alterar a impressora padrão, 
imprimir e depois voltar a que estava antes.

Valeu pela ajuda.

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

 procedure FazPrnAtualVirarDefault(Impressora: Integer);
 var
Res: DWORD;
Device: array[0..255] of char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
WindowsStr: array[0..255] of char;
hDeviceMode: THandle;
 begin
if (Impressora = Printer.Printers.Count - 1) then
begin
   // Pega dados da impressora atual
   Printer.PrinterIndex := Impressora;
   Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
   // Monta string exigida pela API do Windows
   StrCat(Device, ',');
   StrCat(Device, Driver);
   StrCat(Device, ',');
   StrCat(Device, Port);
   StrPCopy(WindowsStr, 'windows');
   // Torna a impressora a atual;
   WriteProfileString(WindowsStr, 'device', Device);
   SendMessageTimeout(HWND_BROADCAST, WM_WININICHANGE, 0,
  DWORD(@WindowsStr),
  SMTO_NORMAL, 1000, Res);
end;
 end;
 
 Pegue o Indice da impressora que o usuário selecionar e seta ela 
como padrão, guarde o indice da impressora padrão anterior.
 
 - Mensagem original 
 De: monicadachary [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Quarta-feira, 3 de Outubro de 2007 8:39:13
 Assunto: Re: RES: [delphi-br] Imprimir lista de arquivos
 
 
 
 
 
 
 
 
 
   
 
 
 
 Sim, eu tentei, mas o meu problema é que apareça uma 
caixa de 
 
 impressão no início e que a impressora escolhida seja válida p/ 
todos 
 
 os arquivos a serem impressos.
 
 
 
 Coloquei no onClick do meu botão imprimir o seguinte código de 
teste:
 
 
 
 if PrinterSetupDialog1 .Execute then
 
 begin
 
ShellExecute( Handle, 'print','C:\ Teste.doc' , 
nil,nil,SW_HIDE) ;
 
ShellExecute( Handle, 'print','C:\ Teste.pdf' , 
nil,nil,SW_HIDE) ;
 
 end;
 
 
 
 Porém, o problema é que a impressora escolhida no diálogo é 
ignorada. 
 
 O ShellExecute é enviado diretamente p/ a impressora padrão da 
 
 máquina. Como faço p/ a impressora escolhida no PrinterSetup ser 
 
 levada em conta?
 
 
 
 --- Em [EMAIL PROTECTED] os.com.br, Davi Eduardo Borges Wall 
 
 davi.wall@ .. escreveu
 
 
 
  Oi Monica
 
  
 
   
 
  
 
  Por que você não abre uma caixa de dialogo de impressao ?
 
  
 
   
 
  
 
  Em dialogs, acho que se chama TPrinterSetup
 
  
 
   
 
  
 
  []'s
 
  
 
   
 
  
 
  De: [EMAIL PROTECTED] os.com.br [mailto:delphi-
 
 [EMAIL PROTECTED] com.br] Em nome de monicadachary
 
  Enviada em: terça-feira, 2 de outubro de 2007 17:36
 
  Para: [EMAIL PROTECTED] os.com.br
 
  Assunto: [delphi-br] Imprimir lista de arquivos
 
  
 
   
 
  
 
  Olá pessoal,
 
  
 
  Tenho uma dúvida quanto a imprimir arquivos no Delphi. Tentei 
 
  pesquisar no Google e nas msgs da lista, mas não achei nada que 
se 
 
  adaptasse ao que eu preciso.
 
  
 
  Tenho uma aplicação na qual há uma lista de arquivos cadastrados 
 
 pelo 
 
  usuário e ele tem a opção de escolher determinados arquivos p/ 
 
 serem 
 
  impressos. Então eu poderia ter na listagem Arquivo1.doc e 
 
  Arquivo2.pdf, por exemplo.
 
  
 
  O que eu preciso é que quando o usuário selecione os arquivos e 
 
  clique no botão p/ imprimir, apareça uma caixa de diálogo de 
 
  impressão, na qual ele irá escolher a impressora, e que esta 
 
  configuração irá valer p/ todos os arquivos a serem impressos. Ou 
 
  seja, seleciona os arquivos, seleciona a impressora e manda todos 
 
 p/ 
 
  a impressão.
 
  
 
  Encontrei exemplos de códigos do tipo:
 
  
 
  ShellExecute( Handle, 'print','C:\ Teste.doc' , nil,nil,SW_HIDE) ;
 
  
 
  Porém envia o arquivo p/ a impressora padrão, não abre o diálogo. 
E 
 
  também vale somente p/ um arquivo.
 
  
 
  Vocês teriam alguma sugestão de implementação p/ este problema?
 
  
 
   
 
  
 
  
 
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 
 
   
 
 
 
 
 
 
 
 !--
 
 #ygrp-mkp{
 border:1px solid #d8d8d8;font-family:Arial;margin:14px 
0px;padding:0px 14px;}
 #ygrp-mkp hr{
 border:1px solid #d8d8d8;}
 #ygrp-mkp #hd{
 color:#628c2a;font-size:85%;font-weight:bold;line-
height:122%;margin:10px 0px;}
 #ygrp-mkp #ads{
 margin-bottom:10px;}
 #ygrp-mkp .ad{
 padding:0 0;}
 #ygrp-mkp .ad a{
 color:#ff;text-decoration:none;}
 --
 
 
 
 !--
 
 #ygrp-sponsor #ygrp-lc{
 font-family:Arial;}
 #ygrp-sponsor #ygrp-lc #hd{
 margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
 #ygrp-sponsor #ygrp-lc .ad{
 margin-bottom:10px;padding:0 0;}
 --
 
 
 
 !--
 
 #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 * 

RE: [delphi-br] serial físico do HD no win Server

2007-10-03 Por tôpico Rubem Nascimento da Rocha

Como vc tentou fazer, companheiro?
Sds.
 


To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 3 Oct 2007 07:50:28 
-0700Subject: [delphi-br] serial físico do HD no win Server




Alguém já precisou capturar o serial físico do Hd no windows Server 2003 e 
obteve sucesso, mesmo para usuários sem privilégios? se sim como foi feito?Abra 
sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!http://br.mail.yahoo.com/[As partes desta mensagem que não 
continham texto foram removidas] 






_
Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas 
com Windows Desktop Search GRÁTIS!
http://desktop.msn.com.br/

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



Res: [delphi-br] serial físico do HD no win Server

2007-10-03 Por tôpico Evaldo
usando a seguinte função:


{ função que pega o serial number FÍSICO do HD e retorna string }

function GetIdeDiskSerialNumber : String;
   type
TSrbIoControl = packed record
  HeaderLength: ULONG;
  Signature: Array[0..7] of Char;
  Timeout: ULONG;
  ControlCode: ULONG;
  ReturnCode: ULONG;
  Length: ULONG;
   end;
   SRB_IO_CONTROL = TSrbIoControl;
   PSrbIoControl = ^TSrbIoControl;

TIDERegs = packed record
  bFeaturesReg : Byte; // especificar comandos SMART
  bSectorCountReg : Byte; // registro de contador de setor
  bSectorNumberReg : Byte; // registro de número de setores
  bCylLowReg : Byte; // valor de cilindro (byte mais baixo)
  bCylHighReg : Byte; // valor de cilindro (byte mais alto)
  bDriveHeadReg : Byte; // registro de drive/cabeça
  bCommandReg : Byte; // comando IDE
  bReserved : Byte; // reservado- tem que ser zero
   end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;

   TSendCmdInParams = packed record
  cBufferSize : DWORD;
  irDriveRegs : TIDERegs;
  bDriveNumber : Byte;
  bReserved : Array[0..2] of Byte;
  dwReserved : Array[0..3] of DWORD;
  bBuffer : Array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;
 
TIdSector = packed record
  wGenConfig : Word;
  wNumCyls : Word;
  wReserved : Word;
  wNumHeads : Word;
  wBytesPerTrack : Word;
  wBytesPerSector : Word;
  wSectorsPerTrack : Word;
  wVendorUnique : Array[0..2] of Word;
  sSerialNumber : Array[0..19] of Char;
  wBufferType : Word;
  wBufferSize : Word;
  wECCSize : Word;
  sFirmwareRev : Array[0..7] of Char;
  sModelNumber : Array[0..39] of Char;
  wMoreVendorUnique : Word;
  wDoubleWordIO : Word;
  wCapabilities : Word;
  wReserved1 : Word;
  wPIOTiming : Word;
  wDMATiming : Word;
  wBS : Word;
  wNumCurrentCyls : Word;
  wNumCurrentHeads : Word;
  wNumCurrentSectorsPerTrack : Word;
  ulCurrentSectorCapacity : ULONG;
  wMultSectorStuff : Word;
  ulTotalAddressableSectors : ULONG;
  wSingleWordDMA : Word;
  wMultiWordDMA : Word;
  bReserved : Array[0..127] of Byte;
end;
PIdSector = ^TIdSector;

  const
IDE_ID_FUNCTION = $EC;
IDENTIFY_BUFFER_SIZE = 512;
DFP_RECEIVE_DRIVE_DATA = $0007c088;
IOCTL_SCSI_MINIPORT = $0004d008;
IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;
DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;
BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;
W9xBufferSize = IDENTIFY_BUFFER_SIZE+16;
  var
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; // PSendCmdOutParams
Buffer : Array[0..BufferSize-1] of Byte;
srbControl : TSrbIoControl absolute Buffer;
 
  begin
Result := '';
FillChar(Buffer,BufferSize,#0);
 
if Win32Platform=VER_PLATFORM_WIN32_NT then
// Windows NT, Windows 2000, Windows XP
begin
  // recuperar handle da porta SCSI
  hDevice := CreateFile('\\.\Scsi0:',
  // Nota: '\\.\C:' precisa de privilégios administrativos
  GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,  nil, 
OPEN_EXISTING, 0, 0);
  if hDevice=INVALID_HANDLE_VALUE then Exit;
  try
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.Signature,8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData := PSendCmdInParams(PChar(@Buffer)
+SizeOf(SRB_IO_CONTROL));
pOutData := pInData;
   with pInData^ do
   begin
 cBufferSize := IDENTIFY_BUFFER_SIZE;
 bDriveNumber := 0;
 with irDriveRegs do
 begin
   bFeaturesReg := 0;
   bSectorCountReg := 1;
   bSectorNumberReg := 1;
   bCylLowReg := 0;
   bCylHighReg := 0;
   bDriveHeadReg := $A0;
   bCommandReg := IDE_ID_FUNCTION;
 end;
  end;
  if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer, 
BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit;
 finally
   CloseHandle(hDevice);
 end;
   end
   else
   begin
  // Windows 95 OSR2, Windows 98, Windows ME
  hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
  if hDevice=INVALID_HANDLE_VALUE then Exit;
  try
pInData := PSendCmdInParams(@Buffer);
pOutData := @pInData^.bBuffer;
with pInData^ do
begin
   cBufferSize := IDENTIFY_BUFFER_SIZE;
   bDriveNumber := 0;
   with irDriveRegs do
   begin
 bFeaturesReg := 0;
 bSectorCountReg := 1;
 bSectorNumberReg := 1;
 bCylLowReg := 0;
 bCylHighReg := 0;
 bDriveHeadReg := $A0;   
   

[delphi-br] Re: SQL não está lendo as informações que preciso (complemento)

2007-10-03 Por tôpico itasouza
Tenho o seguinte SQL com as alterações no if 

procedure TForm1.SQL4;
begin
  TMOV2.Close;
  if MAN.RecordCount 0 then
  begin
TMOV2.SQL.Clear;
if (MAN.FieldByName('MINUTA').Text  'SEM MINUTA') or
   (MAN.FieldByName('MINUTA').Text  '  -' ) or
   (MAN.FieldByName('MINUTA').Text  '000-') then
begin
  TMOV2.SQL.Add('SELECT');
  TMOV2.SQL.Add(' M.NUMEROMOV,');
  TMOV2.SQL.Add(' C.NOME,');
  TMOV2.SQL.Add(' M.DATAEMISSAO,');
  TMOV2.SQL.Add(' CAST(M.PESOBRUTO AS FLOAT) PESOBRUTO,');
  TMOV2.SQL.Add(' M.QUANTIDADE,');
  TMOV2.SQL.Add(' M.IDMOV,');
  TMOV2.SQL.Add(' MC.DATAMINUTA,');
  TMOV2.SQL.Add(' MC.MINUTA,');
  TMOV2.SQL.Add(' MC.MINUTAANT,');
  TMOV2.SQL.Add(' MC.MINUTAHIST');
  TMOV2.SQL.Add('FROM TMOV M,FCFO C,TMOVCOMPL MC');
  TMOV2.SQL.Add(' WHERE M.CODCFO = C.CODCFO');
  TMOV2.SQL.Add(' AND MC.IDMOV = M.IDMOV');
  TMOV2.SQL.Add(' AND M.STATUS  '+ QuotedStr('C'));
  TMOV2.SQL.Add(' AND MC.MINUTA = '+ QuotedStr(MAN.FieldByName
('MINUTA').Text));
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.01'));
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.12'));
  TMOV2.SQL.Add(' ORDER BY M.NUMEROMOV,C.NOME ');
  Memo5.lines.AddStrings(TMOV2.sql);
  //exit;
end
else
begin
   TMOV2.SQL.Add('SELECT '); // 2 sql
  TMOV2.SQL.Add('M.NUMEROMOV,');
  TMOV2.SQL.Add('C.NOME,');
  TMOV2.SQL.Add('M.DATAEMISSAO,');
  TMOV2.SQL.Add('CAST(M.PESOBRUTO AS FLOAT) PESOBRUTO,');
  TMOV2.SQL.Add('M.QUANTIDADE,');
  TMOV2.SQL.Add('M.IDMOV,');
  TMOV2.SQL.Add('MC.DATAMINUTA,');
  TMOV2.SQL.Add('MC.MINUTA,');
  TMOV2.SQL.Add(' MC.MINUTAANT,');
  TMOV2.SQL.Add(' MC.MINUTAHIST');
  TMOV2.SQL.Add(' FROM TMOV M,FCFO C,TMOVCOMPL MC');
  TMOV2.SQL.Add(' WHERE M.CODCFO = C.CODCFO');
  TMOV2.SQL.Add(' AND MC.IDMOV = M.IDMOV');
  TMOV2.SQL.Add(' AND M.STATUS  '+ QuotedStr('C'));
  TMOV2.SQL.Add(' AND MC.MINUTA IS NULL ');
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.01'));
  TMOV2.SQL.Add(' AND M.CODTMV = '+ QuotedStr('2.2.12'));
  TMOV2.SQL.Add(' ORDER BY M.NUMEROMOV,C.NOME');
  //Memo4.lines.AddStrings(TMOV2.sql);
  // exit;
end;
TMOV2.Open;
  end;
end;



No evento AfterScroll do Form:

procedure TForm1.MANAfterScroll(DataSet: TDataSet);
begin
  SQL4;
  if (MANCODTRA.Text  'SEM MINUTA') or
   begin
 TTRA.Locate('CODTRA',MANCODTRA.Text,[]);
 Codtra2.ItemIndex:= Codtra2.Items.IndexOf(TTRACODTRA.Text);
 Nometra2.ItemIndex:= Nometra2.Items.IndexOf(TTRANOME.Text);
   end
   else
   begin
 Codtra2.ItemIndex:= -1;
 Nometra2.ItemIndex:= -1;
   end;
end;


Não está gerando erro mais não esta trazendo o 2 sql na opção quando 
a opção está = sem minuta if

Agadeço desde já



[delphi-br] Delphi 2006 para .net

2007-10-03 Por tôpico Rodrigo Bevilacqua Marcondes
Suporta o framework 2.0 ?
 
Rodrigo 






  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

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



[delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Marcelo Mendes de Oliveira
Boa Tarde Pessoal, 

 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

 

Alguém sabe como resolver isto??

 

Obrigado pela ajuda

 

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

 



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



Re: [delphi-br] Re: Programação para WEB

2007-10-03 Por tôpico Ricardo César Cardoso
E o GridView está no BDS2006? Ou é só no 2007?

Murillo Proença [EMAIL PROTECTED] escreveu:   uso 
BDP
 
 --- Em delphi-br@yahoogrupos.com.br, André Luis de Oliveira
 [EMAIL PROTECTED] escreveu
 
  Murillo só uma informação, qual componente q vc usa fazer a
 comunicação com o oracle?
  
  
- Original Message - 
From: Murillo Proença 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, October 02, 2007 4:41 PM
Subject: [delphi-br] Re: Programação para WEB
  
  
Fala aí Rodrigo, blz?
  
Estou desenvolvendo no BDS2006 / ASP.NET, framework 1.1 com BDP e
Oracle de banco. Tá tudo rodando blzinha aqui na empresa, apesar de
que se você puder trabalhar com o BDS2007, já compensa partir para o
DBX4, pois o BDP foi abortado. E trabalhar com o GridView, que tem uma
série de recursos prontos, que no DataGrid tinha que fazer na mão.
  
Abraço
  
Murillo Proença 
  
--- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
rodrigod6@ escreveu

 Prezados Colegas,
 
 Desenvolvo em Delphi 2005 for Windows e preciso desenvolver um
modulo do sistema para WEB, então gostaria de alguns comentários das
experiências passadas, sobre as seguintes ferramentas: Delphi 2005 for
.net, Delphi 2006 for .net, Delphi 2007 for .net , Delphi for PHP,
IntraWeb. 
 Analisando algumas questões : 
 - Suporte ao framework 1.1 x 2.0
 - Uso do DataGrid x GridView
 - BDP x DBX4 x FB provider
 - Suporte a ajax
 
 Qualquer informação é bem vinda, um site com comparações, 
 
 muito obrigado,
 
 
 Rodrigo
 
 
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço
para armazenamento!
 http://br.mail.yahoo.com/
 
 [As partes desta mensagem que não continham texto foram removidas]

  
  
  
 
  
  
 
 --
  
  
No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.488 / Virus Database: 269.13.37/1042 - Release Date:
 1/10/2007 18:59
  
  
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
   

   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



Re: [delphi-br] Resolução de video

2007-10-03 Por tôpico Ricardo César Cardoso
Esse FormAutoSize é o nome de um componente, uma procedure, uma propriedade ou 
o que?

Sds,
Ricardo.

Hudson [EMAIL PROTECTED] escreveu:   Ola a todos 
da lista...
 
 gente achei um componente ele funcionou 90 % do estava precisando...
 
 Alguem ja ouvio falar em FormAutoSize?
 
 Valeu gente!
 
 - Original Message - 
   From: Hudson 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Sunday, September 30, 2007 11:25 PM
   Subject: [delphi-br] Resolução de video
 
 Ola a todos da lista...
 
 Gente, vi um sistema e fiquei com uma certa inveja.
   o sistema foi feito em java um controle de estoque...mas o q me chamou a 
atenção foi que ele rodava em todas as resoluções 1024X768 - 800X600...
   fiz o teste para todos
   (se da para fazer em java da pra fazer em delphi).
 
 então mão na massa, pesquisei o help do delphi e na web vi alguns codigo que 
não chegava perto do que eu queria...
 
 agora a pegunta é, exite algum componente pago ou free que faz este processo?.
 
 alguem sabe o que devo fazer para chegar a este ponto...
 
 valeu galera!
 
 Atenciosamente Hudson Dias
   www.alcancedigital.com.br
   MSN: [EMAIL PROTECTED]
   Skype: hudson_bh
   Tele: (31)3434-6304
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   

   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Davi Eduardo Borges Wall
Qual seria o problema em utilizar o OrderBy?

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcelo 
Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] DBexpress e Firebird

 

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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

 



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



Re: [delphi-br] Resolução de video

2007-10-03 Por tôpico Ricardo César Cardoso
Respondendo a minha própria pergunta esse componente está em:

http://www.delphipages.com/threads/thread.cfm?ID=54939G=54933

Abraço,
Ricardo.

Hudson [EMAIL PROTECTED] escreveu:   Ola a todos 
da lista...
 
 gente achei um componente ele funcionou 90 % do estava precisando...
 
 Alguem ja ouvio falar em FormAutoSize?
 
 Valeu gente!
 
 - Original Message - 
   From: Hudson 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Sunday, September 30, 2007 11:25 PM
   Subject: [delphi-br] Resolução de video
 
 Ola a todos da lista...
 
 Gente, vi um sistema e fiquei com uma certa inveja.
   o sistema foi feito em java um controle de estoque...mas o q me chamou a 
atenção foi que ele rodava em todas as resoluções 1024X768 - 800X600...
   fiz o teste para todos
   (se da para fazer em java da pra fazer em delphi).
 
 então mão na massa, pesquisei o help do delphi e na web vi alguns codigo que 
não chegava perto do que eu queria...
 
 agora a pegunta é, exite algum componente pago ou free que faz este processo?.
 
 alguem sabe o que devo fazer para chegar a este ponto...
 
 valeu galera!
 
 Atenciosamente Hudson Dias
   www.alcancedigital.com.br
   MSN: [EMAIL PROTECTED]
   Skype: hudson_bh
   Tele: (31)3434-6304
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   

   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Marcelo Mendes de Oliveira
Nenhum problema só quero saber o porque que isto acontece, pois até então
nunca tinha visto este tipo de bug

 

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 3 de outubro de 2007 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

 

Qual seria o problema em utilizar o OrderBy?

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce
http://www.iguacucelulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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



Re: [delphi-br] Como compatibilizar acentuacao via BDE com DotNet

2007-10-03 Por tôpico infso11
Na mensagem anterior, ressalto que o sistema novo foi desenvolvido
em ASP.Net (e nao .Net, como eu havia escrito).

Paulo

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



[delphi-br] Dúvida Relatório

2007-10-03 Por tôpico Leandro
Bom dia a todos!
Trabalho no Delphi 6 e queria saber se alguem tira
essa dúvida minha.
tenho um cadastro de pessoas e nesse cadastro a pessoa
responde um questionário separado por grupos do tipo:
Grupo 1
Idade
Telefone
Grupo 2
Cidade
CEP

etc etc etc


bom, até aí tudo bem, fiz um SQL que mostra tudo isso
ae da seguinte maneira:
Idade 23
Telefone -
Cidade São Paulo
CEP 0-000

certo, mas o problema é que preciso disso separado em
Grupos

Grupo 1
Idade 23
Telefone -
Grupo 2
Cidade São Paulo
CEP 0-000


não consigo fazer isso.
Possuo uma tabela Grupo que são os grupos existentes.
tambem tenho a tabela Característica com o tipo da
pergunta (Idade, Telefone, Cidade, CEP, etc).
Tenho uma tabela com todas as respostas de todas as
pessoas contendo cod_resposta_pessoa,
cod_caracteristica, cod_opcao e descricao_resposta.


Uso Firebird, Delphi 6 e QReport.
Alguem pode me dar uma mão??

Desde já, agradeço!


Abraços a todos.


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



[delphi-br] Como compatibilizar acentuacao via BDE com DotNet

2007-10-03 Por tôpico infso11
Pessoal:

a) Um cliente tem um sistema antigo que grava dados no SQL-Server
via BDE.  No BDE, e´ usado o parametro LANGDRIVER = Pdox ANSI Intl850
(porque foi o unico compativel com um sistema ainda mais antigo, que tambem
acessava os mesmos dados).

b) Um colega desenvolveu um sistema em .Net, com o Delphi 2006, acessando
o mesmo banco de dados.

c) O problema e´ que os dados gravados no sistema antigo (que usa o BDE) 
aparecem
com caracteres acentuados trocados no sistema .Net e vice-versa (dados com 
acentuacao
gravados no sistema .NET aparecem com caracteres trocados no sistema antigo).

Pergunta:

Alguem sabe se ha´ algum parametro para configurar em um sistema .Net, para 
compatibilizar
a acentuacao (se nao me engano, ha´ um arquivo WebConfig para isso) ?  

Muito obrigado pela atencao de todos
Paulo



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



RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Elcio Domingos Ramos
Tinha este problema no SQL Server descobri que era o índice de chave primaria. 
Usei a propriedade IndexFieldName do clienteDataset.

 

 

Elcio Domingos Ramos

Demag Cranes  Components Ltda.

Depto. de Engenharia

Fone: xx (11) 2145-7823

[EMAIL PROTECTED]

www.demagcranes.com.br

 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcelo 
Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] DBexpress e Firebird

 

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
http://www.iguacucelulose.com.br/  
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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

 



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



Re: [delphi-br] Resolução de video

2007-10-03 Por tôpico Hudson
e um nome do componente...

free criado em 1998...e so agora eu estou conhecendo

ele funcionou legal (90%) na aplicação com + / - 100 form em MDI

  - Original Message - 
  From: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 03, 2007 1:42 PM
  Subject: Re: [delphi-br] Resolução de video


  Esse FormAutoSize é o nome de um componente, uma procedure, uma propriedade 
ou o que?

  Sds,
  Ricardo.

  Hudson [EMAIL PROTECTED] escreveu: Ola a todos da lista...

  gente achei um componente ele funcionou 90 % do estava precisando...

  Alguem ja ouvio falar em FormAutoSize?

  Valeu gente!

  - Original Message - 
  From: Hudson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, September 30, 2007 11:25 PM
  Subject: [delphi-br] Resolução de video

  Ola a todos da lista...

  Gente, vi um sistema e fiquei com uma certa inveja.
  o sistema foi feito em java um controle de estoque...mas o q me chamou a 
atenção foi que ele rodava em todas as resoluções 1024X768 - 800X600...
  fiz o teste para todos
  (se da para fazer em java da pra fazer em delphi).

  então mão na massa, pesquisei o help do delphi e na web vi alguns codigo que 
não chegava perto do que eu queria...

  agora a pegunta é, exite algum componente pago ou free que faz este processo?.

  alguem sabe o que devo fazer para chegar a este ponto...

  valeu galera!

  Atenciosamente Hudson Dias
  www.alcancedigital.com.br
  MSN: [EMAIL PROTECTED]
  Skype: hudson_bh
  Tele: (31)3434-6304

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

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





  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



   

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



RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Marcelo Mendes de Oliveira
Legal, testei e parece que funcionou vou testar mais, mas estou tendo outro
problema agora, quando abro a tabela e dou um inserir ao invés de ele criar
um novo ele edita o ultimo registro ai tenho que cancelar e clicar em
inserir novamente, ai sim ele cria um novo, tem idéia do que pode ser??

 

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Elcio Domingos Ramos
Enviada em: quarta-feira, 3 de outubro de 2007 14:17
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

 

Tinha este problema no SQL Server descobri que era o índice de chave
primaria. Usei a propriedade IndexFieldName do clienteDataset.

Elcio Domingos Ramos

Demag Cranes  Components Ltda.

Depto. de Engenharia

Fone: xx (11) 2145-7823

elcio.ramos@ mailto:elcio.ramos%40demagcranes.com.br demagcranes.com.br

www.demagcranes.com.br



De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce
http://www.iguacucelulose.com.br/ lulose.com.br/ http://www.iguacuce
http://www.iguacucelulose.com.br/ lulose.com.br/  
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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



Re: RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Joao Morais
Marcelo Mendes de Oliveira wrote:
 Nenhum problema só quero saber o porque que isto acontece, pois até então
 nunca tinha visto este tipo de bug

Não é bug, é apenas um fato. Não há qualquer garantia da ordem dos 
objetos em um banco sql caso você não utilize a cláusula order by.

--
Joao Morais


 
  
 
 Marcelo Mendes de Oliveira 
 Analista de Informática
 Tel.: + 49 3551-0177
 Fax: + 49 3541-0423
 IGUAÇU - celulose, papel s.a
 www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
 P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
 AMBIENTE!
 Before printing this document, think about your responsibility and care for
 the ENVIRONMENT!
 
  
 
   _  
 
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
 nome de Davi Eduardo Borges Wall
 Enviada em: quarta-feira, 3 de outubro de 2007 13:51
 Para: delphi-br@yahoogrupos.com.br
 Assunto: RES: [delphi-br] DBexpress e Firebird
 
  
 
 Qual seria o problema em utilizar o OrderBy?
 
 De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
 os.com.br] Em nome de Marcelo Mendes de Oliveira
 Enviada em: quarta-feira, 3 de outubro de 2007 13:14
 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 Assunto: [delphi-br] DBexpress e Firebird
 
 Boa Tarde Pessoal, 
 
 Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
 trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
 46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
 ele ordene eu tenho que dar um order by no SQLDataSet.
 
 Alguém sabe como resolver isto??
 
 Obrigado pela ajuda
 


Re: [delphi-br] Re: Programação para WEB

2007-10-03 Por tôpico Marcos Bernardo
Salve

o GridView esta no FrameWork 2.0 +
no 1.x so tem o DataGrid (urgh!)


Em 03/10/07, Ricardo César Cardoso [EMAIL PROTECTED] escreveu:

   E o GridView está no BDS2006? Ou é só no 2007?

 Murillo Proença [EMAIL PROTECTED] murilloppr%40bol.com.br
 escreveu: uso BDP

 --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 André Luis de Oliveira
 [EMAIL PROTECTED] escreveu
 
  Murillo só uma informação, qual componente q vc usa fazer a
 comunicação com o oracle?
 
 
  - Original Message -
  From: Murillo Proença
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  Sent: Tuesday, October 02, 2007 4:41 PM
  Subject: [delphi-br] Re: Programação para WEB
 
 
  Fala aí Rodrigo, blz?
 
  Estou desenvolvendo no BDS2006 / ASP.NET http://asp.net/, framework
 1.1 com BDP e
  Oracle de banco. Tá tudo rodando blzinha aqui na empresa, apesar de
  que se você puder trabalhar com o BDS2007, já compensa partir para o
  DBX4, pois o BDP foi abortado. E trabalhar com o GridView, que tem uma
  série de recursos prontos, que no DataGrid tinha que fazer na mão.
 
  Abraço
 
  Murillo Proença
 
  --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Rodrigo Bevilacqua Marcondes
  rodrigod6@ escreveu
  
   Prezados Colegas,
  
   Desenvolvo em Delphi 2005 for Windows e preciso desenvolver um
  modulo do sistema para WEB, então gostaria de alguns comentários das
  experiências passadas, sobre as seguintes ferramentas: Delphi 2005 for
  .net, Delphi 2006 for .net, Delphi 2007 for .net , Delphi for PHP,
  IntraWeb.
   Analisando algumas questões :
   - Suporte ao framework 1.1 x 2.0
   - Uso do DataGrid x GridView
   - BDP x DBX4 x FB provider
   - Suporte a ajax
  
   Qualquer informação é bem vinda, um site com comparações,
  
   muito obrigado,
  
  
   Rodrigo
  
  
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço
  para armazenamento!
   http://br.mail.yahoo.com/
  
   [As partes desta mensagem que não continham texto foram removidas]
  
 
 
 
 
 
 
 
 --
 
 
  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.488 / Virus Database: 269.13.37/1042 - Release Date:
 1/10/2007 18:59
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 





 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!

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

 



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



RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Bruno Lichot
Não e aconselhavel o uso de order by e clausulas SQL por conta do peso de
processamento q este usa, o ideal e usar no clientdataset índices em memória
q fazem a mesma coisa so q menos custoso e mais rápido.

 

No meu exemplo do dd 8 mostra como fazer isso

 

http://cc.codegear.com/Author/795118

 

abs

 

BL

 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 14:02
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

 

Nenhum problema só quero saber o porque que isto acontece, pois até então
nunca tinha visto este tipo de bug

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

_ 

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 3 de outubro de 2007 13:51
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] DBexpress e Firebird

Qual seria o problema em utilizar o OrderBy?

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce
http://www.iguacucelulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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

 

__ Informação do NOD32 IMON 2569 (20071003) __

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]



Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Licerio Neto
Sim..estou usando o Administrador... o erro ocorre na abertura de um arquivo de 
indice.. ou do proprio .db

Henri Vieira Alves [EMAIL PROTECTED] escreveu:  Ola Licerio

Nunca tive problemas não ... e nunca fiz nenhuma configuraçao especifica ...
mas sempre no XP uso o usuario administrador ... seria isso ? de voce estar
usando um usuario que nao seja administrador ?
E qual o erro que esta aparecendo ?!!

Henri

Em 02/10/07, Licerio Neto [EMAIL PROTECTED] escreveu:

 Ola pessoal.. tenho um cliente q tem uma rede com 8 computadores
 rodando sobre windows 98.. perfeitamente .. ate q ele colocou um
 terminal com XP por conta da exirgencia de um soft... esta dando uns
 erros na abertura de arquivos do meu programa feito em D7 com
 Paradox... somente neste terminal XP... tem alguma configuracao de rede
 diferenciada para este caso tanto a nivel de S.O. como a nivel de
 BDE 

 Grato pela ajuda

 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!

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

 


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



 

   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Licerio Neto
Blz..Joel..estamos com problemas na internet pq mudou para 2Mega.. assim q der 
vou solicitar mais uma vez a ajuda do Mestre Joel.. 
   
  Vlw
  

Joel Alexandre [EMAIL PROTECTED] escreveu:
  
 LARGA MÃO DE PARADOX. rsrsrsr
Licerio, veja só.. Seguindo o conselho do colega, se vc usar 
qualquer banco: MySQL, Firebird, PostgreSQL. Usando o Zeos e as classes 
ZTable dele, vc vai ter um banco de dados descente e, com toda certeza, 
não precisará mexer em quase nada do seu programa.
Para mudar seus componentes tb não haverá esforço. Existe um 
utilitário EXCELENTE que se chama GExperts, vc pega em: 
http://www.gexperts.org/download.html, com ele vc pode marcar todos os 
componentes Table que vc tem aí e alterar para o ZTable.

Precisando vc sabe que estou por aí..

[]Os Joel




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Licerio Neto
da erro na abertura de arquivos de indices e as vezes na propria tabela DB.. 
referente a abertura ou diz q nao tem o indice solicitado...
   
  grato..

[EMAIL PROTECTED] escreveu:
  Licério blz cara , qual são os erros que estão dando??

JESUS TE AMA !!!



 

   Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 

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



[delphi-br] Informações no console

2007-10-03 Por tôpico Guionardo Furlan
Buenas pessoal.
Tenho um aplicativo aqui (GIOD) que processa um arquivo passado por parâmetro.
Mas surgiu a idéia de rodar o mesmo aplicativo via console, como por
exemplo, se o sujeito executar GIOD /? o aplicativo mostraria um texto
de opções de inicialização e encerre sem carregar os forms, em modo
silencioso.

A questão é que uma aplicação ou é CONSOLE ou é GUI {$APPTYPE}.
Alguém já conseguiu fazer isso no delphi?



-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com


RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Vitor Redes
Mas, teoricamente, o ORDER BY é o que dita se o select vai ser indexado ou
não. Carregar um select sem índice em memória para depois organiza-lo,
seguindo essa lógica, demoraria muito mais.

 

Vitor.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Bruno Lichot
Enviada em: quarta-feira, 3 de outubro de 2007 15:53
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

 

Não e aconselhavel o uso de order by e clausulas SQL por conta do peso de
processamento q este usa, o ideal e usar no clientdataset índices em memória
q fazem a mesma coisa so q menos custoso e mais rápido.

No meu exemplo do dd 8 mostra como fazer isso

http://cc.codegear. http://cc.codegear.com/Author/795118 com/Author/795118

abs

BL

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 14:02
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

Nenhum problema só quero saber o porque que isto acontece, pois até então
nunca tinha visto este tipo de bug

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce
http://www.iguacucelulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 3 de outubro de 2007 13:51
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] DBexpress e Firebird

Qual seria o problema em utilizar o OrderBy?

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce
http://www.iguacuce http://www.iguacucelulose.com.br/ lulose.com.br/
lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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

__ Informação do NOD32 IMON 2569 (20071003) __

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

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

 



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



Re: RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Joao Morais
Bruno Lichot wrote:
 Não e aconselhavel o uso de order by e clausulas SQL por conta do peso de
 processamento q este usa, o ideal e usar no clientdataset índices em memória
 q fazem a mesma coisa so q menos custoso e mais rápido.

Deve haver algum mal entendido. Daonde é que tirasse esta informação?

--
Joao Morais


RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Bruno Lichot
 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
ele ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce
http://www.iguacuce http://www.iguacucelulose.com.br/ lulose.com.br/
lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

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

__ Informação do NOD32 IMON 2569 (20071003) __

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

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

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

 

__ Informação do NOD32 IMON 2570 (20071003) __

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: RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Walter Alves Chagas Junior
João,

O problema em usar order by vai depender do numero de registros que o dataset 
vai trazer. Até um 50 nada haver, mas em uns 300, já que o SQL vai ter que 
trazer e ainda por cima ordenar os registros. Ou seja, é um trabalho a mais.

Eu mesmo não uso mais Order By nas sentenças SQL. Eu faço a ordenação pelo CDS 
e até deixo isto a critério do usuário com uma função que, inclusive, postei 
aqui outro dia.

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao 
Morais
Enviada em: quarta-feira, 3 de outubro de 2007 16:13
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] DBexpress e Firebird


Bruno Lichot wrote:
 Não e aconselhavel o uso de order by e clausulas SQL por conta do peso 
 de processamento q este usa, o ideal e usar no clientdataset índices 
 em memória q fazem a mesma coisa so q menos custoso e mais rápido.

Deve haver algum mal entendido. Daonde é que tirasse esta informação?

--
Joao Morais


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

 


RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Walter Alves Chagas Junior
Uma coisa é você ordenar um dataset já pronto em memória local, outra é fazer 
isto em trafego na rede e dando um trabalho adicional ao SGBD

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vitor 
Redes
Enviada em: quarta-feira, 3 de outubro de 2007 16:34
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird


Mas, teoricamente, o ORDER BY é o que dita se o select vai ser indexado ou não. 
Carregar um select sem índice em memória para depois organiza-lo, seguindo essa 
lógica, demoraria muito mais.

 

Vitor.

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Bruno 
Lichot Enviada em: quarta-feira, 3 de outubro de 2007 15:53
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

 

Não e aconselhavel o uso de order by e clausulas SQL por conta do peso de 
processamento q este usa, o ideal e usar no clientdataset índices em memória q 
fazem a mesma coisa so q menos custoso e mais rápido.

No meu exemplo do dd 8 mostra como fazer isso

http://cc.codegear. http://cc.codegear.com/Author/795118 com/Author/795118

abs

BL

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 14:02
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

Nenhum problema só quero saber o porque que isto acontece, pois até então nunca 
tinha visto este tipo de bug

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce 
http://www.iguacucelulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE! Before printing this document, think about your responsibility and 
care for the ENVIRONMENT!

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 3 de outubro de 2007 13:51
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] DBexpress e Firebird

Qual seria o problema em utilizar o OrderBy?

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset 
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45, 46, 
51, 47, 48, 49 e não na ordem como está na base de dados, ai para que ele 
ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce http://www.iguacuce 
http://www.iguacucelulose.com.br/ lulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE! Before printing this document, think about your responsibility and 
care for the ENVIRONMENT!

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

__ Informação do NOD32 IMON 2569 (20071003) __

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

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

 



[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] File Access Denied

2007-10-03 Por tôpico Natanael Rodrigues
Galera, 
 
Estou enfrentando o seguinte problema... Tenho um processo que emite
etiquetas pela impressora datamax. O Código usado para imprimir esses
etiquietas é :
 
Procedure Impressao_Paralela(Texto: String);
var
 PTBlock : TPassThroughData;
Begin
 PTBlock.nLen := Length(Texto);
 StrPCopy(@PTBlock.Data, Texto);
 Escape(printer.handle, PASSTHROUGH,0,@PTBlock,nil);
end;
 
http://geo.yahoo.com/serv?s=97490437/grpId=1058778/grpspId=2137111264/msgId
=177661/stime=1191440158/nc1=1/nc2=2/nc3=3  
_,_._,___  
Procedure que manda imprimir...
Printer.BeginDoc;
Impressao_paralela(cstString);
Printer.EndDoc; 
 
 
Esta rotina está tentando gerar um arquivo texto no local onde está o exe, e
este local está bloqueado para gravação para o usuário. Gostaria de saber se
alguem sabe como posso fazer para mudar o local de gravação do arquivo.
 
 
Falowww e obrigado. 


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



[delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!

2007-10-03 Por tôpico Francisco Thiago
Caros amigos,


Estou sofrente para imprimir um boleto na Zebra TLP 2844...
Estou neste momento acabando de virar para a vertical todo o boleto que eu 
tinha montado no Fortes Reports (isso dá uma mão de obra, ainda mais pq esse 
fulando não tem DBText com ângulo)...


Alguém aew conhece alguma forma mais fácil?


[]'s e mto obrigado

Francisco Thiago de Almeida

O ócio e eu nos despedimos, um do outro 



Re: RES: RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Joao Morais
Walter Alves Chagas Junior wrote:
 João,
 
 O problema em usar order by vai depender do numero de registros que o dataset 
 vai trazer. Até um 50 nada haver, mas em uns 300, já que o SQL vai ter que 
 trazer e ainda por cima ordenar os registros. Ou seja, é um trabalho a mais.
 
 Eu mesmo não uso mais Order By nas sentenças SQL. Eu faço a ordenação pelo 
 CDS e até deixo isto a critério do usuário com uma função que, inclusive, 
 postei aqui outro dia.

Isso não tem nada a ver. Order by no banco sempre será muito mais rápido 
do que no cliente, exceto quando os dados já estão todos em cache no 
cliente -- o que não foi o caso.

--
Joao Morais


RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Vitor Redes
/
lulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE! Before printing this document, think about your responsibility and
care for the ENVIRONMENT!

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

__ Informação do NOD32 IMON 2569 (20071003) __

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

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

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

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

 



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



[delphi-br] Re: Delphi 2006 para .net

2007-10-03 Por tôpico Murillo Proença
não, o framework 2.0 só com o CodeGear Studio 2007

--- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
[EMAIL PROTECTED] escreveu

 Suporta o framework 2.0 ?
  
 Rodrigo 
 
 
 
 
 
 
   Abra sua conta no Yahoo! Mail, o único sem limite de espaço
para armazenamento!
 http://br.mail.yahoo.com/
 
 [As partes desta mensagem que não continham texto foram removidas]





[delphi-br] Re: Programação para WEB

2007-10-03 Por tôpico Murillo Proença
GridView só no framework 2.0, sendo assim só com o 2007

--- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso
[EMAIL PROTECTED] escreveu

 E o GridView está no BDS2006? Ou é só no 2007?
 
 Murillo Proença [EMAIL PROTECTED] escreveu: 
 uso BDP
  
  --- Em delphi-br@yahoogrupos.com.br, André Luis de Oliveira
  aoliveira_sys@ escreveu
  
   Murillo só uma informação, qual componente q vc usa fazer a
  comunicação com o oracle?
   
   
 - Original Message - 
 From: Murillo Proença 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Tuesday, October 02, 2007 4:41 PM
 Subject: [delphi-br] Re: Programação para WEB
   
   
 Fala aí Rodrigo, blz?
   
 Estou desenvolvendo no BDS2006 / ASP.NET, framework 1.1 com BDP e
 Oracle de banco. Tá tudo rodando blzinha aqui na empresa, apesar de
 que se você puder trabalhar com o BDS2007, já compensa partir
para o
 DBX4, pois o BDP foi abortado. E trabalhar com o GridView, que
tem uma
 série de recursos prontos, que no DataGrid tinha que fazer na mão.
   
 Abraço
   
 Murillo Proença 
   
 --- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
 rodrigod6@ escreveu
 
  Prezados Colegas,
  
  Desenvolvo em Delphi 2005 for Windows e preciso desenvolver um
 modulo do sistema para WEB, então gostaria de alguns
comentários das
 experiências passadas, sobre as seguintes ferramentas: Delphi
2005 for
 .net, Delphi 2006 for .net, Delphi 2007 for .net , Delphi for PHP,
 IntraWeb. 
  Analisando algumas questões : 
  - Suporte ao framework 1.1 x 2.0
  - Uso do DataGrid x GridView
  - BDP x DBX4 x FB provider
  - Suporte a ajax
  
  Qualquer informação é bem vinda, um site com comparações, 
  
  muito obrigado,
  
  
  Rodrigo
  
  
  Abra sua conta no Yahoo! Mail, o único sem limite de espaço
 para armazenamento!
  http://br.mail.yahoo.com/
  
  [As partes desta mensagem que não continham texto foram
removidas]
 
   
   
   
  
   
   
  
  --
   
   
 No virus found in this incoming message.
 Checked by AVG Free Edition. 
 Version: 7.5.488 / Virus Database: 269.13.37/1042 - Release Date:
  1/10/2007 18:59
   
   
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
  

 
Abra sua conta no Yahoo! Mail, o único sem limite de espaço
para armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]





RES: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!

2007-10-03 Por tôpico Walter Alves Chagas Junior
Quando eu trabalhava com esta impressora, eu fazia via linguagem EPL. Escrevia 
a linguagem diretamente na porta paralela ou serial. Esta impressora tem uma 
falha no firmware dela que se você jogar uma combinação de caracteres (eu não 
sei quais são) ela perde o firmware dela. Você aí, neste caso, terá que rodar 
um programinha, que vem no CD do produto, pra reinstalar o Firmware dela 
novamente. Por isso que a melhor solução é escrever os comandos EPL diretamente 
na porta. Você não corre este risco

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Francisco 
Thiago
Enviada em: quarta-feira, 3 de outubro de 2007 17:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!


Caros amigos,


Estou sofrente para imprimir um boleto na Zebra TLP 2844... Estou neste momento 
acabando de virar para a vertical todo o boleto que eu 
tinha montado no Fortes Reports (isso dá uma mão de obra, ainda mais pq esse 
fulando não tem DBText com ângulo)...


Alguém aew conhece alguma forma mais fácil?


[]'s e mto obrigado

Francisco Thiago de Almeida

O ócio e eu nos despedimos, um do outro 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

 


Re: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!

2007-10-03 Por tôpico Francisco Thiago
Walter, um boleto inteiro via EPL?!

Alguém tem um lenço aew?

Francisco Thiago de Almeida

O ócio e eu nos despedimos, um do outro

- Original Message - 
From: Walter Alves Chagas Junior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 03, 2007 5:45 PM
Subject: RES: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra 
coisa!!!


Quando eu trabalhava com esta impressora, eu fazia via linguagem EPL. 
Escrevia a linguagem diretamente na porta paralela ou serial. Esta 
impressora tem uma falha no firmware dela que se você jogar uma combinação 
de caracteres (eu não sei quais são) ela perde o firmware dela. Você aí, 
neste caso, terá que rodar um programinha, que vem no CD do produto, pra 
reinstalar o Firmware dela novamente. Por isso que a melhor solução é 
escrever os comandos EPL diretamente na porta. Você não corre este risco

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em 
nome de Francisco Thiago
Enviada em: quarta-feira, 3 de outubro de 2007 17:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!


Caros amigos,


Estou sofrente para imprimir um boleto na Zebra TLP 2844... Estou neste 
momento acabando de virar para a vertical todo o boleto que eu
tinha montado no Fortes Reports (isso dá uma mão de obra, ainda mais pq esse
fulando não tem DBText com ângulo)...


Alguém aew conhece alguma forma mais fácil?


[]'s e mto obrigado

Francisco Thiago de Almeida

O ócio e eu nos despedimos, um do outro



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




[delphi-br] Duvidas com Hint

2007-10-03 Por tôpico Hudson
Ola gente,

estou com uma duvida, existe uma foma de força o hint de um edit?

entrei no edit ae parece hint sem precisar de passar o mouse...

obrigado!

Atenciosamente Hudson Dias
www.alcancedigital.com.br
MSN: [EMAIL PROTECTED]
Skype: hudson_bh
Tele: (31)3434-6304

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



RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Davi Eduardo Borges Wall
Fazer isto em trafego na rede ?

A ordenação seria feita no servidor do banco de dados. O que o tráfego tem a 
ver ? ordenado ou não, seria a mesma coisa.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter 
Alves Chagas Junior
Enviada em: quarta-feira, 3 de outubro de 2007 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

 

Uma coisa é você ordenar um dataset já pronto em memória local, outra é fazer 
isto em trafego na rede e dando um trabalho adicional ao SGBD

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED] mailto:wchagas%40telemont.com.br 
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502

-Mensagem original-
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em nome de Vitor Redes
Enviada em: quarta-feira, 3 de outubro de 2007 16:34
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] DBexpress e Firebird

Mas, teoricamente, o ORDER BY é o que dita se o select vai ser indexado ou não. 
Carregar um select sem índice em memória para depois organiza-lo, seguindo essa 
lógica, demoraria muito mais.

Vitor.

_ 

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em nome de Bruno Lichot Enviada em: quarta-feira, 3 de outubro de 2007 15:53
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] DBexpress e Firebird

Não e aconselhavel o uso de order by e clausulas SQL por conta do peso de 
processamento q este usa, o ideal e usar no clientdataset índices em memória q 
fazem a mesma coisa so q menos custoso e mais rápido.

No meu exemplo do dd 8 mostra como fazer isso

http://cc.codegear. http://cc.codegear.com/Author/795118 com/Author/795118

abs

BL

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 14:02
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: RES: [delphi-br] DBexpress e Firebird

Nenhum problema só quero saber o porque que isto acontece, pois até então nunca 
tinha visto este tipo de bug

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce 
http://www.iguacucelulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE! Before printing this document, think about your responsibility and 
care for the ENVIRONMENT!

_ 

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
mailto:delphi-br%40yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 3 de outubro de 2007 13:51
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
mailto:delphi-br%40yahoogrupos.com.br 
Assunto: RES: [delphi-br] DBexpress e Firebird

Qual seria o problema em utilizar o OrderBy?

De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em nome de Marcelo Mendes de Oliveira
Enviada em: quarta-feira, 3 de outubro de 2007 13:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: [delphi-br] DBexpress e Firebird

Boa Tarde Pessoal, 

Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset 
trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45, 46, 
51, 47, 48, 49 e não na ordem como está na base de dados, ai para que ele 
ordene eu tenho que dar um order by no SQLDataSet.

Alguém sabe como resolver isto??

Obrigado pela ajuda

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3551-0177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br http://www.iguacuce http://www.iguacuce 
http://www.iguacucelulose.com.br/ lulose.com.br/ lulose.com.br/ 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE! Before printing this document, think about your responsibility and 
care for the ENVIRONMENT!

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

__ Informação do NOD32 IMON 2569 (20071003) __

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

Re: [delphi-br] Duvidas com Hint

2007-10-03 Por tôpico fabinho
edit1.showhint;



  - Original Message - 
  From: Hudson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 03, 2007 6:00 PM
  Subject: [delphi-br] Duvidas com Hint


  Ola gente,

  estou com uma duvida, existe uma foma de força o hint de um edit?

  entrei no edit ae parece hint sem precisar de passar o mouse...

  obrigado!

  Atenciosamente Hudson Dias
  www.alcancedigital.com.br
  MSN: [EMAIL PROTECTED]
  Skype: hudson_bh
  Tele: (31)3434-6304

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



   

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



RES: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!

2007-10-03 Por tôpico Walter Alves Chagas Junior
Isso aí é um outro problema :)

Eu usava a TLP pra imprimir etiquetas de código de barras. Mas, não obstante, 
Boletos, nada que uma semana de 8 dias com codificação massante 25 horas por 
dia não resolva rsrs

 

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Francisco 
Thiago
Enviada em: quarta-feira, 3 de outubro de 2007 18:09
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!


Walter, um boleto inteiro via EPL?!

Alguém tem um lenço aew?

Francisco Thiago de Almeida

O ócio e eu nos despedimos, um do outro

- Original Message - 
From: Walter Alves Chagas Junior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 03, 2007 5:45 PM
Subject: RES: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra 
coisa!!!


Quando eu trabalhava com esta impressora, eu fazia via linguagem EPL. 
Escrevia a linguagem diretamente na porta paralela ou serial. Esta 
impressora tem uma falha no firmware dela que se você jogar uma combinação 
de caracteres (eu não sei quais são) ela perde o firmware dela. Você aí, 
neste caso, terá que rodar um programinha, que vem no CD do produto, pra 
reinstalar o Firmware dela novamente. Por isso que a melhor solução é 
escrever os comandos EPL diretamente na porta. Você não corre este risco

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8217 Fax: (31) 3389-8215

Code Gear:
http://cc.codegear.com/Author/46502


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em 
nome de Francisco Thiago
Enviada em: quarta-feira, 3 de outubro de 2007 17:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!


Caros amigos,


Estou sofrente para imprimir um boleto na Zebra TLP 2844... Estou neste 
momento acabando de virar para a vertical todo o boleto que eu tinha montado no 
Fortes Reports (isso dá uma mão de obra, ainda mais pq esse fulando não tem 
DBText com ângulo)...


Alguém aew conhece alguma forma mais fácil?


[]'s e mto obrigado

Francisco Thiago de Almeida

O ócio e eu nos despedimos, um do outro



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Links do Yahoo! Grupos

 


Re: RES: [delphi-br] DBexpress e Firebird

2007-10-03 Por tôpico Joel Alexandre
 www.iguacucelulose.com.br http://www.iguacuce http://www.iguacuce
 http://www.iguacucelulose.com.br/ lulose.com.br/ lulose.com.br/ 
 P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
 AMBIENTE! Before printing this document, think about your responsibility and
 care for the ENVIRONMENT!

 _ 

 De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 mailto:delphi-br%40yahoogrupos.com.br
 [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
 os.com.br mailto:delphi-br%40yahoogrupos.com.br
 ] Em
 nome de Davi Eduardo Borges Wall
 Enviada em: quarta-feira, 3 de outubro de 2007 13:51
 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 mailto:delphi-br%40yahoogrupos.com.br 
 Assunto: RES: [delphi-br] DBexpress e Firebird

 Qual seria o problema em utilizar o OrderBy?

 De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
 os.com.br] Em nome de Marcelo Mendes de Oliveira
 Enviada em: quarta-feira, 3 de outubro de 2007 13:14
 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 Assunto: [delphi-br] DBexpress e Firebird

 Boa Tarde Pessoal, 

 Gostaria de saber se algum amigo sabe o que acontece quando o client Dataset
 trás os dados desordenados, tipo ele traz assim 40, 41, 42, 43, 50, 44, 45,
 46, 51, 47, 48, 49 e não na ordem como está na base de dados, ai para que
 ele ordene eu tenho que dar um order by no SQLDataSet.

 Alguém sabe como resolver isto??

 Obrigado pela ajuda

 Marcelo Mendes de Oliveira 
 Analista de Informática
 Tel.: + 49 3551-0177
 Fax: + 49 3541-0423
 IGUAÇU - celulose, papel s.a
 www.iguacucelulose.com.br http://www.iguacuce http://www.iguacuce
 http://www.iguacuce http://www.iguacucelulose.com.br/ lulose.com.br/
 lulose.com.br/ lulose.com.br/ 
 P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
 AMBIENTE! Before printing this document, think about your responsibility and
 care for the ENVIRONMENT!

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

 __ Informação do NOD32 IMON 2569 (20071003) __

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

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

 [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: RES: [delphi-br] Zebra TLP 2844 Boleto Via Fortes ou qqr outra coisa!!!

2007-10-03 Por tôpico Joel Alexandre
Vc é rápido na codificação hein? Eu já daria um ano de 367 dias já 
contando com ano bissexto :)

[]Os Joel

 Isso aí é um outro problema :)

 Eu usava a TLP pra imprimir etiquetas de código de barras. Mas, não obstante, 
 Boletos, nada que uma semana de 8 dias com codificação massante 25 horas por 
 dia não resolva rsr




-- 
 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] Como colocar um icone diferente em uma caixa de mensagem

2007-10-03 Por tôpico Eduardo Castro Alves
Paulo, nos arquivos da lista-delphi tem um formulario chamado dialogo 
que disponibilizei, que facilmente você adapta para suas nescessidades.

Caso você não seja assinante, me mande um email em PVT que passo para você.


Eduardo

[EMAIL PROTECTED] escreveu:

 Pessoal:

 Geralmente, exibo mensagens ao usuario atraves de MessageDlg, usando
 os icones padronizados do Delphi (mtWarning, mtConfirmation, etc.)

 Porem, agora preciso exibir algumas mensagens e exibir icones diferentes
 Por exemplo, uma das mensagens e´:

 Para executar esta operacao, clique primeiramente no botao [aqui vai o 
 desenho do botao].

 Pergunta:

 Existe alguma funcao do Delphi ou da API do Windows para eu fazer 
 isso, ou tenho
 que criar um Form especialmente para mostrar mensagens com meus icones ?

 Obrigado pela atencao de todos
 Paulo

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

  



Re: [delphi-br] Duvidas com Hint

2007-10-03 Por tôpico Eduardo Silva dos Santos
Fabinho, vc ta enganado,  edit1.ShowHint não vai fazer o Hint aparecer ao
entrar no Edit.
ShowHint é uma propriedade que define se o Hint vai ser exibido quando o
mouse estiver sobre o componente.


Em 03/10/07, fabinho [EMAIL PROTECTED] escreveu:

   edit1.showhint;

 - Original Message -
 From: Hudson
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Wednesday, October 03, 2007 6:00 PM
 Subject: [delphi-br] Duvidas com Hint

 Ola gente,

 estou com uma duvida, existe uma foma de força o hint de um edit?

 entrei no edit ae parece hint sem precisar de passar o mouse...

 obrigado!

 Atenciosamente Hudson Dias
 www.alcancedigital.com.br
 MSN: [EMAIL PROTECTED] hudson_bh%40hotmail.com
 Skype: hudson_bh
 Tele: (31)3434-6304

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

 [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] Urgente: Captura via serial - Balanç a TOLEDO

2007-10-03 Por tôpico sistema1
componentes/protocolos prontos com/sem fontes olhe no site:
http://www.igara.com.br/


  - Original Message - 
  From: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, May 29, 2007 10:29 AM
  Subject: Re: [delphi-br] Urgente: Captura via serial - Balança TOLEDO


  Vc chegou a abrir a porta de conexão?

  Algo como vacomm1.Open?

  E se tiver com a conexão aberta, verifique se a balança não precisa receber 
uma string (comando) para poder devolver a leitura. Alguns dispositivos só 
enviam dados quando recebem um comando de solicitação.

  Sds,
  Ricardo.

  marcio_faria11 [EMAIL PROTECTED] escreveu: Olá, 
  Estou tentando fazer o delphi receber os dados de uma balança Toledo 
  modelo rodoviário 9091, porém quando clico em receber não me vem nada 
  na tela. Eu utilizei o componente Async32 inserindo um objeto TVaComm, 
  em seguida configurei as propriedades DataRate, DataBits, Parity, 
  PortNum e StopBits. Em seguida usei o Evento OnRXChar para exibir os 
  dados num objeto EditBox do Form mas mesmo assim não vem nada. Alguém 
  saberia me dizer se estou esquecendo de algo? Segue o código do evento 
  onRXChar que estou usando:

  procedure TForm1.VaComm1RxChar(Sender: TObject; Count: Integer);
  begin
  edit1.Text:= edit1.Text + vacomm1.ReadText;
  end;

  Obrigado desde já,
  Marcio



  __

  __
  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]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.467 / Virus Database: 269.7.6/815 - Release Date: 22/5/2007 15:49


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



Re: [delphi-br] Usar XP como terminal de rede ?????

2007-10-03 Por tôpico Henri Vieira Alves
Olá Licerio ...

Cara já faz algum tempo tive um problema parecido ... NAO ERA COM PARADOX
... e no final das contas descobri que era a rede do cliente que estava com
problemas  troquei a placa de rede e refiz o cabeamente ... resolveu

Pode ser que seja algo em relação a rede  faz uns teste ai e verifique
...

Henri

Em 03/10/07, Licerio Neto [EMAIL PROTECTED] escreveu:

   da erro na abertura de arquivos de indices e as vezes na propria tabela
 DB.. referente a abertura ou diz q nao tem o indice solicitado...

 grato..

 [EMAIL PROTECTED] itabyte%40itabyte.com escreveu:
 Licério blz cara , qual são os erros que estão dando??

 JESUS TE AMA !!!

 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
 armazenamento!

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

  



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