[delphi-br] Limpeza de Tabelas Firebird
Lista Na empresa onde trabalho existe um sistema, neste sistema tem um modulo de limpeza de arquivos, neste modulo você faz um filtro e manda limpar, ele teoricamente limpa o banco. Quando vou ver o tamanho do banco não mudou em nada, mas quando faço um backup e restore ele cai para a metado do tamanho. Alguem sabe se é um comando especial ou isso é normal ?? Se eu utilizar o delete é isso que vai acontecer ? Wesley [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] JvRichEdit
LIsta Alguem sabe como alinhar o texto selecionado em um JvRichEdit.. ?? Eu Procurei no google mas não consegui achar vlw... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ler Tag do Menu e SubMenus....
vc poderi fazer assim... var x,y:integer; for x:= 0 to _mnuPrincipal.items.Count - 1 do for y:= 0 to mnuPrincipal.item[x].count -1 do ShowMessage ( inttostr( mnuPrincipal.item[x].items[y].tag ) ) Acho que isso resolve não tenho certeza.. rsrs... Wesley From: Fabio Lima Sent: Monday, January 26, 2009 12:14 PM To: delphi-br@yahoogrupos.com.br Subject: RES: RES: [delphi-br] Ler Tag do Menu e SubMenus Amigo aconselho você trabalhar com recursividade, pois o menu tem uma coleção de submenus e os submenus possui uma coleção de submenus e assim por diante. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br http://www.grupocoan.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de vin_monteiro2003 Enviada em: segunda-feira, 26 de janeiro de 2009 09:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Ler Tag do Menu e SubMenus Olá José Henrique... Obrigado por ter respondido... Mas é esse laço que eu não consegui fazer no final de semana Tem alguma dica de qual propriedade devo trabalhar ? Obrigado --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , José Henrique (Zote) z...@... escreveu Pra cada menu, você deverá listar os submenus dele. -- José Henrique (Zote) Analista de TI Bludata Software De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi- b...@yahoogrupos.com.br mailto:br%40yahoogrupos.com.br ] Em nome de vin_monteiro2003 Enviada em: segunda-feira, 26 de janeiro de 2009 09:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Ler Tag do Menu e SubMenus Delphi 7 Bom dia, Estou pensando em colocar o controle da minha aplicação no tag do menu... Só que não consigo fazer a leitura dos tags que estão nos submenus... for i:= 0 to _mnuPrincipal.items.Count - 1 do // ele só me traz a quantidade de items do menu raiz Como poderia ler também os tags que estão nos submenus, sabendo que estes submenus podem também ter submenus... exemplo Arquivo tag - 1 Cadastros tag -4 Clientes -8 Clientes - 9 Autorizados - 10 Obrigado por toda a ajuda... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3800 (20090126) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: BuscaCEP (104MB de dados)
Eu Uso a busca de CEp pela internet.. segue a função...Wesley
function EnderecoCEP ( CEP : String ; Rua , Bairro , Cidade , UF : TEditNovo )
: Boolean ;
var
IDHTTP_CEP : TIdHTTP ;
DADOS : TStringList ;
URL : String ;
begin
{ Cria as Variaveis }
DADOS := TStringList.Create ;
IDHTTP_CEP := TIdHTTP.Create( nil );
URL := 'http://republicavirtual.com.br/web_cep.php?cep=' + CEP +
'formato=query_string' ;
{ Texto Recebido da INternet }
try
DADOS.Text := StringReplace( IDHTTP_CEP.URL.URLDecode(
IDHTTP_CEP.Get( URL ) ) , '' , #13#10 , [rfReplaceAll] );
{ verifica se achou alguma coisa }
if DADOS.Values['RESULTADO'] = '0' then
Result := False
else
begin
Rua.Text := DADOS.Values['TIPO_LOGRADOURO'] + ' ' +
DADOS.Values['LOGRADOURO'];
Bairro.Text := DADOS.Values['BAIRRO'];
Cidade.Text := DADOS.Values['CIDADE'];
UF.Text := DADOS.Values['UF'];
if Trim ( DADOS.Values['UF'] ) '' then
Result:= True
else
Result:= False ;
end;
except
Rua.Clear;
Bairro.Clear;
Cidade.Clear;
UF.Clear;
Result := False ;
end;
{ Finaliza }
DADOS.Free ;
IDHTTP_CEP.Free ;
end;
From: dhsb
Sent: Wednesday, January 21, 2009 8:28 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: BuscaCEP (104MB de dados)
Me interessou. Mas o link nao esta acessivel. Pode colcoar novamente?
Obrigado
--- Em delphi-br@yahoogrupos.com.br, Silvio Clécio silviop...@...
escreveu
Olá pessoal,
Encontrei um BuscaCEP feito em Delphi7 com um banco de dados
Firebird, achei bem atualizado, depois de descompactado o FDB fica com
~104MB (compactado ~36MB), é CEP, bairro, cidade até umas horas :).
Link - [http://rapidshare.com/files/186297850/BuscaCEPS.zip.html].
[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silviop...@...
Gmail, GTalk: silviop...@...
Hotmail, MSN: silviop...@...
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3785 (20090121) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClasseType, TClass etc...
Coutinho Acho que isso ajuda a dar uma luz Tirei do Site activedelphi Direitos de RodrigoMiller Wesley Acrescente ao Uses a unit Typinfo; Declare as Variáveis na seção Private: Componente: Tcomponent; CorComp: TColor; Faça a seguinte procedure: //Procedure que Muda a cor dos componentes focados procedure TForm1.MudaCor(Sender: TObject); begin if Assigned(Componente) then TEdit(Componente).Color := CorComp; //cor original do componente if (ActiveControl nil) and (IsPublishedProp(ActiveControl, 'Color')) then begin CorComp := TEdit(ActiveControl).Color; TEdit(ActiveControl).Color := $00C2F9FC; // cor com foco Componente := ActiveControl; end; end; No Evento onActivate do form: Screen.OnActiveControlChange := MudaCor; E no Evento onDestroy: Screen.OnActiveControlChange := nil; From: Coutinho - Yahoo Sent: Wednesday, January 21, 2009 12:07 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] ClasseType, TClass etc... Pessoal Tava pensando em fazer uma procedure, que alterasse a cor de entrada e uma para alterar a cor de saída de meus componentes de tela... tipo.. enrou no componente, fica com uma cor, saiu, retorna a cor anterior... Estou tentando criar uma procedure que possa ser usada por qualquer componente, mas estou esbarrando no TClass Normalmente, se fosse fazer no evento onEnter, e On Exit, usaria: No caso de um dbEdit usaria: (Sender as TdbEdit).color := clInfoBk Aí, estou tentando substituir o TdbEdit por uma variável, que receba a classe... mas estou esquecendo de algum pormenor, ou fazendo uma coisa muito errada... Alguém pode me dar uma ajuda? Sds -- __ Emanuel Coutinho Salvador-Ba-Brasil __ Information from ESET NOD32 Antivirus, version of virus signature database 3785 (20090121) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro no Zeos
Consegui resolver... eu estava viajando.. rsrsrsrs eu tinha aberto o banco em tempo de projeto e ele estava apontando para um banco, na rede coloquei um ini com as configurações de outro banco , só que nas maquinas clientes nao existia o banco que estava usando em tempo de projeto... apenas fechei e pronto Obrigado a todos... From: Silvio Clécio Sent: Friday, January 16, 2009 3:12 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] Erro no Zeos Olá pessoal, Wesley, do Zeos não, mas, do SGBD sim, qual você usa? P.S.: Se for Firebird, copie fbclient.dll para o diretório do binário (executável) de sua aplicação. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: BandaLemuel bandalem...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 16 de Janeiro de 2009 13:44:11 Assunto: [delphi-br] Erro no Zeos Lista.. Fiz um Aplicativo ele roda perfeitamente no meu PC com delphi, mas não roda em nenhum outro computador.. .. ele usa o Zeos... os outros aplicativos eu utilizo o IBQuery mesmo e não da erro... tem alguma dll que tem que copiar ?? Wesley Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3772 (20090116) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro no Zeos
Lista.. Fiz um Aplicativo ele roda perfeitamente no meu PC com delphi, mas não roda em nenhum outro computador ele usa o Zeos... os outros aplicativos eu utilizo o IBQuery mesmo e não da erro... tem alguma dll que tem que copiar ?? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa Duvida
Seguinte... Aqui na empresa tem um sistema de um terceiro que tem um edit que quando se digita o valor ele faz uma pesquisa incremental nos dados selecionados em um dbgrid... mas ele não vai filtrando... ele vai selecionando o valor que eu digitei ( edit ) no dbgrid ( dados ) ... Wesley From: Eduardo Silva dos Santos Sent: Tuesday, January 13, 2009 2:44 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Pesquisa Duvida BandaLemuel, você pode usar o evento onKeyDown de um edit, ou seja, a pessoa digita o texto que deseja procurar e ao pressionar enter a pesquisa é feita no banco, creio que essa é a melhor forma. caso você deseje localizar algum registro com base nos dados já exibidos no dataset o ideal é usar locate se a quantidade de registros não for muito grande. explica melhor a sua necessidade. 2009/1/13 BandaLemuel bandalem...@yahoo.com.br Lista Alguem sabe uma maneira de fazer uma pesquisa auto-incremento com o Zeos ??? Eu estava precisando fazer uma busca em alguns dados pre-selecionados Alguem tem ideia de como fazer , sem terque ficar dando select no banco a cada letra digitada.. ??? Obrigado... Wesley -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3763 (20090113) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Pesquisa Duvida
Lista Alguem sabe uma maneira de fazer uma pesquisa auto-incremento com o Zeos ??? Eu estava precisando fazer uma busca em alguns dados pre-selecionados Alguem tem ideia de como fazer , sem terque ficar dando select no banco a cada letra digitada.. ??? Obrigado... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
Lista Achei a Solução esta neste link.. só para constar... obrigado a todos.. http://gamesbrasil.uol.com.br/forum/archive/index.php/t-39708.html Wesley From: BandaLemuel Sent: Thursday, January 08, 2009 10:14 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda Lista Eu não chei como fazer.. tem alguns programas de LanHouse .. que fazer o logoff na maquina e imediatamente já loga no windows novamente.. alguem tem ideia de como eles fazer isso Wesley [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3749 (20090107) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda
Lista Eu não chei como fazer.. tem alguns programas de LanHouse .. que fazer o logoff na maquina e imediatamente já loga no windows novamente.. alguem tem ideia de como eles fazer isso Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ref. Sair campo data
Omar Não lembri direito , se não me engano na macasara vc tem que colocar assim '99/99/;9' ou '99/99/;0' .. é um os dois...~testa ai... Wesley From: Omar Marques Sent: Tuesday, January 06, 2009 9:38 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ref. Sair campo data Bom dia amigos(as), Alguem sabe como evitar a mensagem: Valor de entrada inválido. Use Esc para abandonar as alterações. Estou num campo do tipo data (Paradox), com o campo com máscara (99/99/), e digito, por exemplo, só o dia e o mês, e tento sair com ENTER e surge a mensagem. Abraço e obrigado a todos. Omar M. Haddad Analista de Sistemas Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3741 (20090105) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda
Lista Já procurei e não achei.. é possivel fazer um atalho no formulario do Formulario que fique = ao do desktop do windwos...??? a ideia é a seguinte.. eu estou criando um novo shell para o windows e gostaria que o atalho ficasse = ao do windows, quando eu selecionar ele ele ficar com o foco azulado e quando eu der 2 cliques abrir... Alguem tem ideia de como fazer ??? Obrigado Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
Como vc faz ?? vc tem um Exemplo ?? Wesley From: JB Sent: Tuesday, January 06, 2009 3:39 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Ajuda Eu utilizo o TListView da paleta Win32, mas deve ter componentes melhores para controle do shell 2009/1/6 BandaLemuel bandalem...@yahoo.com.br: Lista Já procurei e não achei.. é possivel fazer um atalho no formulario do Formulario que fique = ao do desktop do windwos...??? a ideia é a seguinte.. eu estou criando um novo shell para o windows e gostaria que o atalho ficasse = ao do windows, quando eu selecionar ele ele ficar com o foco azulado e quando eu der 2 cliques abrir... Alguem tem ideia de como fazer ??? Obrigado Wesley José Benedito Software Developer s...@jbsolucoes.net www.jbsolucoes.net +55 19 8116-7826 __ Information from ESET NOD32 Antivirus, version of virus signature database 3742 (20090106) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
Lista
Consegui entender como funciona .. estou com um problema e não sei o que
pode ser... Olha só... Ele executa tudo certinho... mas não executa o
Winexec... Segue o codigo...
procedure TForm1.btnTesteClick(Sender: TObject);
var
Teste : TListItem ;
Img : TIcon ;
begin
{ Extraio o icone do EXE}
Img := TIcon.Create ;
img.Handle := ExtractIcon(Handle,PChar('c:\windows\system32\calc.exe'),0);
{ Defino o tamanho da Imagem no ImageList}
il1.Height := Img.Height ;
il1.Width := Img.Width ;
{ Adiciono no ListView}
Teste := lvDesktop.Items.Add ;
Teste.Caption := 'Calculadora' ;
Teste.ImageIndex:= il1.AddIcon( img );
Teste.SubItems.Text := 'c:\windows\system32\calc.exe';
end;
{ no Duplo Click}
procedure TForm1.lvDesktopDblClick(Sender: TObject);
begin
{ No ShowMessage mostra certinho o caminho do Executavel}
ShowMessage( lvDesktop.Selected.SubItems.Text );
WinExec( PChar(lvDesktop.Selected.SubItems.Text) , SW_SHOWNORMAL ); // Mas
não executa isso
end;
Qualquer ajuda me ajuda.. rsrs...
Obrigado
Wesley
From: BandaLemuel
Sent: Tuesday, January 06, 2009 3:46 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda
Como vc faz ?? vc tem um Exemplo ??
Wesley
From: JB
Sent: Tuesday, January 06, 2009 3:39 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda
Eu utilizo o TListView da paleta Win32, mas deve ter componentes
melhores para controle do shell
2009/1/6 BandaLemuel bandalem...@yahoo.com.br:
Lista
Já procurei e não achei.. é possivel fazer um atalho no formulario do
Formulario que fique = ao do desktop do windwos...??? a ideia é a seguinte..
eu estou criando um novo shell para o windows e gostaria que o atalho
ficasse = ao do windows, quando eu selecionar ele ele ficar com o foco
azulado e quando eu der 2 cliques abrir... Alguem tem ideia de como fazer
???
Obrigado
Wesley
José Benedito
Software Developer
s...@jbsolucoes.net
www.jbsolucoes.net
+55 19 8116-7826
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3742 (20090106) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3743 (20090106) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
Consegui... rsrrs olha o que tive que fazer...
procedure TForm1.lvDesktopDblClick(Sender: TObject);
var
Exe : String ;
begin
exe := Trim(lvDesktop.Selected.SubItems.Text) ;//trim aki...
WinExec( PChar( exe ) , SW_SHOWNORMAL );
end;
vlw... Wesley
From: BandaLemuel
Sent: Tuesday, January 06, 2009 4:37 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda
Lista
Consegui entender como funciona .. estou com um problema e não sei o que pode
ser... Olha só... Ele executa tudo certinho... mas não executa o Winexec...
Segue o codigo...
procedure TForm1.btnTesteClick(Sender: TObject);
var
Teste : TListItem ;
Img : TIcon ;
begin
{ Extraio o icone do EXE }
Img := TIcon.Create ;
img.Handle := ExtractIcon(Handle,PChar('c:\windows\system32\calc.exe'),0);
{ Defino o tamanho da Imagem no ImageList }
il1.Height := Img.Height ;
il1.Width := Img.Width ;
{ Adiciono no ListView }
Teste := lvDesktop.Items.Add ;
Teste.Caption := 'Calculadora' ;
Teste.ImageIndex:= il1.AddIcon( img );
Teste.SubItems.Text := 'c:\windows\system32\calc.exe';
end;
{ no Duplo Click }
procedure TForm1.lvDesktopDblClick(Sender: TObject);
begin
{ No ShowMessage mostra certinho o caminho do Executavel }
ShowMessage( lvDesktop.Selected.SubItems.Text );
WinExec( PChar(lvDesktop.Selected.SubItems.Text) , SW_SHOWNORMAL ); // Mas não
executa isso
end;
Qualquer ajuda me ajuda.. rsrs...
Obrigado
Wesley
From: BandaLemuel
Sent: Tuesday, January 06, 2009 3:46 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda
Como vc faz ?? vc tem um Exemplo ??
Wesley
From: JB
Sent: Tuesday, January 06, 2009 3:39 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ajuda
Eu utilizo o TListView da paleta Win32, mas deve ter componentes
melhores para controle do shell
2009/1/6 BandaLemuel bandalem...@yahoo.com.br:
Lista
Já procurei e não achei.. é possivel fazer um atalho no formulario do
Formulario que fique = ao do desktop do windwos...??? a ideia é a seguinte..
eu estou criando um novo shell para o windows e gostaria que o atalho
ficasse = ao do windows, quando eu selecionar ele ele ficar com o foco
azulado e quando eu der 2 cliques abrir... Alguem tem ideia de como fazer
???
Obrigado
Wesley
José Benedito
Software Developer
s...@jbsolucoes.net
www.jbsolucoes.net
+55 19 8116-7826
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3742 (20090106) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3743 (20090106) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3743 (20090106) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida
Lista Queria uma sugestão de vocês... Estou fazendo um sistema de gerenciamento de Lan House.. até ai tudo bem... fiz um componente herdado do TTimer que controla quanto o cliente tem de credito e vai fazendo o calculo de tempo dele tranquilo esta parte... o que estou com duvida é o seguinte... o cliente ( no aplicativo cliente ) conecta no servidor e ele precisa saber quanto tempo ele tem para usar, e no servidor tambem certo ?? ai é que esta como faço os 2 pc's servidor e cliente mostrar estes minutos.. e como faço para cada maquina que conectar no servidor ?? estou sem nenhuma idéia... creio que seja simples Obrigado e Feliz Ano Novo a todos Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: TreeView
Me Desculpe mas acho que deve ser para True... Wesley From: denilsonass2008 Sent: Monday, December 29, 2008 4:03 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: TreeView É só você colocar a Propriedade ReadOnly do Componente TreeView para False. Abraços. --- Em delphi-br@yahoogrupos.com.br, dhsb dionata...@... escreveu Pessoal, tenho um componente TreeView, e toda vez que clico em cima dele do Node a descrição fica em modo editavel? como eu poderia resolver isso para nao acontecer mais? Valeu __ Information from ESET NOD32 Antivirus, version of virus signature database 3721 (20081229) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TCP/IP
Eu consegui usar o ZeBeDee... muito bom Obrigado... -- From: valdir valdird...@infolivre.com.br Sent: Friday, December 19, 2008 7:59 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] TCP/IP Bom dia Evandro, Você usa o ZeBeDee? Tentei utilizá-lo mas não consegui. Segui todos os passos conforme tutorias que achei na net, mas dá erro de conexão. Se você usa, poderia por gentileza me enviar os arquivos server.zdb e client.zbd de uma conexão que esteja funcionando? Obrigado Valdir Dill - Original Message - From: Evandro Siqueira vans...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Friday, December 19, 2008 8:06 AM Subject: Re: [delphi-br] TCP/IP Em uma palavra: ZeBeDee! -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel BandaLemuel escreveu: Pessoal Procurei mas não achei... queria faezr comunicação via TCP/IP Cliente/ servidor , isso é facil...mas eu gostaria de saber se tem como compactar os pacotes igual o UltraVNC faz.. Alguem tem ideia de como fazer ?? Wesley -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.176 / Virus Database: 270.9.19/1856 - Release Date: 18/12/2008 20:06 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Information from ESET NOD32 Antivirus, version of virus signature database 3705 (20081219) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] TCP/IP
Pessoal Procurei mas não achei... queria faezr comunicação via TCP/IP Cliente/ servidor , isso é facil...mas eu gostaria de saber se tem como compactar os pacotes igual o UltraVNC faz.. Alguem tem ideia de como fazer ?? Wesley [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TCP/IP
Pessoal Procurei mas não achei... queria faezr comunicação via TCP/IP Cliente/ servidor , isso é facil...mas eu gostaria de saber se tem como compactar os pacotes igual o UltraVNC faz.. Alguem tem ideia de como fazer ?? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tentando novamente...
Eu usaria o mesmo Wesley From: Ricardo Cabral Sent: Thursday, December 18, 2008 3:11 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] tentando novamente... Vou tentar perguntar novamente ! rs Fiquei na dúvida quanto postar essa dúvida nesse forum, mas como o pessoal aqui também é usuáio de delphi... Imaginem um sistema feito em dephi 7 e com banco de dados firebird. O sistema é usado em rede com mais de 5 estações. Para conectar ao banco, uso um SQLConnection e para fazer as consutas um SimpleDataSet e para Insert, Update e Delete, uso um SQLDataSet todos da paleta dbExpress. Todos os procedimento em sql eu faço em tempo de execução, ou seja, conecto ao banco quando cada usuário entra no sistema e os processo de acesso ao banco também. A dúvida é a seguinte: Mesmo usando várias tabelas e em rede, eu posso usar apenas um SimpleDataSet ou para cada tabela teria que criar um SimpleDataSet ? Valeu Ricardo Cabral Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3703 (20081218) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente - Edit
Acho que isso pode ajudar... http://delphitodelphi.blogspot.com/2008/03/dica-painel-com-cantos-arredondados.html Wesley From: Silvio Clécio Sent: Tuesday, December 16, 2008 4:29 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] Componente - Edit Olá pessoal, Quero so uma Edit com as bordas arredondadas. Dá uma olhada no TEdit desse pacote: (http://www.4shared.com/file/50679096/38cae2ea/_Skin__SXSkincomponents_121_full.html?dirPwdVerified=4f84753f). Passe o antivírus nele: (http://www.kaspersky.com.br/virusscanner). P.S.: Estou quase inaugurando o site onde irão estar todos os arquivos que disponibilizei na 4shared, não estou ganhando nem uma comição'zinha' da propaganda do Kasper :) []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: silviop...@yahoo.com.br Gmail, Google Talk: silviop...@gmail.com Hotmail, MSN: silvio_p...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3696 (20081216) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo Ini no Delphi
Coloque na clausula uses o seguinte. Inifiles;
var
Arq:Tinifile;
begin
Arq:= TiniFile.Create ( Arquivo que vc quer ler )
try
{ lembrando que o TESTE é a Chave que fica emtre [] e o CAMPO é
no nome do campo que esta o valor }
Arq.ReadString ( 'TESTE','CAMPO',valor Default caso ele não
ache nada);
finally
Arq.Free;
end;
end;
Wesley
From: Cleber Edson Lino
Sent: Wednesday, December 17, 2008 11:57 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Arquivo Ini no Delphi
Olá pessoal... bom dia...
Olha só, preciso pegar conteúdo de arquivo .ini, alguém tem um exemplo
aí que possa me ajudar. E tem que ter alguma coisa que pega a variável
de sessão aquela que fica entre [Teste] ok?
Obrigado a todos.
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3698 (20081217) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Quem define o que é realmente POG?
Minha Opinião sobre POG... é a seguinte... Tem momentos que é necessário se dar um jeito, mesmo porque o cliente tem pressa, eu por exemplo ainda não tenho condições de pagar um curso da borland, o que seria ideal, muitas coisas aprendi com vocês aqui da lista e muitas coisas no google e em sites tipo o active delphi , e nunca tive nenhum curso de programação , apenas quis aprender e corri atras, não sou expert em delphi e estou longe disso, mas vivo a vida pogando quando não sei a maneira correta de fazer, um exemplo é um sistema financeiro que fiz... pelo amor de Deus... quando vi o POG que tinha feito eu refiz ele inteiro... eram muitos modulos.. Primeiro coloquei informações de contas a pagar e dos rateios em uma tabela só... da para imaginar, depois criei uma tabela só para colocar os que teriam que ser baixados, ao inves de apenas criar um campo flag... estava funcionando, mas quando decidi arrumarAUhUHuhAUAhuh... ai foi o problema para separar os rateios dos lançamentos principais e coloca-los em 2 tabelas diferentes.. acho que em momentos de desespero vale tudo, mas é claro que depois para arrumar fica muito mais dificel Wesley From: Coutinho - Yahoo Sent: Tuesday, December 09, 2008 2:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Quem define o que é realmente POG? Ok... Alguns colegas deram exemplos de coisas realmente absurdas, e concordo com eles... Uma coisa é a preguiça de pesquisar e melhorar, outra é ter de implementar uma coisa com alguma criatividade... Supondo... Um cliente tem como rotina trabalhar suas informações de formas padronizadas... usando padrão e uma forma que ainda podem ser melhoradas e otimizadas. Na qualidade de Analista de Sistemas, você detecta isso, então apresenta ao cliente os pontos em que as rotinas de controle, e a documentação pode ser otimizada, mas esse irredutível, diz que há anos... as coisas andam bem assim, e que ele mesmo fez os walkthrough das rotinas, e que não há falhas... É claro que um cara desse nunca ouviu falar em BrainStorming... Você deixa de ganhar o dinheiro, porquê vai ter de fazer um bacalhau aqui e outro ali, ou pega o serviço? Gente, tenho visto o pessoal ficar classificando coisas que claramente são fruto de situações que o programador tem de dar o jeito para funcionar, e a turma fica esfolando... Acho que NINGUÉM detém a melhor resposta para todas as coisas, e que NINGUÉM é palmatória do mundo... Assim... aceitando que nos exemplos que os outros colegas deram de que eram realmente coisas absurdas... peço aos colegas que não esfolem demais os nossos amigos menos esclarecidos e sim, AJUDEM... mas existe uma diferença entre ajudar dizendo: olha amigo, porquê vc não usa uma função tal, que faz isso, ao invés de dizer No google tem, ou Nunca ouviu falar da função tal? Algumas vezes, eu mesmo suscitei a necessidade de alguns colegas estudarem um pouco sobre formas normais, estruturas de dados, atomização da informação, coisas que para alguns é completamente desconhecida... Mas é de vital importância buscarmos harmonizar, e ter despreendimento suficiente para doar a informação incondicionalmente (se não for pirataria por ter aprendido numa revista comprada na banca de jornal... hehehe). Brincadeiras à parte, tenho notado mais um espírito de competitividade entre nós aqui na lista que o de solidariedade! Até mesmo porquê, e muito principalmente, parafraseando o amigo Laureano Nunes, * Muitas vezes fazer um curso de qualidade, onde é passada a METODOLOGIA padrão da ferramenta, sai bm caro e dinheiro não é um luxo que todos tem sobrando. Com todo meu respeito. * Saudações Emanuel Coutnho Laureano Araujo Nunes escreveu: Colega, Eu acredito que os caras que desenvolvem uma ferramenta de desenvolvimento, definem padrões para se trabalhar com ela, para se programar de maneira correta. Fora dos padroes é possível programar com a ferramenta, porém, para quem conhece os padrões de desenvolvimento propostos pelos Engenheiros da Ferramenta todo código montado de maneira, criativa ou não, diferente do é proposto para o uso correto, classifica como GAMBIARRA. Porém, sou a favor de fazer funcionar o programa final. Muitas vezes fazer um curso de qualidade, onde é passada a METODOLOGIA padrão da ferramenta, sai bm caro e dinheiro não é um luxo que todos tem sobrando. Com todo meu respeito. []´s Nunes. __ Information from ESET NOD32 Antivirus, version of virus signature database 3673 (20081208) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro Executar o Sistema - Firebird 2.0
Tente copiar a dll na pasta do programa... Wesley From: Ricardo César Cardoso Sent: Tuesday, December 09, 2008 3:43 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Erro Executar o Sistema - Firebird 2.0 Boa tarde, Acho que vc vai ter que registrar as Dll's no sistema. Ou então como aconteceu comigo uma vez, tem que pegar as Runtime libraries do MS - Visual C++. Se bem que tive esse problema ao rodar o FB 1.5.2 num Windows 98. Mas pela mensagem o teu problema é com as Dll's Runtime do MS Visual C++ []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 9/12/08, Raphae Fonseca [EMAIL PROTECTED] escreveu: De: Raphae Fonseca [EMAIL PROTECTED] Assunto: [delphi-br] Erro Executar o Sistema - Firebird 2.0 Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 9 de Dezembro de 2008, 14:14 Boa tarde amigos da lista Preciso da Ajuda de vcs. Desinstalei o firebird e removi todas as dll's, removi a pasta Odonto e fiz a limpeza do registro e a desfragmentação de disco. Depois instalei o SP2, desativei o firewall do windows, instalei o FIREBIRD, fui na pasta bin, copiei a fbcliente.dll e colei na pasta SYSTEM 32 do windows, depois colei a pasta do sistema com a última modificação na unidade C:, quando que fui utilizar o programa apareceu a seguinte mensagem de erro: aquela mesma mensagem de ERRO, então repeti o procedimento 3 vezes e nada, depois coloquei o cd do Windows XP e pedi para reparar o sistema, tudo certo, então repeti tudo, já não aguentando mais e o domingo já tinha acabado eu parei. Ontém a mesma coisa. sendo que já instalei em 4 máquinas diferentes com winxp e win2000 e funciona perfeitamente, nessa que dá erro é winxp. as mensagens são as seguintes: Runtime Error: program : c:\Odonto\Odonto. exe R6034 An Application has made an attemp to load the C runtime library incorrectly. ] Please contact the application' s support team for more information. none of the dynamic libraries ca be found: fbclient20.dll, fbclient.dll algum amigo poderia me ajudar? Estou utilizando zeos e firebird 2.1 No aguardo Raphael Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3673 (20081208) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir pasta e renomear arquivos de ima gens em um diretório
Rubem.. desculpe... Wesley
From: Rubem Nascimento da Rocha
Sent: Monday, December 08, 2008 10:32 PM
To: delphi-br
Subject: RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Em tempo: meu nome é no singular!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 16:04:05 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Boa Rubens... eu sabia que tinha uma forma melhor... rsrsrs... Wesley
From: Rubem Nascimento da Rocha
Sent: Monday, December 08, 2008 1:56 PM
To: delphi-br
Subject: RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
POG? ARGH! I hate GOP (Gambiarra Oriented Programming)!
Ah, esse povo num sabe mesmo procura as coisas!
Bom, lá vai então um exemplo baseado nos exemplos que tem no help do Delphi (já
que o povo gosta mesmo é de comer o bolo ao invés de montar a própria receita e
aprender mais!)
{ 1a. versão - renomeando o arquivo por completo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
iSeq: integer;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := Format('FIGURA%d.JPG');
Inc(iSeq);
RenameFile(lOldName, lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
{ 2a. versão - retirando todos os pontos do nome do arquivo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := StringReplace(lOldName, '.', EmptyStr, [rfReplaceStr]);
RenameFile(lAuxCaminho + lOldName, lAuxCaminho + lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
Sds.
P.S.: Ah, mas pra que serve essa função IncludeTrailingBackslash() e essa
função StringReplace? Tá no help, brow!
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 13:24:24 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Carlos
Você pode fazer um POG ( Programação Orientada a Gambiarra )
http://desciclo.pedia.ws/wiki/POG , coloque um FileListBox , e filtre pela
extensão, ai da um for , verifica qual nome do arquivo que tem mais de 1 ponto
tipo com a função abaixo, e use a função Rename( nomeAntigo, NomeNovo ) do
delphi para alterar o nome...
function MaisDeUmPonto ( Texto : Value ) : boolean ;
begin
result := false;
if pos ( extractFileName ( texto ) , '.' ) 0 then
result := true ;
end;
Vai funcionar... mas é Gambiarra Wesley...
From: Carlos
Sent: Monday, December 08, 2008 1:15 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Abrir pasta e renomear arquivos de imagens em um diretório
Senhores, boa tarde!
Solicito, dentro das possibilidades, um auxílio para solucionar este
problema:
- tenho uma pasta dentro do disco Ex: c:\pasta
dentro desta pasta, existem várias arquivos de imagem, e todos com o
nome neste modelo 000.000.000..jpg
O que acontece;
Preciso percorrer estes arquivos, e renomea-los sem os pontos e com a
extensão '.jpg';
Nunca fiz este tipo de procedimento, e não sei como faze-lo e não
consegui achar nada na grande rede que pudesse me auxiliar!
Agradeço atenciosamente a atenção e ajuda de todos!
Fraterno abraço,
Carlos
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3673 (20081208) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Consulta SQL
Acho que ficaria melhor se colocasse LIKE ... porque assim mesmo
digitando parte apenas do nome ele acharia
Ex:
Dm_Dados.Tb_Clientes.Open;
Dm_Dados.qryClientes.Close;
Dm_Dados.qryClientes.SQL.Clear;
Dm_Dados.qryClientes.SQL.Add('select * from clientes');
Dm_Dados.qryClientes.SQL.Add('where Nome like ''' + EdtPesquisaNome.text
+'%'' ' );
Dm_Dados.qryClientes.Open;
Wesley
From: marcio
Sent: Monday, December 08, 2008 11:52 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Consulta SQL
Opa,
Entaum deixa-me ver se entendi, para este caso basta criar um
paramentro e depois apontar a propriedade value para o text do
component certo?
.
Dm_Dados.qryClientes.SQL.Add('where Nome= :nome');
Dm_Dados.qryClientes.parameters.parambyname('nome').value :=
edtPesquisaNome.text;
Dm_Dados.qryClientes.Open;
e se quiséssemos entre datas como ficaria?
Grato
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3671 (20081208) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Consulta SQL
Para fazer a ligação.. é simples.. você precisa colocar no seu
formulario um DataSoruce e colocar na propriedade dataset a query que vc esta
usando para realizar a consulta e um DBGRID que deverá tem a propriedade
datasource = ao dataSource q vc inseriu no formulario...
Query DataSource - DBGRID...
Wesley
From: marcio
Sent: Monday, December 08, 2008 12:32 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Consulta SQL
--- Em delphi-br@yahoogrupos.com.br, BandaLemuel [EMAIL PROTECTED]
Acho que ficaria melhor se colocasse LIKE ... porque assim
mesmo digitando parte apenas do nome ele acharia
Dm_Dados.qryClientes.SQL.Add('where Nome like ''' +
EdtPesquisaNome.text +'%'' ' );
Dm_Dados.qryClientes.Open;
Wesley
Mas e para mostrar o resultado no dbgrid, como posso fazer a ligação?
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3671 (20081208) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir pasta e renomear arquivos de ima gens em um diretório
Carlos Você pode fazer um POG ( Programação Orientada a Gambiarra ) http://desciclo.pedia.ws/wiki/POG , coloque um FileListBox , e filtre pela extensão, ai da um for , verifica qual nome do arquivo que tem mais de 1 ponto tipo com a função abaixo, e use a função Rename( nomeAntigo, NomeNovo ) do delphi para alterar o nome... function MaisDeUmPonto ( Texto : Value ) : boolean; begin result:= false; if pos ( extractFileName ( texto ) , '.' ) 0 then result:= true; end; Vai funcionar... mas é Gambiarra Wesley... From: Carlos Sent: Monday, December 08, 2008 1:15 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Abrir pasta e renomear arquivos de imagens em um diretório Senhores, boa tarde! Solicito, dentro das possibilidades, um auxílio para solucionar este problema: - tenho uma pasta dentro do disco Ex: c:\pasta dentro desta pasta, existem várias arquivos de imagem, e todos com o nome neste modelo 000.000.000..jpg O que acontece; Preciso percorrer estes arquivos, e renomea-los sem os pontos e com a extensão '.jpg'; Nunca fiz este tipo de procedimento, e não sei como faze-lo e não consegui achar nada na grande rede que pudesse me auxiliar! Agradeço atenciosamente a atenção e ajuda de todos! Fraterno abraço, Carlos __ Information from ESET NOD32 Antivirus, version of virus signature database 3671 (20081208) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Consulta SQL
Poste como esta o SQLda sua query.. WEsley From: marcio Sent: Monday, December 08, 2008 1:30 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Re: Consulta SQL opa, eu fiz a ligação contudo qd mando fazer a consulta o programa trava e qd mando finalizá-lo ele gera a seguinte message: project SysVicius.exe raised exception class EDBEnginerError with message 'Invalid use of keyword. token : like line number: 2. Process stopped, use step or tun to continue pq dá este erro e como corrigir? Grato __ Information from ESET NOD32 Antivirus, version of virus signature database 3672 (20081208) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Consulta SQL
Marcio coloque um espaço depois de clientes... ex:
Dm_Dados.Tb_Clientes.Open;
Dm_Dados.qryClientes.Close;
Dm_Dados.qryClientes.SQL.Clear;
Dm_Dados.qryClientes.SQL.Add('select * from clientes '); --- Aki... verifique
se da certo
Dm_Dados.qryClientes.SQL.Add('where Nome= :nome');
Dm_Dados.qryClientes.ParamByName('nome').Value := edtPesquisaNome.Text;
Dm_Dados.qryClientes.Open;
From: marcio
Sent: Monday, December 08, 2008 4:08 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Consulta SQL
--- Em delphi-br@yahoogrupos.com.br, BandaLemuel [EMAIL PROTECTED]
escreveu
Poste como esta o SQLda sua query.. WEsley
opa
ela está assim:
Dm_Dados.Tb_Clientes.Open;
Dm_Dados.qryClientes.Close;
Dm_Dados.qryClientes.SQL.Clear;
Dm_Dados.qryClientes.SQL.Add('select * from clientes');
Dm_Dados.qryClientes.SQL.Add('where Nome= :nome');
Dm_Dados.qryClientes.ParamByName('nome').Value :=
edtPesquisaNome.Text;
Dm_Dados.qryClientes.Open;
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3672 (20081208) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Abrir pasta e renomear arquivos de ima gens em um diretório
Boa Rubens... eu sabia que tinha uma forma melhor... rsrsrs... Wesley
From: Rubem Nascimento da Rocha
Sent: Monday, December 08, 2008 1:56 PM
To: delphi-br
Subject: RE: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
POG? ARGH! I hate GOP (Gambiarra Oriented Programming)!
Ah, esse povo num sabe mesmo procura as coisas!
Bom, lá vai então um exemplo baseado nos exemplos que tem no help do Delphi (já
que o povo gosta mesmo é de comer o bolo ao invés de montar a própria receita e
aprender mais!)
{ 1a. versão - renomeando o arquivo por completo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
iSeq: integer;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := Format('FIGURA%d.JPG');
Inc(iSeq);
RenameFile(lOldName, lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
{ 2a. versão - retirando todos os pontos do nome do arquivo }
procedure RenomearFiguras(const Caminho: string);
var
lSearchRec: TSearchRec;
lFound: integer;
lOldName, lNewName: TFileName;
lAuxCaminho: string;
begin
iSeq := 0;
lAuxCaminho := IncludeTrailingBackslash(Caminho);
lFound := FindFirst(lAuxCaminho + '*.JPG', faAnyFile, lSearchRec);
while lFound = 0 do
begin
lOldName := ExtractFileName(lSearchRec.FileName);
lNewName := StringReplace(lOldName, '.', EmptyStr, [rfReplaceStr]);
RenameFile(lAuxCaminho + lOldName, lAuxCaminho + lNewName);
lFound := FindNext(lSearchRec);
if lFound 0 then FindClose(lSearchRec);
end;
end;
Sds.
P.S.: Ah, mas pra que serve essa função IncludeTrailingBackslash() e essa
função StringReplace? Tá no help, brow!
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 8 Dec 2008 13:24:24 -0200
Subject: Re: [delphi-br] Abrir pasta e renomear arquivos de imagens em um
diretório
Carlos
Você pode fazer um POG ( Programação Orientada a Gambiarra )
http://desciclo.pedia.ws/wiki/POG , coloque um FileListBox , e filtre pela
extensão, ai da um for , verifica qual nome do arquivo que tem mais de 1 ponto
tipo com a função abaixo, e use a função Rename( nomeAntigo, NomeNovo ) do
delphi para alterar o nome...
function MaisDeUmPonto ( Texto : Value ) : boolean ;
begin
result := false;
if pos ( extractFileName ( texto ) , '.' ) 0 then
result := true ;
end;
Vai funcionar... mas é Gambiarra Wesley...
From: Carlos
Sent: Monday, December 08, 2008 1:15 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Abrir pasta e renomear arquivos de imagens em um diretório
Senhores, boa tarde!
Solicito, dentro das possibilidades, um auxílio para solucionar este
problema:
- tenho uma pasta dentro do disco Ex: c:\pasta
dentro desta pasta, existem várias arquivos de imagem, e todos com o
nome neste modelo 000.000.000..jpg
O que acontece;
Preciso percorrer estes arquivos, e renomea-los sem os pontos e com a
extensão '.jpg';
Nunca fiz este tipo de procedimento, e não sei como faze-lo e não
consegui achar nada na grande rede que pudesse me auxiliar!
Agradeço atenciosamente a atenção e ajuda de todos!
Fraterno abraço,
Carlos
__
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3672 (20081208) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Alinhamento
Pessoal Como posso alinhar um componente edit que eu fiz... usei este aqui.. http://www.arquivodecodigos.net/arquivo/visualizar_dica.php?qual_dica=180 mas quando eu dou enter ele limpa o Edit... ao inves de pular de campo ... para pulat de campo uso o TJVenterAsTab do JEDI... Tem outra maneira de fazer ??? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Alinhamento ( Resolvido )
Usei assim http://lib.seven.com.br/arquivos/835/Funcionalidades1.PDF Obrigado... Wesley From: BandaLemuel Sent: Thursday, December 04, 2008 12:10 PM To: [EMAIL PROTECTED] Subject: [delphi-br] Alinhamento Pessoal Como posso alinhar um componente edit que eu fiz... usei este aqui.. http://www.arquivodecodigos.net/arquivo/visualizar_dica.php?qual_dica=180 mas quando eu dou enter ele limpa o Edit... ao inves de pular de campo ... para pulat de campo uso o TJVenterAsTab do JEDI... Tem outra maneira de fazer ??? Wesley [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3663 (20081204) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DAT
Nâo... mas ja vi como vou fazer. Obrigado a todos...!!! From: João Paulo Sent: Thursday, December 04, 2008 3:44 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] DAT Junto com os arquivos .DAT há alguns com extensão .k1, k2, k3, etc? Ou .tag, hdr, cfg? --- Em qua, 3/12/08, BandaLemuel [EMAIL PROTECTED] escreveu: De: BandaLemuel [EMAIL PROTECTED] Assunto: Re: [delphi-br] DAT Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 3 de Dezembro de 2008, 14:22 Na verdade este é um arquivo de um programa que um amigo meu usava para catalogar filmes... e estou querendo passar para outra base para ele... Wesley From: Guionardo Furlan Sent: Wednesday, December 03, 2008 2:07 PM To: [EMAIL PROTECTED] os.com.br Subject: Re: [delphi-br] DAT Pelo que entendi as linhas seguem um padrão: * Identificador * Título * Ano; Duração; País, outras informações que não entendi * ??;??; Data; Classificação etária * Regiões do DVD? * Sinopse Mais abaixo, na área que fala dos atores, a coisa saiu dos padrões. Não vejo como relacionar cada ator com cada filme. Mas facilite as coisas pra gente e explique o contexto desse aplicativo (que parece ser um arquivo de filmes). 2008/12/3 BandaLemuel bandalemuel@ yahoo.com. br: pessoal o arquivo esta assim... Abri no notepad... [V13] [Movies] Back to School 1986;0;96;USA; 0;0;#1;;- 1;0;1;1;0; 0 KP;0090685;01/ 12/2008;PG- 13 0,1,2,3,4 To help his discouraged son get through college, a funloving and obnoxious rich businessman decides to enter the school as a student himself. 00-00-00-00- 00-E- Friends|#WAcross the Hall 1994;;22;USA; 0;0;#1;;- 1;0;1;1;0; 0 KR#;0108778; 01/12/2008; TV-PG 5,6,7,8,9 The lives, loves, and laughs of six young friends living in Manhattan. 00-00-00-00- 00-E- Spider-Man|# ASpiderman 2002;1;121;USA; 0;0;#1;;- 1;0;1;1;0; 0 ATS!;0145487; 01/12/2008; PG-13 10,11,12,13, 14 When bitten by a genetically modified spider, a nerdy, shy, and awkward high school student gains spider-like abilities that he eventually must use to fight evil as a superhero after tragedy befalls his family. 00-00-00-00- 00-E- Iron Man|#IIronman 2008;2;126;USA; 0;0;#1;;- 1;0;1;1;0; 0 ATDSV;0371746; 01/12/2008; PG-13 4,15,16,17,18 When wealthy industrialist Tony Stark is forced to build an armored suit after a life-threatening incident, he ultimately decides to use its technology to fight against evil. 00-00-00-00- 00-E- [Actors] Rodney Dangerfield Sally Kellerman Burt Young Keith Gordon Robert Downey Jr. Jennifer Aniston Courteney Cox Lisa Kudrow Matt LeBlanc Matthew Perry Tobey Maguire Willem Dafoe Kirsten Dunst James Franco Cliff Robertson Terrence Howard Jeff Bridges Gwyneth Paltrow Leslie Bibb [Directors] Alan Metter Sam Raimi Jon Favreau [TheEnd] Wesley From: Silvio Clécio Sent: Wednesday, December 03, 2008 12:29 PM To: [EMAIL PROTECTED] os.com.br Subject: Res: [delphi-br] DAT Olá pessoal, Brother, nos passe mais detalhes, eu tenho um exemplo de uma agenda que o *.dat é um simples arquivo de texto, então com mais detalhes a gente pode ver como acessar esse *.dat aí, blz?! _ _ __ []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] com.br Gmail, Google Talk: [EMAIL PROTECTED] com Hotmail, MSN: silvio_prog@ hotmail.com BlogSpot: http://silvioclecio .blogspot. com/ _ _ __ De: BandaLemuel bandalemuel@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 3 de Dezembro de 2008 8:42:17 Assunto: [delphi-br] DAT Lista Como que eu posso acessar um BD do tipo .dat pelo delphi 7 vlw... Wesley -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo. blogspot. com __ Information from ESET NOD32 Antivirus, version of virus signature database 3661 (20081203) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3664 (20081204) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DAT
Lista Como que eu posso acessar um BD do tipo .dat pelo delphi 7 vlw... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DAT
pessoal o arquivo esta assim... Abri no notepad... [V13] [Movies] Back to School 1986;0;96;USA;0;0;#1;;-1;0;1;1;0;0 KP;0090685;01/12/2008;PG-13 0,1,2,3,4 To help his discouraged son get through college, a funloving and obnoxious rich businessman decides to enter the school as a student himself. 00-00-00-00-00-E- Friends|#WAcross the Hall 1994;;22;USA;0;0;#1;;-1;0;1;1;0;0 KR#;0108778;01/12/2008;TV-PG 5,6,7,8,9 The lives, loves, and laughs of six young friends living in Manhattan. 00-00-00-00-00-E- Spider-Man|#ASpiderman 2002;1;121;USA;0;0;#1;;-1;0;1;1;0;0 ATS!;0145487;01/12/2008;PG-13 10,11,12,13,14 When bitten by a genetically modified spider, a nerdy, shy, and awkward high school student gains spider-like abilities that he eventually must use to fight evil as a superhero after tragedy befalls his family. 00-00-00-00-00-E- Iron Man|#IIronman 2008;2;126;USA;0;0;#1;;-1;0;1;1;0;0 ATDSV;0371746;01/12/2008;PG-13 4,15,16,17,18 When wealthy industrialist Tony Stark is forced to build an armored suit after a life-threatening incident, he ultimately decides to use its technology to fight against evil. 00-00-00-00-00-E- [Actors] Rodney Dangerfield Sally Kellerman Burt Young Keith Gordon Robert Downey Jr. Jennifer Aniston Courteney Cox Lisa Kudrow Matt LeBlanc Matthew Perry Tobey Maguire Willem Dafoe Kirsten Dunst James Franco Cliff Robertson Terrence Howard Jeff Bridges Gwyneth Paltrow Leslie Bibb [Directors] Alan Metter Sam Raimi Jon Favreau [TheEnd] Wesley From: Silvio Clécio Sent: Wednesday, December 03, 2008 12:29 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] DAT Olá pessoal, Brother, nos passe mais detalhes, eu tenho um exemplo de uma agenda que o *.dat é um simples arquivo de texto, então com mais detalhes a gente pode ver como acessar esse *.dat aí, blz?! []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 3 de Dezembro de 2008 8:42:17 Assunto: [delphi-br] DAT Lista Como que eu posso acessar um BD do tipo .dat pelo delphi 7 vlw... Wesley Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3660 (20081203) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DAT
Na verdade este é um arquivo de um programa que um amigo meu usava para catalogar filmes... e estou querendo passar para outra base para ele... Wesley From: Guionardo Furlan Sent: Wednesday, December 03, 2008 2:07 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] DAT Pelo que entendi as linhas seguem um padrão: * Identificador * Título * Ano; Duração; País, outras informações que não entendi * ??;??; Data; Classificação etária * Regiões do DVD? * Sinopse Mais abaixo, na área que fala dos atores, a coisa saiu dos padrões. Não vejo como relacionar cada ator com cada filme. Mas facilite as coisas pra gente e explique o contexto desse aplicativo (que parece ser um arquivo de filmes). 2008/12/3 BandaLemuel [EMAIL PROTECTED]: pessoal o arquivo esta assim... Abri no notepad... [V13] [Movies] Back to School 1986;0;96;USA;0;0;#1;;-1;0;1;1;0;0 KP;0090685;01/12/2008;PG-13 0,1,2,3,4 To help his discouraged son get through college, a funloving and obnoxious rich businessman decides to enter the school as a student himself. 00-00-00-00-00-E- Friends|#WAcross the Hall 1994;;22;USA;0;0;#1;;-1;0;1;1;0;0 KR#;0108778;01/12/2008;TV-PG 5,6,7,8,9 The lives, loves, and laughs of six young friends living in Manhattan. 00-00-00-00-00-E- Spider-Man|#ASpiderman 2002;1;121;USA;0;0;#1;;-1;0;1;1;0;0 ATS!;0145487;01/12/2008;PG-13 10,11,12,13,14 When bitten by a genetically modified spider, a nerdy, shy, and awkward high school student gains spider-like abilities that he eventually must use to fight evil as a superhero after tragedy befalls his family. 00-00-00-00-00-E- Iron Man|#IIronman 2008;2;126;USA;0;0;#1;;-1;0;1;1;0;0 ATDSV;0371746;01/12/2008;PG-13 4,15,16,17,18 When wealthy industrialist Tony Stark is forced to build an armored suit after a life-threatening incident, he ultimately decides to use its technology to fight against evil. 00-00-00-00-00-E- [Actors] Rodney Dangerfield Sally Kellerman Burt Young Keith Gordon Robert Downey Jr. Jennifer Aniston Courteney Cox Lisa Kudrow Matt LeBlanc Matthew Perry Tobey Maguire Willem Dafoe Kirsten Dunst James Franco Cliff Robertson Terrence Howard Jeff Bridges Gwyneth Paltrow Leslie Bibb [Directors] Alan Metter Sam Raimi Jon Favreau [TheEnd] Wesley From: Silvio Clécio Sent: Wednesday, December 03, 2008 12:29 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] DAT Olá pessoal, Brother, nos passe mais detalhes, eu tenho um exemplo de uma agenda que o *.dat é um simples arquivo de texto, então com mais detalhes a gente pode ver como acessar esse *.dat aí, blz?! []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 3 de Dezembro de 2008 8:42:17 Assunto: [delphi-br] DAT Lista Como que eu posso acessar um BD do tipo .dat pelo delphi 7 vlw... Wesley -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com __ Information from ESET NOD32 Antivirus, version of virus signature database 3661 (20081203) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RichText
Moacir.. vc pode me enviar um exemplo tbm.. estou precisando vlw.. Wesley From: Moacir - GMail Sent: Friday, November 21, 2008 2:17 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] RichText Existe ! Acabei de te mandar um exemplo ! [ ]´s Moacir ps.: Não esquece do depósito !! hauhauhauahuhau João Carlos escreveu: Pessoal, Existe uma maneira de gravar no Firebird em um campo BLOB, uma arquivo .rtf mantendo a formatção do mesmo. Tentei várias coisas e até agora nada. Preciso que o arquivo seja guardado no banco. Não posso utilizar a gravação do caminho do arquivo. João Carlos __ Information from ESET NOD32 Antivirus, version of virus signature database 3630 (20081121) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [Off] Aniversário do Rubem
Felicidades Rubem... Wesley From: Nivaldo Stainle Sent: Monday, November 17, 2008 12:53 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] [Off] Aniversário do Rubem Felicidades, Rubem, tudo de bom, meus parabéns. Stainle --- Em seg, 17/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] [Off] Aniversário do Rubem Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 12:32 Como diz o Rubem, ..Quem procura acha!!! e hoje ele achou.. mais um ano de vida.. parabéns!!! 2008/11/17 Adriano Santos (Y!) [EMAIL PROTECTED] os.pro.br Ae pessoal, Hoje é aniversário de um dos caras mais antigos da lista. Gente fina, camarada e que ajuda muito todo mundo. Estrassadinho de vez em quando, mas normal...k Ae Rubem, parabéns, muito sucesso, alegria, felicidade e paz. Obrigado por sempre contriubuir. Abs -- Adriano Santos www.delphitodelphi. blogspot. com www.dug-sp.com -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3617 (20081117) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tem como colocar mascara em campo integer?
Acho que isso resove...
TIntegerField(Banco.FieldByName('NOMEDOCAMPO')).DisplayFormat:=
'00-00-';
Wesley
From: Vicente Alves
Sent: Monday, November 03, 2008 10:09 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Tem como colocar mascara em campo integer?
Bom dia!!
Eu tenho um dbgrid onde faço saidas de uma NF teria como colocar uma mascara
mascara no dbgrid e e também no dbedit do campo onde eu digito o código do
produto , o campo é integer
A masacara teria que ficar assim ex: 10-02-0020 .
Estou usando o Delphi7, dbxpress, clientdatsets e banco firebird.
Se alguém puder ajudar?
__
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3577 (20081103) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como capturar msgs do IExplorer e Firefox?
Adriano...vc pode me encaminhar tbm Estou com a mesma dificuldade Wesley From: Adriano Santos (Y!) Sent: Monday, November 03, 2008 2:56 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Como capturar msgs do IExplorer e Firefox? Cara, Tenho dois programas aqui com fontes que fazem o monitoramento de aplicativos, não exatamente o que você precisa, mas acho que dá pra aproveitar alguma coisa. Se quiser me dá um toque em PVT que te mando o fonte, ou se tiver muita demanda, jogo no ftp do blog. []s Onjahyr - GMAIL respondeu: Aí pessoal, beleza? Seguinte, tô fazendo um programinha para bloquear determinados sites na internet. Está quase tudo pronto, no projeto eu pensei colocar um TTimer para verificar o que quero, mas pensando bem, já vi na internet (não consigo encontrar mais) uma procedure ou function (não sei bem...) com a terminação: message; que captura eventos realizados. Bom, queria saber como usar isso e como capturar quando alguém da o POST para acessar um determinado site, eu acho que isso seria uma programação mais limpa. Alguém saberia como fazer isso? Adriano Santos www.dug-sp.com __ Information from ESET NOD32 Antivirus, version of virus signature database 3577 (20081103) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Estou desenvolvendo um componente , onde eu passe as informações dos campos do banco de dados para ele... e ele proprio gere a nota fiscal atraves de Layout que o usuario pode configurar talvez ele não tenha tanta utilidade... mas estou fazendo tambem por aprendizado mesmo ai me deparei com os itens da nota fiscal... não sei o que seria melhor usar um stringGrid... mas ja ou vi dizer em collectionItem... queria a opnião de vcs o que seria melhor.. ?? vlw.. Wesley From: Alisson Sent: Thursday, October 30, 2008 3:01 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Componente Componente de nota fiscal? Como assim? Explique melhor o que você está querendo fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ __ Information from ESET NOD32 Antivirus, version of virus signature database 3568 (20081030) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Layout
Walter e Rodinei... Fiz assim... Obrigado pela ajuda Espero que
possa ajudar a todos Wesley
em um memo que tenha o seguinte valor... usei o ; para delimitar e a dica
do Clécio para pegar os campos
X ;SSS ;
SSS ; ;
{ Funcao converte texto no valor desejado }
function Converte( Texto: String ; CARACTER : Char ; Valor : String ): String;
var
TamanhoCampo : Integer ;
Campo : string ;
Espaco: string ;
begin
{ Pega o tamanho do campo apenas }
TamanhoCampo := length ( Trim( Texto ) );
{ Usei assim para que eu possa escolher qual campo quero alterar ..
poderia usar apenas assim.. Campo:= trim( Texto ) }
Campo := StringOfChar( CARACTER , TamanhoCampo );
{ Se o Valor que quero Colocar for maior ou = não preciso colocar espaços }
if Length ( Valor ) = TamanhoCampo then
Result:= StringReplace( Texto , Campo , Copy ( Valor , 1 ,
TamanhoCampo ) , [rfReplaceAll] )
{ Caso seja menor coloco os espaços }
else
Result:= StringReplace( Texto , Campo , Valor + StringOfChar( ' ' ,
TamanhoCampo - Length( Valor ) ) , [rfReplaceAll] )
end;
{ N botao coloquei assim }
procedure TForm1.btn1Click(Sender: TObject);
var
x : Integer ;
y : Integer ;
Campos : TStringList ;
begin
Campos := TStringList.Create ;
try
for x := 0 to mmo1.Lines.Count - 1 do
begin
{ limpa }
Campos.Clear;
{ pega os capos }
ExtractStrings( [';'] , [] , PChar(mmo1.Lines.strings[x]) ,
Campos ) ;
{ Converte os Campos }
for y := 0 to Campos.Count - 1 do
begin
{ TROCO O X POR DELPHIBR }
Campos.Strings[y] := Converte( campos.Strings[y],
'X' , DELPHIBR' );
{ TROCO O S POR CONSEGUI }
Campos.Strings[y] := Converte( campos.Strings[y],
'S' , CONSEGUI' );
end;
{ Limpa Linha }
mmo1.Lines.Strings[x] := '';
{ Cria uma linha do Memo }
for y := 0 to Campos.Count - 1 do
begin
{ TROCO os ; por Espaços }
mmo1.Lines.Strings[x] := mmo1.Lines.Strings[x] +
Campos.Strings[y] + ' ';
end;
end
finally
Campos.Free ;
end;
end;
From: Walter Chagas Jr (BOL)
Sent: Wednesday, October 29, 2008 4:43 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Layout
o usuário coloca lá o tamanho que for necessario. A função corta a linha do
arquivo a cada ponto e virgula ou qualquer outro caractere que voce quiser. Eu
só faço Layouts de importação desse jeito. Muito melhor, mais facil de
codificar e menos chances de erros do que aqualela parada de tamanho e Copy pra
cá, copy pra lá.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 29, 2008 4:40 PM
Subject: Re: [delphi-br] Layout
Walter.. vlw... mas se eu fizer assim ele pode não manter o tamanho do campo
que o usuario definir. Wesley
From: Walter Chagas Jr (BOL)
Sent: Wednesday, October 29, 2008 2:37 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Layout
faz os campos separados por ponto e virgula.
use esta função pra ir cortando a string a medida que ela vai lendo um campo
function ParteTexto(var Frase: string; Parte: string): string;
//
// Retorna uma parte de um texto antes de um caractere especificado
//
var
i,max: integer;
buff: string;
begin
i := 1;
buff := '';
max := length(parte);
while (i = length(Frase)) and (buff parte) do
begin
buff := buff + Frase[i];
if length(buff) max then
buff := copy(buff,2,max);
inc(i);
end;
if buff = Parte then
begin
Result := copy(Frase,1,i - max -1);
Frase := copy(Frase,i,length(Frase)+1 -i);
end
else
begin
Result := Frase;
Frase := '';
end;
end;
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 29, 2008 3:19 PM
Subject: [delphi-br] Layout
Lista
Seguinte... eu não tenho idéia como fazer já procurei mas não achei estou
desenvolvendo um sistema para imprimir nota fiscal.. eu queria fazer com que o
usuario definisse um layout proprio queria
Fw: [delphi-br] Layout
Walter e Rodinei... Fiz assim... Obrigado pela ajuda Espero que
possa ajudar a todos Wesley
em um memo que tenha o seguinte valor... usei o ; para delimitar e a dica
do Clécio para pegar os campos
X ;SSS ;
SSS ; ;
{ Funcao converte texto no valor desejado }
function Converte( Texto: String ; CARACTER : Char ; Valor : String ): String;
var
TamanhoCampo : Integer ;
Campo : string ;
Espaco: string ;
begin
{ Pega o tamanho do campo apenas }
TamanhoCampo := length ( Trim( Texto ) );
{ Usei assim para que eu possa escolher qual campo quero alterar ..
poderia usar apenas assim.. Campo:= trim( Texto ) }
Campo := StringOfChar( CARACTER , TamanhoCampo );
{ Se o Valor que quero Colocar for maior ou = não preciso colocar espaços }
if Length ( Valor ) = TamanhoCampo then
Result:= StringReplace( Texto , Campo , Copy ( Valor , 1 ,
TamanhoCampo ) , [rfReplaceAll] )
{ Caso seja menor coloco os espaços }
else
Result:= StringReplace( Texto , Campo , Valor + StringOfChar( ' ' ,
TamanhoCampo - Length( Valor ) ) , [rfReplaceAll] )
end;
{ N botao coloquei assim }
procedure TForm1.btn1Click(Sender: TObject);
var
x : Integer ;
y : Integer ;
Campos : TStringList ;
begin
Campos := TStringList.Create ;
try
for x := 0 to mmo1.Lines.Count - 1 do
begin
{ limpa }
Campos.Clear;
{ pega os capos }
ExtractStrings( [';'] , [] , PChar(mmo1.Lines.strings[x]) ,
Campos ) ;
{ Converte os Campos }
for y := 0 to Campos.Count - 1 do
begin
{ TROCO O X POR DELPHIBR }
Campos.Strings[y] := Converte( campos.Strings[y],
'X' , DELPHIBR' );
{ TROCO O S POR CONSEGUI }
Campos.Strings[y] := Converte( campos.Strings[y],
'S' , CONSEGUI' );
end;
{ Limpa Linha }
mmo1.Lines.Strings[x] := '';
{ Cria uma linha do Memo }
for y := 0 to Campos.Count - 1 do
begin
{ TROCO os ; por Espaços }
mmo1.Lines.Strings[x] := mmo1.Lines.Strings[x] +
Campos.Strings[y] + ' ';
end;
end
finally
Campos.Free ;
end;
end;
From: Walter Chagas Jr (BOL)
Sent: Wednesday, October 29, 2008 4:43 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Layout
o usuário coloca lá o tamanho que for necessario. A função corta a linha do
arquivo a cada ponto e virgula ou qualquer outro caractere que voce quiser. Eu
só faço Layouts de importação desse jeito. Muito melhor, mais facil de
codificar e menos chances de erros do que aqualela parada de tamanho e Copy pra
cá, copy pra lá.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 29, 2008 4:40 PM
Subject: Re: [delphi-br] Layout
Walter.. vlw... mas se eu fizer assim ele pode não manter o tamanho do campo
que o usuario definir. Wesley
From: Walter Chagas Jr (BOL)
Sent: Wednesday, October 29, 2008 2:37 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Layout
faz os campos separados por ponto e virgula.
use esta função pra ir cortando a string a medida que ela vai lendo um campo
function ParteTexto(var Frase: string; Parte: string): string;
//
// Retorna uma parte de um texto antes de um caractere especificado
//
var
i,max: integer;
buff: string;
begin
i := 1;
buff := '';
max := length(parte);
while (i = length(Frase)) and (buff parte) do
begin
buff := buff + Frase[i];
if length(buff) max then
buff := copy(buff,2,max);
inc(i);
end;
if buff = Parte then
begin
Result := copy(Frase,1,i - max -1);
Frase := copy(Frase,i,length(Frase)+1 -i);
end
else
begin
Result := Frase;
Frase := '';
end;
end;
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
- Original Message -
From: BandaLemuel
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, October 29, 2008 3:19 PM
Subject: [delphi-br] Layout
Lista
Seguinte... eu não tenho idéia como fazer já procurei mas não achei estou
desenvolvendo um sistema para imprimir nota fiscal.. eu queria fazer com que o
usuario definisse um layout proprio
[delphi-br] Componente
Pessoal Estou fazendo um component de nota fiscal e quero colocar vários produtos na nota... oqye vcs me aconselham,. eu estava pensando em usar um stringGrid mas ouvi dizer em collectionItem.. como funciona ?? é melhor mesmo vlw... Wesley [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Layout
Lista Seguinte... eu não tenho idéia como fazer já procurei mas não achei estou desenvolvendo um sistema para imprimir nota fiscal.. eu queria fazer com que o usuario definisse um layout proprio queria fazer tipo assim XX CCC NNN NNFFF GGG E ai o meu sistema procurasse o Caracter X e substituisse pelo campo que eu queira isso é facil... mas como posso saber qntos X o usuario colocou... para que ai eu corte a minha string do tamanho que o cliente definiu ??? Alguem ja fez isso ou tem ideia de como posso fazer isso ??? Vlw Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Layout
Rodinei... como vc fazia para pegar o inicio e o fim da string que queria sobrescrever ... mantendo o tamanho vc pode me mandar um exemplo... ??? Wesley From: Rodinei (MSN) Sent: Wednesday, October 29, 2008 2:46 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Layout Eu já fiz deste modo como seu exemplo.. mas usava assim: --- X NOME CNPJ DT.EMIS --- Onde o espaço entre eu lia como tamanho, para obter o tamanho da string. O que estivesse fora dos eu simplesmente mantinha. Hoje, em dia eu faço diferente. Tabela Linha, Coluna, Flag, Tamanho E vou preenchendo com os campos da nf cfme layout... achei mais simples. Qquer dúvida a disposição Rodinei Amorim Programador Delphi [EMAIL PROTECTED] (11) 8208-9503 - (11) 2024-2723 From: BandaLemuel Sent: Wednesday, October 29, 2008 4:19 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Layout Lista Seguinte... eu não tenho idéia como fazer já procurei mas não achei estou desenvolvendo um sistema para imprimir nota fiscal.. eu queria fazer com que o usuario definisse um layout proprio queria fazer tipo assim XX CCC NNN NN FFF GGG E ai o meu sistema procurasse o Caracter X e substituisse pelo campo que eu queira isso é facil... mas como posso saber qntos X o usuario colocou... para que ai eu corte a minha string do tamanho que o cliente definiu ??? Alguem ja fez isso ou tem ideia de como posso fazer isso ??? Vlw Wesley [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3566 (20081029) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Layout
Walter.. vlw... mas se eu fizer assim ele pode não manter o tamanho do campo que o usuario definir. Wesley From: Walter Chagas Jr (BOL) Sent: Wednesday, October 29, 2008 2:37 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Layout faz os campos separados por ponto e virgula. use esta função pra ir cortando a string a medida que ela vai lendo um campo function ParteTexto(var Frase: string; Parte: string): string; // // Retorna uma parte de um texto antes de um caractere especificado // var i,max: integer; buff: string; begin i := 1; buff := ''; max := length(parte); while (i = length(Frase)) and (buff parte) do begin buff := buff + Frase[i]; if length(buff) max then buff := copy(buff,2,max); inc(i); end; if buff = Parte then begin Result := copy(Frase,1,i - max -1); Frase := copy(Frase,i,length(Frase)+1 -i); end else begin Result := Frase; Frase := ''; end; end; []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: BandaLemuel To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 29, 2008 3:19 PM Subject: [delphi-br] Layout Lista Seguinte... eu não tenho idéia como fazer já procurei mas não achei estou desenvolvendo um sistema para imprimir nota fiscal.. eu queria fazer com que o usuario definisse um layout proprio queria fazer tipo assim XX CCC NNN NN FFF GGG E ai o meu sistema procurasse o Caracter X e substituisse pelo campo que eu queira isso é facil... mas como posso saber qntos X o usuario colocou... para que ai eu corte a minha string do tamanho que o cliente definiu ??? Alguem ja fez isso ou tem ideia de como posso fazer isso ??? Vlw Wesley [As partes desta mensagem que não continham texto foram removidas] __ Informa��o do ESET NOD32 Antivirus, vers�o da vacina 3564 (20081028) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3566 (20081029) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi e Access
Lista primeiramente obrigado pela ajuda de como colocar o access em
rede.. agora outra coisa... nao sei mais o que fazer.. tenho as 2 classes
abaixo... a Classe setor Funciona certinho.. mas a classe Local da erro ao
executar qualquer coisa no banco... o erro é exception class EoleException
'Erro não especificado'. não sei mais o que fazer... as 2 classes não
igualzinhas só muda o nome e as duas estão usando a mesma conexão
Alguma idéia.. ??
Wesley
unit UClasses;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls;
{ Classe Setor }
type
TSetor = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDSTR , DESCR : String ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
{ Classe Local }
type
TLocal = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDLCL , DESCR : string ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
implementation
{ Acoes Banco }
procedure TSetor.AcoesBanco(ACAO: Integer; CDSTR, DESCR: String);
begin
with Banco do
begin
case Acao of
{ Incluir }
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO SETOR VALUES ( :CDSTR ,
:DESCR )';
Parameters.ParamByName('CDSTR').Value := StrToInt(
CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
{ Alterar }
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE SETOR SET DESCR=:DESCR WHERE
CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt(
CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
{ Deletar }
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM SETOR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt(
CDSTR ) ;
ExecSQL;
Close;
end;
end
end
end;
{ Gera codigo Novo }
function TSetor.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDSTR ) FROM SETOR';
Open;
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
{ Consulta }
procedure TSetor.Consulta(VALUE: Variant);
begin
with banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM SETOR WHERE DESCR LIKE ''' + value +
'%'' ORDER BY DESCR' ;
Open;
end
end;
{ Acoes Banco }
procedure TLocal.AcoesBanco(ACAO: Integer; CDLCL, DESCR: string);
begin
with Banco do
begin
case Acao of
//Incluir
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO LOCAL VALUES ( :CDLCL ,
:DESCR )';
Parameters.ParamByName('CDLCL').Value := StrToInt(
CDLCL );
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
//Alterar
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE LOCAL SET DECSR=:DESCR WHERE
CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt(
CDLCL );
Parameters.ParamByName('DESCR').Value := Trim(
DESCR );
ExecSQL;
Close;
end;
//EXcluir
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM LOCAL WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt(
CDLCL );
ExecSQL;
Close;
Re: [delphi-br] Delphi e Access
Lista
Consegui descobrir não sei o que era... eu troquei o nome da tabela de
LOCAL para LOCAIS e ai funcionou.. creio que LOCAL é um metodo ou sei lá o que
reservado do access...
Wesley
From: BandaLemuel
Sent: Tuesday, October 28, 2008 10:31 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Delphi e Access
Lista primeiramente obrigado pela ajuda de como colocar o access em rede..
agora outra coisa... nao sei mais o que fazer.. tenho as 2 classes abaixo... a
Classe setor Funciona certinho.. mas a classe Local da erro ao executar
qualquer coisa no banco... o erro é exception class EoleException 'Erro não
especificado'. não sei mais o que fazer... as 2 classes não igualzinhas
só muda o nome e as duas estão usando a mesma conexão Alguma idéia.. ??
Wesley
unit UClasses;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls;
{ Classe Setor }
type
TSetor = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDSTR , DESCR : String ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
{ Classe Local }
type
TLocal = class
function GeraCodigoNovo : Integer ;
procedure AcoesBanco ( ACAO : Integer ; CDLCL , DESCR : string ) ;
procedure Consulta ( VALUE : Variant );
public
Banco : TADOQuery ;
end;
implementation
{ Acoes Banco }
procedure TSetor.AcoesBanco(ACAO: Integer; CDSTR, DESCR: String);
begin
with Banco do
begin
case Acao of
{ Incluir }
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO SETOR VALUES ( :CDSTR , :DESCR )';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
{ Alterar }
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE SETOR SET DESCR=:DESCR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
{ Deletar }
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM SETOR WHERE CDSTR=:CDSTR';
Parameters.ParamByName('CDSTR').Value := StrToInt( CDSTR ) ;
ExecSQL;
Close;
end;
end
end
end;
{ Gera codigo Novo }
function TSetor.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDSTR ) FROM SETOR';
Open;
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
{ Consulta }
procedure TSetor.Consulta(VALUE: Variant);
begin
with banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM SETOR WHERE DESCR LIKE ''' + value + '%'' ORDER BY
DESCR' ;
Open;
end
end;
{ Acoes Banco }
procedure TLocal.AcoesBanco(ACAO: Integer; CDLCL, DESCR: string);
begin
with Banco do
begin
case Acao of
//Incluir
1 : begin
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO LOCAL VALUES ( :CDLCL , :DESCR )';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
//Alterar
2 : begin
Close;
Sql.Clear;
Sql.Text := 'UPDATE LOCAL SET DECSR=:DESCR WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
Parameters.ParamByName('DESCR').Value := Trim( DESCR );
ExecSQL;
Close;
end;
//EXcluir
3 : begin
Close;
Sql.Clear;
Sql.Text := 'DELETE FROM LOCAL WHERE CDLCL=:CDLCL';
Parameters.ParamByName('CDLCL').Value := StrToInt( CDLCL );
ExecSQL;
Close;
end
end;
end
end;
{ Consulta }
procedure TLocal.Consulta(VALUE: Variant);
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT * FROM LOCAL WHERE DESCR LIKE ''' + Value + '%'' ORDER BY
DESCR';
Open;
end
end;
{ gera Codigo }
function TLocal.GeraCodigoNovo: Integer;
begin
with Banco do
begin
Close;
Sql.Clear;
Sql.Text := 'SELECT MAX ( CDLCL ) FROM LOCAL';
Open;
ShowMessage( 'Abriu' );
if IsEmpty then
Result := 1
else
Result := Fields[0].AsInteger + 1 ;
Close;
end
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3561 (20081027) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro função limpar todos os Edits
Tente assim... procedure LimpaEdit(Form: TForm); var i : Integer; begin for i := 0 to Form.ComponentCount -1 do begin //Adcione este Begin if Form.Components[i] is TDBEdit then begin TDBEdit(Form.Components[i]).Text := ''; end //TDBComboBox //Adiciona else else if Form.Components[i] is TDBComboBox then begin TDBComboBox(Form.Components[i]).Text := ''; end; end; //Fecha o Begin q vc criou end; O que estava acontecendo é que o laço for que vc criou estava sendo executado apenas a parte do DBEdit... e quando ele tentava o Combobox... dava erro... Tenta ae... Wesley From: Eduardo Melo Sent: Monday, October 27, 2008 7:47 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Erro função limpar todos os Edits Olá Pessoal, Criei um procedimento que limpa todos os DBEdits e DBCombobox do meu formulário, porem rodando o sistema pelo delphi quando chamo esse procedimento ele me retorna o seguinte erro: '..raised exceptiom class EListError with message 'List index out of bounds(43)'' Porem rodando o sistema direto pelo executavel não apresenta nenhum erro. Mas gostaria de saber o porque disso para não ter problemas futuro. Segue o comando: procedure LimpaEdit(Form: TForm); var i : Integer; //ComponentCount: Integer; begin for i := 0 to Form.ComponentCount -1 do if Form.Components[i] is TDBEdit then begin TDBEdit(Form.Components[i]).Text := ''; end; //TDBComboBox if Form.Components[i] is TDBComboBox then begin TDBComboBox(Form.Components[i]).Text := ''; end; end; -- Att Eduardo Melo 3º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3558 (20081027) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Access
Lista Preciso rodar um programa que utiliza banco de dados em Access em rede ... é´possivel ?? como configuro... ??? vlw... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Criacao de Componente (Por favor)
A propriedade Defauldrawing esta como true ??
Wesley
From: fjogassa
Sent: Thursday, October 23, 2008 2:31 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Criacao de Componente (Por favor)
Quando inicia, ele está com 2, pois está configurado no Create.
Sim .. este showMessage aparece a quantidade correta, ele só não
atualiza o Grid.
--- Em delphi-br@yahoogrupos.com.br, BandaLemuel [EMAIL PROTECTED]
escreveu
Ele mostra a Quantidade nestes ShowMessage e mostra os Valores
Corretos ??? Apenas não Atualiza a Quantidade de Linhas atraves do
RowCount ??? Quando vc inicia o componente com quantos RowCount ele
esta
procedure TSCGFiltro.CarregaCamposFiltro;
var i: Integer;
begin
Showmessage('Carrega: ' + IntToStr(FCampos.Count));
if FCampos.Count = 0 then
begin
RowCount := 10;
end
else
begin
ShowMessage(IntToStr(FCampos.Count));
RowCount := FCampos.Count + 1;
for i := 0 to FCampos.Count - 1 do
Cells[0, i + 1] :=
TConfigCampo(FCampos.Objects[i]).DescricaoCampo;
end;
end;
From: fjogassa
Sent: Thursday, October 23, 2008 1:49 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Criacao de Componente (Por favor)
Removi alguns métodos para o código ficar menor, por isso acredito
que não seja possível compilar o mesmo.
O problema está no método CarregaCamposFiltro.
unit SCGFiltro;
interface
uses
SysUtils, Classes, Controls, Grids, StdCtrls, Windows, Dialogs,
DesignIntF
,DesignEditors, Forms;
type
TGetEditStyleEvent = procedure (TSender:TObject; ACol,ARow:integer;
var EditStyle:TEditStyle) of object;
TConfigCampo = class;
TSCGFiltro = class(TStringGrid)
private
FDropdownRowCount : integer;
FOnEditButtonClick : TNotifyEvent;
FOnGetEditStyle : TGetEditStyleEvent;
FOnGetPickListItems : TOnGetPickListItems;
FCampoPesquisa: TStringList;
FCampoCondicao: TStringList;
FCampoDescricao: TStringList;
FCampos: TStringList;
FConfiguracaoFiltro: TConfigCampo;
procedure SetDropdownRowCount(value:integer);
procedure SetOnEditButtonClick(value:TNotifyEvent);
procedure SetOnGetPicklistItems(value:TOnGetPickListItems);
procedure setCampoCondicao(const Value: TStringList);
procedure setCampoDescricao(const Value: TStringList);
procedure setConfigCampos(const Value: TStringList);
procedure setConfiguracaoFiltro(const Value: TConfigCampo);
protected
function CreateEditor: TInplaceEdit; override;
function GetEditStyle(ACol, ARow: integer): TEditStyle; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure AdicionaCampo(pCampo, pDescricao, pTipo: String);
function GetFCampos: TStringList;
procedure SetFCampos(Value: TStringList);
procedure AlterarCampo(pCampo, pDescricao, pTipo: String);
procedure RemoverCampo(pCampo: String);
procedure CopiaCampos(pAtualizar: Boolean; Value: TStringList);
procedure LimpaCampos;
procedure LimpaObjetos;
procedure setCampoPesquisa(const Value: TStringList);
procedure CarregaCamposFiltro;
published
property DropdownRowCount : integer read FDropDownRowCount write
SetDropdownRowCount default 3;
property OnEditButtonClick: TNotifyEvent read FOnEditButtonClick
write SetOnEditButtonClick;
property OnGetEditStyle : TGetEditStyleEvent read FOnGetEditStyle
write FOnGetEditStyle;
property OnGetPickListItems : TOnGetPickListItems read
FOnGetPickListItems write SetOnGetPickListItems;
property CampoDescricao: TStringList read FCampoDescricao Write
setCampoDescricao;
property CampoPesquisa: TStringList read FCampoPesquisa write
setCampoPesquisa;
property CampoCondicao: TStringList read FCampoCondicao write
setCampoCondicao;
property ConfiguracaoFiltro: TConfigCampo read FConfiguracaoFiltro
write setConfiguracaoFiltro;
end;
TConfiguracaoCampo = Class(TComponentEditor)
private
protected
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): String; override;
function GetVerbCount: Integer; override;
published
end;
TConfigCampo = class(TPersistent)
private
FNomeCampoBanco: String;
FTipoCampo: String;
FDescricaoCampo: String;
procedure setDescricaoCampo(const Value: String);
procedure setNomeCampoBanco(const Value: String);
procedure setTipoCampo(const Value: String);
protected
public
constructor Create;
destructor Destroy; override;
published
property NomeCampoBanco: String read FNomeCampoBanco write
setNomeCampoBanco;
property DescricaoCampo: String read FDescricaoCampo write
setDescricaoCampo;
property TipoCampo: String read FTipoCampo write setTipoCampo;
end;
var vSCGFiltro: TSCGFiltro;
procedure Register;
implementation
uses SCGConfigCamposTela;
procedure Register;
begin
RegisterComponents('SCG', [TSCGFiltro]);
RegisterComponentEditor(TSCGFiltro, TConfiguracaoCampo);
end;
{ TSCGFiltro }
procedure TSCGFiltro.AdicionaCampo(pCampo, pDescricao, pTipo: String);
var configCampo: TConfigCampo;
begin
configCampo
Re: [delphi-br] Componente Ajuda...
Jean ... Desculpe a Ignorancia... é que estou aprendendo a desenvolver componentes... como posso herdar 3 componentes ??? e como posso deixa-los alinhados da maneira que vc descreveu ??? Wesley From: Jean Barreiros Sent: Wednesday, October 22, 2008 3:44 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] Componente Ajuda... Crie um componente que seja hedeiro de TDBGrid, TSpeedButton e TEdit dai vc faz ele ficar mais ou menos assim: [Edit][v] -- SpeedButton ++ || || ---DBGrid---| || ++ . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] - Mensagem original De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 22 de Outubro de 2008 16:11:03 Assunto: [delphi-br] Componente Ajuda... Lista Estou querendo fazer um componente parecido com o DBLookUpCombobox. ... quero que ele me mostre os dados = ao um DBGRID... e que não fique apenas do tamanho da propriedade Width do componente, pois as vezes os dados podem ser maiores... e que o dataset não precise ficar aberto... gostaria que fosse tipo um esquema de inserir item q nem o comboxo... e não sei por onde começar... no combobox... quando ele mostra os dados... ele lista em um ListBox... é possivel alterar do ListBox.. para outro componente.. ??? Wesley [As partes desta mensagem que não continham texto foram removidas] __.._,_.___ Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 17 Novos usuários * 2 Novos linksVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3547 (20081022) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Controle de Permissão de usuá rio!
Uso da maneira que descrevi para isso mesmo se o usuario não tem acesso... vc define em um modulo de usuario que ele nao tem acesso a excluir mas tem para incluir... em um TreeView... ai pela tag do componente q ele pode acessar ou não vc habilita ou não e até mesmo funcções que não existem componnetes... cria uma variavel PodeFazerTalTarefa : Boolean; , na hora que ele for usar vc verifica esta variavel e pronto Wesley From: Ricardo Cabral Sent: Wednesday, October 22, 2008 5:16 PM To: delphi-br@yahoogrupos.com.br Subject: Re: Res: [delphi-br] Controle de Permissão de usuário! A minha situação é interessante: Num sistema, existe telas que tem mais de um tipo de permissão, ou seja, tem usuário por exemplo que pode acessar a tela de cliente com permissão total e outros acessam a tela de cliente com algumas restrições. Abraços, Ricardo Cabral --- Em qua, 22/10/08, BandaLemuel [EMAIL PROTECTED] escreveu: De: BandaLemuel [EMAIL PROTECTED] Assunto: Re: Res: [delphi-br] Controle de Permissão de usuário! Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 22 de Outubro de 2008, 16:29 Bom vou dizer como eu uso Criei uma tabela de banco de dados com as permissões dos usuario... nesta tabela tem o CDUSU , CDITM , HABIL o CDITM... é o codigo da funções... ao entrar no modulo que eu desejo... passo do modulo principal ó codigo do usuario logado... ai em cada componente que eu quero ou não dar acesso a ele... eu coloco o codigo da função na propriedade TAG... ai verifico com um for em todos os componentes. .. e seleciono se habilito ou não aquela função... EX: CDUSU CDITM HABIL 1 10 1 1 11 0 for x:= 0 to componentCount -1 do beign if Components[x] .tag 0 then if TemAcesso( Componentes[ x].tag , CDUSU ) then Componentes[ x].enabled := true else Componentes[ x].enabled := false end Wesley From: lidio.zucchi Sent: Wednesday, October 22, 2008 1:59 PM To: [EMAIL PROTECTED] os.com.br Subject: Re: Res: [delphi-br] Controle de Permissão de usuário! Sobre o controle de acesso dos operadores, usuários como queiram eu utilizo um nível no cadastro dos operadores de 0 a 9, uma tabela com o nome dos formulários, no qual determino níveis de 0 a 9, para acessar, cadastrar, consultar, alterar, excluir e em quais estações é permitido o acesso de cada formulário ou em TODAS. É um pouco trabalhoso, mas tem um bom controle sobre o acesso. Espero ter contribuir com a idéia. Zucchi --- Em [EMAIL PROTECTED] os.com.br, Pablo Henrique Vianini Souza [EMAIL PROTECTED] .. escreveu Realmente Jean, eu pensei mesmo que poderia acontecer de duas pessoas do mesmo perfil terem alguma diferença nas permissões, levando em consideração a sua experiencia vou tentar pensar em algo mais simples porem sem a ideia dos perfis para nao cair nesse erro... um outro amigo aqui indicou um componente o User Control vou ver como é esse componente talvez pode ajudar nessa tentativa de facilidades. ... Abraços... To: [EMAIL PROTECTED] .: [EMAIL PROTECTED] ..: Wed, 22 Oct 2008 04:51:17 - 0700Subject: Res: [delphi-br] Controle de Permissão de usuário! Realmente esta é uma Thread das grandesmas, eu axei interesante sua idéia dos perfissó que isso gereria desvantagens tambemcomo vc falou se alterar o perfil alterapara todos os usuários e num sistemaném todos os usuários tem as mesmas permissõestipo uma pessoa do perfil usuário pode teruma ou mais opções diferente de uma outra pessoao que implicaria na criação de mais um perfilna pratica seria a mesma coisa de configuraras permissões individualmente por usuárioé o que eu penso e conheço pelos anos de prática! Jean BarreirosProgramado r/Web- DesignerDelphi, C++, PHP, JavaScriptFireBird/ InterBase, MySql, SQLServer, PostGree, Oraclemsn: [EMAIL PROTECTED]: [EMAIL PROTECTED] .. - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED] ..Para: [EMAIL PROTECTED] .: Terça-feira, 21 de Outubro de 2008 23:22:48Assunto: [delphi-br] Controle de Permissão de usuário! Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistemaGostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo:O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração...Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso??Abraços pessoal
Re: [delphi-br] Componente Ajuda...
ok. Obrigado... From: Jean Barreiros Sent: Thursday, October 23, 2008 8:47 AM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] Componente Ajuda... Meu caro, vc pode criar um componente herdado de um outro e depois adicionar os outros dinamicamente via código procure na internet sobre criação de componentes que tem muito conteúdo sobre o assunto.. . . Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED] - Mensagem original De: BandaLemuel [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 23 de Outubro de 2008 8:43:55 Assunto: Re: [delphi-br] Componente Ajuda... Jean ... Desculpe a Ignorancia.. . é que estou aprendendo a desenvolver componentes. .. como posso herdar 3 componentes ??? e como posso deixa-los alinhados da maneira que vc descreveu ??? Wesley From: Jean Barreiros Sent: Wednesday, October 22, 2008 3:44 PM To: [EMAIL PROTECTED] os.com.br Subject: Res: [delphi-br] Componente Ajuda... Crie um componente que seja hedeiro de TDBGrid, TSpeedButton e TEdit dai vc faz ele ficar mais ou menos assim: [Edit... .][v] -- SpeedButton +--- -+ |--- -| |--- -| ---DBGrid-- -| |--- -| +--- -+ . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] com.br e-mail: [EMAIL PROTECTED] com - Mensagem original De: BandaLemuel bandalemuel@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 22 de Outubro de 2008 16:11:03 Assunto: [delphi-br] Componente Ajuda... Lista Estou querendo fazer um componente parecido com o DBLookUpCombobox. ... quero que ele me mostre os dados = ao um DBGRID... e que não fique apenas do tamanho da propriedade Width do componente, pois as vezes os dados podem ser maiores... e que o dataset não precise ficar aberto... gostaria que fosse tipo um esquema de inserir item q nem o comboxo... e não sei por onde começar... no combobox... quando ele mostra os dados... ele lista em um ListBox... é possivel alterar do ListBox.. para outro componente.. ??? Wesley [As partes desta mensagem que não continham texto foram removidas] __.._,_.___ Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 17 Novos usuários * 2 Novos linksVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3547 (20081022) __ The message was checked by ESET NOD32 Antivirus.. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3548 (20081023) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criacao de Componente (Por favor)
Fábio Vc não tem a propriedade RowCount Poste o Codigo para a gente ver... Wesley From: fjogassa Sent: Thursday, October 23, 2008 12:57 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Criacao de Componente (Por favor) Boa tarde, estou criando um componente herdado do StringGrid, e em dado momento vou alterar o rowCount mais não altera, só altera se eu removo o componente e insiro novamente. Alguém pode me dizer como faço para aumentar o número de linhas sem precisar remover e inserir o componente? Abraços. Obs: Estou utilizando D2007 Fábio Jun Analista/Programador Maringá - Pr. __ Information from ESET NOD32 Antivirus, version of virus signature database 3548 (20081023) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Criacao de Componente (Por favor)
(FCampos.Objects[FCampos.IndexOf(pCampo)]).TipoCampo :=
pTipo;
end
else
begin
Raise Exception.CreateFmt('Campo ' + pCampo + ' não encontrado na
lista de campos.', []);
end;
end;
constructor TSCGFiltro.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetDropdownRowCount(8);
ColCount := 3;
RowCount := 2;
DefaultRowHeight := 20;
ScrollBars := ssVertical;
FCampoPesquisa := TStringList.Create;
FCampoCondicao := TStringList.Create;
FCampoDescricao := TStringList.Create;
FCampos := TStringList.Create;
Cells[0, 0] := 'Campo';
Cells[1, 0] := 'Condição';
Cells[2, 0] := 'Valor';
ColWidths[0] := 150;
ColWidths[1] := 80;
ColWidths[2] := 300;
CarregaCamposFiltro;
end;
function TSCGFiltro.CreateEditor: TInplaceEdit;
begin
Result := TInplaceEditList.Create(self);
TInplaceEditList(result).DropdownRows := FDropdownRowCount;
TInplaceEditList(result).OnGetPickListItems := FOnGetPickListItems;
TInplaceEditList(result).OnEditButtonClick := FOnEditButtonClick;
end;
destructor TSCGFiltro.Destroy;
begin
FCampoPesquisa.Free;
FCampoCondicao.Free;
FCampoDescricao.Free;
FCampos.Free;
inherited;
end;
function TSCGFiltro.GetEditStyle(ACol, ARow: integer): TEditStyle;
begin
Result := esSimple;
if Assigned(FOnGetEditStyle) then
FOnGetEditStyle(self, ACol, ARow, result);
end;
function TSCGFiltro.GetFCampos: TStringList;
begin
Result := nil;
if Assigned(FCampos) then
Result := FCampos;
end;
procedure TSCGFiltro.RemoverCampo(pCampo: String);
begin
if FCampos.IndexOf(pCampo) 0 then // campo não encontrado
Raise Exception.CreateFmt('Campo ' + pCampo + ' não foi
encontrado.', [])
else
begin
FCampos.Objects[FCampos.IndexOf(pCampo)].Free;
FCampos.Delete(FCampos.IndexOf(pCampo));
end;
end;
procedure TSCGFiltro.setCampoPesquisa(const Value: TStringList);
begin
if (Assigned(Value)) and (Value.Count 0) then
FCampoPesquisa.Assign(Value);
end;
procedure TSCGFiltro.setConfiguracaoFiltro(const Value: TConfigCampo);
begin
FConfiguracaoFiltro := Value;
end;
procedure TSCGFiltro.SetDropdownRowCount(value: integer);
begin
FDropdownRowCount := value;
if Assigned(InplaceEditor) then
TInplaceEditList(InplaceEditor).DropdownRows := value;
end;
procedure TSCGFiltro.CarregaCamposFiltro;
var i: Integer;
begin
Showmessage('Carrega: ' + IntToStr(FCampos.Count));
if FCampos.Count = 0 then
begin
RowCount := 10;
end
else
begin
ShowMessage(IntToStr(FCampos.Count));
RowCount := FCampos.Count + 1;
for i := 0 to FCampos.Count - 1 do
Cells[0, i + 1] :=
TConfigCampo(FCampos.Objects[i]).DescricaoCampo;
end;
end;
procedure TSCGFiltro.CopiaCampos(pAtualizar: Boolean; Value:
TStringList);
var i: Integer;
begin
if Value.Count 0 then
begin
LimpaCampos;
for i := 0 to Value.Count - 1 do
begin
AdicionaCampo(
TConfigCampo(Value.Objects[i]).NomeCampoBanco
,TConfigCampo(Value.Objects[i]).DescricaoCampo
,TConfigCampo(Value.Objects[i]).TipoCampo
);
end;
end;
end;
procedure TSCGFiltro.SetFCampos(Value: TStringList);
begin
if Assigned(Value) then
FCampos := Value;
end;
{ TConfiguracaoCampo }
procedure TConfiguracaoCampo.ExecuteVerb(Index: Integer);
var tela: TSCGConfigCamposTelaF;
begin
Tela := TSCGConfigCamposTelaF.Create(Application);
try
Tela.showModal;
finally
FreeAndNil(Tela);
end;
end;
{ TConfigCampo }
constructor TConfigCampo.Create;
begin
FTipoCampo := 'S'; // inicialização
end;
destructor TConfigCampo.Destroy;
begin
inherited;
end;
procedure TConfigCampo.setDescricaoCampo(const Value: String);
begin
FDescricaoCampo := Value;
end;
procedure TConfigCampo.setNomeCampoBanco(const Value: String);
begin
FNomeCampoBanco := Value;
end;
procedure TConfigCampo.setTipoCampo(const Value: String);
begin
FTipoCampo := Value;
end;
end.
--- Em delphi-br@yahoogrupos.com.br, BandaLemuel [EMAIL PROTECTED]
escreveu
Fábio
Vc não tem a propriedade RowCount Poste o Codigo para a
gente ver...
Wesley
From: fjogassa
Sent: Thursday, October 23, 2008 12:57 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Criacao de Componente (Por favor)
Boa tarde, estou criando um componente herdado do StringGrid, e em
dado momento vou alterar o rowCount mais não altera, só altera
se eu
removo o componente e insiro novamente. Alguém pode me dizer como
faço
para aumentar o número de linhas sem precisar remover e inserir o
componente?
Abraços.
Obs: Estou utilizando D2007
Fábio Jun
Analista/Programador
Maringá - Pr.
__ Information from ESET NOD32 Antivirus, version of virus
signature database 3548 (20081023) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3549 (20081023) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Controle de Permissão de usuá rio!
Bom vou dizer como eu uso Criei uma tabela de banco de dados com as permissões dos usuario... nesta tabela tem o CDUSU , CDITM , HABIL o CDITM... é o codigo da funções... ao entrar no modulo que eu desejo... passo do modulo principal ó codigo do usuario logado... ai em cada componente que eu quero ou não dar acesso a ele... eu coloco o codigo da função na propriedade TAG... ai verifico com um for em todos os componentes... e seleciono se habilito ou não aquela função... EX: CDUSUCDITMHABIL 1 10 1 1 11 0 for x:= 0 to componentCount -1 do beign if Components[x].tag 0 then if TemAcesso( Componentes[x].tag , CDUSU ) then Componentes[x].enabled:= true else Componentes[x].enabled:= false end Wesley From: lidio.zucchi Sent: Wednesday, October 22, 2008 1:59 PM To: delphi-br@yahoogrupos.com.br Subject: Re: Res: [delphi-br] Controle de Permissão de usuário! Sobre o controle de acesso dos operadores, usuários como queiram eu utilizo um nível no cadastro dos operadores de 0 a 9, uma tabela com o nome dos formulários, no qual determino níveis de 0 a 9, para acessar, cadastrar, consultar, alterar, excluir e em quais estações é permitido o acesso de cada formulário ou em TODAS. É um pouco trabalhoso, mas tem um bom controle sobre o acesso. Espero ter contribuir com a idéia. Zucchi --- Em delphi-br@yahoogrupos.com.br, Pablo Henrique Vianini Souza [EMAIL PROTECTED] escreveu Realmente Jean, eu pensei mesmo que poderia acontecer de duas pessoas do mesmo perfil terem alguma diferença nas permissões, levando em consideração a sua experiencia vou tentar pensar em algo mais simples porem sem a ideia dos perfis para nao cair nesse erro... um outro amigo aqui indicou um componente o User Control vou ver como é esse componente talvez pode ajudar nessa tentativa de facilidades Abraços... To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 22 Oct 2008 04:51:17 - 0700Subject: Res: [delphi-br] Controle de Permissão de usuário! Realmente esta é uma Thread das grandesmas, eu axei interesante sua idéia dos perfissó que isso gereria desvantagens tambemcomo vc falou se alterar o perfil alterapara todos os usuários e num sistemaném todos os usuários tem as mesmas permissõestipo uma pessoa do perfil usuário pode teruma ou mais opções diferente de uma outra pessoao que implicaria na criação de mais um perfilna pratica seria a mesma coisa de configuraras permissões individualmente por usuárioé o que eu penso e conheço pelos anos de prática! Jean BarreirosProgramador/Web- DesignerDelphi, C++, PHP, JavaScriptFireBird/InterBase, MySql, SQLServer, PostGree, Oraclemsn: [EMAIL PROTECTED]: [EMAIL PROTECTED] - Mensagem original De: Pablo Henrique Vianini Souza [EMAIL PROTECTED]Para: [EMAIL PROTECTED]: Terça-feira, 21 de Outubro de 2008 23:22:48Assunto: [delphi-br] Controle de Permissão de usuário! Pessoal, fiquei por horas pensando uma maneira pratica e rápida de se fazer um controle de permissão de úsuario em meu sistemaGostaria de fazer algo bem simples, pq é muito chato quando vc vai gerar permissões e que tem aqueles milhares de checkbox um para cada opção do menu, então pensei em algo que pude-se ser mais prático, tipo:O Administrador do sistema criar Perfis tipo Administrador , Balconista , Encarregado , e dentro destes perfis poderia sim criar as centenas de check box, porem depois que os perfis estivesem prontos, quando adicionar um novo usuario, simplesmente informariamos qual o perfil daquele usuario... em caso de necessidade alteraria o perfil e todos os usuarios daquele perfil iria adquirir aquela alteração...Vcs conhecem algum componente que ajuda a controlar essa questão de permissão, o action list seria um componente ideal pra isso??Abraços pessoal _ _ _ _ _ _Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!http://www.amigosdo messenger. com.br[As partes desta mensagem que não continham texto foram removidas]Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias* 14Novos usuários* 2Novos linksVisite seu Grupo Yahoo! MailConecte-se ao mundoProteção anti- spamMuito mais espaçoYahoo! BarraInstale grátisBuscar sites na webChecar seus e-mails .Yahoo! GruposCrie seu próprio grupoA melhor forma de
[delphi-br] Componente Ajuda...
Lista Estou querendo fazer um componente parecido com o DBLookUpCombobox quero que ele me mostre os dados = ao um DBGRID... e que não fique apenas do tamanho da propriedade Width do componente, pois as vezes os dados podem ser maiores... e que o dataset não precise ficar aberto... gostaria que fosse tipo um esquema de inserir item q nem o comboxo... e não sei por onde começar... no combobox... quando ele mostra os dados... ele lista em um ListBox... é possivel alterar do ListBox.. para outro componente.. ??? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ideias ajuda
Eu Uso assim.
with Query do
begin
Close;
Sql.clear;
{ SQL Principal}
Sql.text:= 'SELECT * FROM TABELA ' ;
{ Verifica se filtra por codigo }
if RgFiltro.itemIndex = 0 then
begin
Sql.add ( ' WHERE CODIGO=:CODIGO ' );
ParamByName('CODIGO').asinteger :=
StrToInt ( EdtCodigo.text );
end;
{ Se filtra por Periodo]}
if ( DtIni.Text '' ) and ( Dtfin.text '' ) then
begin
{ Uso este IF para verificar se no
SQL temo WHERE , se tiver é porque ja tem um filtro ai ele vai usar o AND
); }
if pos ( 'WHERE' , Sql.text ) 0
then
Sql.Add ( ' AND DATA
BETWEEN :DTINI AND :DTFIN ' )
else
Sql.add ( ' WHERE DATA
BETWEEN :DTINI AND :DTFIN' );
ParamByName('DTINI').asdate :=
DtIni.Date;
ParamByName('DTFIN').asdate:=
DtFin.date;
end
end;
Creio que seja isso o que vc quer... ai vc pode fazer o jeito que vc
precisar.
Wesley
From: alessandra porto
Sent: Tuesday, October 21, 2008 7:57 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] ideias ajuda
josebenedito
comecei a pegar a ideia vce tem um pedacinho de codigo ai que vce usa
para clarear a ideia
desde já agradeço sua atenção
--- Em ter, 21/10/08, JB [EMAIL PROTECTED] escreveu:
De: JB [EMAIL PROTECTED]
Assunto: Re: [delphi-br] ideias ajuda
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 21 de Outubro de 2008, 8:43
coloca todos os parametros e passa todos para a query, os q nao
utiliza passa o valor 0 por exemplo, e no sql vc verifica se o campo
eh igual a variavel ou a variavel eh igual a 0... entendeu?
2008/10/21 alessandra porto alessandraporto11@ yahoo.com. br:
preciso de ideias de como fazer essa pesquisa de forma mais eficiente
tenho que atraves de radiogroup deixar o usuario selecionar as opções que
farão parte da pesquisa , cada opção carrega uma variavel
tipo:
paciente: medico convenio unidade
geral geral geral geral
nome medico convenio unidade
paciente,medico, convenio, unidade
são tabelas do banco que se ligam atraves de
chaves.
fiz algo assim:
with DM3.Qry_Fatura_ Fat do
begin
Active:=false;
sql.Clear;
SQL.Add(CORPO_ SQL2+' WHERE (DTA_EMIS_GUIA = :INIC AND
DTA_EMIS_GUIA =:FIM)'+COND_ FAT1+COND_ FAT2+COND_ FAT3+COND_ FAT4+COND_
FAT5+'
ORDER BY DTA_EMIS_GUIA ');
ParamByName( 'CD_CONV' ).AsInteger :=CD_CONVENIO_ FAT;
ParamByName( 'INIC').AsDate :=EinicFat.Date;
ParamByName( 'FIM').AsDate :=EfinalFat. Date;
Active:=True;
end;
corposql é uma variavel que contem o sql principal
COND_FAT1+COND_ FAT2+COND_ FAT3+COND_ FAT4+COND_ FAT5
seria as variaveis que receberiam os valores escolhidos pelo usuario
o problema é como criar os
ParamByName( '').Asinteger :=;
conforme a necessidade do usuario
pois nem sempre ele vai determinar valores todas as variaveis , há casos
que quando geral não é necessario criar o ParamByName( '').Asinteger :=;
ficaria grata aos amigos que ajudarem com ideias de como fazer isso de forma
mais eficiente
obs. essa é só uma parte a pesquisa envolve um maior numero de
tabelas(opções) em uma só pesquisa
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses
[As partes desta mensagem que não continham texto foram removidas]
--
Att.
--
_ ___
José Benedito
Software Developer
josebenedito@ gmail.com
+55 19 8116-7826
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3541 (20081021) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com TImage
Este erro normalmente da quando vc tenta acessar algo que ainda não foi
criado... como vc adiciona este TImage... coloca um showmessage pára saber onde
esta o erro.. exemplo...
if OpenPictureDialog1.Execute
begin
ShowMessage ( 'Executou o Dialog' );
PictureBrazonry.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ShowMessage ( 'Colocou a Imagem' );
end
Caso execute o Primeiro ShowMessage .. o erro não esta no dialogo... se não o
problema é no TImage... se for no Timage... verifique se ele foi criado e se a
imagem existe
if PictureBrazonry nil then
begin
if FileExists ( Caminho do Arquivo ) then
{ Aki vc coloca a imagem}
else
{ Limpa a Imagem}
end
Wesley
From: Adenes I. Freire Junior
Sent: Friday, October 17, 2008 10:21 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Problema com TImage
Caro amigo estou com o seguinte problema, quando clico no TImage e seleciono
uma imagem aparece a seguinte mensagem:
Access Violetion at Address . Read of address .
No component OpenPictureDialog1 coloquei nas seguintes propriedades:
FileName: C:\SFPAG2009\Brasoes\paraíba.bmp
InitialDir: C:\SFPAG2009\Brasoes
No Evento OnClick do TImage coloquei:
if OpenPictureDialog1.Execute
PictureBrazonry.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Desde já agradeço sua ajuda,
Adenes Junior
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3529 (20081016) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro em if's
Marcio Segue abaixo o problema...
if strtoint(edit1.Text) mod 2 = 0 then
label2.Caption := edit1.Text + ' o nº é par'; //Quando vc vai utilizar o
Else ou o Else If... vc~não pode por ponto e virgula o Correto seria
assim.. label2.Caption := edit1.Text + ' o nº é par'
else
label2.Caption := edit1.Text + ' o nº é ímpar';
if partefracionaria = 0 then
begin
radiobutton1.Checked := true;
edit3.Text := floattostr(parteinteira);
edit1.Text := '0';
end
else
begin
radiobutton2.Checked := true;
edit3.Text := floattostr(parteinteira);
edit4.Text := floattostr(partefracionaria);
end;
Wesley
From: Marcio Fernandes
Sent: Tuesday, October 14, 2008 3:58 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Erro em if's
to com um peq pro no meu estudo aki, ele da o seg ero:
[Error] Unit1.pas(53): ';' not allowed before 'ELSE'
o cod a minha unit é:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
GroupBox1: TGroupBox;
Label2: TLabel;
Edit3: TEdit;
Edit2: TEdit;
Label5: TLabel;
Label4: TLabel;
Label3: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
valoremreal : real;
valordaraiz : real;
parteinteira : real;
partefracionaria : real;
begin
valoremreal := strtofloat(edit1.Text);
valordaraiz := sqrt(valoremreal);
edit2.Text := floattostr(valordaraiz);
parteinteira := int(valordaraiz);
partefracionaria := valordaraiz - parteinteira;
if strtoint(edit1.Text) mod 2 = 0 then
label2.Caption := edit1.Text + ' o nº é par';
else
label2.Caption := edit1.Text + ' o nº é ímpar';
if partefracionaria = 0 then
begin
radiobutton1.Checked := true;
edit3.Text := floattostr(parteinteira);
edit1.Text := '0';
end
else
begin
radiobutton2.Checked := true;
edit3.Text := floattostr(parteinteira);
edit4.Text := floattostr(partefracionaria);
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then key := '0';
end;
end.
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3523 (20081015) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Continuo com dificuldades no campo auto
OLha eu uso assim Quando vou iniciar uma inclusão... eu gerado o codigo e coloco em um edit quando estou incluindo os produtos eu vou salvando cada item com o código do Edit ( tabela items_vendas ) e depois salvo o principal ( Informações princiopais da nota tipo destinatario etc... tabela vendas ) com o mesmo código do edit... e pronto... Wesley From: Vicente Alves Sent: Monday, October 13, 2008 3:33 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Continuo com dificuldades no campo auto O problema é o seguinte o código que precisa do prenchimento automatico é de uma nota fiscal uso a trigger para não pular nenhun número e como tem uma tabela_vendas e outra itens_da_venda eu preciso do valor atribuido antes para saber de qual nota pertencem os produto. Eu tenho um dbgrid onde lanço os produtos se eu salvar na tabela_vendas blz da certo só que eu precisaria salvar de novo para registrar os produtos por isso eu preciso que o valor seje atribuido antes já tentei as outras opções mas não deu se álguem puder ajudar novamente? __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3519 (20081013) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro ao instanciar classe em componente
Nao sei se estou errado..
constructor TColors.Create;
begin
inherited; //Faltou esta linha
FFocusColor := $00FFEFDF;
FRightColor := $00DFFFEF;
FWrongColor := $00EFDFFF;
end;
Wesley
From: Willian Jhonnes Lara dos Santos
Sent: Monday, October 13, 2008 2:07 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Erro ao instanciar classe em componente
Olá, boa tarde a todos...
Criei alguns componentes para suprir algumas necessidades de
desenvolvimento na empresa para a qual trabalho, os quais têm a
característica de colorizar o componente (TEdit, TMaskEdit, TComboBox,
etc.) conforme foco e preenchimento. Para agrupar as propriedades das
cores em um lugar único, criei uma classe para elas [1]. Em um
componente descendente do TMaskEdit, a classe é instanciada sem problema
[2], mas em um componente descendente do TEdit, ela não é instanciada,
mesmo com a indicação em seu construtor [3].
Alguém tem alguma idéia de qual seja o problema?
[]'s
[1] - { TColors }
TColors = class(TGraphicsObject)
private
{ Private declarations }
FFocusColor,
FRightColor,
FWrongColor: TColor;
FNotify: IChangeNotifier;
protected
{ Protected declarations }
procedure Changed; override;
procedure SetFocusColor(Value: TColor);
procedure SetRightColor(Value: TColor);
procedure SetWrongColor(Value: TColor);
public
{ Public declarations }
constructor Create;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published
{ Published declarations }
property FocusColor: TColor read FFocusColor write SetFocusColor;
property RightColor: TColor read FRightColor write SetRightColor;
property WrongColor: TColor read FWrongColor write SetWrongColor;
end;
{ TColors }
procedure TColors.Assign(Source: TPersistent);
begin
if Source is TColors then
begin
Lock;
try
TColors(Source).Lock;
try
FFocusColor := TColors(Source).FocusColor;
FRightColor := TColors(Source).RightColor;
FWrongColor := TColors(Source).WrongColor;
finally
TColors(Source).Unlock;
end;
finally
Unlock;
end;
Exit;
end;
inherited Assign(Source);
end;
procedure TColors.Changed;
begin
inherited Changed;
if FNotify nil then
FNotify.Changed;
end;
constructor TColors.Create;
begin
FFocusColor := $00FFEFDF;
FRightColor := $00DFFFEF;
FWrongColor := $00EFDFFF;
end;
destructor TColors.Destroy;
begin
FreeInstance;
end;
procedure TColors.SetFocusColor(Value: TColor);
begin
if FFocusColor Value then
begin
FFocusColor := Value;
Changed;
end;
end;
procedure TColors.SetRightColor(Value: TColor);
begin
if FRightColor Value then
begin
FRightColor := Value;
Changed;
end;
end;
procedure TColors.SetWrongColor(Value: TColor);
begin
if FWrongColor Value then
begin
FWrongColor := Value;
Changed;
end;
end;
-
[2] - { TTutorialMaskEdit }
TTutorialMaskEdit = class(TMaskEdit)
private
{ Private declarations }
FMandatory,
FRequired,
FColorize,
FValidate,
FSaveLiterals,
FShowMessages: Boolean;
FColors: TColors;
FMaskType: TMaskType;
FAlternate: TAlternableMask;
FCharForBlanks: Char;
FOriginalColor: TColor;
FControlMask: Byte;
FMsgs: TMaskEditMessages;
FAlternableShortCut: TShortCut;
FMsgType: TMessageType;
procedure SetMask(Mask: TMaskType);
procedure SetColors(Value: TColors);
procedure SetColorize(Value: Boolean);
procedure SetRequired(Value: Boolean);
procedure SetValidate(Value: Boolean);
procedure SetMessages(Value: TMaskEditMessages);
protected
{ Protected declarations }
procedure DoEnter; override;
procedure DoExit; override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
public
{ Public declarations }
published
{ Published declarations }
constructor Create(AOwner: TComponent); override;
property Mandatory: Boolean read FMandatory write FMandatory
default False;
property Colorize: Boolean read FColorize write SetColorize
default True;
property Required: Boolean read FRequired write SetRequired
default True;
property Validate: Boolean read FValidate write SetValidate
default True;
property SaveLiterals: Boolean read FSaveLiterals write
FSaveLiterals default False;
property MaskType: TMaskType read FMaskType write SetMask;
property Colors: TColors read FColors write SetColors;
property AlternableMasks: TAlternableMask read FAlternate write
FAlternate;
property CharForBlanks: Char read FCharForBlanks write FCharForBlanks;
property AlternableShortCut: TShortCut read FAlternableShortCut
write FAlternableShortCut;
property ShowMessages: Boolean read FShowMessages write FShowMessages;
property Messages: TMaskEditMessages read FMsgs write SetMessages;
property MessageType: TMessageType read FMsgType write FMsgType;
end;
.
.
.
constructor TTutorialMaskEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetMask(mtCustom);
FMandatory := False;
FRequired := True;
FColorize := True;
FColors :=
Re: [delphi-br] Preciso de uma dica de campo auto ?
Olha Eu uso um POG...( Programação Orientada a Gambiarra )... eu sei que tem jeito bem melhor com o generator + trigger... mas eu uso assim... que achei melhor function GeraCodigo : Integer; begin with Banco do begin Close; Sql.clear; Sql.text:= 'SELECT MAX(CODIGO) FROM TABELA'; open; if isempty then Result:= 1 else Result:= Fields[0].AsInteger + 1 ; end; end; Coloco ele ao clicar no botao incluir EdtCodigo.text:= Inttostr( GeraCodigo ); Wesley From: Vicente Alves Sent: Monday, October 13, 2008 12:46 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Preciso de uma dica de campo auto ? Boa tarde!! Estou começando a programar em delphi e estou usando o 7 eu tenho uma tabela que eu preciso que o preenchimeto seja automatico do campo código só que não depois que eu salvar eu preciso que ele preencha ao clicar em novo registro? Eu consigo resolver isso pelo delphi ou no banco estou usando o Ibexpert e Firebird 1.5??? Já criei triggers, generators e também deixei o campo da tabela required no Delphi como false ? É uma duvida simples mas se àlguem puder dar uma dica??? Obrigado! __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3517 (20081013) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Estou desenvolvendo um componente assim Wesley From: BandaLemuel Sent: Tuesday, October 07, 2008 10:17 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido Que eu saiba não... eu utilizo o JvValidateEdit do pacote JEDI... ele tem como vc colocar qual o tipo de valor vc quer... se é float, integer custom... etcShow de bola... Wesley From: Fabio Ferreira Sent: Tuesday, October 07, 2008 9:31 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido Aproveitando a carona do tópico, como faço para filtrar a digitação deste caracteres númericos e um campo Edit?Sem ser através destas funções existe alguma outra propriedade que possa ser propracamada sem ser o CharCase (btNormal, btUpperCase, btLowerCase) ? []s 2008/10/7 alessandra porto [EMAIL PROTECTED] valeu --- Em ter, 7/10/08, BandaLemuel [EMAIL PROTECTED]bandalemuel%40yahoo.com.br escreveu: De: BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br Assunto: Re: [delphi-br] tecla identificar ? Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 7 de Outubro de 2008, 8:56 if not ( key in ['0'..'9',#8, #13,',',' .' ) then Ai ele aceita ponto e virgula Wesley From: alessandra porto Sent: Tuesday, October 07, 2008 8:26 AM To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br Subject: [delphi-br] tecla identificar ? fiz assim mas tentei colocar (ponto) e a (virgula) #190 ,#188 mas da erro não identifica certo como posso fazer isso de forma a aceitar somente numeros e ponto agradeço a ajuda procedure TForm1.Edit2KeyPres s(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8, #13]) then begin showmessage( ''+DM.Usuario+ ''+ #13 + #13 +'Este Campo Aceita Somente Números'); key :=#0; end; end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Lista Estou desenvolvendo um componente herdado do TEdit..criei uma propriedade que é tipo de entreda .. (Email, texto, Numeros ) etc... como faço para que quando eu alterar o tipo no Object Inspector.. ele configure as propriedades que eu quero por exemplo... quando escolher o tipo UF .. ele alterar o maxLength para 2 e deixar para digitar tudo em maiusculo... isso sem ser em tempo de execução... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto default ttTodos ; Como deveria ficar.. assim ??? property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto default ttTodos ; E devo cria uma procedure GetTipoTexto e SetTipoTexto... o componente entende que quando eu alterar ele terá q executá-las ??? Wesley From: Vinicius Santos - MSI Sent: Wednesday, October 08, 2008 10:55 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido se vc tiver uma property assim: property TipoEntrada: string write SetTipoEntrada read GetTipoEntrada; na procedure SetTipoEntrada, vc configura o que quizer, dê uma pesquisada sobre isso. BandaLemuel escreveu: Lista Estou desenvolvendo um componente herdado do TEdit..criei uma propriedade que é tipo de entreda .. (Email, texto, Numeros ) etc... como faço para que quando eu alterar o tipo no Object Inspector.. ele configure as propriedades que eu quero por exemplo... quando escolher o tipo UF .. ele alterar o maxLength para 2 e deixar para digitar tudo em maiusculo... isso sem ser em tempo de execução... Wesley [As partes desta mensagem que não continham texto foram removidas] -- Vinicius dos Santos http://www.msisolucoes.com.br __ Information from ESET NOD32 Antivirus, version of virus signature database 3503 (20081008) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Obrigado a todos deu certo... uam duvida que não tem nada haver... eu
uso esta função para capturar a URL do navegador IE ele não achao IE7
alguiem sabe como fazer.. ???
function CapturaUrls ( Handle: THandle; List: TStringList ): Boolean; stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
begin
SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
{ captura o Handle da Janela }
hWndIE:=FindWindow('IEFRAME', Buffer);
{ Se Achou }
if hWndIE 0 then
begin
hWndIEChild:=FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild 0 then
begin
//Pega a URL e trabalha com o valor
SendMessage(hWndIEChild, WM_GETTEXT, 255,
integer(@Buffer));
List.Add(Buffer);
end;
end;
end;
end
else
Form1.mmo1.Text := 'Não achou';
Application.ProcessMessages;
Result:=True;
end;
From: Luciano Calenzani Simões
Sent: Wednesday, October 08, 2008 11:50 AM
To: delphi-br@yahoogrupos.com.br
Subject: Res: [delphi-br] tecla identificar ? resolvido
Isso mesmo, crie procedures, uma para read (Get) e outa para write (Set). Daí
quanto a property for lida executará a Set e quanto for gravada executará a Set.
Inclusive se você usar o complete composite (CTRL+SHIFT+C) ao escrever uma
property ele irá sugerir já com essa estrutura (sintaxe).
Exemplo, neste caso uma procedure e um field, mas poderia ser uma procedure e
uma função:
TMinhaClasse = class
FTeste: String;
procedure SetTeste(const Value: String);
{ Private declarations }
public
{ Public declarations }
property Teste : String read FTeste write SetTeste;
end;
implementation
procedure TMinhaClasse.FormCreate(Sender: TObject);
begin
end;
procedure TMinhaClasse.SetTeste(const Value: String);
begin
FTeste := Value;
end;
Luciano Calenzani Simões
- Mensagem original
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 8 de Outubro de 2008 11:38:48
Assunto: Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim
property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto default
ttTodos ;
Como deveria ficar.. assim ???
property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto default
ttTodos ;
E devo cria uma procedure GetTipoTexto e SetTipoTexto. .. o componente entende
que quando eu alterar ele terá q executá-las ???
Wesley
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3503 (20081008) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ? resolvido
Resolvi... no IE7 ele tem um novo handle que chama Address Band Root... ai
funfo Wesley
{ Captura URL ^}
function CapturaUrls ( Handle: THandle; List: TStringList ): Boolean; stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
begin
SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
{ captura o Handle da Janela }
hWndIE:=FindWindow('IEFrame', Buffer);
{ Se Achou }
if hWndIE 0 then
begin
hWndIEChild:=FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild 0 then
begin
//Pega a URL e trabalha com o valor
SendMessage(hWndIEChild, WM_GETTEXT, 255,
integer(@Buffer));
List.Add(Buffer);
end;
end;
end;
end
else
begin
{ captura o Handle da Janela IE7 }
hWndIE:=FindWindow('IEFrame', Nil );
if hWndIE 0 then
begin
hWndIEChild:=FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0,
'ReBarWindow32', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'Address
Band Root', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0,
'ComboBoxEx32', nil);
if hWndIEChild 0 then
begin
SendMessage(hWndIEChild,
WM_GETTEXT, 255, integer(@Buffer));
List.Add(Buffer)
end
end
end
end
end
end;
Result:=True;
end;
From: BandaLemuel
Sent: Wednesday, October 08, 2008 12:51 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] tecla identificar ? resolvido
Obrigado a todos deu certo... uam duvida que não tem nada haver... eu uso esta
função para capturar a URL do navegador IE ele não achao IE7 alguiem sabe
como fazer.. ???
function CapturaUrls ( Handle: THandle; List: TStringList ): Boolean; stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
begin
SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
{ captura o Handle da Janela }
hWndIE:=FindWindow('IEFRAME', Buffer);
{ Se Achou }
if hWndIE 0 then
begin
hWndIEChild:=FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild 0 then
begin
hWndIEChild:=FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild 0 then
begin
//Pega a URL e trabalha com o valor
SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));
List.Add(Buffer);
end;
end;
end;
end
else
Form1.mmo1.Text := 'Não achou';
Application.ProcessMessages;
Result:=True;
end;
From: Luciano Calenzani Simões
Sent: Wednesday, October 08, 2008 11:50 AM
To: delphi-br@yahoogrupos.com.br
Subject: Res: [delphi-br] tecla identificar ? resolvido
Isso mesmo, crie procedures, uma para read (Get) e outa para write (Set). Daí
quanto a property for lida executará a Set e quanto for gravada executará a Set.
Inclusive se você usar o complete composite (CTRL+SHIFT+C) ao escrever uma
property ele irá sugerir já com essa estrutura (sintaxe).
Exemplo, neste caso uma procedure e um field, mas poderia ser uma procedure e
uma função:
TMinhaClasse = class
FTeste: String;
procedure SetTeste(const Value: String);
{ Private declarations }
public
{ Public declarations }
property Teste : String read FTeste write SetTeste;
end;
implementation
procedure TMinhaClasse.FormCreate(Sender: TObject);
begin
end;
procedure TMinhaClasse.SetTeste(const Value: String);
begin
FTeste := Value;
end;
Luciano Calenzani Simões
- Mensagem original
De: BandaLemuel [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 8 de Outubro de 2008 11:38:48
Assunto: Re: [delphi-br] tecla identificar ? resolvido
Vinicius.. Eu não entendi eu declarei assim
property TipoEntrada : TTipoTexto read FTipoTexto write FTipoTexto default
ttTodos ;
Como deveria ficar.. assim ???
property TipoEntrada : TTipoTexto read GetTipoTexto write SetTipoTexto default
ttTodos ;
E devo cria uma procedure GetTipoTexto e SetTipoTexto. .. o componente entende
que
Re: [delphi-br] tecla identificar ? resolvido
Que eu saiba não... eu utilizo o JvValidateEdit do pacote JEDI... ele tem como vc colocar qual o tipo de valor vc quer... se é float, integer custom... etcShow de bola... Wesley From: Fabio Ferreira Sent: Tuesday, October 07, 2008 9:31 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tecla identificar ? resolvido Aproveitando a carona do tópico, como faço para filtrar a digitação deste caracteres númericos e um campo Edit?Sem ser através destas funções existe alguma outra propriedade que possa ser propracamada sem ser o CharCase (btNormal, btUpperCase, btLowerCase) ? []s 2008/10/7 alessandra porto [EMAIL PROTECTED] valeu --- Em ter, 7/10/08, BandaLemuel [EMAIL PROTECTED]bandalemuel%40yahoo.com.br escreveu: De: BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br Assunto: Re: [delphi-br] tecla identificar ? Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Terça-feira, 7 de Outubro de 2008, 8:56 if not ( key in ['0'..'9',#8, #13,',',' .' ) then Ai ele aceita ponto e virgula Wesley From: alessandra porto Sent: Tuesday, October 07, 2008 8:26 AM To: lista-delphi@ yahoogrupos. com.br ; [EMAIL PROTECTED] os.com.br Subject: [delphi-br] tecla identificar ? fiz assim mas tentei colocar (ponto) e a (virgula) #190 ,#188 mas da erro não identifica certo como posso fazer isso de forma a aceitar somente numeros e ponto agradeço a ajuda procedure TForm1.Edit2KeyPres s(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8, #13]) then begin showmessage( ''+DM.Usuario+ ''+ #13 + #13 +'Este Campo Aceita Somente Números'); key :=#0; end; end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. com [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3499 (20081007) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tecla identificar ?
if not ( key in ['0'..'9',#8,#13,',','.' ) then
Ai ele aceita ponto e virgula
Wesley
From: alessandra porto
Sent: Tuesday, October 07, 2008 8:26 AM
To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Subject: [delphi-br] tecla identificar ?
fiz assim
mas tentei colocar (ponto) e a (virgula)
#190 ,#188 mas da erro não identifica certo
como posso fazer isso de forma a aceitar somente numeros e ponto
agradeço a ajuda
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#13]) then
begin
showmessage(''+DM.Usuario+''+ #13 + #13 +'Este Campo Aceita Somente
Números');
key :=#0;
end;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3499 (20081007) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida
Lista Em um projeto é possivel eu usar um arquivo .pas que esta em outro diretório ??? Como coloco no projeto... em uses ??? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida
vlw... Jackson... perfect... Wesley From: Jackson Gomes - ToolsComps Sent: Wednesday, October 01, 2008 1:31 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Duvida Em um projeto é possivel eu usar um arquivo .pas que esta em outro diretório ??? Como coloco no projeto... em uses ??? Vc precisa adicionar o arquivo ao seu projeto. Project Add to Project. Depois é só incluir na uses normalmente. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] __ Information from ESET NOD32 Antivirus, version of virus signature database 3485 (20081001) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Lista
Aos poucos estou conseguindo... uma dúvida como altero o icone do
componente... que esta aquele padrao do Delphi... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 4:42 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Uma pergunta..
Como crio eventos que mostrem no object inpector... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 3:03 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Pessoal
Achei a solução...
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
begin
if FrmConfiguraBanco = nil then
begin
Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco );
FrmConfiguraBanco.ShowModal ;
end
else
FrmConfiguraBanco.ShowModal ;
end;
vlw...
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 2:53 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Componente
Lista
Estou criando um componente que vai ser responsavel por configurar o banco de
dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um
formulario para a configuração , caso não consiga conexão... e esta dando erro
quando ele vai puxar o formulario responsável pela configuração segue o codigo
que chama o formulario
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
var
Tela : TFrmConfiguraBanco ;
begin
if Tela = nil then
begin
Tela := TFrmConfiguraBanco.Create( nil );
Tela.ShowModal ;
end
else
Tela.ShowModal;
end;
O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
chama-lo é assim mesmo ???
Obrigado...
Wesley
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3481 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Lista
Achei como fazer segue abaixo para quem não sabe...
Tem que criar um arquivo .dcr com o image editor, com um bitmap , o nome do
bitmap tem que ser o nome do componente, no meu caso o componente chama
TConfigbanco, coloquei o mesmo nome .. e salvei o arquivo com o nome do nome da
Unit no diretorio do projeto.. e instalei o componente e pronto... !
Se alguem se interessar pelo componente eu mando... eu usei ela para
configurar uma conexão com o banco de dados Firebird..ou Interbase... onde vc
pode utilizar o IBDatabase ou ZConnection (Zeos) , caso ele não consiga
conectar por alguma configuração ele abre uma tela de configuração para
configurar o mesmo... e salva em um arquivo ini as configurações para conexões
futuras...
Wesley
From: BandaLemuel
Sent: Tuesday, September 30, 2008 1:30 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Lista
Aos poucos estou conseguindo... uma dúvida como altero o icone do componente...
que esta aquele padrao do Delphi... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 4:42 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Uma pergunta..
Como crio eventos que mostrem no object inpector... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 3:03 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Pessoal
Achei a solução...
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
begin
if FrmConfiguraBanco = nil then
begin
Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco );
FrmConfiguraBanco.ShowModal ;
end
else
FrmConfiguraBanco.ShowModal ;
end;
vlw...
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 2:53 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Componente
Lista
Estou criando um componente que vai ser responsavel por configurar o banco de
dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um
formulario para a configuração , caso não consiga conexão... e esta dando erro
quando ele vai puxar o formulario responsável pela configuração segue o codigo
que chama o formulario
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
var
Tela : TFrmConfiguraBanco ;
begin
if Tela = nil then
begin
Tela := TFrmConfiguraBanco.Create( nil );
Tela.ShowModal ;
end
else
Tela.ShowModal;
end;
O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
chama-lo é assim mesmo ???
Obrigado...
Wesley
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3481 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3481 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Obrigado... Luiz... eu consegui vlw...
From: Luiz ESCobar
Sent: Tuesday, September 30, 2008 4:01 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Weslery, veja na parte de arquivos do grupo, lá tem 2 componentes que
desenvolvi THINT e TFOCUSCOLOR
O arquivo é esse...
http://f1.grp.yahoofs.com/v1/IGniSJSChna82FZVoQV5XKdNBUKDNXMrP9Ia9UORZN_T9o_gMw1x74D__pVvR_bgsgwkRUbpuDceuy7to2qErbGWaRRKCShybQ/Componentes%20com%20fontes/THINT%20and%20TFOCUSCOLOR.zip
a pasta é essa...
http://br.groups.yahoo.com/group/delphi-br/files/Componentes%20com%20fontes/
Vai te ajudar muito no seu componente...
Pra criar seu icone vc vai usar o IMAGE EDITOR que vem junto com o DELPHI e
criar um DCR, abra o DCR que esta junto o nome da imagem criada dentro do DCR
deve ser igual ao de seu componente, tipo TNOMECOMPONENTE tamanho de
24x24x16cores, pelo menos até o D7 era assim, agora num sei mais.. hehehehe
espero q ajude...
[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR --
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9175)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
--
From: BandaLemuel
Sent: Tuesday, September 30, 2008 1:30 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Lista
Aos poucos estou conseguindo... uma dúvida como altero o icone do componente...
que esta aquele padrao do Delphi... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 4:42 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Uma pergunta..
Como crio eventos que mostrem no object inpector... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 3:03 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Pessoal
Achei a solução...
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
begin
if FrmConfiguraBanco = nil then
begin
Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco );
FrmConfiguraBanco.ShowModal ;
end
else
FrmConfiguraBanco.ShowModal ;
end;
vlw...
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 2:53 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Componente
Lista
Estou criando um componente que vai ser responsavel por configurar o banco de
dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um
formulario para a configuração , caso não consiga conexão... e esta dando erro
quando ele vai puxar o formulario responsável pela configuração segue o codigo
que chama o formulario
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
var
Tela : TFrmConfiguraBanco ;
begin
if Tela = nil then
begin
Tela := TFrmConfiguraBanco.Create( nil );
Tela.ShowModal ;
end
else
Tela.ShowModal;
end;
O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
chama-lo é assim mesmo ???
Obrigado...
Wesley
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3481 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3481 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] emails em delphi
Eu uso esta função
function TEnviaEmail.EnviarEmail(Assunto,Destinatario, Anexo, De: String;
Mensagem: TMemo): Boolean;
var
Mail : TIDSmtp ;
MailMensagem : TIDMessage ;
begin
{ Cria Mensagem }
Mail:= TIdSMTP.Create( Nil );
MailMensagem:= TIdMessage.Create( Nil );
{ Configura a mensagem }
with MailMensagem do
begin
{ Destinatario }
From.Address := Destinatario ;
{ Nome de quem esta envianbdo }
From.Name := De ;
{ Copia }
ReplyTo.EMailAddresses:= Destinatario;
{ Manda }
Recipients.EMailAddresses := Destinatario;
{ Assunto }
Subject := Assunto ;
{ Tipo do Email }
ContentType := 'text/html';
{ Mensagem Mesmo }
Body.Text := Mensagem.Text;
{ Encode para ficar em html }
IsEncoded := true ;
{ Limpa o Anexo }
MessageParts.Clear;
{ Adidiona de Tiver }
if Anexo '' then
begin
{ verifica se tem o Arquivo }
if FileExists( Anexo ) then
begin
TIdAttachment.Create( MessageParts , Anexo );
end
end
end;
{ Configura Email para Envio }
Mail.Host := ServidorSMTP ;
Mail.Username := Usuario ;
Mail.Password := Senha ;
Mail.AuthenticationType := atLogin ;
{ Cnecta }
mail.Connect();
{ Verifica se conectou }
if Mail.Connected then
begin
{ Envia }
Mail.Send( MailMensagem );
Mail.Disconnect ;
Mail.Free ;
Result := true ;
end
else
begin
{ Limpa }
Mail.Free ;
Result := False ;
end;
end;
Wesley
From: Jackson Gomes - ToolsComps
Sent: Friday, September 26, 2008 2:36 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] emails em delphi
tenho um BD de clientes em DBIsam ... e um dos campos é email do cliente
gostaria de montar uma rotina para encaminhar um email para todos os
endereços cadastrados ...
http://www.google.com.br/search?hl=pt-BRq=Send+e-Mail+DelphibtnG=Pesquisarmeta=
Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324
--
Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3479 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente
Lista
Estou criando um componente que vai ser responsavel por configurar o banco de
dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um
formulario para a configuração , caso não consiga conexão... e esta dando erro
quando ele vai puxar o formulario responsável pela configuração segue o codigo
que chama o formulario
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
var
Tela : TFrmConfiguraBanco ;
begin
if Tela = nil then
begin
Tela := TFrmConfiguraBanco.Create( nil );
Tela.ShowModal ;
end
else
Tela.ShowModal;
end;
O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
chama-lo é assim mesmo ???
Obrigado...
Wesley
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Pessoal
Achei a solução...
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
begin
if FrmConfiguraBanco = nil then
begin
Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco );
FrmConfiguraBanco.ShowModal ;
end
else
FrmConfiguraBanco.ShowModal ;
end;
vlw...
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 2:53 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Componente
Lista
Estou criando um componente que vai ser responsavel por configurar o banco de
dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um
formulario para a configuração , caso não consiga conexão... e esta dando erro
quando ele vai puxar o formulario responsável pela configuração segue o codigo
que chama o formulario
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
var
Tela : TFrmConfiguraBanco ;
begin
if Tela = nil then
begin
Tela := TFrmConfiguraBanco.Create( nil );
Tela.ShowModal ;
end
else
Tela.ShowModal;
end;
O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
chama-lo é assim mesmo ???
Obrigado...
Wesley
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente
Uma pergunta..
Como crio eventos que mostrem no object inpector... ???
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 3:03 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Componente
Pessoal
Achei a solução...
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
begin
if FrmConfiguraBanco = nil then
begin
Application.CreateForm( TFrmConfiguraBanco , FrmConfiguraBanco );
FrmConfiguraBanco.ShowModal ;
end
else
FrmConfiguraBanco.ShowModal ;
end;
vlw...
Wesley
From: BandaLemuel
Sent: Monday, September 29, 2008 2:53 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Componente
Lista
Estou criando um componente que vai ser responsavel por configurar o banco de
dados do Cliente atraves de um arquivo ini, e neste componente quero colocar um
formulario para a configuração , caso não consiga conexão... e esta dando erro
quando ele vai puxar o formulario responsável pela configuração segue o codigo
que chama o formulario
{ Mostra a tela de Configuração }
procedure TConfigbanco.MostraTelaConfiguracao;
var
Tela : TFrmConfiguraBanco ;
begin
if Tela = nil then
begin
Tela := TFrmConfiguraBanco.Create( nil );
Tela.ShowModal ;
end
else
Tela.ShowModal;
end;
O TFrmConfiguraBanco é um formulakrio que criei no componente, como devo
chama-lo é assim mesmo ???
Obrigado...
Wesley
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3480 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] nao consigo alterar o conteudo do DBEdit
O Componente que vc esta usando para realizar as alterações deve estar somente leitura Se o componente for uma query... creio que não seja possivel alterar desta maneira usando o query.edit ... Wesley From: Felipe Milagres Sent: Thursday, September 25, 2008 9:38 AM To: delphi-br Subject: [delphi-br] nao consigo alterar o conteudo do DBEdit seguinte galera .. eu tenho que uma aplicação que possui DBEdit's, consigo fazer todas as opções do DBNavigator (mas nao usa o DBNavigator , são varios botoes) (Primeiro | , Anterior , Proximo , Ultimo | , Ecluir - , Alterar /\ , Salvar , Cancelar X) entao .. essa aplicação nao fui eu quem fiz ... agora .. eu tenho que fazer a mesma coisa só que com outros campos (de uma outra tabela) .. ai que ta o problema ... meu problema maior ta sendo no Alterar , ja que nos DBEdit's novos eu nao estou conseguindo altera-los procurei o comando do botao Alterar , e achei esse codigo: DMSISRET.Qvoto.Edit; Pagecontrol1.Enabled := True; Panel1.Enabled := True; Edit1.Text := 'A'; entao eu fui e acrescentei esse codigo DMSISRET.Qarmazem2.Edit; \\ aki é a minha tabela Panel3.Enabled := True; \\ e aki é onde os campos está ai quando compilei , e apertei o botao Alterar , deu esse erro Project SISRET.exe raised exception class EDatabaseError with message 'Qarmazem2: Cannot modify a read-only dataset'. Process stopped. Use Step ou Run to continue. o que estou fazendo de errado ? valeu a todos, Felipe Milagres Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3470 (20080925) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retorno String em DLL no Delphi
Coloca o sharemem no aplicativo tbm no codigo do aplicativo Wesley From: Joao Morais Sent: Thursday, September 25, 2008 1:15 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Retorno String em DLL no Delphi sergio cavalcante wrote: Fiz uma DLL no delphi que em algumas funções ela simplesmente realiza alguns comandos, e em outras ele retorna string e inteiro. Nas funções que só realizam comandos, está tudo ok, faz direitinho. Mas nas funções que retornam strings/inteiros dá uns paus malucos de access violation. já li esse artigo http://delphi.about.com/od/objectpascalide/l/aa103003b.htm que fala sobre esses problemas mas ele não foi muito conclusivo... Já coloquei o Sharemem tbm no uses da minha DLL e não rolou. Alguma ajudinha pra um cara desesperado? O Sharemem só ajuda se a sua dll for compilada pelo delphi e também tiver a unit declarada. Do contrário você tem que prever o tamanho da string, alocar o espaço previamente, entregar o endereço para a dll e por fim fazer com que a dll utilize aquele espaço pré-alocado. Bem vindo à programação C/C++ Joao Morais __ Information from ESET NOD32 Antivirus, version of virus signature database 3470 (20080925) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda
Pessoal Bom dia, existe algum componente que tem a mesma função do PageControl mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um programa de instalação... vlw.. Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
Obrigado... Rodinei e Luciano... Eu não sabia desta propriedade.. rsrrs Wesley From: Rodinei (MSN) Sent: Wednesday, September 24, 2008 8:47 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Ajuda Vc pode usar o pagecontrol, mas em cada tabsheet criado, coloque tabvisible=false Abraços Rodinei Amorim Programador Delphi [EMAIL PROTECTED] (11) 8208-9503 - (11) 2024-2723 From: BandaLemuel Sent: Wednesday, September 24, 2008 8:43 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda Pessoal Bom dia, existe algum componente que tem a mesma função do PageControl mas que não mostra os botoes ou abas ??? Preciso fazer um esquema como se fosse um programa de instalação... vlw.. Wesley [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3466 (20080923) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gravar null automaticamente
Alisson
Eu não sei se é possivel , mas criei uma função assim..
function ColocaValor ( value : Variant ) : Variant;
begin
if Trim(value) = '' then
result:= null
else
result:= value;
end;
ai no parametro eu faço assim..
parambyname('campo').value:= ColocaValor ( edtTeste.text );
Espero ter ajudado
Wesley
From: Alisson
Sent: Monday, September 22, 2008 3:49 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Gravar null automaticamente
É possível fazer com o ClientDataset grave automaticamente nos campos o
valor null, quando o usuário colocar espaço(s) em branco no campo?
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3460 (20080922) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Campo Blob
Lista
Ja procurei e não achei..´.. tenho um Richedit onde faço um texto
formatado.. preciso gravar ele em um campo blob... Alguem sabe como fazer isso
?? Estou tentando assim...
// Rodo este primeiro
{ Coloca Texto do RichedText para o TMemoryStream }
procedure TEmail.PegaTextoRichEdit(RC: TJvRichEdit);
const
OffSetMemoryStream : Int64 = 0 ;
begin
TEXTO := TMemoryStream.Create ;
RC.Lines.SaveToStream( TEXTO );
TEXTO.Position := OffSetMemoryStream ;
end;
//Depois a SQL
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO EMAIL VALUES ( :CDEML ,
:ASSUN , :ANEXO , :TEXTO )';
ParamByName('CDEML').AsInteger := StrToInt( CDEML
) ;
ParamByName('ASSUN').AsString := Trim( ASSUNTO );
ParamByName('ANEXO').Value :=
ColocarValorNulo( ANEXO ) ;
if TEXTO = nil then
ParamByName('TEXTO').Value := null
else
ParamByName('TEXTO').LoadFromStream( TEXTO ,
ftFmtMemo );
ExecSQL;
Close;
Ele esta dando um erro assim...
unknown ISC error 336397210
unknown ISC error 336397208
ñ sei o que pode ser Alguem já conseguiu isso... Wesley
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campo Blob
Marcos...
Tentei do jeito que vc falou mas esta dando o mesmo erro
Sgue o codigo...
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO EMAIL VALUES ( :CDEML ,
:ASSUN , :ANEXO , :TEXTO )';
ParamByName('CDEML').AsInteger := StrToInt( CDEML
) ;
ParamByName('ASSUN').AsString := Trim( ASSUNTO );
ParamByName('ANEXO').Value :=
ColocarValorNulo( ANEXO ) ;
if TEXTO = nil then
ParamByName('TEXTO').Value := null
else
ParamByName('TEXTO').Assign( RC );
ExecSQL;
Close;
Tem alguma ideia.. ??? O banco é firebird...
Vlw... Wesley ...
From: Marcos Bernardo
Sent: Tuesday, September 16, 2008 4:40 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Campo Blob
Salve...
Tente o Assing
ParamByName('CAMPO').Assing(RichText);
abraço
Marcos Bernardo
2008/9/16 BandaLemuel [EMAIL PROTECTED]
Lista
Ja procurei e não achei..´.. tenho um Richedit onde faço um texto
formatado.. preciso gravar ele em um campo blob... Alguem sabe como fazer
isso ?? Estou tentando assim...
// Rodo este primeiro
{ Coloca Texto do RichedText para o TMemoryStream }
procedure TEmail.PegaTextoRichEdit(RC: TJvRichEdit);
const
OffSetMemoryStream : Int64 = 0 ;
begin
TEXTO := TMemoryStream.Create ;
RC.Lines.SaveToStream( TEXTO );
TEXTO.Position := OffSetMemoryStream ;
end;
//Depois a SQL
Close;
Sql.Clear;
Sql.Text := 'INSERT INTO EMAIL VALUES ( :CDEML , :ASSUN , :ANEXO , :TEXTO
)';
ParamByName('CDEML').AsInteger := StrToInt( CDEML ) ;
ParamByName('ASSUN').AsString := Trim( ASSUNTO );
ParamByName('ANEXO').Value := ColocarValorNulo( ANEXO ) ;
if TEXTO = nil then
ParamByName('TEXTO').Value := null
else
ParamByName('TEXTO').LoadFromStream( TEXTO , ftFmtMemo );
ExecSQL;
Close;
Ele esta dando um erro assim...
unknown ISC error 336397210
unknown ISC error 336397208
ñ sei o que pode ser Alguem já conseguiu isso... Wesley
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3446 (20080916) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] tab por enter .
Eu Uso o JVTabasEnter.Wesley From: Marcus Vinicius Pavan Sent: Thursday, September 11, 2008 3:29 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] tab por enter . Também tem essa: -- 651 - Enter funcionando como Tab em toda a aplicação Uses Grids procedure TfrmPri.MudarComEnter(var Msg: TMsg; var Handled: Boolean); begin If not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid) or (Screen.ActiveForm.ClassName = 'TMessageForm')) then begin If Msg.message = WM_KEYDOWN then begin Case Msg.wParam of VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0); VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0); end; end; end; end; no evento OnCreate o Form Principal digite a seguinte linha Application.OnMessage := MudarComEnter; -- devidamente extraido do http://www.delphix.org/?q=node/156 DTDelphi 2.8 (900 Dicas e Truques Delphi) Recomendo esse html compilado... tem dicas ótimas... não saia de casa sem ele ! -- Marcus Vinicius Pavan -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. __ Information from ESET NOD32 Antivirus, version of virus signature database 3436 (20080911) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SQL SERVER
Lista Tenho um sistema em Delphi7 + Firebird preciso com urgencia mudar para Delphi7+SqlServer Não sei nem por onde começar.. qual componente de conexão , nem como administrar o banco ... com o firebird eu uso o iboconsole alguem pode me dar uma luz... vlw... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Retornar Valor de um Form
Form1.edit.text:= { Valor q vc quer retornar ao formulario 1 )
... o evento pode ser o onclose do form2... Wesley
From: Giovani
Sent: Monday, September 08, 2008 11:38 AM
To: DELPHI
Subject: [delphi-br] Retornar Valor de um Form
Bom dia a todos,
Tenho DOIS Forms, o Form1 chama o Form2 que deve retornar um valor para
o Form1.
Em um EDIT do Form1 eu quero que retorne um valor do Form2.
Att.
Giovani
--
Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3425 (20080908) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ArdOS Acesso Remoto em Delphi
Estou disponto a Ajudar tbm... Wesley From: Renato Bermudo Sent: Wednesday, September 03, 2008 8:31 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ArdOS Acesso Remoto em Delphi Olá Emerson, Gostaria de ajudar vc a testar esse projeto na pratica com clientes reais. Hoje já utilizo várias formas de acesso remoto (Radmin, Logmein, TeamViewer, VNC, Crossloop, além do proprio Terminal Server) Só me diga por onde começar. - Original Message - From: emerson.ceia To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 02, 2008 10:34 PM Subject: [delphi-br] ArdOS Acesso Remoto em Delphi Olá Pessoal, quem puder me ajudar no projeto eu agradeço, estou precisando principalmente de pessoas para testar, ja tive muitos feedback mas a maioria nem se quer falam português, ai fica difícil. http://ardos.sourceforge.net/ Agradeço. Emerson Reis [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3409 (20080902) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] WinExec
Winexec ( Pchar( 'notepad.exe /P c:\' + frmvendas.Numvenda.text +'.txt'
) , 0 );
Wesley
From: Ralp Alves Bezerra
Sent: Monday, August 25, 2008 2:10 PM
To: DELPHI BR
Subject: [delphi-br] WinExec
Nobres colegas, estou com o seguinte problema:
Estou tentando imprimir um arquivo de texto criado previamente com a
seguinte função:
WinExec('NotePad.exe /p c:\'+frmVendas.NumVenda.text+'.txt', 0);
porem, esta me retornando a seguinte mensagem:
[Error] Rotina.pas(5292): Incompatible types: 'String' and 'PAnsiChar'
Algúem poderia me dar uma luz a cerca de como imprimir o arquivo?
Ps.: Estou utilizando Delphi 7
Abraços a todos e obrigado!
Ralp Alves Bezerra
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3383 (20080824) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] fast Reports
Lista Estou precisando fazer um relatório = ao de baixo com o fast Reports e não tenho idéia por onde começar... vc's sabem como posso faze-lo.. ?? NOME FUNCIONARIO Items comprados no mes Banana1,00 Mamão1,50 Total2,50 NOME DO OUTRO FUNCIONARIO Items comprados no mes Cana 1,00 Limão 0,50 Total1,50 Total Geral 4,00 Desde já agradeço... Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como atribuir o número de linhas de uma tabela para uma variável
CLinhaE:= Fields[0].asinteger;
Wesley
From: Geovana Ventura
Sent: Friday, July 11, 2008 11:32 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Como atribuir o número de linhas de uma tabela para uma
variável
Pessoal,
Bom dia!
Estou precisando atribuir o valor que representa o número de linhas de uma
tabela para uma variável.
Fiz este código abaixo, no entanto, está dando Access Violation quando passa
por esta atribuição..
with DmDadosSSP.ADOQryGeral do
begin
if active then Close;
SQL.Clear;
SQL.Add('SELECT COD_TEMPO, COD_EVENTO');
SQL.Add('FROM SSP_REL_TEMPO_EVENTO');
SQL.Add('WHERE COD_TEMPO=
'''+Trim(FrmAlterarPlanoAcao.sGridTemposCriados.Cells[0,i])+);
SQL.Add('ORDER BY COD_TEMPO');
InputBox('','',Sql.Text);
Open;
SQL.Clear;
SQL.Add('SELECT COUNT(*) FROM SSP_REL_TEMPO_EVENTO');
InputBox('','',Sql.Text);
* cLinhasE:=FieldByName('COUNT(*)').AsInteger; // ( aqui dá o
erro Acess Violation)*
Vcs tem alguma dica de como posso conseguir fazer isso?
Obrigada!!
--
Abraços,
Geovana Ventura
[As partes desta mensagem que não continham texto foram removidas]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3262 (20080711) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Boleto - JPG
Pegando o gancho... como faço para exportar para TXT , CSV no FastReport... estou precisando e nem tenho ideia de como fazer... rsrs.. Obrigado...Wesley From: Andrei Luís Sent: Tuesday, July 01, 2008 10:22 AM To: delphi-br@yahoogrupos.com.br Subject: Re: Res: [delphi-br] Boleto - JPG Eu também uso um gerador de relatórios, no caso o Fast Report, pra montar o boleto, e depois posso usar uma das exportações disponíveis no gerador: PDF, RTF, XLS, XML, HTML, JPG, BMP, GIF, TIFF, TXT, CSV, Open Document Format (lista de formatos retirado do site do desenvolvedor). Eu particularmente exporto sempre pra PDF. Alguns componentes geradores de boleto, Delphi-Boleto, Free Boleto, também fazem uso de geradores de relatório. [] Andrei 2008/7/1 Alan Vieceli [EMAIL PROTECTED]: Eu dei essa idéia pro meu analista..mas ele pediu pra eu achar como fazer em JPG, pra ter outro recurso... eu achei um componente, Delphi-Boleto..mas eu ele foi mantido só até D7, to tentando fazer ele funcionar no D2007..vamos ver no que dá Se mais alguem souber de outro componente.. Alan.. Luciano Calenzani Simões escreveu: Faz em PDF que é mais fácil. Aí você pode usar o próprio recurso do gerador de relatórios ou utilizar uma impressora PDF. Luciano Calenzani Simões - Mensagem original De: Alan Vieceli [EMAIL PROTECTED] mailto:alansvieceli%40gmail.com alansvieceli%2540gmail.com Para: delphi-br@yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Enviadas: Terça-feira, 1 de Julho de 2008 9:35:20 Assunto: [delphi-br] Boleto - JPG Alguém sabe algum componente ou classe q gere um boleto em JPG??? para q eu possa imprimir e/ou enviar por e-mail??? abraço Alan Vieceli [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3231 (20080701) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Edit
Eu faria assim.. Colocaria na propiedde TAG=1 dos edit's que queira alterar... depois usava a Seguinte procedure.. procedure ADEdits ( Ativa : Boolean ); var x:Integer; begin for x:= 0 to componentCount - 1 do if Components[x] is Tedit then if TEdit(Components[x]).tag = 1 then Tedit(Coponents[x]).enabled:= Ativa; end; Wesley From: Ricardo Cabral Sent: Friday, June 13, 2008 8:27 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Edit Olha pessoal ! Imaginem uma tela com 15 campos Edit (edit1, edit2, edit3...edit15). O problema é o seguinte: Como eu posso, por exemplo, colocar edit.enable:=false nos edit´s de 5 até 14 sem ter que fozer um por um ? Daria para fazer através de um loop ? Abraços, Ricardo Cabral Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ __ Information from ESET NOD32 Antivirus, version of virus signature database 3183 (20080613) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
