[delphi-br] Imprimir AR
Olá, gostaria de saber como faço para imprimir o Aviso de Recebimento dos correios em meu sistema, se alguém tiver uma rotina ou exemplo favor me mandar desde já agradeço. Att. Rodrigo ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Registro do Windows
Duas coisas estão ocorrendo no seu código abaixo:
1º - Vc tem que ter permissão de gravação no Registry. Usuários avançados,
depuradores e administradores possuem essa permissão;
2º - Antes de abrir a chave especificada, você deve informar a chave raiz,
assim:
const
MyKey = 'SOFTWARE\EDUARDO\PROGRAMA';
var
Reg : TRegistry;
begin
//cria um novo objeto TRegistry
Reg := TRegistry.Create;
try
//altere para a chave que vc quiser. Essas são constantes numéricas.
Reg.RootKey := HKEY_LOCAL_MACHINE
//se conseguir abrir a chave (segundo parametro false indica para não
criá-la)
if Reg.OpenKey(MyKey,false) then
begin
//TODO seu código aqui
end
else
//se não conseguir abrir a chave, mostra uma mensagem de erro ao usuário
MessageBox(0,'Não foi possível abrir a chave do registro do
Windows!','Erro',MB_OK+MB_ICONERROR);
finally
//descarrega o recurso
Reg.Free;
end;
end;
Qualquer coisa dá um grito aí que te explico melhor.
Abraço.
- Original Message -
From: Ronaldo Assis Alves
To: delphi-br@yahoogrupos.com.br
Sent: Friday, February 16, 2007 8:27 PM
Subject: [delphi-br] Registro do Windows
Pessoal,
Estou com um problema.
Preciso gravar uma informação no registro do Windows sempre que for iniciar
um programa, então fiz uma interface para que o usuário escolha o programa e
quando confirmar, o meu aplicativo faça das devidas alterações no registro
do Windows e em seguida chame o programa.
Este é o código, ele compila e executa sem problemas, mas quando vou
verificar no registro do windows, ele não muda nada...
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
const
Raiz : String = 'HKEY_LOCAL_MACHINE\SOFTWARE\Ambev\SIV';
var
Registro : TRegistry;
f:textfile;
a:String;
begin
a:=extractfilepath(paramstr(0))+'\siv.bat';
system.assignfile(f,a);
system.rewrite(f);
if key=#13 then
begin
registro:=tregistry.Create;
registro.OpenKey(raiz,true);
if listbox1.ItemIndex=0 then
begin
registro.WriteString('DiretorioSistema','\\server\siv_server\');
registro.WriteString('DirArquivoP','p:\Promax\int\1897004\gmr\pmt\');
registro.WriteString('DirCargaMapeado','\\server\siv_server\Carga\');
registro.WriteString('DirCopiaLocal','C:\SIV\Copiados\');
registro.WriteString('DirDescargaLocal','C:\SIV\Descarga\');
registro.WriteString('DirDescargaRemota','c:\SIV\Descarga\Remoto\');
registro.WriteString('DirDescargaServer','\\server\siv_server\Descarga\');
registro.WriteString('DirTransmitidos','C:\SIV\Transmitidos\');
registro.WriteString('DirVersoesMapeado','\\server\siv_server\Versoes\');
system.writeln(f,'start \\server\siv_server\default.hta');
end
else
begin
registro.WriteString('DiretorioSistema','\\promax\siv_server\');
registro.WriteString('DirArquivoP','p:\Promax\int\1897104\gmr\pmt\');
registro.WriteString('DirCargaMapeado','\\promax\siv_server\Carga\');
registro.WriteString('DirCopiaLocal','C:\SIV\Copiados\');
registro.WriteString('DirDescargaLocal','C:\SIV\Descarga\');
registro.WriteString('DirDescargaRemota','c:\SIV\Descarga\Remoto\');
registro.WriteString('DirDescargaServer','\\promax\siv_server\Descarga\');
registro.WriteString('DirTransmitidos','C:\SIV\Transmitidos\');
registro.WriteString('DirVersoesMapeado','\\promax\siv_server\Versoes\');
system.writeln(f,'start \\promax\siv_server\default.hta');
end;
system.CloseFile(f);
registro.CloseKey;
registro.Free;
winexec('siv.bat',sw_hide);
sleep(2000);
application.terminate;
end;
end;
Alguém sabe se este método está furado ou se falta alguma coisa?
Ou alguma dica de como mesclar um arquvo .REG sem confirmação já ajuda
Obrigado
Ronaldo Assis
[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] TEF, como fazer ? onde procurar informações ?
Boa tarde Gerson Eu estou em processo de homologação do TEF, existe duas empresas que vendem um componente que ajuda o desenvolvimento, eu adquiri na seguinte empresa: www.consoftworld.com, tem algumas limitações mas ajuda bastante. No site da Bematech tem um exemplo pronto, muito bom. Para o desenvolvimento você deverá se cadastrar junto a dois órgãos de homologação um é a www.sevenpdv.com.br que homologa o Visa, e a www.softwareexpress.com.br homologa Redecar, e American Express. o tempo de desenvolvimento é em torno de 40 dias e a homologação mais 30. bom trabalho Wandarlei Preciso fazer em meu sistema TEF (Transferencia eletronica de fundos), ou seja, fazer uso de cartões de crédito e débito diretamente no sistema. Gostaria de obter informações de onde procurar ? Obrigado. . http://geo.yahoo.com/serv?s=97490437/grpId=1058778/grpspId=2137111264/msgId =167735/stime=1171630328/nc1=1/nc2=2/nc3=3 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gerenciador Remoto
www.logmein.com http://www.logmein.com/ utilizo neste site a versão free e atende... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Desenvolvimento (Anderson) Enviada em: sexta-feira, 16 de fevereiro de 2007 11:57 Clériston Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Gerenciador Remoto sim, é assim q funciona... os carinhas são os q tem acesso para dar suporte por esse esquema. só q eles só aceitam a conexão se estiver falando com o cliente, né! caso contrário, eles não conectam... :P - Original Message - From: Adriano Santos - Direção de Arte To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, February 16, 2007 10:25 AM Subject: Re: [delphi-br] Gerenciador Remoto Entendi, legal isso...ow tentei conectar com o conecta.exe e não consegui. Apareceram uns caras no programinha, é assim mesmo? Como funciona? -- *Adriano Santos* Desenvolvimento (Anderson) respondeu: Eduardo, qdo eu fui fazer o novo .exe, vi q tavam cobrando pra fazer... mas obrigado pela dica... pessoal, recomendo q todos usem esse serviço, porque é muito mais fácil dar suporte com essa ferramenta. abração a todos and - Original Message - From: Eduardo Silva dos Santos To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 16, 2007 9:02 AM Subject: Re: [delphi-br] Gerenciador Remoto *Anderson,* A pagina pra gerar o exe do single vnc não ta fora do ar, so mudaram o endereço, o novo é http://sc.uvnc. http://sc.uvnc.com/cgi-bin/upload3.pl com/cgi-bin/upload3.pl http://sc.uvnc. http://sc.uvnc.com/cgi-bin/upload3.pl com/cgi-bin/upload3.pl Em 16/02/07, Desenvolvimento (Anderson) desenvolvimento@ mailto:desenvolvimento%40sisponto.com.br sisponto.com.br mailto:desenvolvimento%40sisponto.com.br escreveu: a ultravnc disponibilizou uma página no seu site para fazer isso... agora, tirou do ar, mas eu baixei os arquivos q gera esse instalador. assim, eu gero o .exe aqui mesmo. é um criador de ULTRAVNC. se quiser ver o modelo, acesse: www.sisponto.com.br/conecta.exe ... o legal é q dá pra colocar imagem, textos e até o ícone do .exe. antes, uma empresa de informática q gerava esse .exe pra gente... cobrava 65 reais para modificar ou gerar esse .exe... daí eu corri atrás e descobri essa facilidade. eu criei uma rota de conexão interna na nossa rede, passando pelo modem adsl... assim, um cliente q não tenha conexao com ip válido, é possível conectar sem depender de rotas dentro da sua rede... conectamos até em clientes com linha discada. Nosso suporte é muito eficiente graças a essa ferramenta. Todos os problemas são solucionados quase imediatamente, sem a necessidade de ir um tecnico no local. []´s and - Original Message - From: Adriano Santos - Direção de Arte To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, February 16, 2007 9:25 AM Subject: Re: [delphi-br] Gerenciador Remoto Um executável servidor pro UltraVNC? Como? -- *Adriano Santos* Desenvolvimento (Anderson) respondeu: usamos o ultravnc. e crio um .exe para o cliente, onde vai até nosso logotipo no programa... :P and [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.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 17:40 __ Informação do NOD32 IMON 2064 (20070215) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. http://www.eset.com.br com.br http://www.eset. http://www.eset.com.br com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com mailto:eduardo.drd%40gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ http://www.drdsiste http://www.drdsistemas.com/ mas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2065 (20070216) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. http://www.eset.com.br com.br http://www.eset. http://www.eset.com.br com.br [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.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 17:40
[delphi-br] DirectX OpenGL
Alguém conhece uma boa biblioteca VCL para se trabalhar com DirectX no Delphi ? Estou testando a xorDX8 com DirectX9 mas tem coisas que não estou conseguindo fazer com ela. Como por exemplo clicar com o mouse em alguma região do ambiente DIRECTX e identificar exatamente a posição do mouse e qual o objeto que foi selecionado. E aproveitando, se alguém conhecer algum componente para OpenGL seria interessante para fazer uns testes. Gerhard Roger Nack [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [Fwd: Problemas com ODBC]
Estou tentando fazer a conexão com bancos via ODBC, a criação da chamava
ODBC é feita em tempo de execução conforme função abaixo, e quando
ativada está ocorrendo a seguinte mensagem:
[Microsoft][ODBC SQL Server Driver]Índice de descritor inválido.
procedure CriaChaveODBC;
begin
rgtConfiguracao := TRegistry.Create;
rgtConfiguracao.RootKey := HKEY_CURRENT_USER;
with rgtConfiguracao do
begin
//-
// Excluindo as configurações anteriores
//-
OpenKey('Software', True);
Openkey('ODBC', True);
Openkey('ODBC.INI', True);
Openkey('ODBC Data Sources', True);
DeleteValue('Antares');
CloseKey;
OpenKey('Software', True);
Openkey('ODBC', True);
Openkey('ODBC.INI', True);
DeleteKey('Antares');
CloseKey;
//-
// Criando as novas configurações
//-
OpenKey('Software', True);
Openkey('ODBC', True);
Openkey('ODBC.INI', True);
Openkey('ODBC Data Sources', True);
WriteString('Antares', 'SQL Server');
CloseKey;
OpenKey('Software', True);
Openkey('ODBC', True);
Openkey('ODBC.INI', True);
Openkey('Antares', True);
WriteString('AutoTranslate', 'No');
WriteString('Database', Copy(sServer_SQLServer, Pos(':',
sServer_SQLServer) + 1, Length(sServer_SQLServer)));
WriteString('Driver', 'C:\WINDOWS\SYSTEM32\SQLSRV32.DLL');
WriteString('Language', 'Português (Brasil)');
WriteString('LastUser', 'sistema');
WriteString('Server', Copy(sServer_SQLServer, 1, Pos(':',
sServer_SQLServer) - 1));
WriteString('Trusted_Connection', 'Yes');
CloseKey;
end;
FreeAndNil(rgtConfiguracao);
end;
Alguém tem alguma luz do que pode ser que estou fazendo errado ?
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Shiftar em Delphi
Olá colegas, estou precisando shiftar valores ( Transformação ShiftRow ) no Delphi. Seria o equivalente ao ou do C++. ALguém poderia me ajudar? Obrigado.
RES: [delphi-br] Shiftar em Delphi
Seria isso ? x shl 2 y shr 3 [ ] s Gerhard Roger Nack [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de humbertogrupos Enviada em: segunda-feira, 19 de fevereiro de 2007 14:20 Para: delphi-br Assunto: [delphi-br] Shiftar em Delphi Olá colegas, estou precisando shiftar valores ( Transformação ShiftRow ) no Delphi. Seria o equivalente ao ou do C++. ALguém poderia me ajudar? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com SQL parte 2
Conforme dica do Guilherme já consegui contar os registros iguais com
ADOQuery no BD access, blz. Mas agora se inverteu nao consigo filtrar
entre datas falta declarar Data1 e Data2 não estou conseguindo com
MasKEdit1.
Bom até agora se eu inserir a data no código dá certo assim:
ADOQuery1.SQL.Add('WHERE DataDevolucao BETWEEN #01/01/2007# and
#18/02/2007#');
mas não é isso... eu quero tipo+ou- assim:
ADOQuery1.SQL.Add('WHERE (DataDevolucao Between '+QuotedStr
(MaskEdit1.Text)+' And '+QuotedStr(MaskEdit2.Text)+')'); mas não dá
certo então
ADOQuery1.SQL.Add('WHERE DataDevolucao Between :Data1 and Data2);//
assim tem que declarar Data1 e Data2 usando parametro e linkar com os
MaskEdit alguem pode me ajudar
[delphi-br] Paradox - CSV
Boa tarde, Alguém tem alguma aplicação/rotina que leia os dados de uma tabela do Paradox e salve os dados como CSV? Valeu Welson Tavares [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Paradox - CSV
Não sou muito de fazer esse tipo de coisa, mas aí vai a receita de bolo
pronta (pra quem não quer ter trabalho e querer tudo mastigado!)
{ A partir de uma tabela paradox ativa em um TTable, exporta o seu conteúdo
atual para um arquivo texto padrão CSV. Precisa das units DB e DBTables }
procedure PDoxToCSV(ATable: TTable; const CsvFilePath: String);
const
{ Tipos de dados que não são permitidos na exportação de dados }
AFieldTypesNotAllowed: set of TFieldType =
[ftUnknown, ftBytes, ftVarBytes, ftBlob, ftGraphic, ftParadoxOle,
ftDbaseOle, ftTypedBinary, ftCursor, ftADT, ftArray, ftReference,
ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
ftIDispatch, ftGuid];
{ Tipos para tratamento de campos de ponto flutuante }
AFieldFloatTypes: set of TFieldType =
[ftFloat, ftCurrency, ftBCD, ftFMTBcd];
{ Tipos para tratamento de campos string }
AFieldStringTypes: set of TFieldType =
[ftString, ftMemo, ftFixedChar, ftWideString];
var
lBookmark: TBookmark;
lFld, lFldCount: Integer;
ACsvFile, ACsvRow: TStringList;
AFieldTypesNotAllowed: set of TFieldType;
AFieldFloatTypes: set of TFieldType;
lFieldData: String;
begin
lBookmark := ATable.GetBookmark;
while not ATable.ControlsDisabled do
ATable.DisableControls;
ATable.First;
Screen.Cursor := crHourGlass;
ACsvFile := TStringList.Create;
ACsvRow := TStringList.Create;
ACsvRow.Delimiter := ',';
try
{ Cabeçalho de um CSV sempre terá o nome dos campos. Ao mesmo tempo,
checa se os campos possuem tipos de dados válidos para exportação. }
lFldCount := ATable.FieldCount;
for lFld := 0 to lFldCount - 1 do
begin
if ATable.Fields[lFld].FieldType in AFieldTypesNotAllowed then
raise Exception.CreateFmt('Table %s has fields with not supported
data types.');
ACsvRow.Add(ATable.Fields[lFld].FieldName);
end;
ACsvFile.Add(ACsvRow.DelimitedText);
{ As próximas linhas do CSV correspondem às linhas de dados }
while not ATable.Eof do
begin
ACsvRow.Clear;
for lFld := 0 to lFldCount - 1 do
begin
lFieldData := ATable.Fields[lFld].AsString;
if ATable.Fields[lFld].FieldType in AFieldFloatTypes then
lFieldData := StringReplace(lFieldData, ',', '.', [rfReplaceAll])
else if ATable.Fields[lFld].FieldType in AFieldStringTypes then
lFieldData := StringReplace(lFieldData, #32, #255,
[rfReplaceAll]);
ACsvRow.Add(lFieldData);
end;
ACsvRow.DelimitedText := StringReplace(lFieldData, #255, #32,
[rfReplaceAll]);
ACsvFile.Add(ACsvRow.DelimitedText);
ATable.Next;
end;
ACsvFile.SaveToFile(CsvFilePath);
finally
ATable.GotoBookmark(lBookmark);
ATable.FreeBookmark(lBookmark);
while ATable.ControlsDisabled do
ATable.EnableControls;
Screen.Cursor := crDefault;
end;
end;
Sds.
From: Welson Tavares [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Paradox - CSV
Date: Mon, 19 Feb 2007 15:48:47 -0200
Boa tarde,
Alguém tem alguma aplicação/rotina que leia os dados de uma tabela do
Paradox e salve os dados como CSV?
Valeu
Welson Tavares
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[delphi-br] Re: Paradox - CSV
Pessoal, no parte file, esqueci de incluir a liberação dos objetos
ACsvFile e ACsvRow. Não esqueçam disso antes de usar esta rotina.
Postem seus comentários sobre ela nesta thread.
Sds.
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
Não sou muito de fazer esse tipo de coisa, mas aí vai a receita de
bolo
pronta (pra quem não quer ter trabalho e querer tudo mastigado!)
{ A partir de uma tabela paradox ativa em um TTable, exporta o seu
conteúdo
atual para um arquivo texto padrão CSV. Precisa das units DB e
DBTables }
procedure PDoxToCSV(ATable: TTable; const CsvFilePath: String);
const
{ Tipos de dados que não são permitidos na exportação de dados }
AFieldTypesNotAllowed: set of TFieldType =
[ftUnknown, ftBytes, ftVarBytes, ftBlob, ftGraphic,
ftParadoxOle,
ftDbaseOle, ftTypedBinary, ftCursor, ftADT, ftArray,
ftReference,
ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
ftIDispatch, ftGuid];
{ Tipos para tratamento de campos de ponto flutuante }
AFieldFloatTypes: set of TFieldType =
[ftFloat, ftCurrency, ftBCD, ftFMTBcd];
{ Tipos para tratamento de campos string }
AFieldStringTypes: set of TFieldType =
[ftString, ftMemo, ftFixedChar, ftWideString];
var
lBookmark: TBookmark;
lFld, lFldCount: Integer;
ACsvFile, ACsvRow: TStringList;
AFieldTypesNotAllowed: set of TFieldType;
AFieldFloatTypes: set of TFieldType;
lFieldData: String;
begin
lBookmark := ATable.GetBookmark;
while not ATable.ControlsDisabled do
ATable.DisableControls;
ATable.First;
Screen.Cursor := crHourGlass;
ACsvFile := TStringList.Create;
ACsvRow := TStringList.Create;
ACsvRow.Delimiter := ',';
try
{ Cabeçalho de um CSV sempre terá o nome dos campos. Ao mesmo
tempo,
checa se os campos possuem tipos de dados válidos para
exportação. }
lFldCount := ATable.FieldCount;
for lFld := 0 to lFldCount - 1 do
begin
if ATable.Fields[lFld].FieldType in AFieldTypesNotAllowed then
raise Exception.CreateFmt('Table %s has fields with not
supported
data types.');
ACsvRow.Add(ATable.Fields[lFld].FieldName);
end;
ACsvFile.Add(ACsvRow.DelimitedText);
{ As próximas linhas do CSV correspondem às linhas de dados }
while not ATable.Eof do
begin
ACsvRow.Clear;
for lFld := 0 to lFldCount - 1 do
begin
lFieldData := ATable.Fields[lFld].AsString;
if ATable.Fields[lFld].FieldType in AFieldFloatTypes then
lFieldData := StringReplace(lFieldData, ',', '.',
[rfReplaceAll])
else if ATable.Fields[lFld].FieldType in AFieldStringTypes
then
lFieldData := StringReplace(lFieldData, #32, #255,
[rfReplaceAll]);
ACsvRow.Add(lFieldData);
end;
ACsvRow.DelimitedText := StringReplace(lFieldData, #255, #32,
[rfReplaceAll]);
ACsvFile.Add(ACsvRow.DelimitedText);
ATable.Next;
end;
ACsvFile.SaveToFile(CsvFilePath);
finally
ATable.GotoBookmark(lBookmark);
ATable.FreeBookmark(lBookmark);
while ATable.ControlsDisabled do
ATable.EnableControls;
Screen.Cursor := crDefault;
end;
end;
Sds.
From: Welson Tavares [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Paradox - CSV
Date: Mon, 19 Feb 2007 15:48:47 -0200
Boa tarde,
Alguém tem alguma aplicação/rotina que leia os dados de uma
tabela do
Paradox e salve os dados como CSV?
Valeu
Welson Tavares
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[delphi-br] Re: Setup de instalação do meu sistema
bom galera eu tambem gostaria de algumas dicas de como criar um setup dos meus projetos --- Em delphi-br@yahoogrupos.com.br, walter_3wm [EMAIL PROTECTED] escreveu Bom dia Pessoal!! Bom estou fazendo um sistema simples, e estou tentando gerar um setup de instalação do meu sistema, estou usando o innoSetup, do meu projeto, estou adicionando projeto.exe, a pasta que está as tabelas. Bom em outra maquina que nao tem delphi, ele instala tudo blz, cria pasta com meu projeto, s´que na hr que eu vo roda o executavel, ele não abre da a msg dizendo que deu um erro e precisa ser fechado.E na maquina que tem delphi, ele funciona normal!! Alguem sabe o que está faltando para eu adicionar, o que é esse erro, se ta faltando alguma biblioteca!! Obrigado desde já !!! Vlw!!
Re: [delphi-br] Ajuda com SQL parte 2
Os parâmetros você declara na propriedade Params do seu ADOQuery, e
pra alimentá-los você faz assim:
ADOQuery1.ParamByName('Data1').asDate := StrToDate(MaskEdit1.Text);
ADOQuery1.ParamByName('Data2').asDate := StrToDate(MaskEdit2.Text);
[]
Andrei
Em 19/02/07, Elizeu jaime Martins Chiogna[EMAIL PROTECTED] escreveu:
Conforme dica do Guilherme já consegui contar os registros iguais com
ADOQuery no BD access, blz. Mas agora se inverteu nao consigo filtrar
entre datas falta declarar Data1 e Data2 não estou conseguindo com
MasKEdit1.
Bom até agora se eu inserir a data no código dá certo assim:
ADOQuery1.SQL.Add('WHERE DataDevolucao BETWEEN #01/01/2007# and
#18/02/2007#');
mas não é isso... eu quero tipo+ou- assim:
ADOQuery1.SQL.Add('WHERE (DataDevolucao Between '+QuotedStr
(MaskEdit1.Text)+' And '+QuotedStr(MaskEdit2.Text)+')'); mas não dá
certo então
ADOQuery1.SQL.Add('WHERE DataDevolucao Between :Data1 and Data2);//
assim tem que declarar Data1 e Data2 usando parametro e linkar com os
MaskEdit alguem pode me ajudar
[delphi-br] Como Impedir que um formulario seja arrastado?
Olá senhores, tenho 2 duvidas sobre o formulario! 1 - como impedir que um formulário seja arrastado, sem que seja necessário ocultar a barra de título? 2 - como fazer para o formulario, com a propriedade position setada em poOwnerFormCenter abra sempre no mesmo lugar? Obs: Trabalho com Formularios MDIform Obrigado a todos! Daniel Vitor Eng. de Computação __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Enter funcionando como Tab
Funcionou perfeitamente e era exatamente o que eu queria. Obrigado
pela ajuda e desculpe não ter respondido antes.
--- Em delphi-br@yahoogrupos.com.br, Adriano Santos (Yahoo)
[EMAIL PROTECTED] escreveu
Bom, o modo mais simples que consegui foi desviar o evento onMessage do
objeto TApplication para uma função e nela codificar o que preciso
vejam:
procedure TrocaTabPorEnter(var Msg: TMsg; var Handled: Boolean);
begin
if not ((Screen.ActiveControl is TCustomMemo) or
(Screen.ActiveControl is TCustomGrid) or
(Screen.ActiveControl is TButton) or
(Screen.ActiveControl is TBitBtn) or
(Screen.ActiveForm.ClassName = 'TMessageForm')) then
if (Msg.message = WM_KEYDOWN) then
case Msg.wParam of
VK_RETURN, VK_DOWN: Screen.ActiveForm.Perform(WM_NextDlgCtl,
0, 0);
VK_UP: Screen.ActiveForm.Perform(WM_NextDlgCtl, 1, 0);
end;
end;
Não engloba todos os componentes, mas basta adicionar isso uma vez no
form principal ou no primeiro form que é criado pelo sistema e
pronto. O
sistema inteiro já sabe que o enter funciona como tab. Vai precisar
estudar as classes e incluir conforme sua necessidade.
Uma dica: TCustomCLASSE_DO_COMPONENTE
Muitos componentes tem uma classe superior com o Custom na frente, ou
seja, todo componente herdado do TMemo é herdado do TCustomMemo, isso
significa que já englobam todos os tipos de memo da sua aplicação. E
assim ocorrem com outros componentes.
É só dar um F1 em algum componente e ver sua hierarquia de classes e
pegar a mais alta possível.
Pra desviar o evento basta fazer assim:
Application.onMessage := TrocaTabPorEnter;
Note que a assinatura da procure deve ser igual a do evento
onMessage do
TApplication;
{Minha function}
procedure TrocaTabPorEnter(var Msg: TMsg; var Handled: Boolean);
{Função do delphi em FORMS}
TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of
object;
*Adriano Santos*
Desenvolvedor Delphi desde 1998. Professor e programador PHP.
Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
Colunista e Comissão Editorial da revista ClubeDelphi.
albertoferreirafilho respondeu:
Creio que não precise componentes para isso.
No seu form você altera a propriedade KeyPreview para true, no evento
OnKeyPress coloque o seguinte:
if key = Char( VK_RETURN ) then
begin
PostMessage( Form.Handle, WM_NEXTDLGCTL, 0, 0 );
Key:= Chr( 0 );
end;
Pronto, todos os seus campos vão pular para o próximo. Se quiser ser
mais purista, faça que todos os teus forms descendam deste único em
que vc vai colocar a função, daí não precisa colocar isso em cada
formulário criado.
--- Em delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br, Jefferson - Fórum t_object@
escreveu
Instala com componentes da suíte Jedi, que lá você terá o
componente: TJvEnterAsTab, ele ajuda demais nesses casos.
Boa sorte!
Jefferson
- Original Message -
From: barblo25
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Sent: Friday, February 09, 2007 2:00 PM
Subject: [delphi-br] Re: Enter funcionando como Tab
Meu Brother ver se esse funciona pra vc. Pois eu utilizo essa
rotina
no evento onKeyDown do form. E depois vc utiliza herança, estais
entendo?. Qualquer coisa eh so dizer. Ele so não ativa quando eh
em
DBGRID.
var
bDirecao: Integer;
begin
bDirecao := -1;
if not (ActiveControl is TDBGrid) then
begin
case Key of
VK_UP: bDirecao := 1;
VK_DOWN,VK_RETURN: bDirecao := 0;
end;
if (bDirecao -1) then
perform(WM_NEXTDLGCTL, bDirecao, 0) ;
end;
end;
--- Em delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br, blcksun954
carlosrpnegrao@ escreveu
Tem algum modo simples de fazer com que todos os componnetes de
edição (TEdit, TComboBox, etc...) de um projeto passem a tratar
a
tecla Enter como tratam a Tab sem ter de escrever uma função
pra
cada
componente?
Estou usando Delphi 5.
[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.441 / Virus Database: 268.17.36/681 - Release Date:
11/2/2007 18:50
--
[delphi-br] quick report
Pessoal,como faço para imprimir uma linha do detail em negrito ? ex: se o campo flag da tabela for =1 fica negrito ao contrario fica normal Muito Obrigado por enquanto !
Re: [delphi-br] quick report
use o evento onbeforeprint da banda e coloque o codigo lá para formatar
o seu campo
if ds.qry.fieldbyname('flag').asinteger = 1
..codigo para o negrito
se nao me engano: editor.font.style := [fsBold] ,para negrito
e editor.font.style := [] para voltar ao normal
bene20032004 escreveu:
Pessoal,como faço para imprimir uma linha do detail em negrito ?
ex: se o campo flag da tabela for =1 fica negrito ao contrario fica
normal
Muito Obrigado por enquanto !
Re: [delphi-br] TEF, como fazer ? onde procurar informações ?
Ola Wandarlei Por favor diga-me uma coisa: eles estão aceitando para homologação, desenvolvedores pessoa física? Que eu saiba, eles nem aceitavam pedidos de pessoas físicas. Mudou alguma coisa ? obrigado Edison - Original Message - From: Wandarlei [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, February 16, 2007 3:29 PM Subject: RES: [delphi-br] TEF, como fazer ? onde procurar informações ? Boa tarde Gerson Eu estou em processo de homologação do TEF, existe duas empresas que vendem um componente que ajuda o desenvolvimento, eu adquiri na seguinte empresa: www.consoftworld.com, tem algumas limitações mas ajuda bastante. No site da Bematech tem um exemplo pronto, muito bom. Para o desenvolvimento você deverá se cadastrar junto a dois órgãos de homologação um é a www.sevenpdv.com.br que homologa o Visa, e a www.softwareexpress.com.br homologa Redecar, e American Express. o tempo de desenvolvimento é em torno de 40 dias e a homologação mais 30. bom trabalho Wandarlei Preciso fazer em meu sistema TEF (Transferencia eletronica de fundos), ou seja, fazer uso de cartões de crédito e débito diretamente no sistema. Gostaria de obter informações de onde procurar ? Obrigado. . http://geo.yahoo.com/serv?s=97490437/grpId=1058778/grpspId=2137111264/msgId =167735/stime=1171630328/nc1=1/nc2=2/nc3=3 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Res: [delphi-br] Saber Posição X e Y da linha se lecionada no DBGrid
use o evento onMouseUp dentro desse evento vc tem como pegar as coordenadas do mouse.. valeu. - Mensagem original De: Leodinei Bielak [EMAIL PROTECTED] Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Fevereiro de 2007 7:21:28 Assunto: [delphi-br] Saber Posição X e Y da linha selecionada no DBGrid Olá pessoal. Tem como eu saber qual a posição XY na tela da linha atual do DBGrid? Eu pretendo colocar um botão ao lado. Valeu. -- Leodinei Bielak http://leodinei. blogspot. com/ In theory, there is no difference between theory and practice. In practice, however. . __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Boa noite galera
Galera como faço para conseguir mudar a cor da fonte de uma coluna de uma StringGrid, gostaria que a cor da fonte da primeira coluna fique em preto e a da segunda coluna fique em vermelho em destaque, caso não de para fazer so da coluna, me resolveria deixar uma linha inteira do StringGrid em destaque tem como abraços... __ 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]
