[delphi-br] Re: Colorir apenas a linha selecionada do DBGrid, sem usar o RowSelect
Oi Christian,
Eu consegui pintar a linha da tabela com:
procedure TFmCtrlGrid.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If gdSelected in State then
begin
Dbgrid2.Canvas.Brush.Color:= clRed;
DBGrid2.Canvas.FillRect(Rect);
end;
DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
mas, o dgRowSelect tava no True.
Nao entendi pq vc nao quer usar o dgRowSelect... se for apenas
pelo desafio de fazer sem a propriedade sugiro tentar montar uma
query identificando a linha e fazer algo do tipo
Dados.IBQuery1.FieldByName('CAMPO').Value = flag para determinar os
campos que irao aparecer no grid com valor pintura diferente.
[]s
MSG
--- Em [EMAIL PROTECTED], Christian Balz [EMAIL PROTECTED]
escreveu
Ola Pessoal,
Estou utilizando o código abaixo no evento OnDrawColumnCell, mas
somente a
célula clicada fica colorida.
If gdSelected in State then begin
With (Sender as TDbGrid).Canvas do begin
Brush.Color := $0028C0B1;
FillRect(Rect);
(Sender as TDbGrid).DefaultDrawDataCell(Rect,Field,State);
end;
end;
Como faço para colorir apenas a linha selecionada do DbGrid, sem
usar o
RowSelect?
Se alguém souber me ajudar fico grato,
[]'s
Christian Balz
[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] ou [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] SQL agrupar por mes
Bom Dia Pessoal!!! Desculpem-me pela pergunta de iniciante mas. Gostaria de agrupar campos de Data por mêses em uma faixa qualquer. Tenho D7, Ado e access.Já temtei o seguinte : WHERE DatePart(, DataPedido) = [Vendas de qual ano?] __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [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] ou [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] SQL agrupar por mes
Bom dia! Utilize a função DatePart() para agrupar por mês. Deve ficar assim: Select CampoQualquer,DatePart(mm,SeuCampoData) as Mes from SuaTabela Group by CampoQualquer,DatePart(mm,SeuCampoData) Order By Mes Boa sorte. Ulisses - Original Message - From: cassiano luz To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 3:58 AM Subject: [delphi-br] SQL agrupar por mes Bom Dia Pessoal!!! Desculpem-me pela pergunta de iniciante mas. Gostaria de agrupar campos de Data por mêses em uma faixa qualquer. Tenho D7, Ado e access.Já temtei o seguinte : WHERE DatePart(, DataPedido) = [Vendas de qual ano?] __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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] ModelMaker
Alguem conhece esse programa. e se alguém tem a apostila em português dele. pois estou precisando Se alguém tiver e puder me ajudar eu agradeceria muito. -- 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] ou [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] Bem OFF --- Linux X Windows (em NTFS)
CONECTIVA 10 Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: jimmy To: [EMAIL PROTECTED] Sent: Monday, October 25, 2004 9:06 PM Subject: Re: [delphi-br] Bem OFF --- Linux X Windows (em NTFS) Pode gravar NTFS sim !!! qual distribuição Linux vc usa ? Marcelo Silva escreveu: A um tempo eu instalei Linux e Windows na mesma máquina para ver como ficava... funcionava na boa ... aparecia o lilo para eu escolher o sistema que queria iniciar... hoje só tenho o windows na máquina isso porque não consegui instalar o Linux e Windows XP por que o Lilo não conseguiu gravar em particão NTFS. Alguém aqui tem os dois na mesma máquina com Particão NTFS ? * Quando instalei da primeira vez eu dividi o HD e deixei metade FAT32 e a outra no sistema do Linux Gostaria de instalar os dois porque tenho que fazer algumas coisas em Kylix... por isso postei aki. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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] ou [EMAIL PROTECTED] *Yahoo! Grupos, um serviço oferecido por:* http://br.rd.yahoo.com/SIG=12aq8pfpl/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1097321454/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12aq8pfpl/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1097321454/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ *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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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] Problemas na Atualização do Estoque
Olá,
Porque você não tenta assim:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
try
tQry := tQuery.Create(nil); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
try
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;
tbNotaItem.EnableControls;
Database.Commit;
except
Database.Rollback;
raise;
end;
finally
FreeAndNil(tQry);
end;
end;
- Original Message -
From: Sergio Toshio Kawahara [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 10:43 PM
Subject: [delphi-br] Problemas na Atualização do Estoque
DELPHI 6, PARADOX
Pessoal estou com o seguinte problema na atualização do estoque quando mando
rodar a rotina abaixo com mais de 100 itens da a seguinte mensagem:
Operation not Applicate too many open tables, alguem já passou por isso?
Rotina para atualizar o estoque:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application); // Cria Query
temporaria
tQry.DatabaseName := 'dbTeste';//Alias
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
Free;
end;
tbNotaItem.Next;
end;
tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;
Agradeço qualquer ajuda.
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento:
22/10/2004
--
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 Data de Lançamento: 22/10/2004
--
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] ou [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] Oportunidade ASP/Delphi para Curitiba
Salvem A empresa onde trabalho está precisando de profissional para trabalhar dando manutenção e prosseguimento a novos projetos em ASP com MySQL, e com conhecimentos em Delphi para dar suportes a sistemas já existentes. Interessados, favor encaminhar currículo com pretenção salarial para [EMAIL PROTECTED] A empresa fica em Curitiba e o salário é a combinar. Obrigado Max Moraes Infoclass Informática Curitiba - PR 41-323-4888 -- 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] ou [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] Re: DUvida
Tasquim, Não sei se é bem o que você pretende mas... Tem uns componentes da TurboPower que já implementam tudo isso que você quer, inclusive com uma parte visual bem legal. Como vem com os fontes da para customizar do jeito que você quiser. http://sourceforge.net/projects/tpvplanit/ Obs: Só baixei os componentes e fiz um poucos testes mas pareceu que vale a pena investir um tempo nele. Abraços Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br --- Mensagem: 1 Data: Mon, 25 Oct 2004 14:31:32 -0300 De: Tasquim [EMAIL PROTECTED] Assunto: DUvida Boa Tarde a todos! Tenho um programa de agenda de telefones, gostaria de implementar nela uma agenda de Compromissos, pois ja tenho o calendario e gostaria de clicar no dia e ja abrir a agenda de compromissos, com os horarios e tudo mais. Como posso realizar este tipo de comando, qual comando usar? Tasquim -- 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] ou [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] OFF Recibo de Instalação e treinamento
Bom dia pessoal; só por curiosidade, alguem usa recibos de instalacao e treinamento dos sistemas que vc's desenvolvem??? alguem poderia me passar um modelo??? ou onde onde conseguir informacoes?? a respeito do que posso 'escrever' neles! Jair [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] ou [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] Como Fazer UPDATE em uma tabela? dbexpress
Amigos preciso de uma ajuda, como posso fazer update em tabelas? pode ser através do componenete query??? eu estou usando command text da tabela mais estou tendo dificuldades para passar parametros e formar a string via programação. Posso usar direto um componente query e passar os paramentos para o componente, como tentei e não consegui, não sei se é utilizado o componente para atualizar as tabela. Agradeço as dicas dos amigos. Paulo. -- 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] ou [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] Como apagar e recriar indices em uma tabela Paradox
Como faço para criar uma rotina que ao apagar os campos de uma tabela automaticamente os indices desta tabela sejam excluidos e depois quero recriar esses mesos indices. PAULO FERNANDES PORTO ALEGRE RS [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] ou [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] Dialogs
Unit Dialogs? Eu já fiz essa tradução, mas foi na unit Conts e deu certo. Você deve fazer o seguinte: Faça uma cópia do arquivo consts.dcu para qualquer problema que possa ocorrer. Abra um novo projeto, exclua do projeto a unit1 que vem por default. Inclua a unit consts.pas no seu projeto, faça a tradução das mensagens desejadas e recompile. Agora basta colocar o novo arquivo consts.dcu no lugar do velho e recompilar seus projetos. - Original Message - From: MOITA [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 25, 2004 10:19 PM Subject: [delphi-br] Dialogs mudei algumas variaveis da unit dialogs para que no messagedlg os botoes aparecam em portugues, so que as alteracoes que fiz nao funcionam. Como posso fazer para que tenha efeito. Já diz Buil all e Compile all. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- 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] ou [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 Fazer UPDATE em uma tabela? dbexpress
Tente fazer assim:
with qry do begin
CommandText := 'Update Tabela Set Campo1 = :pCampo1, Campo2 = :pCampo2 Where Chave =
:pChave';
ParamByName('pCampo1').AsString := 'Texto';
ParamByName('pCampo2').AsDateTime := Date;
ParamByName('pChave').AsInteger := 1;
ExecSQL;
end;
Sempre que você quiser utilizar um parâmetro, basta colocar : dois pontos na frente.
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[EMAIL PROTECTED]
- Original Message -
From: delphi6_2005
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 9:08 AM
Subject: [delphi-br] Como Fazer UPDATE em uma tabela? dbexpress
Amigos preciso de uma ajuda, como posso fazer update em tabelas?
pode ser através do componenete query??? eu estou usando command
text da tabela mais estou tendo dificuldades para passar parametros
e formar a string via programação.
Posso usar direto um componente query e passar os paramentos para o
componente, como tentei e não consegui, não sei se é utilizado o
componente para atualizar as tabela.
Agradeço as dicas dos amigos.
Paulo.
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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] ou [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] Alguem usa o componente ImgScan1 para scanear fotos
Estou scaneando uma imagem bmp com o seguinte codigo abaixo: if ImgScan1.ScannerAvailable then try ImgScan1.OpenScanner; ImgScan1.ScanTo := 2; ImgScan1.Image := 'G:\newsys\fotos\teste.bmp'; ImgScan1.StartScan; Application.ProcessMessages; finally ImgScan1.CloseScanner; end; Coloquei um componente imagem no form e coloquei a imagem que scanei via componente ImgScan1, quando eu coloco a imagem que scanei acontece o seguinte erro: Acesss violation at addres 77F59393 in modulo 'GDI32.DLL' Alguem ja ocorreu este erro?? Evandro [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] ou [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] DBF x Performance (com ADS) Como melhorar ?
Estou tendo que trabalhar em cima de um banco ja existente em DBF ... (nao posso mudar de base) O detalhe é que as consultas demoram muito em relação ao clipper, consultas do tipo ...DAT_VEN BETWEEN '01/09/2004' AND '30/10/2004')... Alguém saberia responder porque no Clipper é rapidinho e com o Delphi esta lento ? Estou usando componentes ADS para conectar, visto que no servidor tem o ADS-Server Ja me disseram para criar indices.. mas não manjo muito em criar indices no DBF com ADS e não posso ficar mexendo na base visto que não foi eu quem criou. Se alguém tiver algumas de como melhorar a performance em DBF ficarei grato ... * Obs. Estou fazendo aquela tipica salada DBF x FB onde trabalho na mesma aplicação consulto em DBF e gravo e FB. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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] ou [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
RES: [delphi-br] DBF x Performance (com ADS) Como melhorar ?
Já passei por esse problema, mas diminuiu usando uma importação para Access, vincula tabela, importa dados, desvincula tabela... Att. Douglas - CPD. -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 26 de outubro de 2004 09:28 Para: [EMAIL PROTECTED] Assunto: [delphi-br] DBF x Performance (com ADS) Como melhorar ? Estou tendo que trabalhar em cima de um banco ja existente em DBF ... (nao posso mudar de base) O detalhe é que as consultas demoram muito em relação ao clipper, consultas do tipo DAT_VEN BETWEEN '01/09/2004' AND '30/10/2004')... Alguém saberia responder porque no Clipper é rapidinho e com o Delphi esta lento ? Estou usando componentes ADS para conectar, visto que no servidor tem o ADS-Server Ja me disseram para criar indices.. mas não manjo muito em criar indices no DBF com ADS e não posso ficar mexendo na base visto que não foi eu quem criou. Se alguém tiver algumas de como melhorar a performance em DBF ficarei grato ... * Obs. Estou fazendo aquela tipica salada DBF x FB onde trabalho na mesma aplicação consulto em DBF e gravo e FB. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: VirusScan / Atualizado em 20/10/2004 / Versão: 1.5.2 Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/ -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite http://www.terra.com.br/centralunificada/emailprotegido/imail/imail.cgi?+_u= torres80_l=1098793805.416918.29947.larissa.terra.com.br --- Email enviado sem vírus - ¿? Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004 [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] ou [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] formatar valores em um dbgrid
Pessoal, Preciso formatar um valor em um dbgrid como faço deu branco total... obrigado otavio-cidreira/RS --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004 -- 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] ou [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] Problemas na Atualização do Estoque
Olá, Alexandre
Agradeço a sua atenção para o meu problema, fiz o teste mas deu o mesmo erro, então
resolvi o problema tirando a transação, acho que vou mudar a forma de atualização ao
inves de atualizar no final vou atualizar item a item direto na inclusão, de qualquer
forma valeu.
[]'s
- Original Message -
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 7:25 AM
Subject: Re: [delphi-br] Problemas na Atualização do Estoque
Olá,
Porque você não tenta assim:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
try
tQry := tQuery.Create(nil); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
try
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;
tbNotaItem.EnableControls;
Database.Commit;
except
Database.Rollback;
raise;
end;
finally
FreeAndNil(tQry);
end;
end;
- Original Message -
From: Sergio Toshio Kawahara [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 10:43 PM
Subject: [delphi-br] Problemas na Atualização do Estoque
DELPHI 6, PARADOX
Pessoal estou com o seguinte problema na atualização do estoque quando mando
rodar a rotina abaixo com mais de 100 itens da a seguinte mensagem:
Operation not Applicate too many open tables, alguem já passou por isso?
Rotina para atualizar o estoque:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application); // Cria Query
temporaria
tQry.DatabaseName := 'dbTeste';//Alias
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
Free;
end;
tbNotaItem.Next;
end;
tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;
Agradeço qualquer ajuda.
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento:
22/10/2004
--
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento: 22/10/2004
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
[delphi-br] Re: Problemas na Atualização do Estoque
Ola,
Vc pode fazer commit apos uma quantidade de inserts, se apos 100 ele
nao esta suportando o cache, vc commita a cada 50, nao commit a cada
insert pois ficara lenta a rotina. Embora eu ache q esta operacao tem
q ser efetuada completamente, verifique algo do tipo tamanho de cache
ou coisa parecida!
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
liQtdRegs := 0;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque
+ :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
inc(liQtdRegs);
//verifica se ja pode commitar
if liQtdRegs = 50 then
begin
Database.Commit;
liQtdRegs := 0;
end;
tbNotaItem.Next;
end;
Espero ter ajudado
Bit
--- Em [EMAIL PROTECTED], Sergio Toshio Kawahara
[EMAIL PROTECTED] escreveu
Olá, Alexandre
Agradeço a sua atenção para o meu problema, fiz o teste mas deu o
mesmo erro, então resolvi o problema tirando a transação, acho que
vou mudar a forma de atualização ao inves de atualizar no final vou
atualizar item a item direto na inclusão, de qualquer forma valeu.
[]'s
- Original Message -
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 7:25 AM
Subject: Re: [delphi-br] Problemas na Atualização do Estoque
Olá,
Porque você não tenta assim:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
try
tQry := tQuery.Create(nil); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
try
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque
+ :Qtde ');
SQL.Add('Where Codigo = :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;
tbNotaItem.EnableControls;
Database.Commit;
except
Database.Rollback;
raise;
end;
finally
FreeAndNil(tQry);
end;
end;
- Original Message -
From: Sergio Toshio Kawahara [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 10:43 PM
Subject: [delphi-br] Problemas na Atualização do Estoque
DELPHI 6, PARADOX
Pessoal estou com o seguinte problema na atualização do estoque
quando mando
rodar a rotina abaixo com mais de 100 itens da a seguinte
mensagem:
Operation not Applicate too many open tables, alguem já passou
por isso?
Rotina para atualizar o estoque:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application); // Cria Query
temporaria
tQry.DatabaseName := 'dbTeste';//Alias
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
Re: [delphi-br] PARADOX NO WINDOWS XP EM REDE
eu tenho uma aplicação em rede, com 15 máquinas, usando o paradox. O banco de dados de movimento está aproximadamente com 25 mil registros.Uso o delphi 5, paradox 7 e o windows 2000, aconselho a mudar para o windows 2000, ele trabalha melhor em rede. Edivaldo David info.suporte [EMAIL PROTECTED] wrote: Boa tarde a todos Gostaria de saber se alguem já conseguiu fazer rodar uma aplicação com a base de dados paradox em REDE. A máquina servidora é WINDOWS 98 e a Clint é WINDOWS XP. Aplicação em Delphi 5 com a base dados PARADOX 7. Paulo Fernandes Porto Alegre RS [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: DUvida
Luiz Henrique, Pelo que vi na instalação aqui, acho que vai servir, só falta aprender a manipular... Obrigado... - Original Message - From: Luiz Henrique Severo d Oliveira To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 8:46 AM Subject: [delphi-br] Re: DUvida Tasquim, Não sei se é bem o que você pretende mas... Tem uns componentes da TurboPower que já implementam tudo isso que você quer, inclusive com uma parte visual bem legal. Como vem com os fontes da para customizar do jeito que você quiser. http://sourceforge.net/projects/tpvplanit/ Obs: Só baixei os componentes e fiz um poucos testes mas pareceu que vale a pena investir um tempo nele. Abraços Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br --- Mensagem: 1 Data: Mon, 25 Oct 2004 14:31:32 -0300 De: Tasquim [EMAIL PROTECTED] Assunto: DUvida Boa Tarde a todos! Tenho um programa de agenda de telefones, gostaria de implementar nela uma agenda de Compromissos, pois ja tenho o calendario e gostaria de clicar no dia e ja abrir a agenda de compromissos, com os horarios e tudo mais. Como posso realizar este tipo de comando, qual comando usar? Tasquim -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Problemas na Atualização do Estoque
O Sandro valeu, mas é justamente isso essa rotina tem que ser efetuada completamente,
por isso da transação.
- Original Message -
From: sandrobit2000
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 10:50 AM
Subject: [delphi-br] Re: Problemas na Atualização do Estoque
Desculpe faltou o database.StartTransaction
if liQtdRegs = 50 then
begin
Database.Commit;
DataBase.StartTransaction;
liQtdRegs := 0;
end;
Bit
--- Em [EMAIL PROTECTED], sandrobit2000
[EMAIL PROTECTED] escreveu
Ola,
Vc pode fazer commit apos uma quantidade de inserts, se apos 100
ele
nao esta suportando o cache, vc commita a cada 50, nao commit a
cada
insert pois ficara lenta a rotina. Embora eu ache q esta operacao
tem
q ser efetuada completamente, verifique algo do tipo tamanho de
cache
ou coisa parecida!
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
liQtdRegs := 0;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque
+ :Qtde ');
SQL.Add('Where Codigo
= :Codigo');
ParamByName('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
inc(liQtdRegs);
//verifica se ja pode commitar
if liQtdRegs = 50 then
begin
Database.Commit;
liQtdRegs := 0;
end;
tbNotaItem.Next;
end;
Espero ter ajudado
Bit
--- Em [EMAIL PROTECTED], Sergio Toshio Kawahara
[EMAIL PROTECTED] escreveu
Olá, Alexandre
Agradeço a sua atenção para o meu problema, fiz o teste mas deu o
mesmo erro, então resolvi o problema tirando a transação, acho que
vou mudar a forma de atualização ao inves de atualizar no final vou
atualizar item a item direto na inclusão, de qualquer forma valeu.
[]'s
- Original Message -
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 7:25 AM
Subject: Re: [delphi-br] Problemas na Atualização do Estoque
Olá,
Porque você não tenta assim:
procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
try
tQry := tQuery.Create(nil); // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias
try
// Inicia uma Transacao
Database.StartTransaction;
tbNotaItem.DisableControls;
tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque
+ :Qtde ');
SQL.Add('Where Codigo
= :Codigo');
ParamByName
('Qtde').AsFloat:=
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName
('Codigo').AsString :=
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;
tbNotaItem.EnableControls;
Database.Commit;
except
Database.Rollback;
raise;
end;
finally
FreeAndNil(tQry);
end;
end;
- Original Message -
From: Sergio Toshio Kawahara [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 10:43 PM
Subject: [delphi-br] Problemas na Atualização do Estoque
Re: [delphi-br] Exibir data do sistema no relatório
se for o quickreport porque vc nao usa o QRSysData ? - Original Message - From: er83pet04 To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 11:15 AM Subject: [delphi-br] Exibir data do sistema no relatório Estou querendo exibir no meu relatório a data do sistema. Para fazer isso coloquei: var Present: TDateTime; Year, Month, Day : Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' + IntToStr(Month) + ' de ' + IntToStr(Year); Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004. Como faço para exibir o mês por extenso? Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004. Existe alguma função específica para isso? Obrigada -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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] PARADOX NO WINDOWS XP EM REDE
Olá Paulo, Eu tive o mesmo problema, fiz um monte de testes mais não consegui fazer funcionar com WinXP e 98 juntos a solução foi deixar tudo 98 ou tudo XP. []'s - Original Message - From: Edivaldo David To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 10:48 AM Subject: Re: [delphi-br] PARADOX NO WINDOWS XP EM REDE eu tenho uma aplicação em rede, com 15 máquinas, usando o paradox. O banco de dados de movimento está aproximadamente com 25 mil registros.Uso o delphi 5, paradox 7 e o windows 2000, aconselho a mudar para o windows 2000, ele trabalha melhor em rede. Edivaldo David info.suporte [EMAIL PROTECTED] wrote: Boa tarde a todos Gostaria de saber se alguem já conseguiu fazer rodar uma aplicação com a base de dados paradox em REDE. A máquina servidora é WINDOWS 98 e a Clint é WINDOWS XP. Aplicação em Delphi 5 com a base dados PARADOX 7. Paulo Fernandes Porto Alegre RS [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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] Exibir data do sistema no relatório
Vc vai ter que criar uma função:
Function DataExtenso(Data : TDateTime):String;
// Retorna a data por extenso
const
vdia : array[1..7] of String = ('Domingo', 'Segunda Feira', 'Terça Feira', 'Quarta
Feira', 'Quinta Feira', 'Sexta Feira', 'Sabado');
vMes : array[1..12] of String = ('Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio',
'Junho', 'Julho', 'Agosto','Setembro', 'Outubro','Novembro','Dezembro');
begin
Result := vDia[DayOfWeek(Data)]+', '+FormatDateTime('dd',Data)+' de
'+vMes[StrToInt(FormatDateTime('mm',Data))]+' de '+FormatDateTime('',Data);
end;
falo
[]'s
- Original Message -
From: er83pet04
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 11:15 AM
Subject: [delphi-br] Exibir data do sistema no relatório
Estou querendo exibir no meu relatório a data do sistema. Para fazer
isso coloquei:
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' +
IntToStr(Month) + ' de ' + IntToStr(Year);
Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004.
Como faço para exibir o mês por extenso?
Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004.
Existe alguma função específica para isso?
Obrigada
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte
Brasília
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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] ou [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
RES: [delphi-br] Exibir data do sistema no relatório
Faça o seguinte:
lbData.caption := formatDateTime('Rio de Janeiro, dd de de
) ;
Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]
-Mensagem original-
De: er83pet04 [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 12:15
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Exibir data do sistema no relatório
Estou querendo exibir no meu relatório a data do sistema. Para fazer isso
coloquei:
var
Present: TDateTime;
Year, Month, Day : Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' +
IntToStr(Month) + ' de ' + IntToStr(Year);
Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004.
Como faço para exibir o mês por extenso?
Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004.
Existe alguma função específica para isso?
Obrigada
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
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] ou [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] Importação Planilha Excel
Serve uma dica de como usar uma planilha como banco de dados? Se servir toma aí... www.clubedelphi.net/edicao45/download45.asp - Original Message - From: Vicente Lima [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 25, 2004 3:09 PM Subject: [delphi-br] Importação Planilha Excel Pessoal. Alguém teria um exemplo ou apostila que mostre como importar uma planilha do Excel via Delphi. Vicente Lima [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004 -- 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] ou [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] Algoritmo de Raiz Cúbica
Algum colega da lista sabe como tirar raiz cúbica (algoritmo, usando funções simples do Object Pascal, etc.)? []s Rubem Nascimento da Rocha Programador Pleno Fundação Desembargador Paulo Feitosa http://www.fpf.br - [EMAIL PROTECTED] +55-92-614-9797, ramal 9875 -- 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] ou [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] Delphi + BIBLIOTECAS C
Se alguém conhecer algo a respeito... Ou Tiver uma Luz à mais... [ ]'s - Original Message - From: Rogério [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 18, 2004 4:42 PM Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C Legal... Mas... Num entendí lhufas da primeira parte... Kkk ! Nunca mexí com estes Brothers... (Experts do Delphi) ??? Seria: No Menu a Opção- File- New-Unit ??? Mas como acessar a Lib ?? Reescrever o include??? onde tá escrito... ??? Puts, desculpe mas, Viajei... Valeu ! [ ]'s - Original Message - From: Eduardo Jedliczka [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 25, 2004 4:08 PM Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C bom, se não quiser converter em dll, poderá criar um unit (através dos experts do delphi) para acessar a LIB, mas deste modo você não levaria nenhuma dll mas teria que reescrever somente o include, pois o delphi não teria a prototipação das funções... [s] PS: Só mais uma coisa, no JediProject havia um programa para traduzir includes de C para Delphi com mais de 90% de sucesso, não sei se o mesmo continua disponível, mas acho que não custa procurar... = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: Rubem Rocha To: [EMAIL PROTECTED] Sent: Monday, October 25, 2004 4:18 PM Subject: RES: [delphi-br] Delphi + BIBLIOTECAS C Só tem como se converer essas libs em DLLs, usando o utilitário IMPLIB. Ele vem com o compilador free do Borland C++Builder, que tá disponível no site da Borland. []s -Mensagem original- De: Rogério [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 18 de outubro de 2004 13:16 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Delphi + BIBLIOTECAS C Procurei agora e, ví que possuo além dos arquivos Math.h e Matrix.h, possuo tb. os arquivos Math.lib e Matrix.lib. em C++ Será que dá pra utilizar no Delphi ??? Se tiverem alguma dica... [ ]'s - Original Message - From: Rogério [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 18, 2004 3:09 PM Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C Caramba !!! Caí de costas agora... Então, em resumo... tô Ferrado !!! São todas includes do C++ ! É isto mesmo !!! Não tem nem como fazer uma DLL disto ??? [ ]'s - Original Message - From: Eduardo Jedliczka [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, October 25, 2004 2:53 PM Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C bom, se forem apenas Includes (arquivos .H) terá que reescrevê-los... Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e transformá-los em dcu. = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: Rogério To: [EMAIL PROTECTED] Sent: Monday, October 18, 2004 2:38 PM Subject: [delphi-br] Delphi + BIBLIOTECAS C Alguém sabe como faço para utilizar uma Biblioteca de funções feitas em C++ em Delphi ??? EXEMPLOS: Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi Alguém sabe como fazer ou já fez isto ??? [ ]'s [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- -- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse:
Re: [delphi-br] DBF x Performance (com ADS) Como melhorar ?
Ei... tem como fazer isso no ADSQuery ao inves de table ?
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
- Original Message -
From: Alfeu Marcatto
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 1:23 PM
Subject: Re: [delphi-br] DBF x Performance (com ADS) Como melhorar ?
Marcelo Silva wrote:
Ja me disseram para criar indices.. mas não manjo muito em criar
indices no DBF com ADS e não posso ficar mexendo na base visto que não
foi eu quem criou.
Se alguém tiver algumas de como melhorar a performance em DBF ficarei
grato ...
Veja este exemplo. A velocidade é a mesma no Clipper ou Delphi
Se você já tem a tabela em DBF basta usar o AddIndexDef como abaixo.
// Cria Table
Assembleias := TAdsTable.Create(Self);
DSAssembleias.DataSet := Assembleias;
DBCarta.DataField := 'CARTA';
with Assembleias do
begin
If Assembleias.Active then Assembleias.Close;
TableName := 'Assembleias';
DatabaseName := sTempDirectory;
If Assembleias.Exists then Assembleias.DeleteTable;
TableType := ttAdsNTX;
FieldDefs.Clear;
FieldDefs.Add('CD_CON_APT', ftString, 04, False);
FieldDefs.Add('CD_BLC_APT', ftString, 06, False);
FieldDefs.Add('CD_APARTAM', ftString, 04, False);
FieldDefs.Add('CONDICAO', ftString, 1, False);
FieldDefs.Add('CORREIO', ftBoolean);
FieldDefs.Add('CORSIMPREG', ftString, 1, False);
FieldDefs.Add('NOME', ftString, 35, False);
FieldDefs.Add('AOSCUI', ftString, 35, False);
FieldDefs.Add('ENDER', ftString, 40, False);
FieldDefs.Add('CIDADE', ftString, 20, False);
FieldDefs.Add('ESTADO', ftString, 2, False);
FieldDefs.Add('CEP', ftString, 9, False);
FieldDefs.Add('CARTA', ftMemo, 10, False);
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := 'Assemb_1';
Fields := 'CD_CON_APT + CD_BLC_APT + CD_APARTAM';
Options := [ixCaseInsensitive];
end;
end;
CreateTable;
Open;
end;
Alfeu
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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] ou [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] Re: Identificador de chamadas - BINA
Marcos, Vou te dar uma informação meio imcompleta pois faz um bom tempo que mexi com isso e não lembro dos detalhes. Desculpe A algum tempo atrás eu iniciei (mas não terminei) uma aplicação para reconhecer o número de quem estava ligando. Eu usei um componente para comunicar com o modem (não lembro o nome mas era um desses conhecidos) e comprei de um cara de MG (não lembro do nome do produto nem qual era o site) uma caixa preta (literalmente) que ele desenvolveu para receber a chamada e repassar ao PC/Modem. Não precisava mexer em fiação e nem de resistor. Até que funcionava muito bem e achei mais tranqüilo de usar do que o SPBina. Vou ver se consigo encontrar o projeto e o link para o site do cara (se ainda existir) e passo para a lista. Abraços Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br - Mensagem: 7 Data: Tue, 26 Oct 2004 04:17:57 - De: ms_goncalves [EMAIL PROTECTED] Assunto: Re: Identificador de chamadas - BINA Oi Marcos, Essa parada de identificador de chamada no Brasil eh sempre meio complicada pq o BINA pelo q sei eh uma tecnologia nacional, portanto diferente do q tem lah fora. Pelo q vi na internet pra fazer esse componente funcionar vc vai precisar usar um modem antigo e mexer em alguma coisa na fiacao. Dah uma olhada em: http://www.google.com.br/search? q=cache:7SEDFIBE_UkJ:www.modemclub.com.br/forum/modem56k/arquivo.cgi% 3Faction%3Ddisplay%26num%3D4379+SPBina+delphihl=pt-BRlr=lang_pt []s MSG --- Em [EMAIL PROTECTED], Marcos Jordao [EMAIL PROTECTED] escreveu Alguém ae já conseguiu desenvolver uma aplicação que funcione como Bina? Encontrei um componente SPBina, mas não consegui fazê-lo funcionar Ele indica que a chava não está na posição Bina ou não há RESISTOR presente. O que seria isso? O que eu preciso fazer? Obrigado. Marcos Antonio Campos Jordão -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [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 Fazer UPDATE em uma tabela? dbexpress
Dá pra fazer com o componente TSqlQuery também. Seria mais ou menos assim:
with TSqlQuery do
begin
Sql.Clear;
Sql.Add('Update Tabela Set Campo1 = Parametro1, ..CampoN = ParamentoN);
Sql.Add('Where Condições');
ExecSql;
end;
- Original Message -
From: Jefferson (Yahoo) [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 10:17 AM
Subject: Re: [delphi-br] Como Fazer UPDATE em uma tabela? dbexpress
Tente fazer assim:
with qry do begin
CommandText := 'Update Tabela Set Campo1 = :pCampo1, Campo2 = :pCampo2
Where Chave = :pChave';
ParamByName('pCampo1').AsString := 'Texto';
ParamByName('pCampo2').AsDateTime := Date;
ParamByName('pChave').AsInteger := 1;
ExecSQL;
end;
Sempre que você quiser utilizar um parâmetro, basta colocar : dois pontos
na frente.
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[EMAIL PROTECTED]
- Original Message -
From: delphi6_2005
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 9:08 AM
Subject: [delphi-br] Como Fazer UPDATE em uma tabela? dbexpress
Amigos preciso de uma ajuda, como posso fazer update em tabelas?
pode ser através do componenete query??? eu estou usando command
text da tabela mais estou tendo dificuldades para passar parametros
e formar a string via programação.
Posso usar direto um componente query e passar os paramentos para o
componente, como tentei e não consegui, não sei se é utilizado o
componente para atualizar as tabela.
Agradeço as dicas dos amigos.
Paulo.
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
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] ou [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] StringGrid minha maior dor de cabeça???
O que você quer dizer com DESTACAR? Deixar de uma cor diferente? Se for isso é colocar Options--goRowSelected = True. O que você quer dizer com marcá-las e desmarcá-las? - Original Message - From: delphi6_2005 [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 10:14 AM Subject: [delphi-br] StringGrid minha maior dor de cabeça??? Amigos não sei mais oque fazer, já tentei até criar com componente Stringgrid com a propriedade Multselect do DbGrid, não consegui, tentei a VCL JEDI mais não possui um componente stringgrid com essa propriedade, então continuo a pedir ajuda na lista. Preciso destacar ass linhass selecionadass no meu grid, que possa marcalas e desmarcalas com um duplo click. Parece impossível de fazer. Amigos agradeço as dicas. Paulo -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- 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] ou [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] DUvida - Agenda de Telefone
Siguinte, Vou responder a primeira duvida No calendario , vc pega o DD/MM/ e grava em uma tabela no texto , vc coloka na msm tabela e pra procura pravelmente , vc vai querer .. quando o cara clikar no calendario entao pois eh , quando ele clikar , vc pega o DD/MM/ e procura na tabela , se tiver registro vc coloka , caso contrario inicia um novo , caso a duvida ainda persista , pois axo q nao expliquei direito , soh manda mensagem ... q eu faco um exemplo pra ti ... 2° duvida --- kra como assim uma folha folha pra impressao?? []'s Nicolas Tarzia % NicK % Dim Nick as Perfect Person [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] entre outros [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] ou [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] StringGrid minha maior dor de cabeça???
ele quer destacar as celulas pra dizer q aquelas
estao selecionadas... ele nao quer usar a
propriedade rowselection multiselection pq ele
prefere fazer como eu deixar as setas para o
cliente passar a tela para esquerda e direita...
--- Alisson [EMAIL PROTECTED] escreveu:
-
O que você quer dizer com DESTACAR? Deixar de uma
cor diferente? Se for isso
é colocar Options--goRowSelected = True. O que
você quer dizer com
marcá-las e desmarcá-las?
- Original Message -
From: delphi6_2005 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 10:14 AM
Subject: [delphi-br] StringGrid minha maior dor
de cabeça???
Amigos não sei mais oque fazer, já tentei até
criar com componente
Stringgrid com a propriedade Multselect do
DbGrid, não consegui,
tentei a VCL JEDI mais não possui um componente
stringgrid com essa
propriedade, então continuo a pedir ajuda na
lista.
Preciso destacar ass linhass selecionadass no meu
grid, que possa
marcalas e desmarcalas com um duplo click.
Parece impossível de fazer.
Amigos agradeço as dicas.
Paulo
--
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] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web,
acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail
para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está
sujeito aos Termos do Serviço
do Yahoo!.
--
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] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
function
SearchComboBox() { if
(document.form_combo.keyword.value.length==0){
alert(Por favor, digite algo.); return false;
}else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12asjn51d/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1098895899/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;}
[input]
[input][input]
-
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 Termos do Serviço do Yahoo!.
=
Leandro...
[ Mutuka ]
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [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] Bem OFF --- Linux X Windows (em NTFS)
Pode gravar NTFS sim !!! qual distribuição Linux vc usa ? Pode nada !!! Dener Marcelo Silva escreveu: A um tempo eu instalei Linux e Windows na mesma máquina para ver como ficava... funcionava na boa ... aparecia o lilo para eu escolher o sistema que queria iniciar... hoje só tenho o windows na máquina isso porque não consegui instalar o Linux e Windows XP por que o Lilo não conseguiu gravar em particão NTFS. Alguém aqui tem os dois na mesma máquina com Particão NTFS ? * Quando instalei da primeira vez eu dividi o HD e deixei metade FAT32 e a outra no sistema do Linux Gostaria de instalar os dois porque tenho que fazer algumas coisas em Kylix... por isso postei aki. Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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] ou [EMAIL PROTECTED] *Yahoo! Grupos, um serviço oferecido por:* http://br.rd.yahoo.com/SIG=12aq8pfpl/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1097321454/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12aq8pfpl/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1097321454/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/ *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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [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] Quick Report
Pessoal, estou com dificuldades, criei um relatório mas acontece que esta
faltando alguma coisa, quando coloco pra gerar o relatorio simplesmente ele
não abra, ou esta ficando por traz do principal, mas não consigo visualizar.
procedure TFrmCadBem.Button3ImprimirClick(Sender: TObject);
var
BemInicial, BemFinal:string;
begin
BemInicial:= InputBox('Código Inicial Para Impressão', 'Entre com o código
inicial para imprimir','');
BemFinal := InputBox('Código Final Para Impressão', 'Entre com o código
final para imprimir','');
with DTMod.QryConsulta do begin
SQL.Clear;
SQL.Add('Select * From CadBemPatrimonial');
SQL.Add('Where codigo =' + BemInicial);
SQL.Add('And codigo =' + BemFinal);
DTMod.QryConsulta.Open;
end;
If FrmRelCapaLote = nil Then
Application.CreateForm(TFrmRelCapaLote, FrmRelCapaLote);
FrmRelCapaLote.QuickRep1RelCapaLote.Preview;
end;
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739
[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] ou [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] off topic: teste - não abrir
teste [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] ou [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] Produção!!!!
eu estou desenvolvendo um módulo de produção, esse módulo esta integrado com o módulo de vendas que, quando é efetuado o sistema verifica no meu estoque e se esse produto não tiver disponível, gera uma ordem de produção. Depois de gerada a ordem de produção, vc deve fazer a verificação das necessidades de produção, que é a quantidade de componentes necessárias para se produzir o produto vendido, se a quantidade de componentes estiver disponível, inicia-se a produção, caso contrário, gera-se uma ordem de compra... e assim vai...um longo trecho... espero ter ajudado... Lindolfo Gomes da Silva Junior Syscorp Tecnologia Rua Souza Naves, 9 - 3º andar - Sl. 308 Fone : (0xx43) 3321-9998 / 3027-4575 www.syscorpweb.com.br [EMAIL PROTECTED] - Original Message - From: Ronaldo Leandro [EMAIL PROTECTED] To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 3:04 PM Subject: [delphi-br] Produção Boa Tarde... Eu tenho que desenvolver um Modulo de Produção generico, alguem tem ideias de como funciona uma produção, ou conhece algum sistema aonde eu possa estar dando uma olhada para conhecer melhor. Obrigado Pela atenção. Ronaldo Leandro -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [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] SQL agrupar por mes
tente no lugar de , pois a liguagem interna do accesses é baseada no inglês WHERE DatePart(, DataPedido) = 2004 -- 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] ou [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] StringGrid minha maior dor de cabeça???
Alisson, vc esta utilizando uma dbgrid?? se for eu utilizo e faço a seleção utilizando a tecla CTRL.. se for oque vc esta precisando, me mande um e-mail que te passo. Lindolfo Gomes da Silva Junior Syscorp Tecnologia Rua Souza Naves, 9 - 3º andar - Sl. 308 Fone : (0xx43) 3321-9998 / 3027-4575 www.syscorpweb.com.br [EMAIL PROTECTED] - Original Message - From: Alisson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 1:51 PM Subject: Re: [delphi-br] StringGrid minha maior dor de cabeça??? O que você quer dizer com DESTACAR? Deixar de uma cor diferente? Se for isso é colocar Options--goRowSelected = True. O que você quer dizer com marcá-las e desmarcá-las? - Original Message - From: delphi6_2005 [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 10:14 AM Subject: [delphi-br] StringGrid minha maior dor de cabeça??? Amigos não sei mais oque fazer, já tentei até criar com componente Stringgrid com a propriedade Multselect do DbGrid, não consegui, tentei a VCL JEDI mais não possui um componente stringgrid com essa propriedade, então continuo a pedir ajuda na lista. Preciso destacar ass linhass selecionadass no meu grid, que possa marcalas e desmarcalas com um duplo click. Parece impossível de fazer. Amigos agradeço as dicas. Paulo -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [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] Extrair a parte inteira de um double
Olá a todos!! Que funcão devo usar? Preciso de uma extrair somente a parte inteira de um double. ex: 10,78493, deve retornar apenas 10. Obrigado, []s Juarez -- 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] ou [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] Fwd: Suíte UIB, Recomendam?
Date: Mon, 25 Oct 2004 14:59:29 -0300 To: [EMAIL PROTECTED] From: Filipe Belchior [EMAIL PROTECTED] Subject: Suíte UIB, Recomendam? . Olá pessoal, Gosto de usar componentes no-dataAware, e por enquanto, conheço duas. Conhecia a FBLib, agora achei esta suíte UIB - Unified Interbase. Esta suíte está incluída no JEDI-VCL, será q é boa assim, mesmo? Agradeço pelas opiniões! . -- 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] ou [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] Gerenciador de Tarefas do Windows 98
ALGUEM SABE ME INFORMAR EXEMPLOS DE CODIGOS DE COMO IMPEDIR QUE O USUÁRIO INVOQUE O GERENCIADOR DE TAREFAS DO WINDOWS PARA FINALIZAR O MEU APLICATIVO? []S -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED] wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
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 Termos do Serviço do
Yahoo!.
--
MSN: [EMAIL PROTECTED]
--
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] ou [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
RES: [delphi-br] Controle de Acesso
www.superdownloads.com.br lá tem já é só pesquisar!! Abraços, Fabiano -Mensagem original- De: Cesar Montezuma [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 25 de outubro de 2004 09:39 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Controle de Acesso Bom dia a todos, Alguem conhece algum software de controle de acesso para lanhouse, de preferência free - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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
RES: [delphi-br] Importação Planilha Excel
Se vc usar um componente ADO poderá trabalhar com a tabela como se fosse um banco de dados. Se precisar de mais detalhes privete-me, mas reportei esse assunto na lista. Abraços, Fabiano -Mensagem original- De: Vicente Lima [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 25 de outubro de 2004 15:09 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Importação Planilha Excel Pessoal. Alguém teria um exemplo ou apostila que mostre como importar uma planilha do Excel via Delphi. Vicente Lima [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Envio de email pelo OutLook
Se for no Outloook Express eu tenho uma rotina legal para enviar anexos !
- Original Message -
From: Joubert Rinaldi
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:53 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED] wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
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 Termos do Serviço do
Yahoo!.
--
MSN: [EMAIL PROTECTED]
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Re: [delphi-br] Re: Envio de email pelo OutLook
Olá,
É possível disponibilizar para o grupo ?
Alexandre
- Original Message -
From: MOITA [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 5:12 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Se for no Outloook Express eu tenho uma rotina legal para enviar anexos !
- Original Message -
From: Joubert Rinaldi
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:53 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED]
wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
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 Termos do Serviço
do
Yahoo!.
--
MSN: [EMAIL PROTECTED]
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
[delphi-br] [OFF-TOPIC]Profissões
Olá pessoal blz!? Desculpe pelo off! Seguinte gostaria de saber se alguém possui uma listagem (em banco de dados, txt...) com vários tipos de profissões? caso possua pode mandar em pvt para o meu e-mail ou mande o link onde eu possa conseguir. [EMAIL PROTECTED] Desde já agradeço a toda e qualquer ajuda. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [OFF-TOPIC]Profissões
Aceitaria tbm receber []'s .Rafael Stoever .Desenvolvimento - Original Message - From: Sil-jo Evsan [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 4:36 PM Subject: [delphi-br] [OFF-TOPIC]Profissões Olá pessoal blz!? Desculpe pelo off! Seguinte gostaria de saber se alguém possui uma listagem (em banco de dados, txt...) com vários tipos de profissões? caso possua pode mandar em pvt para o meu e-mail ou mande o link onde eu possa conseguir. [EMAIL PROTECTED] Desde já agradeço a toda e qualquer ajuda. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [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
RES: [delphi-br] Re: Envio de email pelo OutLook
já foi postado na lista uma forma de criar objetos ole para o outlook, o
outlook express tem um exemplo no DTDelphi 2.6.
Abraços,
Fabiano
-Mensagem original-
De: Joubert Rinaldi [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 15:53
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED]
wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to memoHtml.Lines.Count - 1 do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);
CloseFile(Arq_mail);
{$I+}
if lAbrir Then
ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);
Desde já agradeço
Mariana
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
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 Termos do Serviço
do
Yahoo!.
--
MSN: [EMAIL PROTECTED]
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
RES: [delphi-br] Pirataria
Como o Marcelo mesmo já disse o que ele pega é o número da partição o número de série do hd é um código armazenado na memória ROM do hd, além do mais é só um número a passibilidade de criar-se nímeros que não se repetem é imensa vc pode usar a hora da instalação, converte-la em segundos e usar o número misturado com qualquer das minlhares de opções existentes, mas é só um número. Abraços, Fabiano -Mensagem original- De: William Thiago [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 25 de outubro de 2004 13:30 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] Pirataria O serial do HD não é uma idéia totalmente feliz... No caso de máquinas clonadas (usando um clonador de hd qualquer), muito utilizada em cpds com padrão de configurações, o serial de todas as máquinas são iguais. :) William -Mensagem original- De: Fabiano [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 15 de outubro de 1998 02:51 Para: [EMAIL PROTECTED] Assunto: RES: [delphi-br] Pirataria Veja bem eu uso o número do bios asociado com o numero do hd para gerar um código de criptografia, isso me permite que o sistema só funcione no micro que eu estalo. principalmente pois vendo um sistema muito usado em bibliotecas se não colocar trava em uma semana terei que fazer uma varedura no pais todo atrás de peiratas. essa forma a criptografia é diferente para cada micro, inclusive a base de dados tbm é criptografada :-). Agora o único sistema que posso dizer que é mais difício de quebrar é o plug na paralela para fazer outro plug normalente é mais barato pagar pelo sistema. Agora posso te garantir que meu sistema funciona :-). Abraços Fabiano -Mensagem original- De: Williams Diaz [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 13 de outubro de 2004 22:16 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Pirataria Eu uso a mesma coisa que o Mauricio, só que o meu arquivo não é tão escondido assim, é um .ini, com uma certa criptografia é claro. Mas só travo se for aluguel, se for venda não. williams *--- Williams Díaz [EMAIL PROTECTED] http://www.interban.com.br - Original Message - From: Mauricio Almeida Filho [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 12, 2004 11:29 PM Subject: Re: [delphi-br] Pirataria Acho q este negócio de número de HD, BIOS, registro do windows, etc. Não funciona. Eu há muito tempo (Desde o DOS em dBase III/Clipper) uso uma solução que para mim fuciona d+. Eu crio um arquivo txt renomeado para SYS (o windows o esconde naturalmente) e gravo informações como data de validade, qtd de utilização, nome do cliente criptografado, etc. Desta forma se o sistema for pirateado, o novo usuário até usa, mas com o nome registrado para o primeiro cliente. Não vejo nada demais quando encontro meu sistema sendo usado em algum cliente q pirateou. É prova q o sistema é bom, foi bem construído e é funcional, mas (é claro), uso os dispositivos legais para tentar (sempre muito amigavelmente) transformar este pirata num contrato. Esta forma de trabalho com datas de validade, qtd de utilização tem um determinado código (ao gerar o arquivo .SYS) que posso fazer para criar um arquivo definitivo, para q o cliente não fique amarrado a mim tb eternamente. Desta forma se o cliente ainda me deve alguma coisa, eu coloco o sistema para quebrar e isso funciona como uma lembrança da dependencia dele, caso ele haja de maneira intransigente e diga q não vai pagar eu simplesmente não libero o sistema. Já reconquistei vários clientes assim. Tb já dei várias lições em clientes espertos. Até hj muito poucos clientes descobriram qual o arquivo, mas não conseguem fazer nada pois o único q sabe gera-lo sou eu mesmo. At 00:12 11/10/2004, you wrote: Esse eu discordo, peguei um sistema na net com trava o cara usa um arquivo dll na realidade txt com extensão dll e guardava uma informação nele e no registro. descobri como quebrar a proteção em 15 minutos (obs. não uso o sistema peguei-o apenas para testar a proteção). Faça o seguinte use o número do hd e o número do registro para gerar um código. Você cria um sistema para gerar um contracódigo assim: * o algorítimo com os dois números gera o nº 1234 * o contra código gera um número que seu sistema vai reconhecer Assim vc impede que o sistema seja transportado. Para isso é preciso que o usuário ligue ou durante o processo de instalação o instalador que deve ser da empresa resolva a questão. Não é 100% mas para quebra-lo, precisa ser pelo menos programador, entender o algoritmo que dificulta se a pessoa não tem acesso ao código e o contra código. eu usei quatro dígitos mas é
Re: [delphi-br] Re: Envio de email pelo OutLook
Claro que dá, segue abaixo:
COMO CHAMAR A FUNCTION:
EnviarEMail('De ', 'Para', 'Enviar Arquivo', 'Segue em anexo o arquivo...', seu
arquivo, True)
A FUNCTION:
function EnviarEMail(const De, Para, Assunto, Texto, Arquivo: string; Confirma:
Boolean): Integer;
var
Msg: TMapiMessage;
lpSender, lpRecepient: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
Flags: Cardinal;
begin
// cria propriedades da mensagem
FillChar(Msg, SizeOf(Msg), 0);
with Msg do begin
if (Assunto '') then lpszSubject := PChar(Assunto);
if (Texto '') then lpszNoteText := PChar(Texto);
// remetente
if (De '') then begin
lpSender.ulRecipClass := MAPI_ORIG;
lpSender.lpszName := PChar(De);
lpSender.lpszAddress := PChar(De);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := @lpSender;
end;
// destinatário
if (Para '') then begin
lpRecepient.ulRecipClass := MAPI_TO;
lpRecepient.lpszName := PChar(Para);
lpRecepient.lpszAddress := PChar(Para);
lpRecepient.ulReserved := 0;
lpRecepient.ulEIDSize := 0;
lpRecepient.lpEntryID := nil;
nRecipCount := 1;
lpRecips := @lpRecepient;
end
else
lpRecips := nil;
// arquivo anexo
if (Arquivo = '') then begin
nFileCount := 0;
lpFiles := nil;
end
else begin
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($);
FileAttach.lpszPathName := PChar(Arquivo);
nFileCount := 1;
lpFiles := @FileAttach;
end;
end;
// carrega dll e o método para envio do email
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else begin
try
if Confirma then
Flags := MAPI_DIALOG or MAPI_LOGON_UI
else
Flags := 0;
@SM := GetProcAddress(MAPIModule, 'MAPISendMail');
if @SM nil then
Result := SM(0, Application.Handle, Msg, Flags, 0)
else
Result := 1;
finally
FreeLibrary(MAPIModule);
end;
end;
end;
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- Original Message -
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:28 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Olá,
É possível disponibilizar para o grupo ?
Alexandre
- Original Message -
From: MOITA [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 5:12 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Se for no Outloook Express eu tenho uma rotina legal para enviar anexos !
- Original Message -
From: Joubert Rinaldi
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:53 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -, ms_goncalves [EMAIL PROTECTED]
wrote:
Oi Mariana,
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
foi desenvolvido por outro programador tudo bem ainda vai se
tiver bem documentado... mas, com a algum tempo aih eh mortal! :)
como meu gerente quer.
Sugiro vc refazer a funcao usando um daqueles componentes q ligam
o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
componente TNMSMTP (paleta FastNet).
[]s
MSG
--- Em [EMAIL PROTECTED], Mariana [EMAIL PROTECTED] escreveu
Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer
isso
no código que já existe ou se tenho que refazer este código.
Segue o código:
AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
Re: [delphi-br] Re: Envio de email pelo OutLook
Joubert,
Uso esta função com de maneira satisfatoria no outlook express. Veja se te
serve.
Inclua a unit MAPI no uses do modulo
==
Function SendMail( pTo,
pCC,
pCCo,
pAssunto,
pTexto: pChar;
aFiles: Array Of PChar ) : String;
var
iRetorno : cardinal;
sTo, sCC, sCCo, sAux: String;
MapiMessage: TMapiMessage;
pRecipiente: PMapiRecipDesc ;
aRecipiente :array of TMapiRecipDesc ;
aArquivoEnvio: array of TMapiFileDesc ;
i, iRecip, iFiles:integer;
Const
ERRO_MAPI_AMBIGUOUS_RECIPIENT= 'O destinatário não pode ser resolvido!!';
ERRO_MAPI_FAILURE= 'Ocorreram erros não
especificados!'+#13+'Verifique se o Outlook Express é o sistema de mensagens
padrão.';
ERRO_MAPI_INSUFFICIENT_MEMORY= 'Memória insuficiente!!';
ERRO_MAPI_NOT_SUPPORTED = 'Operação não suportada pelo sistema de
mensagens!';
begin
iRecip := 0;
// Define destinatários TO
sTo:= '';
If Assigned( pTo ) Then
Begin
sAux := pTo;
If sAux[Length(sAux)] ';' Then
sAux := sAux + ';';
While Pos( ';', sAux ) 0 Do
Begin
Inc( iRecip );
sTo := sTo + Copy( sAux, 1, Pos( ';', sAux ) );
Delete( sAux, 1, Pos( ';', sAux ) );
End;
End;
// Define destinatários CC
sCC:= '';
If Assigned( pCC ) Then
Begin
sAux := pCC;
If sAux[Length(sAux)] ';' Then
sAux := sAux + ';';
While Pos( ';', sAux ) 0 Do
Begin
Inc( iRecip );
sCC := sCC + Copy( sAux, 1, Pos( ';', sAux ) );
Delete( sAux, 1, Pos( ';', sAux ) );
End;
End;
// Define destinatários CCo
sCCo:= '';
If Assigned( pCCo ) Then
Begin
sAux := pCCo;
If sAux[Length(sAux)] ';' Then
sAux := sAux + ';';
While Pos( ';', sAux ) 0 Do
Begin
Inc( iRecip );
sCCo := sCCo + Copy( sAux, 1, Pos( ';', sAux ) );
Delete( sAux, 1, Pos( ';', sAux ) );
End;
End;
// cria o tamanho do array de recipiente
SetLength(aRecipiente, iRecip);
I := 0;
// Define recipientes TO
While sTO '' Do
Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy(
sTo, 1, Pos(';', sTo) - 1 ) ), 0, 0, pRecipiente );
// VERIFICA SE NÃO OCORREU ERROS
If (iRetorno SUCCESS_SUCCESS) Then
begin
Case iRetorno Of
MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Exit;
end;
aRecipiente[i].ulReserved := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_TO;
Delete( sTO, 1, Pos( ';', sTO ) );
Inc( I );
End;
// Define recipientes CC
While sCC '' Do
Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCC, 1, Pos(';', sCC) -
1 ) ), 0, 0, pRecipiente );
// VERIFICA SE NÃO OCORREU ERROS
If (iRetorno SUCCESS_SUCCESS) Then
begin
Case iRetorno Of
MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Exit;
end;
aRecipiente[i].ulReserved := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_CC;
Delete( sCC, 1, Pos( ';', sCC ) );
Inc( I );
End;
// Define recipientes BCC
While sCCo '' Do
Begin
iRetorno := MAPIResolveName( 0, 0, PChar( Copy( sCCo, 1, Pos(';',
sCCo) - 1 ) ), 0, 0, pRecipiente );
// VERIFICA SE NÃO OCORREU ERROS
If (iRetorno SUCCESS_SUCCESS) Then
begin
Case iRetorno Of
MAPI_E_AMBIGUOUS_RECIPIENT: Result:= ERRO_MAPI_AMBIGUOUS_RECIPIENT;
MAPI_E_FAILURE: Result:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Exit;
end;
Re: RES: [delphi-br] Algoritmo de Raiz Cúbic a?=
vc pode usar esta função para elevar um número x a uma potência n qualquer, basta re-escrever a função assim: function RaizCubica(Base, Expoente : Double) : Double; Begin result := exp(Expoente * ln( Base )); End; no exemplo que descrevi para vc apenas considerei a base = a 1/3, pois x ^ (1/3) é igual à raiz cubica de X. --- Rubem Rocha [EMAIL PROTECTED] escreveu: - Valeu, colega. Obrigado. []s -Mensagem original- De: GreG [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 26 de outubro de 2004 14:47 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Algoritmo de Raiz Cúbica tente : function RaizCubica(X : Double) : Double; Begin result := exp(1/3 * ln( X )); End; --- Rubem Rocha [EMAIL PROTECTED] escreveu: - Algum colega da lista sabe como tirar raiz cúbica (algoritmo, usando funções simples do Object Pascal, etc.)? []s Rubem Nascimento da Rocha Programador Pleno Fundação Desembargador Paulo Feitosa http://www.fpf.br - [EMAIL PROTECTED] +55-92-614-9797, ramal 9875 -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Satilde;o Paulo Rio de Janeiro CuritibaPorto AlegreBelo Horizonte Brasiacute;lia - 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 Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - 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 Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [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] HELP - Problemas com consulta!
Boa tarde... estou com problemas na minha consulta! É o seguinte:
Tenho 3 tabelas:
- Item (preciso da quantidade de medicamentos)
- Pedido (preciso saber quais itens referem-se ao pedido)
- Medicamento (preciso do nome do medicamento)
Queria listar em um DBGrid os medicamentos contidos nos itens de um
pedido. Mas não só o código e sim o nome.
Então meu DBGrid teria: Nome Medicamento e Quantidade.
Fiz esta procedure, mas dá erro de falta de parâmetros, o que será
que está errado? Estou usando banco access e conexão ADO.
procedure TFormPedido.BuscaItem;
begin
with DM.QrItem do
begin
close;
sql.Clear;
sql.add('SELECT item_quantidade, med_nome');
sql.Add('FROM item,medicamento');
sql.Add(('WHERE(item.item_med_numero=:nummed)AND
(item.item_ped_num =:numped))');
Parameters.ParamByName('numped').Value := StrToFloat
(EditPedNum.Text);{Edit com o número do pedido}
Parameters.ParamByName('nummed').Value := StrToFloat
(EditPedMedNum.Text); {edit com o número do medicamento}
Open;
end;
end;
Bom, não sei se consegui me expressar direito desculpe se está
muito confuso...
Obrigado
[]'s
Erika
--
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] ou [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 Fazer UPDATE em uma tabela? dbexpress
Paulo, usa o clientdataset... Insert, Post, Cancel são operações normais... Só não esqueça do comando ClientDataSet.ApplyUpdates(0); para enviar ao servidor as alterações nos registros (até então vc estava trabalhando com os dados na memória). SDS --- delphi6_2005 [EMAIL PROTECTED] escreveu: Amigos preciso de uma ajuda, como posso fazer update em tabelas? pode ser através do componenete query??? eu estou usando command text da tabela mais estou tendo dificuldades para passar parametros e formar a string via programação. Posso usar direto um componente query e passar os paramentos para o componente, como tentei e não consegui, não sei se é utilizado o componente para atualizar as tabela. Agradeço as dicas dos amigos. Paulo. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [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] DICA: MessageBox() com Timer
http://delphi.about.com/od/adptips2004/a/bltip1004_5.htm?nl=1 []s Rubem Nascimento da Rocha Programador Pleno Fundação Desembargador Paulo Feitosa http://www.fpf.br - [EMAIL PROTECTED] +55-92-614-9797, ramal 9875 -- 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] ou [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] RES: Identificador de chamadas - BINA - Achei o site.
Marcos, O site do bina que falei é http://www.beena.com.br/ No link Produtos você encontra o B050, que foi o que comprei. No link Downloads tem coisas interessantes e se quiser saber um pouco mais sobre o conceito da coisa vá no link Perguntas Freq. O componente que usei, se não me engano, se chama CommPort. Mas como o B050 liga na porta serial acho que qualquer um que trate esse tipo de porta serve. Abraços Luiz Henrique Severo d Oliveira RPG Soluções www.rpgsolucoes.com.br Mensagem: 2 Data: Tue, 26 Oct 2004 13:11:47 -0300 De: Luiz Henrique Severo d Oliveira [EMAIL PROTECTED] Assunto: Re: Identificador de chamadas - BINA Marcos, Vou te dar uma informação meio imcompleta pois faz um bom tempo que mexi com isso e não lembro dos detalhes. Desculpe A algum tempo atrás eu iniciei (mas não terminei) uma aplicação para reconhecer o número de quem estava ligando. Eu usei um componente para comunicar com o modem (não lembro o nome mas era um desses conhecidos) e comprei de um cara de MG (não lembro do nome do produto nem qual era o site) uma caixa preta (literalmente) que ele desenvolveu para receber a chamada e repassar ao PC/Modem. Não precisava mexer em fiação e nem de resistor. Até que funcionava muito bem e achei mais tranqüilo de usar do que o SPBina. Vou ver se consigo encontrar o projeto e o link para o site do cara (se ainda existir) e passo para a lista. Abraços Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br - Mensagem: 7 Data: Tue, 26 Oct 2004 04:17:57 - De: ms_goncalves [EMAIL PROTECTED] Assunto: Re: Identificador de chamadas - BINA Oi Marcos, Essa parada de identificador de chamada no Brasil eh sempre meio complicada pq o BINA pelo q sei eh uma tecnologia nacional, portanto diferente do q tem lah fora. Pelo q vi na internet pra fazer esse componente funcionar vc vai precisar usar um modem antigo e mexer em alguma coisa na fiacao. Dah uma olhada em: http://www.google.com.br/search? q=cache:7SEDFIBE_UkJ:www.modemclub.com.br/forum/modem56k/arquivo.cgi% 3Faction%3Ddisplay%26num%3D4379+SPBina+delphihl=pt-BRlr=lang_pt []s MSG --- Em [EMAIL PROTECTED], Marcos Jordao [EMAIL PROTECTED] escreveu Alguém ae já conseguiu desenvolver uma aplicação que funcione como Bina? Encontrei um componente SPBina, mas não consegui fazê-lo funcionar Ele indica que a chava não está na posição Bina ou não há RESISTOR presente. O que seria isso? O que eu preciso fazer? Obrigado. Marcos Antonio Campos Jordão -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [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] Quick Report
Falae Charles,
experimente trocar o codigo
Application.CreateForm(TFrmRelCapaLote, FrmRelCapaLote);
FrmRelCapaLote.QuickRep1RelCapaLote.Preview;
por este
try
application.createform(TFrmRelCapaLote, FrmRelCapaLote)
FrmRelCapaLote.Showmodal
finally
FreeAndNil(FrmRelCapaLote)
end
Abracos!
Charlles Ferdinand [EMAIL PROTECTED] wrote:
Pessoal, estou com dificuldades, criei um relatório mas acontece que esta
faltando alguma coisa, quando coloco pra gerar o relatorio simplesmente ele
não abra, ou esta ficando por traz do principal, mas não consigo visualizar.
procedure TFrmCadBem.Button3ImprimirClick(Sender: TObject);
var
BemInicial, BemFinal:string;
begin
BemInicial:= InputBox('Código Inicial Para Impressão', 'Entre com o código
inicial para imprimir','');
BemFinal := InputBox('Código Final Para Impressão', 'Entre com o código
final para imprimir','');
with DTMod.QryConsulta do begin
SQL.Clear;
SQL.Add('Select * From CadBemPatrimonial');
SQL.Add('Where codigo =' + BemInicial);
SQL.Add('And codigo =' + BemFinal);
DTMod.QryConsulta.Open;
end;
If FrmRelCapaLote = nil Then
Application.CreateForm(TFrmRelCapaLote, FrmRelCapaLote);
FrmRelCapaLote.QuickRep1RelCapaLote.Preview;
end;
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739
[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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto
Alegre Belo Horizonte Brasília
-
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 Termos do Serviço do Yahoo!.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] ou [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] StringGrid minha maior dor de cabeça???
evento dblclick
Options-- goRowSelected = true
Alisson [EMAIL PROTECTED] wrote:
O que você quer dizer com DESTACAR? Deixar de uma cor diferente? Se for isso
é colocar Options--goRowSelected = True. O que você quer dizer com
marcá-las e desmarcá-las?
- Original Message -
From: delphi6_2005 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 10:14 AM
Subject: [delphi-br] StringGrid minha maior dor de cabeça???
Amigos não sei mais oque fazer, já tentei até criar com componente
Stringgrid com a propriedade Multselect do DbGrid, não consegui,
tentei a VCL JEDI mais não possui um componente stringgrid com essa
propriedade, então continuo a pedir ajuda na lista.
Preciso destacar ass linhass selecionadass no meu grid, que possa
marcalas e desmarcalas com um duplo click.
Parece impossível de fazer.
Amigos agradeço as dicas.
Paulo
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.);
return false; }else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12asjn51d/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1098895899/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;;
} return true;} [input] [input] [input]
-
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 Termos do Serviço do Yahoo!.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] ou [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] data no paradox
Erassim...sei que a pergunta eh bmm básica..mas nao tou conseguindo de forma alguma... Como insiro uma data atual(data do sistema) num banco paradox,(onde data tá como tipo date?) tentei com date() , now() e nada (dá um erro de handle exeption ao executar) passando uma string( no formato dd/mm/ ou mm/dd/ ...) como variavel dentro do insert(que monto no codigo) também nao pega e fazendo o mesmo insert into table blablabal..values.. '10/10/2004' lá no sql explorer pega direitinho!! na aplicaçao nao pegaa que diaxu eh isso!! nas configuraçoes do pc, ja configurei pra data do sistema aparecer como dd/mm/ ... uso delphi7 e paradox. obrigada, [Eri -- /** * @Name:Erica Kroon Moscoso * @Description: autidata, web Developer * @Return:[EMAIL PROTECTED] , [EMAIL PROTECTED] * @Exceptions: InvalidFriendException, SpamException */ -- 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] ou [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] data no paradox
tenta por isso no evento OnNewRecord ou no BeforePost da table: Tabela.CampoData.value := Date; []'s - Original Message - From: Erica Kroon [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 8:55 PM Subject: [delphi-br] data no paradox Erassim...sei que a pergunta eh bmm básica..mas nao tou conseguindo de forma alguma... Como insiro uma data atual(data do sistema) num banco paradox,(onde data tá como tipo date?) tentei com date() , now() e nada (dá um erro de handle exeption ao executar) passando uma string( no formato dd/mm/ ou mm/dd/ ...) como variavel dentro do insert(que monto no codigo) também nao pega e fazendo o mesmo insert into table blablabal..values.. '10/10/2004' lá no sql explorer pega direitinho!! na aplicaçao nao pegaa que diaxu eh isso!! nas configuraçoes do pc, ja configurei pra data do sistema aparecer como dd/mm/ ... uso delphi7 e paradox. obrigada, [Eri -- /** * @Name:Erica Kroon Moscoso * @Description: autidata, web Developer * @Return:[EMAIL PROTECTED] , [EMAIL PROTECTED] * @Exceptions: InvalidFriendException, SpamException */ -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.779 / Virus Database: 526 - Release Date: 20/10/2004 -- 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] ou [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
