[delphi-br] Delphi 2006
Bom dia a todos, Eu estou usando o delphi 2006 pela primeira vez e não estou conseguindo desativar aqueles recursos de debugging como call stack, watch list e principalmente o event log. Eu estou desistindo de usar o delphi 2006 por causa disso. Eh possivel desativar esses recursos, mas sem perder a opção de debug? porque se desmarcar a opção de integreted debbugin o opção de debugar não funciona. Obrigado. "Atenciosamente, Evaldo Avelar Marques" Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Script sql
Alguem conhece algum componente que rode um scrpit sql? Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] componente para rodar script sql
Obrigado ao pessoal que respondeu a minha duvida. Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro
voce nao esta usando o create da sua classe. tente: var MinhaPessoa: TPessoa; begin MinhaPessoa.create; MinhaPessoa. CPF.Valor := '111.111.111- 11'; end; - Mensagem original De: Alex Canario <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 7 de Agosto de 2007 9:59:54 Assunto: [delphi-br] Setar campos do tipo record dentro de uma classe retorna um erro (Setar campos do tipo record dentro de uma classe retorna um erro) Pessoal bom dia, Tenho um record: TColuna = record Valor: Variant; Tamanho: Integer; Posicao: Integer; end; Uma Classe que incorpora o record: TPessoa = class(TObject) private FCPF: TColuna; public constructor Create; property CPF: TColuna read FCPF write FCPF; end; implementation constructor TPessoa.Create; begin FCpf.Posicao := 19; FCpf.Tamanho := 14; end; Em outra Unit tento setar o campo valor do campo CPF da Classe pessoa e me retorna um erro var MinhaPessoa: TPessoa; begin MinhaPessoa. CPF.Valor := '111.111.111- 11'; end; Erro: [Pascal Error] E2064 Left side cannot be assigned to Como posso setar um valor para o campo Valor que é um Record dentro da minha classe TPessoa. Obrigado [] Alex Canário Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile. yahoo.com/ mailalertas/ [As partes desta mensagem que não continham texto foram removidas] Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Erro ao usar dll
coloque o seguinte comando na chamada: cdecl; external 'biblio.dll' ; "Atenciosamente, Evaldo Avelar Marques" - Mensagem original De: Alexandre G. de Oliveira <[EMAIL PROTECTED]> Para: Lista Delphi - Yahoo Enviadas: Quarta-feira, 8 de Agosto de 2007 9:31:10 Assunto: [delphi-br] Erro ao usar dll Olá a Todos... Pessoal tenho a seguinte dll: library Biblio; uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, Buttons, StdCtrls, Mask, DBCtrls, ExtCtrls, ActnList, ComCtrls, FMTBcd, Provider, DBClient; {$R *.res} procedure LimpaCampos( vForm: TForm; vFormHandle: THandle); var i : Integer; begin for i := 0 to (vForm.ControlCount -1) do if vForm.Controls[ i].ClassName = 'TEdit' then begin TEdit(vForm. Controls[ i]).Text: =''; end; for i := 0 to (vForm.ControlCount -1) do if vForm.Controls[ i].ClassName = 'TDBEdit' then begin TDBEdit(vForm. Controls[ i]).Text: =''; end; for i := 0 to (vForm.ControlCount -1) do if vForm.Controls[ i].ClassName = 'TCheckBox' then begin TCheckBox(vForm. Controls[ i]).Checked: = False; end; for i := 0 to (vForm.ControlCount -1) do if vForm.Controls[ i].ClassName = 'TDBCheckBox' then begin TDBCheckBox( vForm.Controls[ i]).Checked: = False; end; end; Exports LimpaCampos; begin end. E no Form frmCadKits declaro a procedure e a dll. ... public { Public declarations } end; procedure LimpaCampos( vForm: TForm; vFormHandle: THandle); external 'biblio.dll' ; var ... E faço uma chamada no show do Form procedure TfrmCadKits. FormShow( Sender: TObject); begin LimpaCampos( frmCadKits, frmCadKits. Handle); end; E recebo o erro: Project Aplicativo.exe raised exception class EAccessViolation with message 'Access violation at address 045DF5B in module Aplicativo.exe' . Read of address 0180'. Process stopped. Use Step or Run to continue. Alguém tem uma solução, já tentei de várias formas e nada, sempre dá esse erro. No mesmo diretório da aplicação estão a biblio.dll e a borlndmm.dll. Grato a todos. Alexandre. Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile. yahoo.com/ mailalertas/ Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Threads
Delphi da suporte a tarefas muti-threads ? Onde consigo material sobre o assunto? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Threads
Vou procurar, Obrigado . - Mensagem original De: Edu Nicácio <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 24 de Agosto de 2007 11:27:03 Assunto: Re: [delphi-br] Threads Sim, e de muitas maneiras! Recomendo a leitura do livro "Delphi - Guia Essencial". Comprei por apenas R$ 25,00 na Livros Técnicos Vitória e foi uma das melhores aquisições que já fiz... Há um capitulo inteiro dedicado a programação concorrente (multi-threading) , com diversas formas de aplicação: classe TThread, classe TFuture, Mutexes, etc. Abraço. - - - - - - Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 eduardo.nicacio@ ctis.com. br - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Friday, August 24, 2007 9:59 AM Subject: [delphi-br] Threads Delphi da suporte a tarefas muti-threads ? Onde consigo material sobre o assunto? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi for php
Estamos com a intenção de comprar o Delphi for PHP aqui na empresa, mas para isso o meu gerente quer opinião de quem já usa a ferramenta. Gostaria de saber se as pessoas que estão envolvidas poderiam dar o seu depoimento. Gostaria de saber também o preço médio no mercado e se existe alguma versão demo . Obrigado. Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Delphi for php
Obrigado pela opinião, foi de grande valia. - Mensagem original De: Hudson <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 31 de Agosto de 2007 0:37:41 Assunto: Re: [delphi-br] Delphi for php Ola Evaldo, Isso depende do que vc esta precisando.. . o Delphi For PHP e mais voltado para um sistema PHP muito rico na sua biblioteca de vcl php... com ele vc pode fazer projeto em php como se foce o delphi normal, por exemplo: para saber a quantidade de registro selecionado no select ficaria assim no php puro $sql = mysql_query( "select * from where t = '".$email."' "); if (mysql_num_rows( $sql) == 0) no codigo DPHP if ($this->tbteste1- >RecordCount == 0) com isso o programador ganha mais tempo e agilidade e fora a facilidade de conexão com banco de dados... gosto muito do firebird ficou otimo. Para criar sistema em php online, deve-se ter o php 5 ou superior rodando no servidor no meu caso tive que instalar pois o mesmo e gratuito... Se vc esta procurando algum para fazer sistemas eu indico, vai fundo... Mas se vc estiver proucurando para designer, não indico, pois o mesmo e voltado ao programador sendo que ainda tem bastantes coisas para isso... estou gostando, e esta surgindo componentes e informações no prazo melhor do que imaginava "Isso mostra que a galera do php esta entrando para a familia da Code gear" Atenciosamente Hudson Dias www.alcancedigital. com.br MSN: [EMAIL PROTECTED] com Skype: hudson_bh Tele: (31)3434-6304 - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Thursday, August 30, 2007 2:57 PM Subject: [delphi-br] Delphi for php Estamos com a intenção de comprar o Delphi for PHP aqui na empresa, mas para isso o meu gerente quer opinião de quem já usa a ferramenta. Gostaria de saber se as pessoas que estão envolvidas poderiam dar o seu depoimento. Gostaria de saber também o preço médio no mercado e se existe alguma versão demo . Obrigado. Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] JvDBLookupCombox
Eu estou com um probleminha meio bobo mas que está me dando uma surra danada, como fazer para expandir o JvDBLookupCombox através do teclado? porque só consigo pelo mouse. Pelo teclado só eh possível percorrer os itens . Dei uma olhada pela net, mas não encontrei nada a respeito. Se alguém puder da uma dica... Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] JvDBLookupCombox
isso funciona, mas não serve, o usuário tem apenas que teclar para baixo. Obrigado pela ajuda - Mensagem original De: Luis Lopes <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 4 de Setembro de 2007 9:43:33 Assunto: Res: [delphi-br] JvDBLookupCombox Já tentou ALT + seta-pra-baixo? ! Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Evaldo Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 4 de Setembro de 2007 9:16:21 Assunto: [delphi-br] JvDBLookupCombox Eu estou com um probleminha meio bobo mas que está me dando uma surra danada, como fazer para expandir o JvDBLookupCombox através do teclado? porque só consigo pelo mouse. Pelo teclado só eh possível percorrer os itens . Dei uma olhada pela net, mas não encontrei nada a respeito. Se alguém puder da uma dica... Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: RES: Res: [delphi-br] JvDBLookupCombox
dropdown eu consegui, o problema agora eh que ao percorrer a lista e selecionar um item, o ponteiro do dataset nao acompanha o item que foi selecionado. - Mensagem original De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 4 de Setembro de 2007 13:34:34 Assunto: RES: Res: [delphi-br] JvDBLookupCombox Como assim? O padrão Windows é ALT+SETA PRA BAIXO. Isso não serve?? Vc quer que o dropdown aconteça com o usuário pressionando a seta pra baixo? É só pegar a tecla no keypress .. key = vk_down e mandar abrir o lookup. De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Evaldo Enviada em: terça-feira, 4 de setembro de 2007 10:40 Para: [EMAIL PROTECTED] os.com.br Assunto: Res: Res: [delphi-br] JvDBLookupCombox isso funciona, mas não serve, o usuário tem apenas que teclar para baixo. Obrigado pela ajuda - Mensagem original De: Luis Lopes mailto:luisalberto lopes%40yahoo. com.br> > Para: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> Enviadas: Terça-feira, 4 de Setembro de 2007 9:43:33 Assunto: Res: [delphi-br] JvDBLookupCombox Já tentou ALT + seta-pra-baixo? ! Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: Evaldo Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 4 de Setembro de 2007 9:16:21 Assunto: [delphi-br] JvDBLookupCombox Eu estou com um probleminha meio bobo mas que está me dando uma surra danada, como fazer para expandir o JvDBLookupCombox através do teclado? porque só consigo pelo mouse. Pelo teclado só eh possível percorrer os itens . Dei uma olhada pela net, mas não encontrei nada a respeito. Se alguém puder da uma dica... Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] AcroPDFLib_TLB
Alguém tem ou sabe onde encontro a AcroPDFLib_TLB do Adobe Reader 8.0? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] AcroPDFLib_TLB
A minha duvida eh a mesma do companheiro: eh preciso do Acrobat ou só o reader funciona? - Mensagem original De: Ricardo César Cardoso <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Setembro de 2007 14:58:59 Assunto: Re: [delphi-br] AcroPDFLib_TLB Desculpem a intromissão, mas consigo gerar esta TLB a partir do Acrobat Reader? Ou devo ter o Adobe Acrobat para isso? Grato, Ricardo. Edu Nicácio escreveu: Para isso você deve ter o Acrobat instalado. Quando instalado, ele disponibiliza alguns componentes ActiveX que podem ser utilizados na sua aplicação. Se você for distribuir a aplicação e não quiser enviar junto o Acrobat, terá que empacotar esses componentes junto com o instalador e criar processos de registro dos mesmos no sistema do usuário. Espero ter ajudado. Abraço. - - - - - - Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 eduardo.nicacio@ ctis.com. br - Original Message - From: Alessandro DUARTE de Moraes To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, September 11, 2007 11:06 AM Subject: Re: [delphi-br] AcroPDFLib_TLB Faça vc mesmo! No Delphi 7 basta vc ir no menu Component / Import ActiveX Control e selecionar o Adobe Acrobat ... e criar as units. Alessandro DUARTE de Moraes - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, September 11, 2007 10:29 AM Subject: [delphi-br] AcroPDFLib_TLB Alguém tem ou sabe onde encontro a AcroPDFLib_TLB do Adobe Reader 8.0? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] - - E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identificação: 54568,46e6984c86979 3827817435 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] windows server 2003
Tenho uma aplicacao que esta sendo migrada para o windows server 2003, e toda vez que tem um usuario conectado ao banco, os demais nao conseguem conectar e a seguinte messagem eh exibida: "Esta operacao nao pode ser mapeada em um arquivo com uma secao mapeada pelo usuario aberta". Tenho quase certeza que estah falltando alguma permissao, mas nao sei qual. Alguem jah passou por esse problema? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] windows server 2003
Assim, descupe. Eh o firebird 1.5, o componente de acesso e o zeos. - Mensagem original De: Robson <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 18 de Setembro de 2007 17:01:25 Assunto: Res: [delphi-br] windows server 2003 Evaldo, qual banco de dados, versãoetc. . Kaputz, Robson Skype: kaputz_gri "Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu amigo... ...E nessa busca empenho a minha própria alma, pois com uma Amizade Verdadeira, a vida se torna mais simples, mais rica e mais bela..." Charlie Chaplin . - Mensagem original De: Evaldo Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 18 de Setembro de 2007 16:07:08 Assunto: [delphi-br] windows server 2003 Tenho uma aplicacao que esta sendo migrada para o windows server 2003, e toda vez que tem um usuario conectado ao banco, os demais nao conseguem conectar e a seguinte messagem eh exibida: "Esta operacao nao pode ser mapeada em um arquivo com uma secao mapeada pelo usuario aberta". Tenho quase certeza que estah falltando alguma permissao, mas nao sei qual. Alguem jah passou por esse problema? Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] onDrawDataCell
Estou dando manutenção em um sistema que possui um DBgrid com o evento "onDrawDataCell", que nunca é disparado. Pergunto: Qual a utilidade do onDrawDataCell do DBGrid? e quando que ele é disparado? pesquisei no help, mas está meio confuso, ele diz para não usar. encontrei o seguinte: "Do not write an OnDrawDataCell event handler. OnDrawDataCell is obsolete and included for backward compatibility. Instead, write an OnDrawColumnCell event handler." Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: onDrawDataCell
OldF; //contadord; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; / / If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (e) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadore; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (e) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadore; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (e) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadore; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (e) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadore; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (e) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadore; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 =(e) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadore; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; / / If (Column.Index = 1) and Not (gdFocused in State) Then Begin If n1 = (f) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadorf; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 2) and Not (gdFocused in State) Then Begin If n2 = (f) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadorf; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 3) and Not (gdFocused in State) Then Begin If n3 = (f) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadorf; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 4) and Not (gdFocused in State) Then Begin If n4 = (f) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadorf; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 5) and Not (gdFocused in State) Then Begin If n5 = (f) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadorf; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; If (Column.Index = 6) and Not (gdFocused in State) Then Begin If n6 =(f) Then Begin Canvas.Brush. Color := clInfoBk; Canvas.Font. Color := nOldF; //contadorf; End; If (gdFocused in State) Then Canvas.Font. Color := clWhite; DefaultDrawColumnCe ll(Rect, Datacol, Column, State); End; Canvas.Brush. Color := nOldB; // label8.Caption: =IntToStr( conta); End; --- Em [EMAIL PROTECTED] os.com.br, Evaldo escreveu > > Estou dando manutenção em um sistema que possui um DBgrid com o evento "onDrawDataCell" , que nunca é disparado. Pergunto: > > Qual a utilidade do onDrawDataCell do DBGrid? e quando que ele é disparado? pesquisei no help, mas está meio confuso, ele diz para não usar. encontrei o seguinte: > >
Res: [delphi-br] onDrawDataCell
Funcionou, obrigado. - Mensagem original De: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 21 de Setembro de 2007 13:46:56 Assunto: Re: [delphi-br] onDrawDataCell Se o DEFAULTDRAWING do dbgrid estiver TRUE ele não vai executar o onDrawDataCell, passe ele para FALSE. do help do delphi... "Set DefaultDrawing to True to allow the data-aware grid to draw the data in the cells of the grid automatically. Set DefaultDrawing to False to turn off the default drawing when providing customized painting in an OnDrawColumnCell event handler or an OnDrawDataCell event handler. " abraços... Luiz Escobar - Analista/Desenvolve dor: WEB - HTML/JavaScript/ PHP/MySQL WINDOWS - Delphi/ASSEMBLER/ MySQL/xBase SERVIDORES - CNA IntraNetWare4. 11, LINUX-(RedHat9/ Suse10.2) , Windows 2K/XP - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Friday, September 21, 2007 11:26 AM Subject: [delphi-br] onDrawDataCell Estou dando manutenção em um sistema que possui um DBgrid com o evento "onDrawDataCell" , que nunca é disparado. Pergunto: Qual a utilidade do onDrawDataCell do DBGrid? e quando que ele é disparado? pesquisei no help, mas está meio confuso, ele diz para não usar. encontrei o seguinte: "Do not write an OnDrawDataCell event handler. OnDrawDataCell is obsolete and included for backward compatibility. Instead, write an OnDrawColumnCell event handler." Flickr agora em português. Você clica, todo mundo vê. http://www.flickr. com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] autocad e delphi
Componente não sei te dizer, mas uma outra solução, seria instalar a ocx de algum programa e usa-lo no Delphi. Eu já usei o FreeDWG, um programa gratuito para a visualização de arquivos do autocad. Espero ter ajudado. - Mensagem original De: Vitor <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 25 de Setembro de 2007 20:14:21 Assunto: [delphi-br] autocad e delphi Boa noite , Será que alguem conhece algum componente do delphi para autoCad , de preferencia que o prório delphi consiga ler,e , não do tipo que passe para imagem ou dbf...por exempo. Se alguem tiver alguma dica eu agradeço muito... Vitor Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] serial físico do HD no win Server
Alguém já precisou capturar o serial físico do Hd no windows Server 2003 e obteve sucesso, mesmo para usuários sem privilégios? se sim como foi feito? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] serial físico do HD no win Server
usando a seguinte função: { função que pega o serial number FÍSICO do HD e retorna string } function GetIdeDiskSerialNumber : String; type TSrbIoControl = packed record HeaderLength: ULONG; Signature: Array[0..7] of Char; Timeout: ULONG; ControlCode: ULONG; ReturnCode: ULONG; Length: ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl = ^TSrbIoControl; TIDERegs = packed record bFeaturesReg : Byte; // especificar "comandos" SMART bSectorCountReg : Byte; // registro de contador de setor bSectorNumberReg : Byte; // registro de número de setores bCylLowReg : Byte; // valor de cilindro (byte mais baixo) bCylHighReg : Byte; // valor de cilindro (byte mais alto) bDriveHeadReg : Byte; // registro de drive/cabeça bCommandReg : Byte; // comando IDE bReserved : Byte; // reservado- tem que ser zero end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize : DWORD; irDriveRegs : TIDERegs; bDriveNumber : Byte; bReserved : Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; end; SENDCMDINPARAMS = TSendCmdInParams; PSendCmdInParams = ^TSendCmdInParams; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector : Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of Char; wBufferType : Word; wBufferSize : Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS : Word; wNumCurrentCyls : Word; wNumCurrentHeads : Word; wNumCurrentSectorsPerTrack : Word; ulCurrentSectorCapacity : ULONG; wMultSectorStuff : Word; ulTotalAddressableSectors : ULONG; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of Byte; end; PIdSector = ^TIdSector; const IDE_ID_FUNCTION = $EC; IDENTIFY_BUFFER_SIZE = 512; DFP_RECEIVE_DRIVE_DATA = $0007c088; IOCTL_SCSI_MINIPORT = $0004d008; IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501; DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE; BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize; W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; var hDevice : THandle; cbBytesReturned : DWORD; pInData : PSendCmdInParams; pOutData : Pointer; // PSendCmdOutParams Buffer : Array[0..BufferSize-1] of Byte; srbControl : TSrbIoControl absolute Buffer; begin Result := ''; FillChar(Buffer,BufferSize,#0); if Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000, Windows XP begin // recuperar handle da porta SCSI hDevice := CreateFile('\\.\Scsi0:', // Nota: '\\.\C:' precisa de privilégios administrativos GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if hDevice=INVALID_HANDLE_VALUE then Exit; try srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL); System.Move('SCSIDISK',srbControl.Signature,8); srbControl.Timeout := 2; srbControl.Length := DataSize; srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY; pInData := PSendCmdInParams(PChar(@Buffer) +SizeOf(SRB_IO_CONTROL)); pOutData := pInData; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1; bCylLowReg := 0; bCylHighReg := 0; bDriveHeadReg := $A0; bCommandReg := IDE_ID_FUNCTION; end; end; if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT, @Buffer, BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit; finally CloseHandle(hDevice); end; end else begin // Windows 95 OSR2, Windows 98, Windows ME hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 ); if hDevice=INVALID_HANDLE_VALUE then Exit; try pInData := PSendCmdInParams(@Buffer); pOutData := @pInData^.bBuffer; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1; bCylLowReg := 0; bCylHighReg := 0; bDriveHeadReg := $A0;
: Res: Res: [delphi-br] serial físico do HD no win Server
Ah, me desculpe, estava em outra tarefa. Para o usuário administrador funciona perfeitamente, mas para o usuário comum retorna lixo no serial. Deve haver uma forma de dar privilégios para o executável sem que ele precise do privilégio do usuário para executar, Mas eu nem imagino como. Obrigado pela atenção. - Companheiro, estou aguardando o retorno sobre a última mensagem que lhe mandei. Sds. Date: Wed, 3 Oct 2007 10:33:20 -0700 From: [EMAIL PROTECTED] Subject: Res: Res: [delphi-br] serial físico do HD no win Server To: [EMAIL PROTECTED] .ExternalClass DIV {} A máquina em que eu fiz o teste possui HD scsi ( testei para o usuário normal, sem privilégios, e o administrador), Retornou o seguinte erro: Exception EConvertError in module RnLowLevelLib.dll at 5BCA. .ExternalClass .EC_hmmessage P {padding:0px;} .ExternalClass EC_body.hmmessage {font-size:10pt;font-family:Tahoma;} Estou te enviando um utilitário que desenvolvi usando minha DLL para acesso a recursos de baixo nível. Veja se isto resolve o seu problema e me reporte os resultados. Sds. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Treeview
Olá a todos, Estou criando um DBtreeview e estou com a seguinte duvida: a parti de um nodo filho, como posso obter o nodo raiz? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Thread
Eu estou iniciando em programação paralela, e me deparei com o seguinte problema: quando o sistema inicia, ele cria threads que vao executar tarefas demoradas. Se o programa for fechado antes das threads terminarem, ocorrer erro de acsses violation. Como eu posso interromper a execução dessas threads? eu crio-as da seguinte forma: var hThreadID : THandle; begin hThreadID := CreateThread (nil, 0, @Funcao, nil, 0, ThreadID); Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Thread
Obrigado pela força, seu conselho é de grande valia. Inicialmente eu te aconselho a utilizar a classe TThread do delphi para isso ao invés de usar API do windows. Caso vc queira realmente utilizar a API, dá uma olhada em http://msdn2. microsoft. com/en-us/ library/ms682453 .aspx Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Estimar o tempo que será gasto com uma tarefa
Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o processamento de uma tarefa? Por exemplo: vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do tempo que será gasto para a inserção dos registros e mostraria uma msg ao usuário com o tempo estimado . Penso que teria que levar em consideração o hardware da máquina e os processos que já estão rodando no momento. É possível fazer esse calculo? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa
Já uso a barra, mas eu queria mesmo era dar uma estimativa antes de começar a tarefa. - Mensagem original De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 30 de Outubro de 2007 15:05:03 Assunto: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa Uma barra de progresso não ajudaria? De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Evaldo Enviada em: terça-feira, 30 de outubro de 2007 13:54 Para: [EMAIL PROTECTED] os.com.br Assunto: [delphi-br] Estimar o tempo que será gasto com uma tarefa Alguém tem alguma formula onde eu possa calcular o tempo que será gasto com o processamento de uma tarefa? Por exemplo: vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do tempo que será gasto para a inserção dos registros e mostraria uma msg ao usuário com o tempo estimado . Penso que teria que levar em consideração o hardware da máquina e os processos que já estão rodando no momento. É possível fazer esse calculo? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa
Muito boa sugestão! As vezes a gente complica algo que é muito simples por estar stressado demais. Obrigado. - Mensagem original De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 30 de Outubro de 2007 14:40:45 Assunto: RE: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa Imagino que vc, ao fazer essa inclusão de registros, esteja envolvendo toda a operação dentro de um contexto transacional. Após iniciar a transação, cronometre o tempo gasto na execução da primeira operação de inclusão. Como fazer isso? Muito simples! Após iniciar a transação e antes de efetuar a primeira operação de INSERT, pegue a 'hora inicial' usando o valor retornado pela função GetTickCount( ), da API do Windows (unit Windows). Após a execução do INSERT, pegue a 'hora atual' usando novamente GetTickCount( ). A diferença entre este valor e o valor capturado no início (em milissegundos) permitem estimar quanto tempo uma única operação irá levar. O tempo total será, portanto, a quantidade de registros a serem incluídos multiplicado por essa diferença encontrada. Dessa forma, pode-se montar um tela com uma barra de progresso que, além de mostrar o andamento atual do processamento, poderá mostrar o tempo estimado e o tempo atual de processamento da operação. Esta é a minha sugestão. Não recomendo ir tão à fundo no cálculo dessa estimativa baseando-se no tempo de execução de outros processos. Acredito que esse básico seja mais do que suficiente. Agora, se a operação estiver levando mais tempo que o normal, seria o caso de rever o algoritmo usado neste processo para que este seja otimizado, seja este processo o que for. Sds. To: [EMAIL PROTECTED] os.com.brFrom: evaldoavelar@ yahoo.com. brDate: Tue, 30 Oct 2007 10:17:27 -0700Subject: Res: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefa Já uso a barra, mas eu queria mesmo era dar uma estimativa antes de começar a tarefa.- Mensagem original De: Davi Eduardo Borges Wall <[EMAIL PROTECTED] com.br>Para: [EMAIL PROTECTED] os.com.brEnviada s: Terça-feira, 30 de Outubro de 2007 15:05:03Assunto: RES: [delphi-br] Estimar o tempo que será gasto com uma tarefaUma barra de progresso não ajudaria?De: [EMAIL PROTECTED] os.com.br [mailto:delphi- [EMAIL PROTECTED] os.com.br] Em nome de EvaldoEnviada em: terça-feira, 30 de outubro de 2007 13:54Para: [EMAIL PROTECTED] os.com.brAssunto: [delphi-br] Estimar o tempo que será gasto com uma tarefaAlguém tem alguma formula onde eu possa calcular o tempo que será gasto com o processamento de uma tarefa? Por exemplo: vou inserir 4000 registro no banco, então eu faria o calculo de aproximação do tempo que será gasto para a inserção dos registros e mostraria uma msg ao usuário com o tempo estimado . Penso que teria que levar em consideração o hardware da máquina e os processos que já estão rodando no momento.É possível fazer esse calculo?Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!http://br.mail. yahoo.com/[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!http://br.mail. yahoo.com/[As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas com Windows Desktop Search GRÁTIS! http://desktop. msn.com.br/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ot - Inno Setup
usando da seguinte forma, aparecera um checkBox: Filename: {tmp}\Firebird-1.5.2.4731-Win32.exe; Description: Instalar o gerenciador banco de dados - Firebird®; StatusMsg: Instalando banco de dados...; Flags: postinstall skipifsilent hidewizard para os demais é só colocar os flags: Flags: postinstall skipifsilent hidewizard - Mensagem original De: Jefferson - Fórum <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 5 de Novembro de 2007 1:17:45 Assunto: Re: [delphi-br] ot - Inno Setup Aproveito esse ot, e pergunto! Como posso no Inno, colocar as opções pra fazer instalação: - completa (aplicativo e servidor de banco de dados [firebird]) - somente aplicativo - somente servidor de banco de dados Alguém pode me ajudar, por favor? Jefferson - Original Message - From: José Claudemir To: [EMAIL PROTECTED] os.com.br Sent: Sunday, November 04, 2007 11:13 PM Subject: Res: [delphi-br] ot - Inno Setup Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original --- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: [EMAIL PROTECTED] os.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com. br Dúvidas:http://nilsoftware. blogspot. com/ Obrigatório: www.saopaulofc. com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como obter o ip real de uma máqui na na internet
Esse componente indy é pago? Se for gratuito poderia encaminhar para mim? - Mensagem original De: Jorge Ericsson <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 12 de Novembro de 2007 17:57:42 Assunto: Re: [delphi-br] Como obter o ip real de uma máquina na internet Apenas uma correção amigos a função completa fica assim: Detalhe a versão do Indy que uso é a 10 no caso de quem utiliza a 9 precisara corrigir algumas coisas que não testei ainda... Funciona blz pessoal... function ObterIPRealInternet (Const vUrl : String): String; var IP : TIdHTTP; Temporario : String; Endereco : String; X : Integer; begin try IP := TIdHTTP.Create( nil); with IP do begin Request.Host := vUrl;//'http://www.meuip. com.br/'; //Errei anteriormente colando IoHandler. Temporario := Get(vUrl);// 'checkip. dyndns.org' ); For X := 1 to Length(Temporario) do if (Temporario[ X] in ['0'..'9']) or (Temporario[ X] = '.') then Endereco := Endereco + Temporario[X] ; end; Result := Trim(Endereco) ; IP.Free; except Result := ''; { Trata oque vai ocorrer quando falhar ... } end; end; Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] componente que faça netstat
Boa tarde, estou precisando de um componente que faça o mesmo que o comando netstat do DOS, para gravar em um arquivo. Alguém poderia me indicar algum? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] componente que faça netstat
Eu estou fazendo exatamente isso, soh que nao esta funcionado, fiz da seguinte forma: if conectado then begin comando := 'command.com /c netstat > '+ DiretorioLog + TrocaCaracter( DateTimeToStr(now),'/',':','-','_') +'.txt'; WinExec(pchar(comando),0 ); end; - Mensagem original De: Leonardo - Lalur Informática <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Novembro de 2007 14:54:46 Assunto: Re: [delphi-br] componente que faça netstat Evaldo, E se você utilizar netstat >ArquivoAGravar. txt Não te serve? Atenciosamente, Leonardo Ribeiro Machado Desenvolvimento e Suporte [EMAIL PROTECTED] com.br Lalur Informática Ltda www.lalur.com. br (51) 3541 - 3334 - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Wednesday, November 14, 2007 2:52 PM Subject: [delphi-br] componente que faça netstat Boa tarde, estou precisando de um componente que faça o mesmo que o comando netstat do DOS, para gravar em um arquivo. Alguém poderia me indicar algum? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.31/1129 - Release Date: 11/13/ 21:22 [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] componente que faça netstat
Obrigadão! Já estava pensando que isso não existia ainda. -- Atenciosamente: Evaldo Avelar Marques Programador junior - Mensagem original De: Sergio Eurico <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 14 de Novembro de 2007 18:08:59 Assunto: Re: [delphi-br] componente que faça netstat Rsrsrsrr e antes que me perguntem pela IPHLPAPI.DLL ... disponivel aqui: http://www.dll- files.com/ dllindex/ dll-files. shtml?iphlpapi Abraco, Sergio Eurico. Em 14/11/07, Sergio Eurico <[EMAIL PROTECTED] com> escreveu: > > Olá Evaldo, > > Tudo bem? Dia de sorte!! > > Código fonte do netstat32 disponivel em > http://smeschini. altervista. org/download/ netstat32. php > > Abraco, > > Sergio Eurico. > > > Em 14/11/07, Evaldo escreveu: > > > > Eu estou fazendo exatamente isso, soh que nao esta funcionado, fiz da > > seguinte forma: > > if conectado then > > begin > > comando := 'command.com /c netstat > '+ DiretorioLog + TrocaCaracter( > > DateTimeToStr( now),'/', ':','-',' _') +'.txt'; > > WinExec(pchar( comando), 0 ); > > end; > > > > - Mensagem original > > De: Leonardo - Lalur Informática <[EMAIL PROTECTED] > > com.br > > > > > Para: [EMAIL PROTECTED] os.com.br > > Enviadas: Quarta-feira, 14 de Novembro de 2007 14:54:46 > > Assunto: Re: [delphi-br] componente que faça netstat > > > > Evaldo, > > > > E se você utilizar > > > > netstat >ArquivoAGravar. txt > > > > Não te serve? > > > > Atenciosamente, > > > > Leonardo Ribeiro Machado > > > > Desenvolvimento e Suporte > > > > [EMAIL PROTECTED] com.br > > > > Lalur Informática Ltda > > > > www.lalur.com. br > > > > (51) 3541 - 3334 > > > > - Original Message - > > > > From: Evaldo > > > > To: [EMAIL PROTECTED] os.com.br > > > > Sent: Wednesday, November 14, 2007 2:52 PM > > > > Subject: [delphi-br] componente que faça netstat > > > > Boa tarde, estou precisando de um componente que faça o mesmo que o > > > > comando netstat do DOS, para gravar em um arquivo. > > > > Alguém poderia me indicar algum? > > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > > > > armazenamento! > > > > http://br.mail. yahoo.com/ > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > > > > -- > > > > No virus found in this incoming message. > > > > Checked by AVG Free Edition. > > > > Version: 7.5.503 / Virus Database: 269.15.31/1129 - Release Date: > > > > 11/13/ 21:22 > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > > armazenamento! > > http://br.mail. yahoo.com/ > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Histórico internet explorer
Bom dia, Gostaria de saber se é possivel capturar o histórico da web do internet explorer e do firefox atraves do delphi, pesquisei na internet e não vi nenhuma referência sobre este assunto. Grato pela atenção. - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Histórico internet explorer
Obrigado, funcionou perfeitamente! - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Histórico internet explorer
Eu modifiquei a função aqui para funcionar de acordo com minha nescessidade, veja se é últil para você: procedure TFprincipal.HistoricoInternetExplorer(lista: TStrings); var registro : TRegIniFile; begin Registro := TRegIniFile. Create('HKEY_ CURRENT_USER' ); Registro.OpenKey( '\Software\Microsoft\Internet Explorer', False); Registro.ReadSectionValues('TypedURLs' , lista); Registro.Free; end; Procurando fazer o exemplo sitado nessa resposta, fiz o que recomendou e não funcionou. Estou trabalhando com D7 e a propriedade ViewStyle não consta. Outros erros tb estão acontecendo. Desculpe-me se foi minha barberagem. Clovito -- Atenciosamente: Evaldo Avelar Marques Programador junior - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] report manager exportar p/ Excel file( one sheet )
Boa tarde a todos, Estou com um problema que é o seguinte: Estou com um sistema feito em Delphi 7, que possui relatórios feitos no Report Manager versão 2.4b. Logo após gerar o relatório e escolher a forma de salvar, dentre as opções para exportação para o Microsoft Excel, aparece apenas "Excel file", a opção "Excel file (one sheet )" não aparece. Gostaria de saber se alguém pode me informar o que pode estar atrapalhando, não permitindo mostrar a opção "Excel file (one sheet )". Os componentes em uso é o "TVCLReport" e o "TRpAlias", BD Firebird. Grato pela atenção. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Alguem aqui usa GExperts?
Eu uso no Delphi 7 e no Delphi 2006, eh muito ultil! -- Atenciosamente: Evaldo Avelar Marques Programador Junior Delphi, C# Dot Net [EMAIL PROTECTED] - Mensagem original De: Apoio <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 6 de Dezembro de 2007 10:55:22 Assunto: [delphi-br] Alguem aqui usa GExperts? Eu uso! mais alguem? http://www.gexperts .org/index. html sobre em portugues: http://www.revoluti on.com.br/ delphistop/ gxrevp.htm [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexão para Threads
Olá, Estou trabalhando em uma tela onde vou criar várias threads que irão fazer acesso ao banco de dados para fazer diferentes consultas. Gostaria de saber o que eh melhor: criar uma conexão para cada thread ou uma única conexão seria suficiente para todas? As consultas serão relativamente leves, na média de 200 registros por threads. Obs.: No total são disparadas 5 threads simultaneamente. O BD é firebird. componente de Acesso Zeos. Delphi 7. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Delphi, C# Dot Net [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Conexão para Threads
Como não estou usando componentes, eu estou herdadno da classe Tthread, vou criar uma conexão para cada uma, melhor garantir que a coisa não vai dar dor de cabeça. Obrigado s todos pelas explicações. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Delphi, C# Dot Net [EMAIL PROTECTED] - Mensagem original De: Evaldo <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 7 de Dezembro de 2007 18:49:16 Assunto: [delphi-br] Conexão para Threads Olá, Estou trabalhando em uma tela onde vou criar várias threads que irão fazer acesso ao banco de dados para fazer diferentes consultas. Gostaria de saber o que eh melhor: criar uma conexão para cada thread ou uma única conexão seria suficiente para todas? As consultas serão relativamente leves, na média de 200 registros por threads. Obs.: No total são disparadas 5 threads simultaneamente. O BD é firebird. componente de Acesso Zeos. Delphi 7. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Delphi, C# Dot Net evaldoavelar@ yahoo.com. br Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Importar arquivo txt
Me parece que você deve abrir esse arquivo em modo binário e não em modo texto, depoid percorrer-lo em blocos. Me corrijam se estiver errado. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Delphi, C# Dot Net [EMAIL PROTECTED] - Mensagem original De: Camoloze <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 10 de Dezembro de 2007 11:59:57 Assunto: [delphi-br] Importar arquivo txt Preciso importar um arquivinho txt para uma de nossa base de dados ( Firebird, Sql-Server.. . ). Só que o da o danado tem 3.86 gbytes ( +/- 50.000.000 de registros ). Quando começo a conversão, AssignFile( Variavel, NomeDoTxt ) , vai tudo bem até +/- 4.000.000 de registros, ai da erro “out of memory”. Estou utilizando Delphi2007 Update 3. Pentium Core 2 Duo, 2 giga de RAM. Alguém conhece alguma ferramenta onde eu poderia dividir este monstro, e trabalhar o arquivo em partes? Any clue Andreano? []´s Roberto Camoloze No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.17/1179 - Release Date: 09/12/2007 11:06 [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: RES: RES: [delphi-br] Conexão para Thread s
Muito interessante essa solução! Parabéns! Vou tentar implementar. Obrigado pela sugestão. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Delphi, C# Dot Net [EMAIL PROTECTED] - Mensagem original De: José Mário Silva Guedes <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 10 de Dezembro de 2007 16:59:09 Assunto: Re: RES: RES: [delphi-br] Conexão para Threads Olá, trabalho muito com Thread com acesso a banco de dados. Já bati muito a cabeça. A melhor solução que lhe sugiro e que comigo funciona muito bem, é o seguinte: POOL de Conexões. Eu trabalho com Delphi + Zeos + PostgreSQL. Eu criei uma Thread específica que mantém um array de conexões com o banco de dados. Quando uma outra Thread precisa fazer algo com o banco, ela solicita uma conexão. Com isso há um balanceamento muito interessante. Não compartilhe uma conexão entre várias Threads! Uma quer dar Insert, outra Delete... E a Transação, como fica? Uma conexão por Thread pura e simples - por sua vez - faz com que haja muita conexão ociosa com o banco. [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [OFF TOPIC] revista
E o que vocês tem a dizer da SQL Magazine? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Rafael Jorge <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 12 de Dezembro de 2007 14:23:13 Assunto: Re: [delphi-br] [OFF TOPIC] revista isso é verdade... as unicas coisas coloridas na clube delphi sao as capas e os comerciais do visual studio nas contra capas..hehehehehe chega a ser engracado isso.. "Boa tarde. Não se sinta ofendido, mas vc poderia citar uma boa revista? Assino as duas e acho ambas muito boas. E não vejo mal algum em "receitas-de- bolo" desde que vc aprenda a adaptar para as suas necessidades quando solicitado." quando eu disse receita de bolo me espresei mal.. quiz dizer receitas de bolos que se acham na net. realmente uma "receita de bolo" direta e clara ajuda é muito na vida da gente... foi mal ai, me espressei mal mesmo.. t+ Em 12/12/07, JCPF GMAIL <[EMAIL PROTECTED] com> escreveu: > > Concordo com tudo o que você falou e aproveito para perguntar aos > editores > da DevMedia(pergunta essa que postei no fórum há vários meses e nunca foi > respondida): > > Porque a ClubeDelphi é a ÚNICA revista do grupo que não é colorida como > todas as outras? O preço é similar a de todas as outras. Hoje em dia a > .net > Magazine tem um conteúdo e diagramação muito superiores a da ClubeDelphi, > isso sem me tornar repetitivo de que a qualidade do conteúdo da > ClubeDelphi > realmente caiu muito. > > João Carlos. > > De: [EMAIL PROTECTED] os.com.br [mailto: > [EMAIL PROTECTED] os.com.br ] Em > nome de Rafael Jorge > Enviada em: quarta-feira, 12 de dezembro de 2007 13:12 > Para: [EMAIL PROTECTED] os.com.br > Assunto: Re: [delphi-br] [OFF TOPIC] revista > > Olha sou assinante da clubedelphi e verdade seja dita as matérias decaíram > muito. Algumas são coisas que com um pouco de paciência você acha na > internet. Sem dizer que agora tem a parte de delphi iniciante e php que > pra > quem realmente so mexe com delphi sente falta de matérias avançadas. > Lógico > que pra quem é iniciante essas alterações são muito bem vindas mas pra > quem > já é macaco veio na área e simplesmente espaço morto na revista. > > Percebi a algum tempo atraz que a clube delphi realmente depois que o .net > veio a revista direcionada ao programadores delphi win32 foi meio deixada > pra la. Tenho uma revista mesmo que chegou pra mim eu dei uma olha vi as > matéria e pensei poxa. Esse mês a revista não tem nada de útil pra mim. E > esse se repetiu algumas vezes. > > Me lembro de varias vezes que recorri as revistas pra tirar duvidas e as > vídeo aulas em momento de necessidade. Mas ate o vídeo aulas parecem que > foram deixadas de lado também. Tem coisas que realmente são "receitas de > bolo" que você acha na net. Sem dizer que antes era quase diariamente você > encontrava uma vídeo aula nova. Hoje em dia você tem que torcer pra que a > próximo vídeo aula seja algo útil pra vc e não algo que você ache catando > na > net. > > Realmente a revista já foi muito boa. Mas hoje deixa muito a desejar a meu > ver (meu ver.. ou seja essa ai é minha opinião. Não to querendo > influenciar > ninguém nem nada. Só to dizendo minha opinião pessoal, só isso. Respeito a > opinião dos outros e sei que cada um tem uma forma de ver o mundo. Essa é > só > minha opinião, espero não gerar nenhuma polemica e essas coisas.) > > mas mesmo assim vale a pena ainda. Pois vai que você encontre matérias que > sejam úteis para você. Afinal toda edição e diferente uma da outra não? Já > sobre a active delphi eu tinha uma assinatura. Gostei das edições que eu > tenho. Não sei como anda ultimamente a qualidade da matéria. Mas se > continuou com antes vale a pena. > > t+ > > Em 12/12/07, Adriano Santos (Yahoo) <[EMAIL PROTECTED] > os.pro.br > <mailto:falecom% 40adrianosantos. pro.br> > escreveu: > > > > Pessoal, > > > > Como membro da equipe e editor técnico da revista ClubeDelphi me sinto > > na obrigação de responder. Bem, não conheço a ActiveDelphi e mesmo que > > conhecesse vai contra meus princípios éticos criticá-la. > > > > Posso falar somente pela ClubeDelphi, que hoje conta com colunistas > > pagos, mais de 70 páginas de artigos e estamos chegando a 500 > > vídeo-aulas dos mais variados assuntos em nosso portal. > > > > Todas as críticas e elogios mencionados aqui são bem-vindos para que > > poss
Res: [delphi-br] Várias thread's ao mesmo tempo
No seu construtor coloque inherited Create(false); { Chama o construtor herdado. Ele irá temporariamente colocar o thread em estado de espera para depois executá-lo. } seu codigo Resume; // Inicia o Thread. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: felipe govoni <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 14 de Dezembro de 2007 14:55:11 Assunto: Re: [delphi-br] Várias thread's ao mesmo tempo aproveitando o assunto thread, eu tava tentando faze uma barra de progresso enquanto desabilito certas opções, criei a thread dessa maneira: procedure thread_progresso. Execute; begin freeonterminate: =true; Synchronize( Incrementa) ; end; procedure thread_progresso. incrementa; begin frmlogin.ProgressBa r1.Position := contador; end; mas nao sei como chama- la. alguem pode me ajudar? vlw [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF TOPIC - Apostila de ClientDataSet Avançado
Olá a todos, Por gentileza, alguém teria alguma apostila ou curso com ClientDataSet Avançado ou algum link na web, que poderia me enviar? Dicas, truques e livros também são bem vindos. Obrigado. "conhecimento não ocupa espaço, só os livros" -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] OFF TOPIC - Apostila de ClientDataS et Avançado
Muito obrigado pela indicação, mas é que a maioria desses sites do google eu já olhei e são quase todos muito básicos, por isso perguntei aqui se alguém tinha uma apostila avançada e poderia compartilhar. mesmo assim, grato pela resposta. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] - Mensagem original De: Leonardo Cruz Costa - P. M. Quissamã <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 27 de Dezembro de 2007 11:41:02 Assunto: Re: [delphi-br] OFF TOPIC - Apostila de ClientDataSet Avançado Google, primeira linha: http://imasters. uol.com.br/ artigo/3947/ desenvolvimento/ clientdataset_ e_suas_funcoes/ Tem também outros links, dá uma conferida Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Thursday, December 27, 2007 11:31 AM Subject: [delphi-br] OFF TOPIC - Apostila de ClientDataSet Avançado Olá a todos, Por gentileza, alguém teria alguma apostila ou curso com ClientDataSet Avançado ou algum link na web, que poderia me enviar? Dicas, truques e livros também são bem vindos. Obrigado. "conhecimento não ocupa espaço, só os livros" -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - - - - - No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.17.9/1198 - Release Date: 26/12/2007 17:26 [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [OFF] retorno de mensagem est á incomodando
Eu também estou recebendo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 28 de Dezembro de 2007 14:27:40 Assunto: [delphi-br] [OFF] retorno de mensagem está incomodando Olá, Toda vez que alguém faz um post com palavra OFF no assunto (subject) estou recebendo um email desta pessoa [EMAIL PROTECTED] doeste.local Mensagem não autorizada - - - - Palavra (off) proibida no campo Subject E isso ta incomodando, pq cada vez que alguém faz um post com OFF vem este e-mail pra mim. Alguém mais ta recebendo isso? Obrigado. [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Definir versão de exe
Olá a todos, Tenho uma dúvida que ainda não consegui tirar: existe algum padrão para definir a versão de arquivo? Por exemplo a primeira versão sai como 1.0.0.1. Para cada Nova versão deve se subir um valor nesse numero? Assim a versão seguinte ficaria 1.0.0.2? Ou Cada uma das 4 posições significa alguma coisa? Como vocês fazem? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colocar Botão na StatusBar1
Por favor, Alguém tem um exemplo ou link, de como posso colocar um botão em uma StatusBar? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar1
Até daria, mas o efeito não seria o mesmo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Ao invés de colocar um statusbar não daria pra colocar um panel com a propriedade align = alBottom? [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar
olá Marcelo , A ProgressBar na StatusBar, eu já usei uma vez, e é bem interessante. Mas, senão me engano, a barra era pintada para a um painel da StatusBar. Vou pesquisar mais sobre essa propriedade psOwnerDraw. Na verdade o que eu precisava era manter um botão visível, para que a qualquer momento o aplicativo pudesse ser minimizado para a perto do relógio, e o melhor lugar que layout do sistema permite é a StatusBar. Pose ter certeza que se conseguir, enviarei o código. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] - Mensagem original De: Marcelo - Kappesberg <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:45:57 Assunto: Re: [Spam] [delphi-br] Colocar Botão na StatusBar1 Ola Evaldo... Procure na net pela propriedade psOwnerDraw do panel do statusbar... Encontrei exemplos de se colocar uma progressbar no statusbar a algum tempo, e pelo que entendi setando esta propriedade pode-se colocar qualquer tipo de objeto... Avise de der certo!! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar
Efeito Estético. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Alisson Costa Resende <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:59:33 Assunto: Re: [delphi-br] Colocar Botão na StatusBar Evaldo, Você disse que se colocasse um panel o efeito não seria o mesmo. Que efeito seria esse? [As partes desta mensagem que não continham texto foram removidas] __._,_ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Componente UserControl
Só uma pergunta, esse componente está estável? ouvi de um amigo que ele não era estável. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] - Mensagem original De: Apoio <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:52:41 Assunto: Re: [delphi-br] Componente UserControl http://www.usercont rol.net/index. php?option= com_content& task=view& id=22&Itemid= 46 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Arquivos de instalação disponib ilizados
Disponibilizou onde? Eu estou dando revisada nos instaladores aqui da empresa, automatizando alguns processos, colocando novas funcionalidades e incorporando o firebird 2.0, e gostaria de ver as novidades e dicas, que são muito bem vindas. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Jorge Ericsson <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 28 de Janeiro de 2008 13:08:01 Assunto: [delphi-br] Arquivos de instalação disponibilizados Olá pessoal, Eu disponibilizei para estudo alguns scripts de instalação do Firebird feitos por mim utilizando Inno Setup. Isso talvez ajudará alguns a tirar dúvidas sobre a utilização desta ferramenta. Fiquem a vontade caso precisem tirar algum dúvida sobre o script. Obs.: Caso alguém implemente coisas novas e mais interessantes, por favor divulguem aqui. Grande abraço a todos. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] scripts de instalação do Firebird
Alguém teria um Script em inno Setup que verificasse se o firebird já está instalado na máquina? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Eu criei essa função ontem: procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; pode usa-la assim AlteraComponete(FGerenciaUsuario,'ReadOnly',true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique <[EMAIL PROTECTED]> Para: "delphi-br@yahoogrupos.com.br" Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24 Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount- 1 if Components[i] .PROPRIEDADE = True then Components[i] .PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Obrigado! Realmente não me lembrei desse detalhe. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:46:43 Assunto: RE: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua função, se faz necessário um uses da unit TypInfo. Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: evaldoavelar@ yahoo.com. br Date: Fri, 1 Feb 2008 06:39:32 -0800 Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Eu criei essa função ontem: procedure AlteraComponete( Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp( Form.Components[ i], propiedade)then begin SetPropValue( Form.Components[ I], propiedade,valor) ; end; end; end; pode usa-la assim AlteraComponete( FGerenciaUsuario ,'ReadOnly' ,true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Já passei por esse erro mas foi com o tipo Double e resolvi como abaixo: It's of type Double, but a Variant is expected. That should be no problem, but the compiler needs to have the Variants unit added to the uses clause. - Add the Variants unit to the uses clause of the implementation section of unit - Press Shift+F2 to Save All files in the project, and then press Shift+F9 to rebuild the project. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 13:13:19 Assunto: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Pessoal, através da dica fiz o seguinte: if IsPublishedProp( Components[ i], 'FrameController' ) then SetPropValue( Components[ I], 'FrameController' , DM.RzFrameControlle r1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController ' Como transformo TRzFrameController pra variant? OBrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DataBase em rum time
Boa tarde, Estou desenvolvendo um DataBase explorer para meu uso, e dentre as funcionalidades, como a extração de metadados, preciso também de uma rotina para criar um DataBase em rum time . Utilizo a zeos lib, para manter a independencia do SGDB, Ouvir falar que existe um componente chamado TZIbSqlDatabase, mas não consegui encontra-lo, alguém por acaso teria esse componente e poderia me envia-lo? Ou poderia me dizer outra forma de criar o Database, utilizando a zeos lib? Grato pela atenção. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DataBase em rum time
Ok, valeu pela ajuda. Perdoe a minha ignorancia, mas como eu poderia passar esse script para o SGDB, ja que o Zconection obriga informa um database? - Mensagem original De: Eduardo Silva dos Santos <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Fevereiro de 2008 14:34:57 Assunto: Re: [delphi-br] DataBase em rum time para criar um banco de dados vc pode usar SQL puro.. no mysql por exemplo é assim: Create DataBase NomedoBanco; ao executar esse script o servidor cria o banco. Em 15/02/08, Evaldo escreveu: > > Boa tarde, > > Estou desenvolvendo um DataBase explorer para meu uso, e dentre as > funcionalidades, como a extração de metadados, preciso também de uma rotina > para criar um DataBase em rum time . > Utilizo a zeos lib, para manter a independencia do SGDB, > Ouvir falar que existe um componente chamado TZIbSqlDatabase, mas não > consegui encontra-lo, alguém por acaso teria esse componente e poderia me > envia-lo? > Ou poderia me dizer outra forma de criar o Database, utilizando a zeos > lib? > > Grato pela atenção. > > -- > Atenciosamente: > Evaldo Avelar Marques > Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ > Debian GNU/Linux. > evaldoavelar@ yahoo.com. br Belo Horizonte/MG > Brazil > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail. yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > -- . . . . ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DataBase em rum time
blz, obrigado. - Mensagem original De: Eduardo Silva dos Santos <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 17:13:15 Assunto: Re: [delphi-br] DataBase em rum time no DataBase informe inicialmente o Banco MySQL, depois vc executa o create e depois um USE NomedoBanco para mudar de banco.. ou desconecta e muda no banco do zConnection. o zeos tb tem a opção de nao se conectar a database algum, da uma olhada na pasta do zeos onde ele mostra os parametros para cada Servidor de SQL.. blz?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] DataBase em run time
A dica funcionou perfeitamente para MySQl, só que para os demais SGDB não deu certo. Então pesquisando mais , encontrei a seguinte dica em um site alemão: ZConnection1.Database := 'd:\db1.fdb'; ZConnection1.Protocol := 'firebird-1.5'; ZConnection1.Properties.Add ('CreateNewDatabase=CREATE DATABASE ' + QuotedStr ('d:\db1.fdb') + ' USER ' + QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey') + ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'); ZConnection1.Connect; Fica registrado ai para mais alguém que precise, obrigado pela atenção e pela ajuda. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Evaldo <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 18:52:23 Assunto: Res: [delphi-br] DataBase em rum time blz, obrigado. - Mensagem original De: Eduardo Silva dos Santos Para: [EMAIL PROTECTED] os.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 17:13:15 Assunto: Re: [delphi-br] DataBase em rum time no DataBase informe inicialmente o Banco MySQL, depois vc executa o create e depois um USE NomedoBanco para mudar de banco.. ou desconecta e muda no banco do zConnection. o zeos tb tem a opção de nao se conectar a database algum, da uma olhada na pasta do zeos onde ele mostra os parametros para cada Servidor de SQL.. blz?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] DataBase em run time
Só completando a informação anterior: ZConnection.Database := 'c:\db1.fdb'; ZConnection.Protocol := 'firebird-1.0'; //ZConnection.Protocol := 'mysql-4.1'; ZConnection.Properties.Text := 'CreateNewDatabase=CREATE DATABASE ' + QuotedStr ('c:\db1.fdb') + ' USER ' + QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey') ; ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'; ZConnection.User := 'sysdba'; ZConnection.Password := 'masterkey'; ZConnection.Connect; -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Evaldo <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 17 de Fevereiro de 2008 20:46:12 Assunto: Res: Res: [delphi-br] DataBase em run time A dica funcionou perfeitamente para MySQl, só que para os demais SGDB não deu certo. Então pesquisando mais , encontrei a seguinte dica em um site alemão: ZConnection1. Database := 'd:\db1.fdb' ; ZConnection1. Protocol := 'firebird-1. 5'; ZConnection1. Properties. Add ('CreateNewDatabase =CREATE DATABASE ' + QuotedStr ('d:\db1.fdb' ) + ' USER ' + QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey' ) + ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'); ZConnection1. Connect; Fica registrado ai para mais alguém que precise, obrigado pela atenção e pela ajuda. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil - Mensagem original De: Evaldo Para: [EMAIL PROTECTED] os.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 18:52:23 Assunto: Res: [delphi-br] DataBase em rum time blz, obrigado. - Mensagem original De: Eduardo Silva dos Santos Para: [EMAIL PROTECTED] os.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 17:13:15 Assunto: Re: [delphi-br] DataBase em rum time no DataBase informe inicialmente o Banco MySQL, depois vc executa o create e depois um USE NomedoBanco para mudar de banco.. ou desconecta e muda no banco do zConnection. o zeos tb tem a opção de nao se conectar a database algum, da uma olhada na pasta do zeos onde ele mostra os parametros para cada Servidor de SQL.. blz?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Capturar exceção gerada por uma thread
Boa Tarde a todos. Alguém saberia me dizer se é possível capturar uma uma exceção gerada por uma Thread? E como isso pode ser feito? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Capturar exceção gerada por uma thread
Você entendeu certo. Eu uso o seguinte código, mas nada é capturado. try HoraServidor := ThoraServidor.Create( ServidordeHora); HoraServidor.Resume; HoraServidor.WaitFor; except on e :Exception do begin MostraMessagem('Ponto',e.Message,1); end; end; -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: José Mário Silva Guedes <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 20 de Fevereiro de 2008 13:55:33 Assunto: Re: [delphi-br] Capturar exceção gerada por uma thread Eu simplesmente coloco o Execute em um bloco try except... Tem algum detalhe que não captei? [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] bug ao traballhar com horas, ou falta de conhecimento?
Olá a todos. Estou tentando fazer um simples calculo com horas, porem quando eu uso variáveis do tipo TTime, o calculo não funciona corretamente, mas se eu fizer a POG abaixo, a coisa passa a funcionar perfeitamente. Pergunto: tem alguma coisa que eu não esteja fazendo corretamente ou um detalhe que ficou para trás ou o Delphi 7 tem mesmo um bug? Obs:Todas as variáveis são do tipo TTime; Código que não funciona: if (TotalEntrada <= TotalSaida )then MenorHorario := TotalEntrada Código POG que funciona: if StrToTime( TimeToStr( TotalEntrada)) <= StrToTime( TimeToStr( TotalSaida ))then MenorHorario := TotalEntrada -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] bug ao traballhar com horas, ou falta de conhecimento?
Muito Obrigado pelo esclarecimento. Ficou muito claro a explicação. Vivendo e aprendendo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Março de 2008 14:34:25 Assunto: RE: [delphi-br] bug ao traballhar com horas, ou falta de conhecimento? Se vc consultar atentamente o help do Delphi, vai constatar que tanto TTime como TDate são, em essência, do tipo TDateTime. No seu caso, companheiro, um pouco de conhecimento a mais sobre esses tipos de dados se faria necessário. Para que essa sua verificação funcione, sabendo que um TTime é na verdade um TDateTime, vc deve 'zerar' a parte de data do valor para que a comparação (que não deixa de ser um cálculo) funcione. Veja a aplicação do tipo console abaixo que exemplifica este esclarecimento: program TesteDataHora; {$APPTYPE CONSOLE} uses Windows, SysUtils; var TotalEntrada, TotalSaida: TDateTime; function StringToOem( const s: string): string; begin SetLength(Result, Length(s)); AnsiToOem(PChar( s), PChar(Result) ); end; begin TotalEntrada := Now(); Sleep(1000); // atraso intencional! TotalSaida := Now(); // 'Zera' a parte de data dos valores ReplaceDate( TotalEntrada, 0); ReplaceDate( TotalSaida, 0); if TotalEntrada < TotalSaida then WriteLn(StringToOem ('O menor horário é TotalEntrada. ')) else if TotalEntrada> TotalSaida then WriteLn(StringToOem ('O menor horário é TotalSaida.' )) else WriteLn(StringToOem ('Os horários são iguais.')); Write('Tecle ENTER ...'); WriteLn(Eoln) ; end. Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: evaldoavelar@ yahoo.com. br Date: Tue, 11 Mar 2008 10:14:02 -0700 Subject: [delphi-br] bug ao traballhar com horas, ou falta de conhecimento? Olá a todos. Estou tentando fazer um simples calculo com horas, porem quando eu uso variáveis do tipo TTime, o calculo não funciona corretamente, mas se eu fizer a POG abaixo, a coisa passa a funcionar perfeitamente. Pergunto: tem alguma coisa que eu não esteja fazendo corretamente ou um detalhe que ficou para trás ou o Delphi 7 tem mesmo um bug? Obs:Todas as variáveis são do tipo TTime; Código que não funciona: if (TotalEntrada <= TotalSaida )then MenorHorario := TotalEntrada Código POG que funciona: if StrToTime( TimeToStr( TotalEntrada) ) <= StrToTime( TimeToStr( TotalSaida ))then MenorHorario := TotalEntrada -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps .com.br/index. aspx?tr=true Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] array no firebird
Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] array no firebird
O que eu quero eh manter uma lista de horários numa tabela, h1,h2,h3,h4,h5 ,h6. h1..h6 podem ter 7 horários. CREATE TABLE HORARIO ( ID INTEGER NOT NULL, H1 TIME [1:7], H2 TIME [1:7], H3 TIME [1:7], H4 TIME [1:7], H5 TIME [1:7], H6 TIME [1:7] ); Quando eu for associar uma pessoa a uma tabela de horarios, soh precisaria pegar o id da lista. 0 h1,h2,h3,h4,h5 ,h6. 1 h1,h2,h3,h4,h5 ,h6. 2 h1,h2,h3,h4,h5 ,h6. José possui a lista 0 e a 2 Entendeu? -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Alessandro DUARTE de Moraes <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 27 de Março de 2008 9:13:52 Assunto: Re: [delphi-br] array no firebird Me diga por que dizes: "Estou tendo que trabalhar com tipo array ...". Sinceramente, nunca vi aplicação de array que não possa ser resolvida com uma boa estrutura Entidade Relacionamento, isto é, uma tabela "mãe" e uma "filha". Explica melhor tua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br ----- Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Thursday, March 27, 2008 8:31 AM Subject: [delphi-br] array no firebird Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identifica��o: 54568,47eb858f33941 4716226009 [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] array no firebird
Obrigado! vou continuar a pesquisa. Postei a mesma duvida no freibird-br há duas semanas, mas ninguém respondeu. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Ricardo César Cardoso <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 27 de Março de 2008 11:25:35 Assunto: Re: [delphi-br] array no firebird Olá Evaldo, como vai? Por curiosidade fui fuçar numa edição em PDF do "The Firebird Book" de Helen Borrie pois não fazia idéia que o FB suportava arrays. E me surpreendi ao ver que suporta. Quanto aos seus questionamentos: * É seguro trabalhar com arrays? Até onde pude ver é seguro sim. Mas não parece ser algo tão comum de ser aplicado. * Por que é tão pouco utilizado? Não sei, mas talvez seja por conta de desconhecimento ou de não ser tão simples ou usual ter esse recurso. E pelo que li, há algumas limitações com instruções UPDATE e INSERT. * Quais componentes do Delphi o suportam? Acredito que os mesmos que vc já usa o suportam. Só que para trazer os dados e mantê-los, acredito que vc terá que fazer algum malabarismo, como por exemplo criar um array para reproduzir a estrutura que teve no banco ou tratar o array como um BLOB, apesar que o livro diz que um array não é um blob, mas tem algumas características de armazenamento similares. Talvez essa minha resposta seja vaga e um pouco confusa, o melhor seria postar essa dúvida tb em algum fórum voltado ao FB. Atte, Ricardo. Evaldo escreveu: Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como remover o "estilo xp" de u m único painel?
Olá! No oncreate do seu formulário coloque Panel1.ParentBackground := false; Panel1.ParentColor := false; Dessa forma ele irá usar a cor que você definiu. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ - Mensagem original De: Fellipe Henrique <[EMAIL PROTECTED]> Para: "delphi-br@yahoogrupos.com.br" Enviadas: Domingo, 27 de Abril de 2008 9:53:56 Assunto: [delphi-br] Como remover o "estilo xp" de um único painel? Olá amigos, seguinte, tenho o XPMan na minha aplicação, até aí tudo bem, os Edits e etc, ficam no estilo do XP... porém no meu Form Principal, eu tenho um Painel, que eu não queria que pegasse este estilo, pois ele está ficando com a cor de fundo, e está feio... tentei por como False as seguintes propriedades: ParentBrackground, ParentBiDiMode, ParentColor, ParentCtrl3D, ParentFont e etc... e mesmo assim, ainda continua... Existe o jeito de eu fazer com que somente, este painel, não herde os dados do XP? Desde já agradeço. []s -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com Cansou do MercadoLivre como eu? Tente o www.uaileilão. com.br. [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Dica de pesquisa no google
Artigo muito interessante de como pesquisar com datas no google http://www.vivaolinux.com.br/artigos/verArtigo.php?codigo=8169 -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi via wine
Bom dia, alguém tem experiência em rodar o Delphi via wine? caso positivo, teve algum problema? -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Delphi via wine
Grato a quem respondeu. Eh bom saber que que super Linux roda ate aquilo que não foi feito para ele e quase sem problemas. Estamos na hora de renovar as licenças com a M$, e se os teste aqui usando o wine der certo, será pouco provável que as licenças serão renovadas. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe
Bom dia a todos, Estou com um problema muito estranho. tenho duas tabelas da seguinte forma: FUNCIONARIO( id, nome,telefone,endereco ); IDENTIFICACAO_FUNC( ID, ID_FUNC, IMAGEM , BIOMETRIA, BIOMETRIA_OBRIGATORIA ) Ate ai tudo bem, mas esse relacionamento só funciona se houver pelo menos um registro na tabela IDENTIFICACAO_FUNC. Caso Contrário, caso contrario, quando a tabela IDENTIFICACAO_FUNC esta vazia, não consigo gravar nada e recebo a seguinte mensagem de erro: SQL Error: validation error for column ID_FUNC, value "*** null ***". Error Code: -625. The insert failed because a column definition includes validation constraints. The SQL: INSERT INTO IDENTIFICACAO_FUNC (ID,ID_FUNC,IMAGEM,BIOMETRIA,BIOMETRIA_OBRIGATORIA) VALUES (?,?,?,?,?); Se houver pelo menos um registro , funciona perfeitamente. a estrutura é a seguinte: firebird 2.0, zeos e delphi 7 -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ 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]
Res: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe
Bom dia, A chave estrangeira eh criada da seguinte forma: ALTER TABLE IDENTIFICACAO_FUNC ADD CONSTRAINT FK_IDENTIFICACAO_FUNC FOREIGN KEY (ID_FUNC) REFERENCES FUNCIONARIO (ID) ON DELETE CASCADE; e a chave primaria: ALTER TABLE IDENTIFICACAO_FUNC ADD CONSTRAINT PK_IDENTIFICACAO_FUNC PRIMARY KEY (ID); Parte da primeira para a segunda tabela. Obrigado pela atenção. -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ - Mensagem original De: Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Junho de 2008 9:50:34 Assunto: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Olá, Evaldo... Seguinte: existe uma definição para chave estrangeira? Como ela seria? Parte da primeira para a segunda tabela ou vice-versa? Não uso firebird, mas geralmente erros como este estão vinculados à violação de chaves em campos-filho mandatórios. Pode ser este o seu problema... []'s - - - - --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolve dor Object/Free Pascal willianjhonnes@ yahoo.com. br - - - - --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 - - - - --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom - - - - --- - Mensagem original De: Evaldo Para: [EMAIL PROTECTED] os.com.br Enviadas: Quinta-feira, 26 de Junho de 2008 9:32:10 Assunto: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Bom dia a todos, Estou com um problema muito estranho. tenho duas tabelas da seguinte forma: FUNCIONARIO( id, nome,telefone, endereco ); IDENTIFICACAO_ FUNC( ID, ID_FUNC, IMAGEM , BIOMETRIA, BIOMETRIA_OBRIGATOR IA ) Ate ai tudo bem, mas esse relacionamento só funciona se houver pelo menos um registro na tabela IDENTIFICACAO_ FUNC. Caso Contrário, caso contrario, quando a tabela IDENTIFICACAO_ FUNC esta vazia, não consigo gravar nada e recebo a seguinte mensagem de erro: SQL Error: validation error for column ID_FUNC, value "*** null ***". Error Code: -625. The insert failed because a column definition includes validation constraints. The SQL: INSERT INTO IDENTIFICACAO_ FUNC (ID,ID_FUNC, IMAGEM,BIOMETRIA ,BIOMETRIA_ OBRIGATORIA) VALUES (?,?,?,?,?); Se houver pelo menos um registro , funciona perfeitamente. a estrutura é a seguinte: firebird 2.0, zeos e delphi 7 -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ 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] 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] 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]
[delphi-br] DBLookupCombox nao exibe muitos registros
Ola a todos. Estou dando manutenção em um sistema onde existe um DBLookupCombox. Quando o sistema traz varios registros, o DBLookupCombox nao consegui exibi-los e fica tudo em branco. Existe alguma forma de resolver isso sem diminuir a quantidade de registro a ser exibido? o sistema usa Delphi 7 + zeos 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]
Res: [delphi-br] Alterar a cor da célula em um Str ingGrid
Aproveitando o gancho, quando eu preencho estou preenchendo o stringgrid e quero destacar uma célula de cor diferente, como devo fazer? Por exemplo: Preenchi a célula stringgrid[2,5] e agora quero que ela se destaque em amarelo e célula [2,6] em vermelho, como posso fazer isso? - Mensagem original De: fabio giro <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 28 de Agosto de 2008 15:28:49 Assunto: Re: [delphi-br] Alterar a cor da célula em um StringGrid Pinta a célula selecionada. procedure TForm1.StringGrid1D rawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState) ; const LM = 3; {each indiviual cell's left margin} TM = 2; {each indiviual cell's top margin} begin {puxemos o destaque do modo seguinte quando a celula for selecionada } if gdSelected in State then begin StringGrid1. Canvas.Brush. Color := clBlue; StringGrid1. Canvas.Font. Color := clHighlightText; end; {finalmente, faça o desenho de celula atual } StringGrid1. Canvas.TextRect( Rect, Rect.Left + LM, Rect.Top + TM,StringGrid1. Cells[acol, arow]); end; A parte do popup, dê uma pesquisada no help. --- Em qui, 28/8/08, Robson Tazinaffo escreveu: De: Robson Tazinaffo Assunto: [delphi-br] Alterar a cor da célula em um StringGrid Para: [EMAIL PROTECTED] os.com.br Data: Quinta-feira, 28 de Agosto de 2008, 15:06 Como alterar a cor de uma célula em um StringGrid clicando com o botão direito ( Usando um popup ), ou seja, quando clicar com o botao direito e no menu aparecer 3 cores (AZUL, AMARELO, VERMELHO)... como colocar uma cor para cada celula escolhida.. 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] 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]
[delphi-br] componente que possa alterar porta http
Bom dia, Preciso de um componente que faça conexão http, no qual eu possa alterar a porta de comunicação de 80 para uma outra porta. Alguém pode me indicar? ambiente Delphi 7 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]
[delphi-br] Model maker10
Algum por favor sabe como eu faço para exibir os métodos e propriedades enquanto eu construo uma classe no model maker 10? Aquele paleta lateral eh muito ruim. Obrigado. 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]
Res: [delphi-br] Problemas em armazenar arquivo, banco ou pasta de dados
Pegando um gancho: guardar o arquivo no servidor e no banco de dados teoricamente não seria a mesma coisa (em termos de tamanho)? Já que se você colocar um arquivo de 1 Gb numa pasta qualquer e o mesmo arquivo no banco, a diferença(em espaço ocupado) seria muito pouca . Em relação a performance, se você criasse uma tabela separada para os arquivos e uma tabela com os metadados do arquivo, não resolveria a lentidão para recuperar esse arquivo? Não tenho muita experiência com isso, mas não faz sentido? 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]
[delphi-br] Colocar TDateTimePicker em célula do Dbgrid
È possível colocar um TDateTimePicker em célula do Dbgrid? Quando essa célula for clicada? __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Colocar TDateTimePicker em c élula do Dbgrid
Vou estudar, Obrigado! __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2006 e Together
Boa tarde, meu delphi 2006 não possui a opção de "Design Projects" para criar diagramas UML, alguém sabe como eu habilito/instalo esta opção? Engraçado que o suporte do together ao projeto está funcionando, mas só com o diagrama de classe. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2006 e Together
A versão do delphi 2006 é a Professional. Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off Topic - C/C++ programar para Win dows é fácil?
>>meu sonho é poder programar em C++ em linux... e ganhar dinheiro >>com isso.. se eu conseguir, to feliz... Oh! É O meu sonho também! Soh que eu estudo C. Estava brincando com um servidor UDP de chat ontem, com o cliente windows, da pau igual água, mas é doido d+! =) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2006 e Together
Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nome de Propriedade
Dado uma propriedade: objeto.estado, por exemplo, como eu consigo capturar o nome da propriedade? No caso, retornaria "estado". Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Class + cdecl; + external
Bom dia. Porque o compilador não aceita colocar seguinte chamada de um metodo de uma dll dentro de uma classe? por exemplo: Teste = class (TObject) public function id_creat(Nome_Arquivo: PChar;Dados: Pchar;Tam_Dados: Integer):Integer; cdecl; external 'funcoes.dll'; end; Da um erro: [Error] OutrasFuncoes.PAS(96): Field definition not allowed after methods or properties Tem alguma forma de colocar essa chamada dentro da classe? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Interbase instalado?
Algúem tem alguma rotina, para saber se a máquina tem o interbase está instalado? - Atenciosamente: Evaldo Avelar Marques Desenvolvedor Debian GNU/Linux. Pelo Prazer de ser Livre evaldoave...@yahoo.com.br Belo Horizonte/MG Brazil [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Interbase instalado?
Não posso pesquisar pelas dll, porque por exemplo a gds32.dll , o firebird poderia usar para retrocompatibilidade, entao o fato dela estar la não me granate que quem vai estar instalado é o interbase; Mesmo assim obrigado pela resposta. - Atenciosamente: Evaldo Avelar Marques Desenvolvedor Debian GNU/Linux. Pelo Prazer de ser Livre evaldoave...@yahoo.com.br Belo Horizonte/MG Brazil [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Trying to modify read-only field
Boa tarde, estou com esse problema em um sistema que estou dando manutenção :"Trying to modify read-only field". Ocorre logo após o applyUpdates do ClientDataSet. Pesquisaando na net, não encontrei muita coisa para me ajudar. Bem na verdade eu queria saber como eu faço para descobrir qual o campo que está sendo modicado para gerar esse erro. Fiz o seguinte antes de dar o apply para descobrir quais eram os campos, mas não da para saber qual é o campo que gera o erro: for i := 0 to ClientDataSetPadrao.FieldCount -1 do begin if not ClientDataSetPadrao.Fields[i].CanModify then ShowMessage(dmPedido.ClientDataSetPadrao.Fields[i].FieldName); end; Qualquer ajuda é bem vinda, obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trying to modify read-only field
Sim, já fiz isso. Ôh programinha problemático. - From: Alisson Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 7, 2009 9:16:01 PM Subject: Re: [delphi-br] Trying to modify read-only field Você já conferiu a propriedade ReadOnly no ClientDataset e no Dataset? [ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Qual seria o equivalente do Intptr do C sharp no delphi?
Bom dia, Qual seria o equivalente do Intptr do C sharp no delphi 7? preciso usar uma dll escrita em C Sharp e me deparei com esse tipo. obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Qual seria o equivalente do Intptr do C sharp no delphi?
Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sugestão leitorbiometrico (off-topic)
Alguém poderia sugeri algum leitor biométrico capacitivo ( o óptico não serve ) com sdk que de para desenvolver em delphi? grato [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexão SSH
Alguém conhece algum componente free no delphi para realizar fazer uma conexão ssh? obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] emulador de terminal telnet
Bom dia, alguém conhece algum componente que consiga emular um terminal telnet? Eu encontrei o TnEmulVT para conectar a um servidor linux, mas ele só funciona para linha de comando, quando você abre o vim por exemplo, ele não consegue mudar o cursor, Fica travado . Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com ClientdataSet
Ola, bom dia, Estou com um problema com ClientDataSet . Estou usando zquery + DataSetprovider + ClientDataSet . para conectar ao firebird. As operações de inserção e alteração, estão funcionando perfeitamente, porem a exclusão da o famoso erro "unable to find record no key especified". Os providers flags estão configurados corretamente ate´ porque as outras operações nao funcionariam se ele nao estivesse. Investigando, descobrir que a sql que está indo para o banco no aplyupdates esta com aspas duplas como: delete from "endereco" where "ID_ENDERECO" = ? Conferir o dialect do banco e está como 3. O DataSetprovider está como whereKeyOnly, o ClientDataSet e a zquery estão com o campo chave como: ID_ENDERECO [pfInUpdate, pfInWhere, pfInKey] os demais campos estão como [pfInUpdate]. O que mais pode está causando isso? Obrigado! [As partes desta mensagem que não continham texto foram removidas]