[delphi-br] Quebra por HORARIO em relatório

2008-11-06 Por tôpico Dival
Como fazer para elaborar uma quebra de relatório por data e HORÁRIO,
utilizando um campo DateTime (BD SQLServer) ?

 

Exemplo:

DATA DA VENDA

05/11/2008 06:58:35

05/11/2008 07:02:19

05/11/2008 07:05:25

05/11/2008 07:59:48

05/11/2008 08:03:56

 

FILTRO DO RELATÓRIO: Exibir somente com as vendas efetuadas entre 7h00 e
8h00

 

Desde já agradeço a atenção dos colegas

 

Dival

 



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



Res: [delphi-br] Quebra por HORARIO em relatório

2008-11-06 Por tôpico Luciano Calenzani Simões
No Sybase, poderia fazer assim:
select  hour(campodata) as hora, campodata from venda
where hora between 6 and 12
order by hora

O resultado:
hora,campodata 
6,'2008-11-06 06:17:14.484'
8,'2008-11-06 08:17:09.723'
8,'2008-11-06 08:17:56.690'
8,'2008-11-06 08:17:57.346'
9,'2008-11-06 09:17:57.779'
9,'2008-11-06 09:17:57.971'
9,'2008-11-06 09:17:58.146'
9,'2008-11-06 09:17:58.325'
9,'2008-11-06 09:17:58.498'
9,'2008-11-06 09:17:58.660'
9,'2008-11-06 09:17:58.817'
9,'2008-11-06 09:17:58.995'
11,'2008-11-06 11:17:59.154'


Agora é só você testar no SQLServer, se não exitir a função hour, procure uma 
simular. Daí é basta colocar a sua quebra pelo coluna hora.

 Luciano Calenzani Simões







De: Dival [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 6:46:20
Assunto: [delphi-br] Quebra por HORARIO em relatório


Como fazer para elaborar uma quebra de relatório por data e HORÁRIO,
utilizando um campo DateTime (BD SQLServer) ?

Exemplo:

DATA DA VENDA

05/11/2008 06:58:35

05/11/2008 07:02:19

05/11/2008 07:05:25

05/11/2008 07:59:48

05/11/2008 08:03:56

FILTRO DO RELATÓRIO: Exibir somente com as vendas efetuadas entre 7h00 e
8h00

Desde já agradeço a atenção dos colegas

Dival


  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] Fortes Report Com delphi 2009

2008-11-06 Por tôpico galvao_em
Ae pessoal, alguém conseguiu instalar o Fortes Report no delphi 2009?,
se sim poderia me dizer como?



[delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Caros colegas estou com um problema serio, fui fazer um aplicativo simples
para conexao em uma base mysql, hospedado no locaweb.

Fiz a conexao com o Zeos Lib utilizando Delphi 6.0 Pro
A versao do Zeos é a 6.6.3 Stable, estou utilizando o Windows Vista


E quando rodo a aplicacao, consigo fazer conexao e até alterar, incluir e 
excluir

Mas sempre em algum momento ao alterar, incluir e excluir sempre
me retorna um erro Server Gone Away

Só que o time_out do banco é de 8 horas, e minhas strings sql estao corretas 
(testadas no mysqlfront)

Alguem pode me dar uma luz, tenho que colocar isso para rodar hoje ainda...


Hayalon



  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] Como abrir o drive de CD sem erro?

2008-11-06 Por tôpico Onjahyr - GMAIL
E aí pessoal

Eu tenho uma rotina para fazer isso, ralei mas consegui. Existe um 
montão na internet, mas a minha function abre o drive que desejar, 
enquanto que, os que rola aí na internet só abre o drive principal. 
Digamos que você esteja rodando a aplicação em um drive virtual de CD ou 
o usuário possui dois drive de CD, o comando que existe pela internet, 
só vai abrir o drive de CD físico e o principal.

Bom, meu problema é que meu aplicativo vai funcionar apenas de dentro do 
CD. Já está completo, mas tenho um problema e uma solução, mas queria 
encontrar outra solução. Na hora que o usuário sair do aplicativo, tenho 
de ejetar o CD.

Problema: Colocar no CloseQuery não dá certo, até ejeta, mas depois gera 
um erro solicitando que seja inserido o CD do programa no drive. Aí não 
vai dar, claro...
Se eu colocar no onClose acontece a mesma coisa, já fiz de tudo, antes 
eu chamava a function, depois resolvi colocar o comando diretamente no 
onClose, as vezes funciona, as vezes não...


Solução: Criar um utilitário e colocar ele dentro desse programa, jogar 
ele nos temporários e executá-lo ao sair do aplicativo, dá certo, porém 
fica uma coisa meio sujo. Como eu faria para ao finalizar o programa o 
drive fosse ejetado e não aparecer o erro pedindo para recolocar o CD no 
drive

A function que fiz que abre qualquer unidade de CD:

-
function Tfrm_Principal.Ejetar : Boolean;
var
  OpenP : TMCI_Open_Parms;
  Flg : DWord;
  DeviceID : Word;
  MErrou  : MciError;
begin
  Result := False;
  Flg := mci_Open_Type or mci_Open_Element;

  with OpenP do
begin
  dwCallback := 0;
  lpstrDeviceType := 'CDAudio';
  lpstrElementName := PChar(ExtractFileDrive(Application.ExeName));
end;

  MErrou := mciSendCommand(0, mci_Open, Flg, Longint(@OpenP));
  if MErrou  0 then
Exit;

  DeviceID := OpenP.wDeviceID;

  try
MErrou := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if MErrou = 0 then
  Exit;

Result := True;

  finally
mciSendCommand(DeviceID, mci_Close, Flg, Longint(@OpenP));
  end;
end;
--

Grato pela ajuda...


[delphi-br] Inclusão com DBExpress

2008-11-06 Por tôpico Satoy Matsuoka
Pessoal,

Estou iniciando no Delphi 7 e estou utilizando DBExpress para falar com o
Firebird, e estou utilizando os seguintes componentes:

TSQLConnection
TSQLQuery
TDataSetProvider
TClientDataSet
TDataSource


No TSQLQuery fiz um select de uma tabela sem join, uma única tabela

Na tela ele me trouxe os dados direitinhos,
Mas quando tento incluir recebo a seguinte mensagem:
'Cannot modify a ready-only dataset'

E realmente não defini em nenhum lugar um comando de INSERT, UPDATE ou
DELETE.

Como posso resolver esse problema ?

Grato
[]'s
Satoy


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



[delphi-br] Re: Como injetar uma DLL em um programa?

2008-11-06 Por tôpico ajama_1
--- Em delphi-br@yahoogrupos.com.br, flavio_engcomp
[EMAIL PROTECTED] escreveu

 como fazer para injetar uma dll em um programa? ja li a respeito na
 net mas ainda tenho muitas duvidas...

Isso é chamdo de Encapsulamento, onde um execultavél ao ser compilado 
inclui um arquivo .res que por sua vez tem outros aquivos da sua
escolha embutido dentro dele tornando um só na geração do binário(.exe).

//Monte um arquivo txt com informações semelhantes a essas:

FILE1DLL DLLFILE embarcar/FILE1.DLL
FILE2EXE EXEFILE embarcar/FILE1.EXE

//Execute no prompt do msdos ou no delphi Comando para gerar o arquivo
Embarcar.rc

WinExec('command.com /c BRCC32 Embarcar.rc', sw_Normal);

//apos a criação do .RES crie um projeto no delphi

unit fb_embedded;
{$R Embarcar.res}  //Arquivo com conteúdo encapsulado(arquivos para
embutir no .exe)
interface ...

//Função resposável por extrair os aquivos embutidos no .exe
procedure DesembarcaFile(Lbl, IdArq, PathFileDest: string);
var Res: TResourceStream;
begin
{$R Embarcar.RES} //Embarca arquivos ao compilar
  if not FileExists(PathFileDest) then
  begin
Res := TResourceStream.Create(Hinstance, Lbl, pChar(IdArq));
try
  Res.SavetoFile(PathFileDest);
finally
  Res.Free;
end;
  end;
end;

//Chamada da função
DesembarcaFile('dll_gds32', 'gds32.dll', 'c:\gds32.dll');



[delphi-br] Serviço windows com 2 tarefas

2008-11-06 Por tôpico Daniel Sonda
Olá lista!

Preciso criar uma aplicação como serviço do Windows que irá executar
duas tarefas diferentes, em intervalos de tempo diferentes.

Ex: tarefa 1 executa a cada 3 segundos, tarefa 2 executa a cada 5
segundos.

Já criei um serviço uma vez, mas com tarefa única. Continha um TTimer
para executar a tarefa a cada X segundos. 

Mas agora, sei que não posso simplesmente colocar outro TTimer, pois
enquanto um está executando o outro não será.

Alguém sugere uma solução?



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Olá Hayalon, seu problema não é simples de resolver..

O MySQL é bem exigente em relação a conexão, qualquer anormalidade na rede
ele derruba a conexão.

O pessoal da DevArt que desenvolve o MyDAC criou uma Tecnologia chamada
LocalFailOver, onde.. ao detectar que ouve um desconexão o componente
reconecta ao banco de forma transparente e executa a operação... com isso vc
pode conectar ao MySQL, via Wireless, rede discada.. qualquer rede por mais
instável que seja.

bom, a boa notícia é que quando eu usava Zeos 6.5 eu tive que fazer algo
nesse sentido, criei a propriedade AutoReconnect no TZConnection que faz a
mesma coisa que no MyDAC, detectou que houve perda de conexão.. reconecta..

vou colocar no site.. ai vc baixa, olha a implementação e coloca ai no zeos
6.6

www.drdsistemas.com.br/Zeos6.5.zip


2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Caros colegas estou com um problema serio, fui fazer um aplicativo
 simples
 para conexao em uma base mysql, hospedado no locaweb.

 Fiz a conexao com o Zeos Lib utilizando Delphi 6.0 Pro
 A versao do Zeos é a 6.6.3 Stable, estou utilizando o Windows Vista

 E quando rodo a aplicacao, consigo fazer conexao e até alterar, incluir e
 excluir

 Mas sempre em algum momento ao alterar, incluir e excluir sempre
 me retorna um erro Server Gone Away

 Só que o time_out do banco é de 8 horas, e minhas strings sql estao
 corretas (testadas no mysqlfront)

 Alguem pode me dar uma luz, tenho que colocar isso para rodar hoje ainda...

 Hayalon



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



Re: [delphi-br] [ OFF-TOPIC ] - Delphi Prism baseado no VisualStudio?

2008-11-06 Por tôpico Adriano Santos (Y!)
Quando você instalar o Delphi Prism o Visual Studio Shell (Framework do 
VS) será instalado.

Adriano Santos
www.delphitodelphi.blogspot.com
www.dug-sp.com



Jackson Gomes - ToolsComps respondeu:


  Teremos que ter o Visual Studio instalado ou lincenciado na maquina ?

 Quem comprar o Delphi Prism, recebe o VS junto...

 Jackson Gomes




[delphi-br] data

2008-11-06 Por tôpico rzzanatta
olá gostaria de saber como faço pra pegar o 1º dia útil do mes e o 
ultimo dia do mes?
exemplo eu informo o mes e o ano e ele me traga a data inicio e data fim
como faço isso?



Re: [delphi-br] Alguém poderia me informar um exemplo de usar o .Data de um ButtonGroup?

2008-11-06 Por tôpico Fellipe Henrique
Obrigado Joao, funcionou blz...

[]s

2008/11/5 Joao Morais [EMAIL PROTECTED]

   2008/11/5 Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com:
  Bom, eu queria gravar 2 dados um integer e outro string... nao sei se
  pode, mas num tipo record...
 
  exemplo:
 
  Mesa.NumMesa := 1;
  Mesa.Nome := 'FULANO DE TAL';
 
  Para depois eu poder pegar esses dados e processar, sem eu precisar abrir
 a
  tabela toda hora...

 type
 TMesa = record
 NumMesa: Integer;
 Nome: string;
 end;

 PMesa = ^TMesa;

 var
 VMesa: PMesa;

 begin
 new(VMesa);
 VMesa^.NumMesa := 1;
 VMesa^.Nome := 'FULANO DE TAL';
 Group.Data := VMesa;
 end;

 ...

 begin
 VMesa := Group.Data; // talvez precise de um cast forçado
 Nro := VMesa^.NumMesa;
 Nome := VMesa^.Nome;
 Dispose(VMesa);
 Group.Data := nil;
 end;

 --
 Joao Morais
  




-- 
_
T.·.F.·.A.·.
Fellipe Henrique
Blog: www.digitumsoft.com.br/blogs/fellipeh
---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###


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



Re: [delphi-br] Inclusão com DBExpress

2008-11-06 Por tôpico Eduardo Melo
Verifique se a tabela esta aberta ou no modo de edição.


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



Res: [delphi-br] data

2008-11-06 Por tôpico Jose Ferreira
Use esta função para obter
 
Obtendo data do primeiro dia util do mês

Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; 
var 
Ano, Mes, Dia : word; 
DiaDaSemana : Integer; 
begin 
DecodeDate (Data, Ano, Mes, Dia); 
Dia := 1; 
if lSabDom Then 
begin 
DiaDaSemana := DayOfWeek (Data); 
if DiaDaSemana = 1 Then 
Dia := 2 
else 
if DiaDaSemana = 7 Then 
Dia := 3; 
end; 
FirstDayOfMonth := EncodeDate (Ano, Mes, Dia); 
end; 


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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



Re: [delphi-br] Serviço windows com 2 tarefas

2008-11-06 Por tôpico José Mário Silva Guedes
Sugiro se trabalhar com Threads.

Em 06/11/08, Daniel Sonda [EMAIL PROTECTED] escreveu:

   Olá lista!

 Preciso criar uma aplicação como serviço do Windows que irá executar
 duas tarefas diferentes, em intervalos de tempo diferentes.

 Ex: tarefa 1 executa a cada 3 segundos, tarefa 2 executa a cada 5
 segundos.

 Já criei um serviço uma vez, mas com tarefa única. Continha um TTimer
 para executar a tarefa a cada X segundos.

 Mas agora, sei que não posso simplesmente colocar outro TTimer, pois
 enquanto um está executando o outro não será.

 Alguém sugere uma solução?

 




-- 
José Mário Silva Guedes
Analista Programador Delphi


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



Re: [delphi-br] Serviço windows com 2 tarefas

2008-11-06 Por tôpico Marcos Douglas
O melhor seria trabalhar com Threads, como o José Mario sugeriu.
Mas se vc está acostumado a utilizar TTimer (que não deixa de ser uma
thread) então vc pode _sim_ utilizar outro TTimer. Se o tempo não pode
parar de ambos os timers, então é só ter variáveis de flag para saber
se deve ou não executar a rotina. Essas variáveis serão utilizadas
antes das rotinas dos timers, perguntando:  if posso_executar() then
executa a rotina...

Marcos Douglas

2008/11/6 Daniel Sonda [EMAIL PROTECTED]:
 Olá lista!

 Preciso criar uma aplicação como serviço do Windows que irá executar
 duas tarefas diferentes, em intervalos de tempo diferentes.

 Ex: tarefa 1 executa a cada 3 segundos, tarefa 2 executa a cada 5
 segundos.

 Já criei um serviço uma vez, mas com tarefa única. Continha um TTimer
 para executar a tarefa a cada X segundos.

 Mas agora, sei que não posso simplesmente colocar outro TTimer, pois
 enquanto um está executando o outro não será.

 Alguém sugere uma solução?


 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






Re: [delphi-br] Inclusão com DBExpress

2008-11-06 Por tôpico Adriano Santos (Y!)
Satoy,

Receita de bolo:
No SQLQuery você apenas traz os dados. O comando de inclusão você vai 
dar no ClientDataSet, veja:

ClientDataSet1.Append;
ClientDataSet1.FieldByName('CAMPO1').AsString := 'Adriano';
ClientDataSet2.FieldByName('CAMPO2').AsString := 'Santos';
.
.
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(0);

Pronto.



Satoy Matsuoka respondeu:

 Pessoal,

 Estou iniciando no Delphi 7 e estou utilizando DBExpress para falar com o
 Firebird, e estou utilizando os seguintes componentes:

 TSQLConnection
 TSQLQuery
 TDataSetProvider
 TClientDataSet
 TDataSource

 No TSQLQuery fiz um select de uma tabela sem join, uma única tabela

 Na tela ele me trouxe os dados direitinhos,
 Mas quando tento incluir recebo a seguinte mensagem:
 'Cannot modify a ready-only dataset'

Adriano Santos
www.delphitodelphi.blogspot.com
www.dug-sp.com



RE: [delphi-br] data

2008-11-06 Por tôpico Rubem Nascimento da Rocha

Se vc usa Delphi 6 ou maior, informe-se no próprio help do Delphi sobre as 
funções StartOfAMonth() e EndOfAMonth(), da unit DateUtils.
 
Boa sorte.
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 6 Nov 2008 12:37:15 +
Subject: [delphi-br] data


olá gostaria de saber como faço pra pegar o 1º dia útil do mes e o 
ultimo dia do mes?
exemplo eu informo o mes e o ano e ele me traga a data inicio e data fim
como faço isso?
_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

[delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico Rafael Jorge
agora estamos fazendo um sistema de relatorio onde os usuarios vao criar
seus propios relatorios.
ja fixemos eles poderem selecionar os objetos que querem e posiciona-los
onde querem..
ja salvamos e carregamos tudo..
so que estamos impacados com alteração de propiedades.
queria fazer um object inspector onde ele lese o RTL dos componentes que o
usuario selecionou.
ele so pode selecionar um de cada..
alquem ai sabe como criar um object inspector em tempo de execucao?
obrigado.
t+

-- 
---
Rafael jorge alves (Analista/desenvolvedor)

www.sistemafocus.com.br
sistema focus de gestão comercial e serviços em informatica.
---


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



Res: [delphi-br] fechar todas as telas

2008-11-06 Por tôpico Felipe Milagres
eu usei o código sugerido 
 
Application.Terminate ...
 
ai agora ele sai tudo beleza ...
 
mas queria saber , qual a importancia de saber se o form de Login está sendo 
apontado como Main Frame . . . .
 
att,
 
Felipe Milagres ..

--- Em ter, 4/11/08, Silvio Clécio [EMAIL PROTECTED] escreveu:

De: Silvio Clécio [EMAIL PROTECTED]
Assunto: Res: [delphi-br] fechar todas as telas
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 4 de Novembro de 2008, 12:46






Olá pessoal,

Felipe, posta uma parte do código pra gente ver.
Com Application. Terminate você encerra toda a
aplicação, mas veja se o seu Form de LogOn não está apontado como Main Form.
 _ _ __
Um abraço! Silvio Clécio
Contatos/Blog
Skype: silvioprog
E-mail, Yahoo! Messenger: [EMAIL PROTECTED] com.br
Gmail, Google Talk: [EMAIL PROTECTED] com
Hotmail, MSN: silvio_prog@ hotmail.com
BlogSpot: http://silvioclecio .blogspot. com/
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! 

 _ _ __
De: Felipe Milagres felipe_a_milagres@ yahoo.com. br
Para: delphi-br [EMAIL PROTECTED] os.com.br
Enviadas: Terça-feira, 4 de Novembro de 2008 9:40:24
Assunto: [delphi-br] fechar todas as telas

Galera ..

to com o seguinte problema ...

eu executo a minha aplicação .. e apareça a tela de login (FrmLogin)

quando eu faço o login .. . aparece outra tela (FrmPrincipal)

ai quando eu clico no botao de fechar (btnFechar) .. ele fecha essa tela 
FrmPrincipal e fica aberta a tela de login (FrmLogin) ... ai eu tenho q fechar 
a de login ..

eu queria saber um meio de quando fechar a tela FrmPrincipal .. fechar todas as 
outras ...

att,

Felipe Milagres 

Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses

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

 














  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] Erro ao carregar Delphi 2007

2008-11-06 Por tôpico hr.luciano
Olá a todos!

Estou enfrentando um problema estranho ao carregar o Delphi 2007.
Sempre ocorre erro de Access Violation ao carregar a vclie100.bpl.

Já tentei reinstalar o Delphi, mas não resolve. Inclusive tentei
instalar trial do Architect, mas o erro persiste, apenas alterando
para vcliex.bpl.

Alguém já enfrentou este problema? Pode ser uma pergunta um tanto
estranha, mas a vclie tem algo haver com o Internet Explorer? Pelo que
percebo passou a ocorrer depois que atualizei para o IE7 ...

Abraço e obrigado

Luciano



Re: [delphi-br] Migrar do Delphi 2007 para o Delphi 2009

2008-11-06 Por tôpico Eduardo Silva dos Santos
Olá Andreano, não são Warning's não erros mesmo. segue um exemplo de código
que funciona perfeitamente no Delphi 2007
e no 2009 não:

---
var
 teste:PAnsiChar;
begin
teste := PChar( '' );


no Delphi 2009 da erro de tipo de dado incompativel  Char e AnsiChar.

esse é só um exemplo tem vários outros..

eu entendo que no Delphi 2009 isso mudou, mas tem que existir uma forma de
manter o comportamento anterior..
é inviável sair mudando tudo quanto é tipo de dado e ainda esperar alguma
surpresa..

mas pelo que vi não vai ter jeito mesmo... é continuar no 2007 até que
alguma solução aceitável apareça..

não me entenda mal... o Delphi 2009 é fantástico, muito rápido, muito bom
mesmo... agora sair mexendo no código de uma aplicação enorme que tem mais
de 10 anos de desenvolvimento não compensa..

aguardo uma boa notícia.

2008/11/6 Andreano Lanusse [EMAIL PROTECTED]

   Eduardo,

 Não tem nada de trabalheira, como já disse em emails anteriores, detalhe o
 que você tem de problema, warning não é necessariamente erro.

 As pessoas aqui podem ter alguma idéia, mas você precisa passar algo de
 concreto.

 []'s
 Andreano

 From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf
 Of Eduardo Silva dos Santos
 Sent: Wednesday, November 05, 2008 11:06 PM
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Subject: [delphi-br] Migrar do Delphi 2007 para o Delphi 2009


 Olá pessoal, alguém já migrou seus aplicativos para o Delphi 2009 de forma
 rápida?

 fui fazer um pequeno teste hoje e pelo que vi vai ser uma trabalheira..

 são muitas ocorrências de tipo de dado incompatível Char e AnsiChar,
 AnsiChar e Char

 será que existe uma diretiva de compilação.. alguma reza brava... creio que
 grande parte não vai usar unicode...

 alguma idéia?

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.commailto:
 eduardo.drd%40gmail.com eduardo.drd%2540gmail.com
 Site: http://www.drdsistemas.com.br/
 ...



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico JB
Eu utilizo o LMD Design, tem um object inspector

2008/11/6 Rafael Jorge [EMAIL PROTECTED]:
 agora estamos fazendo um sistema de relatorio onde os usuarios vao criar
 seus propios relatorios.
 ja fixemos eles poderem selecionar os objetos que querem e posiciona-los
 onde querem..
 ja salvamos e carregamos tudo..
 so que estamos impacados com alteração de propiedades.
 queria fazer um object inspector onde ele lese o RTL dos componentes que o
 usuario selecionou.
 ele so pode selecionar um de cada..
 alquem ai sabe como criar um object inspector em tempo de execucao?
 obrigado.
 t+

 --
 --
 Rafael jorge alves (Analista/desenvolvedor)

 www.sistemafocus.com.br
 sistema focus de gestão comercial e serviços em informatica.

-- 
Att.

-- 

José Benedito
Software Developer
[EMAIL PROTECTED]
+55 19 8116-7826


Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Obrigado Eduardo, vou aguardar voce fazer upload do arquivo entao

ps: caso voce ja tenha feito o upload.. tentei baixar mas nao consegui..
www.drdsistemas. com.br/Zeos6.5.zip


Abraco


Hayalon





De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 10:32:25
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Olá Hayalon, seu problema não é simples de resolver..

O MySQL é bem exigente em relação a conexão, qualquer anormalidade na rede
ele derruba a conexão.

O pessoal da DevArt que desenvolve o MyDAC criou uma Tecnologia chamada
LocalFailOver, onde.. ao detectar que ouve um desconexão o componente
reconecta ao banco de forma transparente e executa a operação... com isso vc
pode conectar ao MySQL, via Wireless, rede discada.. qualquer rede por mais
instável que seja.

bom, a boa notícia é que quando eu usava Zeos 6.5 eu tive que fazer algo
nesse sentido, criei a propriedade AutoReconnect no TZConnection que faz a
mesma coisa que no MyDAC, detectou que houve perda de conexão.. reconecta..

vou colocar no site.. ai vc baixa, olha a implementação e coloca ai no zeos
6.6

www.drdsistemas. com.br/Zeos6. 5.zip

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Caros colegas estou com um problema serio, fui fazer um aplicativo
 simples
 para conexao em uma base mysql, hospedado no locaweb.

 Fiz a conexao com o Zeos Lib utilizando Delphi 6.0 Pro
 A versao do Zeos é a 6.6.3 Stable, estou utilizando o Windows Vista

 E quando rodo a aplicacao, consigo fazer conexao e até alterar, incluir e
 excluir

 Mas sempre em algum momento ao alterar, incluir e excluir sempre
 me retorna um erro Server Gone Away

 Só que o time_out do banco é de 8 horas, e minhas strings sql estao
 corretas (testadas no mysqlfront)

 Alguem pode me dar uma luz, tenho que colocar isso para rodar hoje ainda...

 Hayalon


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



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Olá, o arquivo já ta lá

www.drdsistemas.com.br/Zeos6.5.zip

tira os espaços que eventualmente aparecerem na url.. ok.

sucesso ae..

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Obrigado Eduardo, vou aguardar voce fazer upload do arquivo entao

 ps: caso voce ja tenha feito o upload.. tentei baixar mas nao consegui..

 www.drdsistemas. com.br/Zeos6.5.zip

 Abraco

 Hayalon



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Blz valeu

Hayalon





De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 12:56:34
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Olá, o arquivo já ta lá

www.drdsistemas. com.br/Zeos6. 5.zip

tira os espaços que eventualmente aparecerem na url.. ok.

sucesso ae..

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Obrigado Eduardo, vou aguardar voce fazer upload do arquivo entao

 ps: caso voce ja tenha feito o upload.. tentei baixar mas nao consegui..

 www.drdsistemas. com.br/Zeos6. 5.zip

 Abraco

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  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] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Eduardo, desculpe incomodar, mas voce usa D7..

Voce poderia me dizer quais fontes voce alterou?

Hayalon







De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 12:56:34
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Olá, o arquivo já ta lá

www.drdsistemas. com.br/Zeos6. 5.zip

tira os espaços que eventualmente aparecerem na url.. ok.

sucesso ae..

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Obrigado Eduardo, vou aguardar voce fazer upload do arquivo entao

 ps: caso voce ja tenha feito o upload.. tentei baixar mas nao consegui..

 www.drdsistemas. com.br/Zeos6. 5.zip

 Abraco

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  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]



Re: [delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico Rafael Jorge
ele é open?
aqui a gente so usa componentes que vem com fontes.
na verdade preferimos usar nosso propio framework sempre..
e so retificando nao é RTL é RTTI.. foi mal ai..
t+

2008/11/6 JB [EMAIL PROTECTED]

   Eu utilizo o LMD Design, tem um object inspector

 2008/11/6 Rafael Jorge [EMAIL PROTECTED] rafael.jorge%40gmail.com
 :

  agora estamos fazendo um sistema de relatorio onde os usuarios vao criar
  seus propios relatorios.
  ja fixemos eles poderem selecionar os objetos que querem e posiciona-los
  onde querem..
  ja salvamos e carregamos tudo..
  so que estamos impacados com alteração de propiedades.
  queria fazer um object inspector onde ele lese o RTL dos componentes que
 o
  usuario selecionou.
  ele so pode selecionar um de cada..
  alquem ai sabe como criar um object inspector em tempo de execucao?
  obrigado.
  t+
 
  --
  --
  Rafael jorge alves (Analista/desenvolvedor)
 
  www.sistemafocus.com.br
  sistema focus de gestão comercial e serviços em informatica.

 --
 Att.

 --
 
 José Benedito
 Software Developer
 [EMAIL PROTECTED] josebenedito%40gmail.com
 +55 19 8116-7826
  




-- 
---
Rafael jorge alves (Analista/desenvolvedor)

www.sistemafocus.com.br
sistema focus de gestão comercial e serviços em informatica.
---


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



Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Eduardo nao abusando da sua boa vontade...

Segue me código, quem sabe estou fazendo algo de errado

DmCartoes.QrUsuarios.Close;
DmCartoes.QrUsuarios.SQL.Clear;

If lbCod.Caption'0' Then
  begin
With DmCartoes.QrUsuarios.SQL Do
  Begin
Add('UPDATE Usuarios SET LOG_USU='+edLogin.Text+', ');
Add('NOM_USU='+edNome.Text+', ');
Add('PAS_USU='+edSenha.Text+', ');
Add('ACS_USU='+IntToStr(cbAcesso.ItemIndex)+', ');
Add('MAIL_USU='+edMail.Text+', ');
Add('FIL_USU='+cbFilial.Text+' ');
Add('WHERE COD_USU='+lbCod.Caption+';');
  End;
  end
Else
  Begin
With DmCartoes.QrUsuarios.SQL Do
  Begin
Str:='INSERT INTO Usuarios (LOG_USU, NOM_USU, PAS_USU, 
ACS_USU, MAIL_USU, FIL_USU) '+
'VALUES 
('+edLogin.Text+','+edNome.Text+','+edSenha.Text+','+IntToStr(cbAcesso.ItemIndex)+','+edMail.Text+','+cbFilial.Text+')';
Add(STR);
  end;
  End;
DmCartoes.QrUsuarios.ExecSQL;
DmCartoes.QrUsuarios.SQL.Clear;
DmCartoes.QrUsuarios.SQL.Add('SELECT * FROM Usuarios;');
DmCartoes.QrUsuarios.Open;






De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 12:56:34
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Olá, o arquivo já ta lá

www.drdsistemas. com.br/Zeos6. 5.zip

tira os espaços que eventualmente aparecerem na url.. ok.

sucesso ae..

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Obrigado Eduardo, vou aguardar voce fazer upload do arquivo entao

 ps: caso voce ja tenha feito o upload.. tentei baixar mas nao consegui..

 www.drdsistemas. com.br/Zeos6. 5.zip

 Abraco

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  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]



Re: [delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico Daniel Bastos
A JVCL, tem um. E é open source.

2008/11/6 Rafael Jorge [EMAIL PROTECTED]

 ele é open?
 aqui a gente so usa componentes que vem com fontes.
 na verdade preferimos usar nosso propio framework sempre..
 e so retificando nao é RTL é RTTI.. foi mal ai..
 t+

 2008/11/6 JB [EMAIL PROTECTED]

Eu utilizo o LMD Design, tem um object inspector
 
  2008/11/6 Rafael Jorge [EMAIL PROTECTED] rafael.jorge%40gmail.com
 
  :
 
   agora estamos fazendo um sistema de relatorio onde os usuarios vao
 criar
   seus propios relatorios.
   ja fixemos eles poderem selecionar os objetos que querem e
 posiciona-los
   onde querem..
   ja salvamos e carregamos tudo..
   so que estamos impacados com alteração de propiedades.
   queria fazer um object inspector onde ele lese o RTL dos componentes
 que
  o
   usuario selecionou.
   ele so pode selecionar um de cada..
   alquem ai sabe como criar um object inspector em tempo de execucao?
   obrigado.
   t+
  
   --
   --
   Rafael jorge alves (Analista/desenvolvedor)
  
   www.sistemafocus.com.br
   sistema focus de gestão comercial e serviços em informatica.
 
  --
  Att.
 
  --
  
  José Benedito
  Software Developer
  [EMAIL PROTECTED] josebenedito%40gmail.com
  +55 19 8116-7826
 
 



 --
 ---
 Rafael jorge alves (Analista/desenvolvedor)

 www.sistemafocus.com.br
 sistema focus de gestão comercial e serviços em informatica.
 ---


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


 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Abs
Daniel A. Bastos


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



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Olá, essa versão do zeos eu usava com Delphi 7, faça uma busca nos arquivos
pelo comentário //DRD

eu uso o Grep Search do GExperts.. é bem interessante.

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Eduardo, desculpe incomodar, mas voce usa D7..

 Voce poderia me dizer quais fontes voce alterou?


 Hayalon



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Aparentemente nao tem nada de errado nao.. só de dou uma dica.. se eu fosse
você usaria parâmetros.. fica mais claro e facil de dar manutenção.

exemplo:

with DmCartoes.QrUsuarios do begin
  SQL.Clear;
  SQL.Add(  'UPDATE Usuarios SET  ' );
  SQL.Add(  'LOG_USU=:LOG_USU, ' );
  SQL.Add(  'NOM_USU=:NOM_USU ' );
  SQL.Add(  'WHERE' );
  SQL.Add(  'COD_USU =:COD_USU' );

  ParamByName( 'LOG_USU' ).AsString := Edit1.Text;
  ParamByName( 'NOM_USU' ).AsString := Edit2.Text;
  ParamByName( 'NOM_USU' ).AsInteger := 1;
  ExecSQL;
end;


2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Eduardo nao abusando da sua boa vontade...

 Segue me código, quem sabe estou fazendo algo de errado

 DmCartoes.QrUsuarios.Close;
 DmCartoes.QrUsuarios.SQL.Clear;

 If lbCod.Caption'0' Then
 begin
 With DmCartoes.QrUsuarios.SQL Do
 Begin
 Add('UPDATE Usuarios SET LOG_USU='+edLogin.Text+', ');
 Add('NOM_USU='+edNome.Text+', ');
 Add('PAS_USU='+edSenha.Text+', ');
 Add('ACS_USU='+IntToStr(cbAcesso.ItemIndex)+', ');
 Add('MAIL_USU='+edMail.Text+', ');
 Add('FIL_USU='+cbFilial.Text+' ');
 Add('WHERE COD_USU='+lbCod.Caption+';');
 End;
 end
 Else
 Begin
 With DmCartoes.QrUsuarios.SQL Do
 Begin
 Str:='INSERT INTO Usuarios (LOG_USU, NOM_USU, PAS_USU, ACS_USU, MAIL_USU,
 FIL_USU) '+
 'VALUES
 ('+edLogin.Text+','+edNome.Text+','+edSenha.Text+','+IntToStr(cbAcesso.ItemIndex)+','+edMail.Text+','+cbFilial.Text+')';
 Add(STR);
 end;
 End;
 DmCartoes.QrUsuarios.ExecSQL;
 DmCartoes.QrUsuarios.SQL.Clear;
 DmCartoes.QrUsuarios.SQL.Add('SELECT * FROM Usuarios;');
 DmCartoes.QrUsuarios.Open;




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Sim vou usar parametros, só digitei rapidamente, 
pois nao estava conseguindo encontrar o erro de conexao..

Obrigado, vou olhar o codigo do comp.


Hayalon





De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 13:58:44
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Aparentemente nao tem nada de errado nao.. só de dou uma dica.. se eu fosse
você usaria parâmetros.. fica mais claro e facil de dar manutenção.

exemplo:

with DmCartoes.QrUsuario s do begin
SQL.Clear;
SQL.Add(  'UPDATE Usuarios SET  ' );
SQL.Add(  'LOG_USU=:LOG_ USU, ' );
SQL.Add(  'NOM_USU=:NOM_ USU ' );
SQL.Add(  'WHERE' );
SQL.Add(  'COD_USU =:COD_USU' );

ParamByName( 'LOG_USU' ).AsString := Edit1.Text;
ParamByName( 'NOM_USU' ).AsString := Edit2.Text;
ParamByName( 'NOM_USU' ).AsInteger := 1;
ExecSQL;
end;

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Eduardo nao abusando da sua boa vontade...

 Segue me código, quem sabe estou fazendo algo de errado

 DmCartoes.QrUsuario s.Close;
 DmCartoes.QrUsuario s.SQL.Clear;

 If lbCod.Caption '0' Then
 begin
 With DmCartoes.QrUsuario s.SQL Do
 Begin
 Add('UPDATE Usuarios SET LOG_USU='+edLogin. Text+', ');
 Add('NOM_USU= '+edNome. Text+', ');
 Add('PAS_USU= '+edSenha. Text+', ');
 Add('ACS_USU= '+IntToStr( cbAcesso. ItemIndex) +', ');
 Add('MAIL_USU= '+edMail. Text+', ');
 Add('FIL_USU= '+cbFilial. Text+' ');
 Add('WHERE COD_USU='+lbCod. Caption+' ;');
 End;
 end
 Else
 Begin
 With DmCartoes.QrUsuario s.SQL Do
 Begin
 Str:='INSERT INTO Usuarios (LOG_USU, NOM_USU, PAS_USU, ACS_USU, MAIL_USU,
 FIL_USU) '+
 'VALUES
 ('+edLogin. Text+', '+edNome. Text+', '+edSenha. Text+',' +IntToStr( 
 cbAcesso. ItemIndex) +','+edMail. Text+', '+cbFilial. Text+')' ;
 Add(STR);
 end;
 End;
 DmCartoes.QrUsuario s.ExecSQL;
 DmCartoes.QrUsuario s.SQL.Clear;
 DmCartoes.QrUsuario s.SQL.Add( 'SELECT * FROM Usuarios;');
 DmCartoes.QrUsuario s.Open;



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  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] fechar todas as telas

2008-11-06 Por tôpico Silvio Clécio
Olá pessoal,

mas queria saber, qual a importancia de saber se o
form de Login está sendo apontado como
Main Frame...

Felipe, Main Frame não, na outra resposta eu falei Main
Form:
 
Com Application. Terminate você encerra
toda a
aplicação, mas veja se o seu Form de LogOn não está apontado como Main
Form.

FrmPrincipal é
pra ser o Main Form, e não FrmLogin, acredito que na sua aplicação FrmLogin
não está apontado como Form Principal, é que já peguei demo na NET com esse
erro.

[]'s, Silvio Clécio
Contatos/Blog
Skype: silvioprog
E-mail, Yahoo! Messenger: [EMAIL PROTECTED]
Gmail, Google Talk: [EMAIL PROTECTED]
Hotmail, MSN: [EMAIL PROTECTED]
BlogSpot: http://silvioclecio.blogspot.com/
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!




De: Felipe Milagres [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 9:44:13
Assunto: Res: [delphi-br] fechar todas as telas


eu usei o código sugerido 
 
Application. Terminate ...
 
ai agora ele sai tudo beleza ...
 
mas queria saber , qual a importancia de saber se o form de Login está sendo 
apontado como Main Frame . . . .
 
att,
 
Felipe Milagres ..

--- Em ter, 4/11/08, Silvio Clécio [EMAIL PROTECTED] com.br escreveu:

De: Silvio Clécio [EMAIL PROTECTED] com.br
Assunto: Res: [delphi-br] fechar todas as telas
Para: [EMAIL PROTECTED] os.com.br
Data: Terça-feira, 4 de Novembro de 2008, 12:46

Olá pessoal,

Felipe, posta uma parte do código pra gente ver.
Com Application. Terminate você encerra toda a
aplicação, mas veja se o seu Form de LogOn não está apontado como Main Form.


  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]



Re: [delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico Ricardo César Cardoso
Olá Rafael, como vai?

Como já sugeriram, você pode usar o Object Inspector que vêm no JEDI, que é 
muito bom. Ou então criar o seu próprio Object Inspector. Dê uma olhada na 
nesse link:

[ http://www.chami.com/tips/delphi/012497D.html ]

Ou tente no Googlee procurar por object inspector runtime delphi (sem aspas).

Abraço,
Ricardo.

+--+

| Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! |

+--+

--- Em qui, 6/11/08, Rafael Jorge [EMAIL PROTECTED] escreveu:
De: Rafael Jorge [EMAIL PROTECTED]
Assunto: [delphi-br] Criar um object inspector em run-tim
Para: delphi-br delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 6 de Novembro de 2008, 12:28











agora estamos fazendo um sistema de relatorio onde os usuarios vao 
criar

seus propios relatorios.

ja fixemos eles poderem selecionar os objetos que querem e posiciona-los

onde querem..

ja salvamos e carregamos tudo..

so que estamos impacados com alteração de propiedades.

queria fazer um object inspector onde ele lese o RTL dos componentes que o

usuario selecionou.

ele so pode selecionar um de cada..

alquem ai sabe como criar um object inspector em tempo de execucao?

obrigado.

t+



-- 

 - - - - - -

Rafael jorge alves (Analista/desenvolv edor)



www.sistemafocus. com.br

sistema focus de gestão comercial e serviços em informatica.

 - - - - - -



  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] MYSQL D6 - Urgente

2008-11-06 Por tôpico Silvio Clécio
Olá pessoal,

Eduardo, obrigado por compartilhar!

[]'s, Silvio Clécio
Contatos/Blog
Skype: silvioprog
E-mail, Yahoo! Messenger: [EMAIL PROTECTED]
Gmail, Google Talk: [EMAIL PROTECTED]
Hotmail, MSN: [EMAIL PROTECTED]
BlogSpot: http://silvioclecio.blogspot.com/
Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!




De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 12:44:41
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Olá, essa versão do zeos eu usava com Delphi 7, faça uma busca nos arquivos
pelo comentário //DRD

eu uso o Grep Search do GExperts.. é bem interessante.


  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]



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
O problema não é com seu código nao... o problema é o lance da conexão
mesmo..

da uma olhada ai que vc vai resolver rapidinho, no ultimo caso instalar a
versão que te mandei e usa.

ou se quiser tranquilidade mesmo compra o MyDAC e seja feliz para sempre.

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Sim vou usar parametros, só digitei rapidamente,
 pois nao estava conseguindo encontrar o erro de conexao..

 Obrigado, vou olhar o codigo do comp.

 Hayalon

 



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Novo instalador do Intraweb para D2009/CB2009

2008-11-06 Por tôpico Jackson Gomes - ToolsComps
Opa galera:

Saiu o instalador do Intraweb para D2009/CB2009.

Link pra download: 
http://www.atozed.com/IntraWeb/Download/Files/TestRelease.EN.aspx

Historico de bugs: http://www.atozed.com/IntraWeb/History/10.0/index.aspx

Esse é um release de teste, mas está bem mais estável do que o release original 
que saiu no D2009.

Se vc já tem a chave de instalação do Intraweb, é só usá-la. Pra quem não tem, 
basta entrar no link abaixo e solicitar a chave:

http://www.atozed.com/IntraWeb/Download/BundledUpgrades.EN.aspx

[]'s

-- 
Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED]





[delphi-br] OFF Topic - Componente Indy

2008-11-06 Por tôpico NextCorp Informática
Caros colegas

Alguém saberia me dizer da onde posso baixar o componente Indy 10 para Delphi 5 
pro ?

No site indyprojects o link está quebrado.


Atenciosamente

Washington André Muller da silva

###
NextCorp Informática Ltda
www.nextcorp.com.br
[EMAIL PROTECTED]
0xx-(51)-3037-6605
###

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



[delphi-br] URGENTE: Instalação de Programa no Windows Vista

2008-11-06 Por tôpico Jorge Ericsson
Olá pessoal,

Alguém já instalou algum programa pelo delphi no Windows Vista ?

Estou testando um instalador que criei no Windows Vista e não estou tendo
sucesso.

Já coloquei o usuário e o administrrador ativos Ex: Net user Administrador
/Active:yes e mesmo assim quando chega na instalação do Firebird ou do
PostGres, dá a mensagem dizendo que o usuário não tem previlégio.

Se alguém tiver uma solução a nivél de código pelo Delphi, por favor me
informe.

Grato.

Jorge Ericsson


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



Re: [delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico Adriano Santos (Y!)
Há um artigo muito bom do Gustavo Chaurais na 
ClubeDelphi 97 que fala
sobre RTTI.
Ele mostra vários macetes e truques para criar seu 
próprio Object
Inspector, acho que vale a pena ver.

Link do exemplo:
http://www.devmedia.com.br/resumo/default.asp?idrev=77

[]s


Rafael Jorge respondeu:

 ele é open?
 aqui a gente so usa componentes que vem com fontes.
 na verdade preferimos usar nosso propio framework sempre..
 e so retificando nao é RTL é RTTI.. foi mal ai..
 t+

Adriano Santos
www.delphitodelphi.blogspot.com
www.dug-sp.com




Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Eduardo só mais uma pergunta.. tenho que re-compilar todos os bpk e re-instalar?


Hayalon







De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 14:21:39
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


O problema não é com seu código nao... o problema é o lance da conexão
mesmo..

da uma olhada ai que vc vai resolver rapidinho, no ultimo caso instalar a
versão que te mandei e usa.

ou se quiser tranquilidade mesmo compra o MyDAC e seja feliz para sempre.

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Sim vou usar parametros, só digitei rapidamente,
 pois nao estava conseguindo encontrar o erro de conexao..

 Obrigado, vou olhar o codigo do comp.

 Hayalon

  _ _ __


-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  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] Aplicação intraweb

2008-11-06 Por tôpico TI - Metalurgica Jano
Depois de muitas duvidas resolvi desenvolver uma aplicação intraweb,

Já que estou sem tempo para aprender c# dot.net.

Espero não ficar na mão.

A medida que for desenvolvendo vou postando aqui criticas positivas e
negativas sobre o intraweb.

Um abraço galera.



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



[delphi-br] Exemplo Site ASPX ?

2008-11-06 Por tôpico emerson_bertoldo
Bom dia a todos!

Gostaria de saber se alguém teria algum exemplo de um site feito em 
.NET com Delphi 2007 de preferência, pois é muito difícil material 
desse tipo para estudo.

Desde já agradeço.

Emerson Oliveira.





Re: [delphi-br] fechar todas as telas

2008-11-06 Por tôpico Alex Leão
Pessoal,

Segue uma rotina que eu uso para fechar todas as janelas abertas em meu sistema:

procedure TFrmPrinc.FecharTodas1Click(Sender: TObject);
var
  Count : word;
begin
for Count := 0 to ComponentCount - 1 do
  if Components[Count] is TForm then
TForm(Components[Count]).Close;
end;
 

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



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Se voce for usar minha versão deve desinstalar a 6.6 completamente e usar o
procedimento padrão de instalação do Zeos.

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Eduardo só mais uma pergunta.. tenho que re-compilar todos os bpk e
 re-instalar?

 Hayalon



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Re: fechar todas as telas

2008-11-06 Por tôpico deco0_07
vc pode fusar essa rotina...

procedure TfPrincipal.FecharClick(Sender: TObject);
var
  i : integer;
begin
  for i:=0 to Screen.FormCount - 1 do
  begin
  Screen.Forms[i].Close;
  end;
end;

--- Em delphi-br@yahoogrupos.com.br, Felipe Milagres 
[EMAIL PROTECTED] escreveu

 eu queria saber um meio de quando fechar a tela FrmPrincipal .. 
fechar todas as outras ...




Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Estou alterando a minha...

Devo desinstalar?

Hayalon





De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 15:40:20
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


Se voce for usar minha versão deve desinstalar a 6.6 completamente e usar o
procedimento padrão de instalação do Zeos.

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Eduardo só mais uma pergunta.. tenho que re-compilar todos os bpk e
 re-instalar?

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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




  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]



Re: [delphi-br] Aplicação intraweb

2008-11-06 Por tôpico fabio giro
Estamos no mesmo barco.

--- Em qui, 6/11/08, TI - Metalurgica Jano [EMAIL PROTECTED] escreveu:

De: TI - Metalurgica Jano [EMAIL PROTECTED]
Assunto: [delphi-br] Aplicação intraweb
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 6 de Novembro de 2008, 15:38






Depois de muitas duvidas resolvi desenvolver uma aplicação intraweb,

Já que estou sem tempo para aprender c# dot.net.

Espero não ficar na mão.

A medida que for desenvolvendo vou postando aqui criticas positivas e
negativas sobre o intraweb.

Um abraço galera.

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



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
com as implementações que fiz.

só usa a versão 6.5 que te passei em ultimo caso

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Estou alterando a minha...

 Devo desinstalar?

 Hayalon



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Novo instalador do Intraweb para D2009/CB2009

2008-11-06 Por tôpico Jackson Gomes - ToolsComps
Opa galera:

Saiu o instalador do Intraweb para D2009/CB2009.

Link pra download: 
http://www.atozed.com/IntraWeb/Download/Files/TestRelease.EN.aspx

Historico de bugs: http://www.atozed.com/IntraWeb/History/10.0/index.aspx

Esse é um release de teste, mas está bem mais estável do que o release original
que saiu no D2009.

Se vc já tem a chave de instalação do Intraweb, é só usá-la. Pra quem não tem,
basta entrar no link abaixo e solicitar a chave:

http://www.atozed.com/IntraWeb/Download/BundledUpgrades.EN.aspx

[]'s

-- 
Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED]




[delphi-br] Informação: Delphi 2009...

2008-11-06 Por tôpico Eduardo Silva dos Santos
Para quem ta usando o Delphi 2009 e se deparou com esse problema aqui:
http://qc.codegear.com/wc/qcmain.aspx?d=66892
eis a solução http://cc.codegear.com/item/26216
ate o update2 ser liberado.

-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Mas a que voce me passou é a pakage para D7, e estou usando o D6..
Nao vai ter problema?


Hayalon






De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
com as implementações que fiz.

só usa a versão 6.5 que te passei em ultimo caso

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

 Estou alterando a minha...

 Devo desinstalar?

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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

 


  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] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Blz entendi


Obrigado


Hayalon





De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
com as implementações que fiz.

só usa a versão 6.5 que te passei em ultimo caso

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

 Estou alterando a minha...

 Devo desinstalar?

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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

 


  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] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
Eduardo, estava observando os codigos, e no Zconnection
nao alterei nada pois a minha versao ja tinha as mesmas alteracaoes
que tinha no seu codigo.

Fiz os teste e agora com a modificacao, ele encerra a conexao..


Hayalon






De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
com as implementações que fiz.

só usa a versão 6.5 que te passei em ultimo caso

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

 Estou alterando a minha...

 Devo desinstalar?

 Hayalon



-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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

 


  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]



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Se ta igual não era pra ele encerrar a conexão e sim reconectar... da uma
olhada ai que deve algo diferente...

tem a propriedade reconnect?

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Eduardo, estava observando os codigos, e no Zconnection
 nao alterei nada pois a minha versao ja tinha as mesmas alteracaoes
 que tinha no seu codigo.

 Fiz os teste e agora com a modificacao, ele encerra a conexao..


 Hayalon

 
 De: Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com
 
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
 Assunto: Re: [delphi-br] MYSQL D6 - Urgente

 não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
 com as implementações que fiz.

 só usa a versão 6.5 que te passei em ultimo caso

 2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

  Estou alterando a minha...
 
  Devo desinstalar?
 
  Hayalon
 
 

 --
  . . . . ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo.drd@ gmail.com
 Site: http://www.drdsiste mas.com.br/
  . . . . ...

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

 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]

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Manual de sistema de WMS (Warehouse Management System)

2008-11-06 Por tôpico williamrocha
Ola pessoal,

   Alguem possui manual de algum sistema de WMS que pudesse mandar
para meu email?

Obrigado

William Rocha



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
da uma olhada na Unit ZConnection

linha 87: FReconnectOnExecute: Boolean; //DRD
linha 149: procedure Reconnect; //drd
linha 184:  property AutoReconnect: Boolean read FReconnectOnExecute write
FReconnectOnExecute; //DRD


Na Unit ZAbstractRODataset:

linha: 682
   if Connection.AutoReconnect then begin //DRD in 18/10/2007
if not Connection.Ping then
 Connection.Reconnect;
   end;



sinceramente.. se seu projeto estiver no começo, invista no MyDAC.. vale a
pena cada centavo.
www.devart.com/mydac


2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   Eduardo, estava observando os codigos, e no Zconnection
 nao alterei nada pois a minha versao ja tinha as mesmas alteracaoes
 que tinha no seu codigo.

 Fiz os teste e agora com a modificacao, ele encerra a conexao..


 Hayalon

 
 De: Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com
 
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
 Assunto: Re: [delphi-br] MYSQL D6 - Urgente

 não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
 com as implementações que fiz.

 só usa a versão 6.5 que te passei em ultimo caso

 2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

  Estou alterando a minha...
 
  Devo desinstalar?
 
  Hayalon
 
 

 --
  . . . . ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo.drd@ gmail.com
 Site: http://www.drdsiste mas.com.br/
  . . . . ...

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

 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]

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] data

2008-11-06 Por tôpico Luiz Escobar
Se nao me engano a partir do D6 tem funções pra isso...
Mas não lembro qual é... desculpe...
[]s

Luiz Escobar


  - Original Message - 
  From: Jose Ferreira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, November 06, 2008 11:07 AM
  Subject: Res: [delphi-br] data


  Use esta função para obter
   
  Obtendo data do primeiro dia util do mês

  Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; 
  var 
  Ano, Mes, Dia : word; 
  DiaDaSemana : Integer; 
  begin 
  DecodeDate (Data, Ano, Mes, Dia); 
  Dia := 1; 
  if lSabDom Then 
  begin 
  DiaDaSemana := DayOfWeek (Data); 
  if DiaDaSemana = 1 Then 
  Dia := 2 
  else 
  if DiaDaSemana = 7 Then 
  Dia := 3; 
  end; 
  FirstDayOfMonth := EncodeDate (Ano, Mes, Dia); 
  end; 

  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses

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



   

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



[delphi-br] access violation at

2008-11-06 Por tôpico cicero
 
 


 
TO Rodando meu sistema e de uma hora para houtra começou a aparecer essa
mensagem ai  
já mechi em tudo quanto é coisa e não consigo descobrir o q é  
alguem pode me ajudar
 
 
Cícero Fernandes
Eng. Eletricista
Eng. de Segurança do Trabalho
CREA-SC 27.958-0
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE! 
 



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



Re: [delphi-br] access violation at

2008-11-06 Por tôpico Eduardo Silva dos Santos
Sem você dar mais detalhes.. fica complicado... em qual módulo acontece, em
qual situação? ja depurou pra ver se encontra o problema?

2008/11/6 [EMAIL PROTECTED]




 TO Rodando meu sistema e de uma hora para houtra começou a aparecer essa
 mensagem ai 
 já mechi em tudo quanto é coisa e não consigo descobrir o q é 
 alguem pode me ajudar



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



Re: [delphi-br] access violation at

2008-11-06 Por tôpico Jackson Gomes - ToolsComps

 Sem você dar mais detalhes.. fica complicado...
  começou a aparecer essa mensagem ai 

Acho que ele mandou a msg com uma imagem em anexo. Aqui no grupo, imagens são 
cortadas automaticamente pelo Yahoo.

Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324

http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED] 




Re: [delphi-br] Criar um object inspector em run-tim

2008-11-06 Por tôpico Ricardo César Cardoso
Boa noite!

Tinha quase certeza que eu já tinha visto isso numa revista nacional. E diga-se 
de passagem é a segunda vez que a CD aborda o assunto. Numa edição mais antiga 
(a capa tem um escrito RTTI em letras garrafais) o assunto é distrinchado e o 
exemplo também parece ser o de um object inspector.

[]'s
Ricardo.

+--+

| Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! |

+--+

--- Em qui, 6/11/08, Adriano Santos (Y!) [EMAIL PROTECTED] escreveu:
De: Adriano Santos (Y!) [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Criar um object inspector em run-tim
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 6 de Novembro de 2008, 15:35











Há um artigo muito bom do Gustavo Chaurais na 

ClubeDelphi 97 que fala

sobre RTTI.

Ele mostra vários macetes e truques para criar seu 

próprio Object

Inspector, acho que vale a pena ver.



Link do exemplo:

http://www.devmedia .com.br/resumo/ default.asp? idrev=77



[]s


 
 

















  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]



Re: [delphi-br] access violation at

2008-11-06 Por tôpico Joao Morais
2008/11/6  [EMAIL PROTECTED]:
 TO Rodando meu sistema e de uma hora para houtra começou a aparecer essa
 mensagem ai 
 já mechi em tudo quanto é coisa e não consigo descobrir o q é 
 alguem pode me ajudar

A dica de sempre: ligue as informações de debug do seu projeto, use as
DCUs de debug (project | options), rode a aplicação e assim que
pipocar o erro pressione Ctrl+F3 para você ver um backtrace do ponto
aproximado aonde pifou.

Joao Morais


Res: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Hayalon A. de Oliveira
é o código esta igual...

mas valeu pela dica, vou dar uma olhada no valor do mydac

Abraço

hayalon





De: Eduardo Silva dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 17:53:30
Assunto: Re: [delphi-br] MYSQL D6 - Urgente


da uma olhada na Unit ZConnection

linha 87: FReconnectOnExecute : Boolean; //DRD
linha 149: procedure Reconnect; //drd
linha 184: property AutoReconnect: Boolean read FReconnectOnExecute write
FReconnectOnExecute ; //DRD

Na Unit ZAbstractRODataset:

linha: 682
if Connection.AutoReco nnect then begin //DRD in 18/10/2007
if not Connection.Ping then
Connection.Reconnec t;
end;

sinceramente. . se seu projeto estiver no começo, invista no MyDAC.. vale a
pena cada centavo.
www.devart.com/ mydac

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

 Eduardo, estava observando os codigos, e no Zconnection
 nao alterei nada pois a minha versao ja tinha as mesmas alteracaoes
 que tinha no seu codigo.

 Fiz os teste e agora com a modificacao, ele encerra a conexao..


 Hayalon

  _ _ __
 De: Eduardo Silva dos Santos eduardo.drd@ gmail.comeduardo.drd% 40gmail.com
 
 Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br
 Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
 Assunto: Re: [delphi-br] MYSQL D6 - Urgente

 não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
 com as implementações que fiz.

 só usa a versão 6.5 que te passei em ultimo caso

 2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

  Estou alterando a minha...
 
  Devo desinstalar?
 
  Hayalon
 
 

 --
  . . . . ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 8842-9489
 MSN: eduardo.drd@ gmail.com
 Site: http://www.drdsiste mas.com.br/
  . . . . ...

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

 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]

 


-- 
 . . . . ...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
 . . . . ...

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

 


  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]



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Eduardo Silva dos Santos
Blz..O MyDAC vale a pena cada centavo..

mas me diga.. deu certo ou não?  tem que dar... hehe

qq coisa to a disposição.

2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED]

   é o código esta igual...

 mas valeu pela dica, vou dar uma olhada no valor do mydac

 Abraço


 hayalon



-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] MYSQL D6 - Urgente

2008-11-06 Por tôpico Luiz Escobar
Cara não vai se arrepender com o MyDAC, vale cada centavo...
[]s

Luiz Escobar


  - Original Message - 
  From: Hayalon A. de Oliveira 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, November 06, 2008 11:33 PM
  Subject: Res: [delphi-br] MYSQL D6 - Urgente


  é o código esta igual...

  mas valeu pela dica, vou dar uma olhada no valor do mydac

  Abraço

  hayalon

  
  De: Eduardo Silva dos Santos [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Quinta-feira, 6 de Novembro de 2008 17:53:30
  Assunto: Re: [delphi-br] MYSQL D6 - Urgente

  da uma olhada na Unit ZConnection

  linha 87: FReconnectOnExecute : Boolean; //DRD
  linha 149: procedure Reconnect; //drd
  linha 184: property AutoReconnect: Boolean read FReconnectOnExecute write
  FReconnectOnExecute ; //DRD

  Na Unit ZAbstractRODataset:

  linha: 682
  if Connection.AutoReco nnect then begin //DRD in 18/10/2007
  if not Connection.Ping then
  Connection.Reconnec t;
  end;

  sinceramente. . se seu projeto estiver no começo, invista no MyDAC.. vale a
  pena cada centavo.
  www.devart.com/ mydac

  2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com

   Eduardo, estava observando os codigos, e no Zconnection
   nao alterei nada pois a minha versao ja tinha as mesmas alteracaoes
   que tinha no seu codigo.
  
   Fiz os teste e agora com a modificacao, ele encerra a conexao..
  
  
   Hayalon
  
    _ _ __
   De: Eduardo Silva dos Santos eduardo.drd@ gmail.comeduardo.drd% 
40gmail.com
   
   Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br
   Enviadas: Quinta-feira, 6 de Novembro de 2008 16:22:42
   Assunto: Re: [delphi-br] MYSQL D6 - Urgente
  
   não, não... modifica a sua.. mais simples e vc vai usar uma versão + nova e
   com as implementações que fiz.
  
   só usa a versão 6.5 que te passei em ultimo caso
  
   2008/11/6 Hayalon A. de Oliveira [EMAIL PROTECTED] com
  
Estou alterando a minha...
   
Devo desinstalar?
   
Hayalon
   
   
  
   --
    . . . . ...
   Eduardo Silva dos Santos
   DRD SISTEMAS
   (27) 3218-4201
   (27) 8842-9489
   MSN: eduardo.drd@ gmail.com
   Site: http://www.drdsiste mas.com.br/
    . . . . ...
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   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]
  
   
  

  -- 
   . . . . ...
  Eduardo Silva dos Santos
  DRD SISTEMAS
  (27) 3218-4201
  (27) 8842-9489
  MSN: eduardo.drd@ gmail.com
  Site: http://www.drdsiste mas.com.br/
   . . . . ...

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

  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses

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



   

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



Re: [delphi-br] Exemplo Site ASPX ?

2008-11-06 Por tôpico Daniel Bastos
Te aconselho a nem tentar procurar. A versão .NET do delphi será
descontinuada em favor do Delphi Prism. Vide as discussoes recentes e os
blogs da própria CodeGear.
Então estudar esta tecnologia será perda de tempo.
Caso queira desenvolver em .NET escrevendo pascal, te aconselho a procurar
referências sobre Delphi Prism, ou seus nomes anteriores (Chorme e Oxygene)

Um bom início é o site do próprio desenvolvedor.
http://www.remobjects.com/

2008/11/6 emerson_bertoldo [EMAIL PROTECTED]

 Bom dia a todos!

 Gostaria de saber se alguém teria algum exemplo de um site feito em
 .NET com Delphi 2007 de preferência, pois é muito difícil material
 desse tipo para estudo.

 Desde já agradeço.

 Emerson Oliveira.




 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Abs
Daniel A. Bastos


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