Res: [delphi-br] Problemas ao minimizar form MDI principal

2008-08-19 Por tôpico Willian Jhonnes Lara dos Santos 


- Mensagem original 
De: ca_programador007 <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 19 de Agosto de 2008 17:44:04
Assunto: Re: Res: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI 
principal


Olá Willian!
Mais uma vez obrigado pela ajuda, mas não deu certo.
Fiz como me pediu (deixei enable true no form principal, e mesmo deixando 
enable false não funcionou).
Quando eu executo a aplicação, ele dá a mensagem: "Cannot make a visible window 
modal", mesmo depois eu continuando, ele não mostra na barra de tarefas, e nem 
minimiza.
 
Caramba! O que fazer?
 
Obrigado!


-

Cara, muito estranho oq está havendo com o seu código...
Aqui está um exemplo de um código meu. É bem simples, só que as minhas 
aplicações são construídas de maneira modular (em bpl) para facilitar a 
manutenção. A técnica é muito parecida com a q eu t enviei, mudando apenas em 
alguns aspectos...

Segue o exemplo:
//Arquivo .dpr

program SYSFARMAPSI;

uses
  SysUtils,
  Forms,
  Windows;

{$R *.res}

var
  HWND: THandle;
begin
  HWND := FindWindow('FBPSI001PSI0001', 'Sysfarma - Psicotrópico 
informatizado');
  if HWND = 0 then
  begin
Application.Initialize;
LoadPackage('B001PSI.BPL');
Application.Title := 'Sysfarma - Psicotrópico informatizado';
Application.Run;
  end
  else
SetForegroundWindow(HWND);
end.

//Unit do form principal
//Dois últimos eventos do form
procedure TFBPSI001PSI0001.tmrRelogioTimer(Sender: TObject);
var
  i: Integer;
begin
  tmrRelogio.Enabled := False;
  inherited;
  Application.ProcessMessages;
  if (FBPSI001PSI0002 = nil) and (Tag = 0) then
  begin
FBPSI001PSI0002 := TFBPSI001PSI0002.Create(nil);
Tag := 1;
FBPSI001PSI0002.ShowModal;
DBConnection.CarregaMenuAplicacao(EnvVariants.CodEmp, EnvVariants.Matricula,
  EnvVariants.CodModulo, cdsMenu);
proMontarMenu(actmPsico);
for i := 0 to actmPsico.ActionBars[0].Items.Count - 1 do
  proCarregarItems(actmPsico, i);
stbForms.Panels[3].Text := 'FBPSI001PSI001';
  end;
  if ActiveMDIChild <> nil then
stbForms.Panels[3].Text := ActiveMDIChild.Name;

  EnvVariants.DataAtual := Date;

  tmrRelogio.Enabled := True;
end;

initialization
  Application.CreateForm(TFBPSI001PSI0001, FBPSI001PSI0001);
  FBPSI001PSI0001.Show;

end.

Ou seja, nada muito diferente do código enviado... Se vc puder postar o seu 
código, talvez seja mais fácil verificar oq está acontecendo...

Qualquer coisa, me manda teu código em pvt...

[]'s

 ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
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
---


  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] Re: [NDDV] array of Variant na Type Library

2008-08-19 Por tôpico sergio cavalcante 
Pessoal,

Tenho um MasterDetail, no qual o master possui um campo chamado Valor Total.
O Detail, tem vários itens que tem seus valores(sem quantidade). Preciso
que, quando o usuário modificar o valor do item, calcular automaticamente o
valor total do Master.

Vale ressaltar que é um Master-Detail daquele feito com ClientDataset.

Agradeço quaisquer idéias, pq já to procurando faz uma semana essa porcaria
e não acha nada que preste.

(O valor total dos itens eu já consegui utilizando campos aggregates. Só
falta jogar no campo do Master)

Atenciosamente,
--
Sérgio Cavalcante


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

Re: Res: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI principal

2008-08-19 Por tôpico ca_programador007 
Olá Willian!
Mais uma vez obrigado pela ajuda, mas não deu certo.
Fiz como me pediu (deixei enable true no form principal, e mesmo deixando 
enable false não funcionou).
Quando eu executo a aplicação, ele dá a mensagem: "Cannot make a visible window 
modal", mesmo depois eu continuando, ele não mostra na barra de tarefas, e nem 
minimiza.
 
Caramba! O que fazer?
 
Obrigado!


--- Em seg, 18/8/08, Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]> 
escreveu:

De: Willian Jhonnes Lara dos Santos <[EMAIL PROTECTED]>
Assunto: Res: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI 
principal
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 18 de Agosto de 2008, 20:51






A causa provável é o enabled = false do form principal, aliado à maneira como 
vc chama o form de login...

Tente fazer o seguinte:

1 - retire o form de login da lista de formulários criados na inicialização;
2 - no OnActivate do form principal coloque a seguinte rotina:

if (frmLogin = nil) and (Tag = 0) then
begin
frmLogin := TfrmLogin.Create( nil);
Tag := 1;
frmLogin.ShowModal;
frmLogin := nil;
end;

Isso fará com q o form de login seja criado e exibido em modal, sem q vc 
precise desativar o form frincipal. Isso deve resolver seu problema...
Aí, as exceções de login serão tratadas pelo form de login, q, caso não 
correspondam à uma credencial válida, podem repetir o processo de solicitação 
ou encerrar a aplicação. Algo mais ou menos assim:

procedure TfrmLogin.ChecaCred encial(pLogin, pSenha: String);
begin
if Tag = 3 then
Application. Terminate;

if edtLogin.Text <> pLogin then
begin
Application. MessageBox( 'O login está incorreto.', 'ERRO', MB_OK + 
MB_ICONERROR) ;
inc(Tag);
edtLogin.SetFocus;
end;

if edtSenha.Text <> pSenha then
begin
Application. MessageBox( 'A senha está incorreta.', 'ERRO', MB_OK + 
MB_ICONERROR) ;
inc(Tag);
edtSenha.SetFocus;
end;
end;

Qualquer dúvida, é só escrever...
 - - - - ---
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: ca_programador007 
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Segunda-feira, 18 de Agosto de 2008 17:44:54
Assunto: Re: Res: Res: Res: [delphi-br] Problemas ao minimizar form MDI 
principal

Olá!
Quando o form é executado (neste momento o login fica na frente do form 
principal), e o form principal fica como enable false, já não aparece na barra 
de tarefas a aplicação.

O que será??

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]

 
Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo 
tópico 
Mensagens | Arquivos | Fotos | Links | Banco de dados 
-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

 
Alterar configurações via web (Requer Yahoo! ID) 
Alterar configurações via e-mail: Alterar recebimento para lista diária de 
mensagens | Alterar formato para o tradicional 
Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo 



Atividade nos últimos dias


 11
Novos usuários

 1
Novos arquivosVisite seu Grupo 


Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço

Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .

Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação

.. 


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

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

[delphi-br] [Off-Topic] programação remota.

2008-08-19 Por tôpico cassiano luz 
[Off-Topic]

Boa Tarde!
Pessoal,

  
   
 Sou programador Delphi, tenho 1,5 ano de experiencia, gostaria de saber se 
alguem sabe de alguma oportunidade de emprego para trabalho remoto.


att,
Cassiano.

[EMAIL PROTECTED]




  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] Re: Mudar de win xp para linux

2008-08-19 Por tôpico Joao Morais 
auriston.delphi wrote:
> firebird 1.5

Tem que fazer backup/restore.

Joao Morais


> --- Em delphi-br@yahoogrupos.com.br, "Guionardo Furlan" 
> <[EMAIL PROTECTED]> escreveu
>> Que banco de dados? Vc poderia dar mais informações?
>>
>> 2008/8/19 auriston.delphi <[EMAIL PROTECTED]>:
>>> Uma empresa a quem presto serviço, adquiriu um servidor Hp, e a 
> revenda
>>> instalou o linux, e a primeira vez que vou usar um servidor linux.
>>>
>>> Veio instalado o samba, como procedo a transferencia do banco de 
> dados,
>>> e so copiar ou tem que restaurar ?
>>>
>>> sds
>>>
>>>
>>
>>
>> -- 
>> Timeo hominem unius libri
>> Cogito ergo sum - Carpe diem
>>
>> []s
>> Guionardo Furlan
>> http://guionardo.blogspot.com
>>
> 
> 
> 
> 
>

RE: RES: [delphi-br] Criptografar Executável

2008-08-19 Por tôpico Rubem Nascimento da Rocha 

Nem em executáveis feitos em Clipper essa POG cola!
Sds.


> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Tue, 19 Aug 2008 16:36:08 -0300
> Subject: Re: RES: [delphi-br] Criptografar Executável
>
> José Henrique (Zote) wrote:
>> 2) Gerar a mensagem na hora usando os códigos ASCII das letras ex: Para
>> ter ‘AB’, use chr(65) + chr(66).
>
> 'AB', #65#66, chr(65) + chr(66) ou chr(33+32) + chr(33+33) geram
> exatamente o mesmo código. Constantes são processadas em tempo de
> compilação para fins de otimização.
>
> Joao Morais

_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas 
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Luiz ESCobar 
Ops, desculpe Rubem...
(Cade a porcaria do café!!!)
[]s

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
---



From: Rubem Nascimento da Rocha 
Sent: Tuesday, August 19, 2008 3:09 PM
To: delphi-br@yahoogrupos.com.br 
Subject: RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?



O nome é Rubem!
Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:49:39 -0300
Subject: Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Vlw Rubens, mas acho que agora vai.. qualquer coisa eu tento este exemplo 
ou parto pra 'TList' ou a sua outra dica 'TCollection'.
[]s

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR --
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
--

From: Rubem Nascimento da Rocha
Sent: Tuesday, August 19, 2008 2:29 PM
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Tente as seguintes declarações:

Type
TDskReg = record
Serial : String;
TypeDsk : string;
end;

TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end;

TVolRegs = array of TVolReg;
TDsks = array of TDskReg;

THDDReg = record
countDsk : Integer;
Dsk : TDsks;
CountVol : Integer;
Vol : TVolRegs;
end;

Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:23:13 -0300
Subject: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Tentei fazer algo assim, porem to com uma dificuldade, parece não ser valido 
deste modo:

Type
TDskReg = record
Serial : String;
TypeDsk : string;
end;
TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end;
THDDReg = record
countDsk : Integer;
Dsk : array of TDskReg;
CountVol : Integer;
Vol : array of TVolReg;
end;
Var
HDD : THDDReg;

Begin
SetLength( hdd, 4 )
HDD.countDsk := 4;
HDD.Dsk[1].serial := serial;
HDD.Dsk[2].TypeDsk := tDisk;
bla bla bla
end;

ALLguem tem alguma sugestão ??

__
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdomessenger.com.br

 

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

Re: RES: [delphi-br] Criptografar Executável

2008-08-19 Por tôpico Joao Morais 
José Henrique (Zote) wrote:
> 2)  Gerar a mensagem na hora usando os códigos ASCII das letras ex: Para
> ter ‘AB’, use chr(65) + chr(66).

'AB', #65#66, chr(65) + chr(66) ou chr(33+32) + chr(33+33) geram 
exatamente o mesmo código. Constantes são processadas em tempo de 
compilação para fins de otimização.

Joao Morais



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] [Off-Topic] DUG-SP - Enquente, votem!

2008-08-19 Por tôpico Adriano Santos (Yahoo) 
[Off-Topic] DUG-SP - Enquente, votem!

Pessoal,

Perdoem-me, acabei enviando a mensagem por engano e sem off-topic.
Bem, já que a mensagem foi então vou explicar.

O DUG-SP é voltado a desenvolvedores Delphi localizados em São Paulo já 
que todos os eventos serão presenciais.
Gostaríamos de saber qual do pessoal de São Paulo, qual melhor dia para 
realizarmos os eventos.

Respondam a enquete postada em meu blog.
www.delphitodelphi.blogspot.com

A enquete está a direita do site, logo abaixo do meu perfil.

[]s

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br



Adriano Santos (Yahoo) respondeu:
>
> Pessoal,
>
> Estamos realizando uma enquete para ver qual melhor dia preferem para
> realização dos eventos do DUG-SP.
> Queiram por gentileza votar em meu blog. A enquete está direita do site,
> logo abaixo do meu perfil.
>
> Obrigado
>
> -- 
> Boa Leitura,
>
> Adriano Santos
> Development Manager SoftPark
> Editor Técnico Revistas ClubeDelphi e WebMobile
> www.delphitodelphi.blogspot.com
> www.adrianosantos.pro.br
> www.devmedia.com.br
>
> 
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.138 / Virus Database: 270.6.5/1619 - Release Date: 18/8/2008 
> 17:39
>

RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Rubem Nascimento da Rocha 

O nome é Rubem!
Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:49:39 -0300
Subject: Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Vlw Rubens, mas acho que agora vai.. qualquer coisa eu tento este exemplo 
ou parto pra 'TList' ou a sua outra dica 'TCollection'.
[]s

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR --
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
--

From: Rubem Nascimento da Rocha
Sent: Tuesday, August 19, 2008 2:29 PM
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Tente as seguintes declarações:

Type
TDskReg = record
Serial : String;
TypeDsk : string;
end;

TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end;

TVolRegs = array of TVolReg;
TDsks = array of TDskReg;

THDDReg = record
countDsk : Integer;
Dsk : TDsks;
CountVol : Integer;
Vol : TVolRegs;
end;

Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:23:13 -0300
Subject: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Tentei fazer algo assim, porem to com uma dificuldade, parece não ser valido 
deste modo:

Type
TDskReg = record
Serial : String;
TypeDsk : string;
end;
TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end;
THDDReg = record
countDsk : Integer;
Dsk : array of TDskReg;
CountVol : Integer;
Vol : array of TVolReg;
end;
Var
HDD : THDDReg;

Begin
SetLength( hdd, 4 )
HDD.countDsk := 4;
HDD.Dsk[1].serial := serial;
HDD.Dsk[2].TypeDsk := tDisk;
bla bla bla
end;

ALLguem tem alguma sugestão ??


_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdomessenger.com.br

Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Luiz ESCobar 
Vlw Rubens, mas acho que agora vai.. qualquer coisa eu tento este exemplo 
ou parto pra 'TList' ou a sua outra dica 'TCollection'.
[]s


Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
---



From: Rubem Nascimento da Rocha 
Sent: Tuesday, August 19, 2008 2:29 PM
To: delphi-br@yahoogrupos.com.br 
Subject: RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?



Tente as seguintes declarações:

Type
TDskReg = record 
Serial : String;
TypeDsk : string;
end;

TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end; 

TVolRegs = array of TVolReg;
TDsks = array of TDskReg;

THDDReg = record
countDsk : Integer;
Dsk : TDsks;
CountVol : Integer;
Vol : TVolRegs;
end;

Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:23:13 -0300
Subject: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Tentei fazer algo assim, porem to com uma dificuldade, parece não ser valido 
deste modo:

Type
TDskReg = record
Serial : String;
TypeDsk : string;
end;
TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end;
THDDReg = record
countDsk : Integer;
Dsk : array of TDskReg;
CountVol : Integer;
Vol : array of TVolReg;
end;
Var
HDD : THDDReg;

Begin
SetLength( hdd, 4 )
HDD.countDsk := 4;
HDD.Dsk[1].serial := serial;
HDD.Dsk[2].TypeDsk := tDisk;
bla bla bla
end;

ALLguem tem alguma sugestão ??

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR --
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
--

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

__
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br

 

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

[delphi-br] DUG-SP - Enquente, votem!

2008-08-19 Por tôpico Adriano Santos (Yahoo) 
Pessoal,

Estamos realizando uma enquete para ver qual melhor dia preferem para 
realização dos eventos do DUG-SP.
Queiram por gentileza votar em meu blog. A enquete está direita do site, 
logo abaixo do meu perfil.

Obrigado

-- 
Boa Leitura,

Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br

Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Luiz ESCobar 
Realmente acho que preciso toma um CAFÉ...aparentemente compilou...
É que tava esquecendo de colocar o '[x]'
Não era nem o SetLength. pois errei na transcrição para o forum... 

tipo tava fazendo assim:
HDD.Dsk.Serial := 'bla';

E o certo (pelo menos compilou) seria:
HDD.Dsk[x].Serial := 'bla';

É que o café só sai as 15:00hs.. k
vou testar vlw...
[]s


Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
---





From: José Mário Silva Guedes 
Sent: Tuesday, August 19, 2008 2:28 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?


Creio que falte uma instrução parecida com esta:

SetLength( hdd.Dsk, 2 );

2008/8/19 Luiz ESCobar <[EMAIL PROTECTED]>

> Tentei fazer algo assim, porem to com uma dificuldade, parece não ser
> valido deste modo:
>
> Type
> TDskReg = record
> Serial : String;
> TypeDsk : string;
> end;
> TVolReg = record
> Letter : String[1];
> Name : String;
> Serial : String;
> NameLen : Integer;
> SysName : string;
> Size : Int64;
> Free : Int64;
> Used : Int64;
> end;
> THDDReg = record
> countDsk : Integer;
> Dsk : array of TDskReg;
> CountVol : Integer;
> Vol : array of TVolReg;
> end;
> Var
> HDD : THDDReg;
>
> Begin
> SetLength( hdd, 4 )
> HDD.countDsk := 4;
> HDD.Dsk[1].serial := serial;
> HDD.Dsk[2].TypeDsk := tDisk;
> bla bla bla
> end;
>
> ALLguem tem alguma sugestão ??
>
> Luiz Escobar - Analista/Desenvolvedor:
> WEB - HTML/JavaScript/PHP/MySQL
> WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
> SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
> HARBOUR --
> Borland C++ 5.5.1 (32 bit)
> Harbour 1.0.0 Intl. (Rev. 9029)
> xHarbour Compile build 1.1.0 (Simplex)
> Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
> --
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
José Mário Silva Guedes
Analista Programador Delphi
http://pgviavel.blogspot.com/

[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] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Rubem Nascimento da Rocha 

Eu, particularmente, usaria TCollection e TCollectionItem. Mas, enfim ...

Tente as seguintes declarações:

Type
  TDskReg = record 
Serial : String;
TypeDsk : string;
  end;

  TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
  end; 

  TVolRegs = array of TVolReg;
  TDsks = array of TDskReg;

  THDDReg = record
countDsk : Integer;
Dsk : TDsks;
CountVol : Integer;
Vol : TVolRegs;
  end;


Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:28:35 -0300
Subject: Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?


Creio que falte uma instrução parecida com esta:

SetLength( hdd.Dsk, 2 );

2008/8/19 Luiz ESCobar <[EMAIL PROTECTED]>

> Tentei fazer algo assim, porem to com uma dificuldade, parece não ser
> valido deste modo:
>
> Type
> TDskReg = record
> Serial : String;
> TypeDsk : string;
> end;
> TVolReg = record
> Letter : String[1];
> Name : String;
> Serial : String;
> NameLen : Integer;
> SysName : string;
> Size : Int64;
> Free : Int64;
> Used : Int64;
> end;
> THDDReg = record
> countDsk : Integer;
> Dsk : array of TDskReg;
> CountVol : Integer;
> Vol : array of TVolReg;
> end;
> Var
> HDD : THDDReg;
>
> Begin
> SetLength( hdd, 4 )
> HDD.countDsk := 4;
> HDD.Dsk[1].serial := serial;
> HDD.Dsk[2].TypeDsk := tDisk;
> bla bla bla
> end;
>
> ALLguem tem alguma sugestão ??

_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Rubem Nascimento da Rocha 

Tente as seguintes declarações:

Type
  TDskReg = record 
Serial : String;
TypeDsk : string;
  end;

  TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
  end; 

  TVolRegs = array of TVolReg;
  TDsks = array of TDskReg;

  THDDReg = record
countDsk : Integer;
Dsk : TDsks;
CountVol : Integer;
Vol : TVolRegs;
  end;


Sds.


To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:23:13 -0300
Subject: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?


Tentei fazer algo assim, porem to com uma dificuldade, parece não ser valido 
deste modo:

Type
TDskReg = record
Serial : String;
TypeDsk : string;
end;
TVolReg = record
Letter : String[1];
Name : String;
Serial : String;
NameLen : Integer;
SysName : string;
Size : Int64;
Free : Int64;
Used : Int64;
end;
THDDReg = record
countDsk : Integer;
Dsk : array of TDskReg;
CountVol : Integer;
Vol : array of TVolReg;
end;
Var
HDD : THDDReg;

Begin
SetLength( hdd, 4 )
HDD.countDsk := 4;
HDD.Dsk[1].serial := serial;
HDD.Dsk[2].TypeDsk := tDisk;
bla bla bla
end;

ALLguem tem alguma sugestão ??

Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR --
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
--

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








_
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

Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico José Mário Silva Guedes 
Creio que falte uma instrução parecida com esta:

SetLength( hdd.Dsk, 2 );

2008/8/19 Luiz ESCobar <[EMAIL PROTECTED]>

>   Tentei fazer algo assim, porem to com uma dificuldade, parece não ser
> valido deste modo:
>
> Type
> TDskReg = record
> Serial : String;
> TypeDsk : string;
> end;
> TVolReg = record
> Letter : String[1];
> Name : String;
> Serial : String;
> NameLen : Integer;
> SysName : string;
> Size : Int64;
> Free : Int64;
> Used : Int64;
> end;
> THDDReg = record
> countDsk : Integer;
> Dsk : array of TDskReg;
> CountVol : Integer;
> Vol : array of TVolReg;
> end;
> Var
> HDD : THDDReg;
>
> Begin
> SetLength( hdd, 4 )
> HDD.countDsk := 4;
> HDD.Dsk[1].serial := serial;
> HDD.Dsk[2].TypeDsk := tDisk;
> bla bla bla
> end;
>
> ALLguem tem alguma sugestão ??
>
> Luiz Escobar - Analista/Desenvolvedor:
> WEB - HTML/JavaScript/PHP/MySQL
> WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
> SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
> HARBOUR --
> Borland C++ 5.5.1 (32 bit)
> Harbour 1.0.0 Intl. (Rev. 9029)
> xHarbour Compile build 1.1.0 (Simplex)
> Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
> --
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>



-- 
José Mário Silva Guedes
Analista Programador Delphi
http://pgviavel.blogspot.com/


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

[delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

2008-08-19 Por tôpico Luiz ESCobar 
Tentei fazer algo assim, porem to com uma dificuldade, parece não ser valido 
deste modo:

Type
TDskReg = record  
  Serial  : String;
  TypeDsk : string;
  end;
TVolReg = record
  Letter  : String[1];
  Name: String;
  Serial  : String;
  NameLen : Integer;
  SysName : string;
  Size: Int64;
  Free: Int64;
  Used: Int64;
  end; 
THDDReg = record
  countDsk : Integer;
  Dsk : array of TDskReg;
  CountVol  : Integer;
  Vol  : array of TVolReg; 
  end;
Var
   HDD : THDDReg;

Begin
SetLength( hdd, 4 )
 HDD.countDsk := 4;
 HDD.Dsk[1].serial := serial;
 HDD.Dsk[2].TypeDsk := tDisk;
 bla bla bla
end;

ALLguem tem alguma sugestão ??


Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
---

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

[delphi-br] Re: [OFF] Boleto Bancoob

2008-08-19 Por tôpico auriston.delphi 
Leandro Boa Tarde.

O componente que vc usa para gerar o boleto bancoob e o gbboleto, se 
for vc poderia disponibilizar a documentacao correta e se possivel os 
*.pas, pois estou testando no bancoob da minha cidade, so que o 
pessoal daqui e amador, e eles nao tem conhecimento dos procedimentos.
sds


--- Em delphi-br@yahoogrupos.com.br, "Leandro" <[EMAIL PROTECTED]> escreveu
>
> Bom dia,
> 
> Tenho impressão de boleto Bancoob no meu sistema, mas estou com a 
seguinte situação.
> 
> O cliente tem duas contas, na mesma agência, com código do cedente 
igual.
> 
> Qdo imprimo o boleto, a conta não é levada em conta pra montar a 
linha digitável (seguindo o cálculo
> passado pelo banco), então o pagamento dos boletos caem em uma 
conta só.
> 
> Eu falei com o rapaz do banco que teria que ter um código do 
cedente pra cada conta, mas o caboclo
> tá teimando, falando que o sistema que tá errado.
> 
> Alguém já passou por isso? Ter cliente com duas contas no mesmo 
banco, imprimindo boleto?
> O código do cedente é o mesmo p/ as duas contas?
> 
> Obrigado,
> 
> Leandro
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Controle do D2005 para chamar os relatório do Crystal

2008-08-19 Por tôpico Alexsandro 
Favor,  Alguém conhece os controles do Delphi 2005 para chamar os 
relatórios do Crystal report ?
Eu já procurei na net + que tudo

RE: RES: [delphi-br] Criptografar Executável

2008-08-19 Por tôpico Rubem Nascimento da Rocha 

Procure em http://www.torry.net por Hidden Strings. Faça uma avaliação e 
verifique se isso não te ajuda em alguma coisa! Mais especificamente, 
http://www.torry.net/vcl/vcltools/text/gfglhiddenstrings.zip.
Sds.



To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 09:15:28 -0300
Subject: RES: [delphi-br] Criptografar Executável

Cara, se queres “criptografar” apenas uma mensagem, podes:

1) Deixar a string dela criptografada no teu código e na hora de
mostrar um descriptografa.

2) Gerar a mensagem na hora usando os códigos ASCII das letras ex: Para
ter ‘AB’, use chr(65) + chr(66).

3) Qualquer coisa coisa que a tua imaginação permitir.

--

José Henrique (Zote)

http://gofrom.us

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabio Thomaz
Enviada em: terça-feira, 19 de agosto de 2008 08:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criptografar Executável

A intensão não é esta, é que eu só queria fazer com que minguem pudesse ver
o conteúdo(strings, mensagens) do meu aplicativo, pois eu bolei um sistema
simples de proteção, uma verificação ao inicializar o sistema, onde existe
uma função que faz uma checagem, se for true libera senão fecha o sistema e
mostra a mensagem de acesso negado, sistema não registrado.
A muito tempo atrás estava vendo um artigo de uns caras que usavam umas
ferramentas para alterar o exe, achavam a mensagem de erro de licença,
trocava o je pelo jne, istro fazia com que o sistema entendesse o contrário
na condição, e ai pronto, era só digitar o código errado que liberava o
sistema, é claro que isto é apenas um exemplo, no meu caso isto não
funcionaria.
Não estou muito preocupado com isto pois só comercializo meus softwares aqui
na região, mas se alguém soubesse de algo fácil de usar não custava nada né.

2008/8/18 Walter Chagas Jr (BOL) <[EMAIL PROTECTED]
>

> Isso é bobagem.
>
> Se for para proteger seu exe contra descompiladores, não precisa se
> preocupar com isto porque o Delphi gera executável nativo x86 de forma que
> o
> que há em seu interior é código puro de maquina. Nem o algorítmo está
nele.
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED] 

> http://www.geocities.com/SiliconValley/Bay/1058
> http://delphitocorporerm.blogspot.com/
> MSN: [EMAIL PROTECTED] 

> SKYPE: WalterChagasJr
>
>
> - Original Message -
> From: "Fabio Thomaz" <[EMAIL PROTECTED]
 >
> To: 
> Sent: Thursday, August 14, 2008 4:11 PM
> Subject: [delphi-br] Criptografar Executável
>
> Alguém conhece algum programa para criptografar um executável?
> Conheço o HandProt, mas queria uma coisa mais fácil, só para criptografar
> mesmo, e de preferência free (caso exista).
>
> Fábio Thomaz
> RG System Informática Ltda - Desenvolvimento
> Msn: [EMAIL PROTECTED] 

>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do ESET NOD32 Antivirus, versão da vacina 3356
> (20080814) __
>
> A mensagem foi verificada pelo ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>

_
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



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] TProgressBar; TGauge

2008-08-19 Por tôpico Açaí 
Olá,
Faça o seguinte:
  Tjp(gauge1).Canvas.TextOut(1,-1,'Texto do Gauge');   //escreve o texto

  //outras formatações de fonte do gauge
  Tjp(gauge1).Canvas.brush.Style := bsclear;
  Tjp(gauge1).Canvas.Font.Color := clBtnFace;
  Tjp(gauge1).Canvas.brush.Style := bsclear;
  Tjp(gauge1).Canvas.Font.Color := clBtnFace;


2008/8/19 José Mário Silva Guedes <[EMAIL PROTECTED]>

>   Olá a todos.
>
> Preciso de algo parecido com o TGauge, mas que ao invés de mostrar o
> percentual, mostrasse um texto.
>
> Alguém tem alguma classe que implementa isto ou conhece alguma forma de
> implementar isso no próprio TGauge?
>
> Obrigado!
>
> --
> José Mário Silva Guedes
> Analista Programador Delphi
> http://pgviavel.blogspot.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


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

Re: RES: RES: RES: Res: [delphi-br] Salvar uma imagem

2008-08-19 Por tôpico Carlos 
Não tem problema meu camarada!
Apenas mude a linha

img1.Picture.SaveToFile('Caminho' + NomeDoArquivo);

Exemplo:
img1.Picture.SaveToFile('C:\Monit\bin\arqs\' +
 dmCadastro.cdsFotoFoto.Value);

O 'NomeDoArquivo' é o campo da tabela onde se encontra a imagem no
banco de dados.

Espero ter ajudado, mas qualquer coisa, estamos ai.
Fraterno abraço,
Carlos

Re: [delphi-br] Mudar de win xp para linux

2008-08-19 Por tôpico Gerson Machado 
Existem vários bancos que trabalham em ambiente Linux, ex: PostgreSQL, 
Firebird, Oracle.
Eu particularmente uso o PostgreSQL, http://www.postgresql.org/


--- Em ter, 19/8/08, Guionardo Furlan <[EMAIL PROTECTED]> escreveu:

De: Guionardo Furlan <[EMAIL PROTECTED]>
Assunto: Re: [delphi-br] Mudar de win xp para linux
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 19 de Agosto de 2008, 10:47






Que banco de dados? Vc poderia dar mais informações?

2008/8/19 auriston.delphi :
> Uma empresa a quem presto serviço, adquiriu um servidor Hp, e a revenda
> instalou o linux, e a primeira vez que vou usar um servidor linux.
>
> Veio instalado o samba, como procedo a transferencia do banco de dados,
> e so copiar ou tem que restaurar ?
>
> sds
>
> 

-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo. blogspot. com
 














  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] Re: Mudar de win xp para linux

2008-08-19 Por tôpico auriston.delphi 
firebird 1.5

--- Em delphi-br@yahoogrupos.com.br, "Guionardo Furlan" 
<[EMAIL PROTECTED]> escreveu
>
> Que banco de dados? Vc poderia dar mais informações?
> 
> 2008/8/19 auriston.delphi <[EMAIL PROTECTED]>:
> > Uma empresa a quem presto serviço, adquiriu um servidor Hp, e a 
revenda
> > instalou o linux, e a primeira vez que vou usar um servidor linux.
> >
> > Veio instalado o samba, como procedo a transferencia do banco de 
dados,
> > e so copiar ou tem que restaurar ?
> >
> > sds
> >
> > 
> 
> 
> 
> -- 
> Timeo hominem unius libri
> Cogito ergo sum - Carpe diem
> 
> []s
> Guionardo Furlan
> http://guionardo.blogspot.com
>

[delphi-br] dados de uma coluna dbgrid em uma statusbar

2008-08-19 Por tôpico Clovis iTelefonica 
Ola Pessoal
Saudações

Como faço para colocar informações de uma determinada coluna de uma dbgrid como 
hint em uma statusbar?
Obrigado

Clovito
   Clovis Machado Ferreira
Que o grande arquiteto do Universo nos Ilumine
Dourado(SP) - [EMAIL PROTECTED](MSN)

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

Re: [delphi-br] Mudar de win xp para linux

2008-08-19 Por tôpico Guionardo Furlan 
Que banco de dados? Vc poderia dar mais informações?

2008/8/19 auriston.delphi <[EMAIL PROTECTED]>:
> Uma empresa a quem presto serviço, adquiriu um servidor Hp, e a revenda
> instalou o linux, e a primeira vez que vou usar um servidor linux.
>
> Veio instalado o samba, como procedo a transferencia do banco de dados,
> e so copiar ou tem que restaurar ?
>
> sds
>
> 



-- 
Timeo hominem unius libri
Cogito ergo sum - Carpe diem

[]s
Guionardo Furlan
http://guionardo.blogspot.com

[delphi-br] Mudar de win xp para linux

2008-08-19 Por tôpico auriston.delphi 
Uma empresa a quem presto serviço, adquiriu um servidor Hp, e a revenda 
instalou o linux, e a primeira vez que vou usar um servidor linux.

Veio instalado o samba, como procedo a transferencia do banco de dados, 
e so copiar ou  tem que restaurar ?

sds

[delphi-br] TProgressBar; TGauge

2008-08-19 Por tôpico José Mário Silva Guedes 
Olá a todos.

Preciso de algo parecido com o TGauge, mas que ao invés de mostrar o
percentual, mostrasse um texto.

Alguém tem alguma classe que implementa isto ou conhece alguma forma de
implementar isso no próprio TGauge?

Obrigado!

-- 
José Mário Silva Guedes
Analista Programador Delphi
http://pgviavel.blogspot.com/


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

[delphi-br] Re: sdsConsulta: Field 'final' not found - Resolvido

2008-08-19 Por tôpico Carlos 
Conforme informei no início do tópico, foi vacilada deste.
Eu havia definido um índice com três campos no banco de dados, e na
consulta, só pedia um campo. Como não estava usando o índice, e o
sistema não é algo fenomenal de quantidade de dados, preferi retirar o
índice.
Agradeço antecipadamente aos colegas pela ajuda, e precisando, estamos ai.
Fraterno abraço,
Carlos

RES: [delphi-br] Criptografar Executável

2008-08-19 Por tôpico Zote 
Cara, se queres “criptografar” apenas uma mensagem, podes:

1)  Deixar a string dela criptografada no teu código e na hora de
mostrar um descriptografa.

2)  Gerar a mensagem na hora usando os códigos ASCII das letras ex: Para
ter ‘AB’, use chr(65) + chr(66).

3)  Qualquer coisa coisa que a tua imaginação permitir.

 

--

José Henrique (Zote)

http://gofrom.us

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabio Thomaz
Enviada em: terça-feira, 19 de agosto de 2008 08:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Criptografar Executável

 

A intensão não é esta, é que eu só queria fazer com que minguem pudesse ver
o conteúdo(strings, mensagens) do meu aplicativo, pois eu bolei um sistema
simples de proteção, uma verificação ao inicializar o sistema, onde existe
uma função que faz uma checagem, se for true libera senão fecha o sistema e
mostra a mensagem de acesso negado, sistema não registrado.
A muito tempo atrás estava vendo um artigo de uns caras que usavam umas
ferramentas para alterar o exe, achavam a mensagem de erro de licença,
trocava o je pelo jne, istro fazia com que o sistema entendesse o contrário
na condição, e ai pronto, era só digitar o código errado que liberava o
sistema, é claro que isto é apenas um exemplo, no meu caso isto não
funcionaria.
Não estou muito preocupado com isto pois só comercializo meus softwares aqui
na região, mas se alguém soubesse de algo fácil de usar não custava nada né.

2008/8/18 Walter Chagas Jr (BOL) <[EMAIL PROTECTED]
 >

> Isso é bobagem.
>
> Se for para proteger seu exe contra descompiladores, não precisa se
> preocupar com isto porque o Delphi gera executável nativo x86 de forma que
> o
> que há em seu interior é código puro de maquina. Nem o algorítmo está
nele.
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED] 

> http://www.geocities.com/SiliconValley/Bay/1058
> http://delphitocorporerm.blogspot.com/
> MSN: [EMAIL PROTECTED] 

> SKYPE: WalterChagasJr
>
>
> - Original Message -
> From: "Fabio Thomaz" <[EMAIL PROTECTED]
  >
> To: mailto:delphi-br%40yahoogrupos.com.br>
>
> Sent: Thursday, August 14, 2008 4:11 PM
> Subject: [delphi-br] Criptografar Executável
>
> Alguém conhece algum programa para criptografar um executável?
> Conheço o HandProt, mas queria uma coisa mais fácil, só para criptografar
> mesmo, e de preferência free (caso exista).
>
> Fábio Thomaz
> RG System Informática Ltda - Desenvolvimento
> Msn: [EMAIL PROTECTED] 

>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do ESET NOD32 Antivirus, versão da vacina 3356
> (20080814) __
>
> A mensagem foi verificada pelo ESET NOD32 Antivirus.
>
> http://www.eset.com
>
> 
>

-- 
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Fone: (27) 3727-1127
Celular: (27) 9947-0459
Msn: [EMAIL PROTECTED]  

[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] Criptografar Executável

2008-08-19 Por tôpico Fabio Thomaz 
A intensão não é esta, é que eu só queria fazer com que minguem pudesse ver
o conteúdo(strings, mensagens) do meu aplicativo, pois eu bolei um sistema
simples de proteção, uma verificação ao inicializar o sistema, onde existe
uma função que faz uma checagem, se for true libera senão fecha o sistema e
mostra a mensagem de acesso negado, sistema não registrado.
A muito tempo atrás estava vendo um artigo de uns caras que usavam umas
ferramentas para alterar o exe, achavam a mensagem de erro de licença,
trocava o je pelo jne, istro fazia com que o sistema entendesse o contrário
na condição, e ai pronto, era só digitar o código errado que liberava o
sistema, é claro que isto é apenas um exemplo, no meu caso isto não
funcionaria.
Não estou muito preocupado com isto pois só comercializo meus softwares aqui
na região, mas se alguém soubesse de algo fácil de usar não custava nada né.


2008/8/18 Walter Chagas Jr (BOL) <[EMAIL PROTECTED]>

>   Isso é bobagem.
>
> Se for para proteger seu exe contra descompiladores, não precisa se
> preocupar com isto porque o Delphi gera executável nativo x86 de forma que
> o
> que há em seu interior é código puro de maquina. Nem o algorítmo está nele.
>
> []s
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED] 
> http://www.geocities.com/SiliconValley/Bay/1058
> http://delphitocorporerm.blogspot.com/
> MSN: [EMAIL PROTECTED] 
> SKYPE: WalterChagasJr
>
>
> - Original Message -
> From: "Fabio Thomaz" <[EMAIL PROTECTED] >
> To: >
> Sent: Thursday, August 14, 2008 4:11 PM
> Subject: [delphi-br] Criptografar Executável
>
> Alguém conhece algum programa para criptografar um executável?
> Conheço o HandProt, mas queria uma coisa mais fácil, só para criptografar
> mesmo, e de preferência free (caso exista).
>
> Fábio Thomaz
> RG System Informática Ltda - Desenvolvimento
> Msn: [EMAIL PROTECTED] 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __ Informação do ESET NOD32 Antivirus, versão da vacina 3356
> (20080814) __
>
> A mensagem foi verificada pelo ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>  
>



-- 
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Fone: (27) 3727-1127
Celular: (27) 9947-0459
Msn: [EMAIL PROTECTED]


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

[delphi-br] Tecla atalho F12 e F11

2008-08-19 Por tôpico Robson D. Bento 
Olá

Utilizo direto os atalhos F12 e F11 para alternar entre  o form e o codigo
no desenvolvimento com delphi 7,
Alguém sabe se é possível trocar estas duas funções para outra tela ex:
usando 'F1' e 'F2' do teclado, acho que seria mais confortavel.

-- 
thank you very much
Robson
[EMAIL PROTECTED]


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

RES: RES: RES: RES: Res: [delphi-br] Salvar uma imagem

2008-08-19 Por tôpico Dimas Bolognani 
Bom dia,

 

Este banco q to tentando extrair as fotos não é meu e sim de um outro
programa onde estou fazendo a conversão dos dados para o meu sistema, e não
sei

Se as fotos foram salvas em .JPG ou BMP.. e se foram slavas em BMP?

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em: segunda-feira, 18 de agosto de 2008 23:50
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: RES: Res: [delphi-br] Salvar uma imagem

 

Meu camarada, boa noite!
Você informou que a imagem já está salva no banco de dados em formato
JPG correto.

Em caso afirmativo, eu pus no meu form um TImage(propriedade visible =
false), e usei a função ExibeFoto para inseri-la no TImage desta forma:

TImage.Picture := nil;
ExibeFoto(Nome do DataSet, 'campo', TImage);

neste momento a imagem está no TImage;

para salva-la em disco, eu uso desta forma:

TImage.Picture.SaveToFile('Nome do caminho a ser salvo tipo C:\temp\' +
Nome do dataSet com o campo ex: DataSetFoto.Value + '.jpg');

limpo o TImage

TImage.Picture := Nil

veja o pedaço do meu código e veja se consegue achar o erro:

img1.Picture := nil;
ExibeFoto(dmCadastro.cdsFoto, 'foto', img1);
img1.Picture.SaveToFile('C:\Monit\bin\arqs\' +
dmCadastro.cdsFotonome.Value + '.jpg');
img1.Picture := nil;

Espero ter ajudado.
Fraterno abraço,
Carlos

 

No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.6.5/1619 - Release Date: 18/8/2008
17:39


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

[delphi-br] Crystal do Delphi 2005

2008-08-19 Por tôpico Alexsandro 
Boa tarde,
Alguem sabe como abrir os relatórios do crystal report que vem no 
delphi 2005 ? 
Sei que no menu Component  >>Import Component >> opção import activex 

lá tem o  Crystal Report Viewer Control e outros...

Alguem pode me ajudar a usar ?

Re: [delphi-br] sdsConsulta: Field 'final' not found

2008-08-19 Por tôpico Evandro Ricardo Silvestre 
Verifique também se não tem nenhum objeto na tela que utiliza o cds e 
está com o campo 'final'. Recomendo fazer a pesquisa direto no .dfm, 
assim não tem como errar.
Aproveite e veja também se não tem nada no cds.filter que utiliza esse 
campo.

Att

Evandro
> O2 Tecnologia (aJato) wrote:
>> Já checou se no cdsData não tem o campo FINAL atrelado lista de campos 
>> habilitados ?
>>
>> Carlos escreveu:
>>   
>>> Senhores, boa tarde!
>>> Talvez senha bizonhada deste, mas tenho um DataModule Consulta, onde
>>> possuo um SQLDataSet e um DataSetProvider(com a opção
>>> poAllowCommandTex = True) e vários ClientDataSet vinculados a eles. As
>>> consultas funcionam que é uma maravilha(como é de se esperar), mas tem
>>> uma que está me matando...
>>> a instrução sql é 'select distinct(lancamento) as lanc from infor' e
>>> pela lógica ele só tem um campo(lanc), mas quando mando executar
>>> dmConsulta.cdsData.Close;
>>> dmConsulta.cdsData.CommandText := '';
>>> dmConsulta.cdsData.CommandText :=
>>> 'select distinct(lancamento) as lanc from ' +
>>> 'infor where lanc between ' +
>>>  + FormatDateTime('-mm-dd', dtp1.Date) + ''' and ' +
>>>  + FormatDateTime('-mm-dd', dtp2.Date) + ;
>>> dmConsulta.cdsData.Open;
>>>
>>> Na hora de abrir a consulta, ele dá o erro: 'sdsConsulta: Field
>>> 'final' not found'.
>>> Já vistoriei tudo, mas estou apanhando feio(uma coisa tão básica destas).
>>>
>>> Qualquer auxílio, é bem vindo.
>>> Fraterno abraço,
>>> Carlos
>>>
>>>
>>>

RES: [delphi-br] Banco de dados

2008-08-19 Por tôpico Juliano Silva - Yahoo 
Lembrando, após fazer a analise de ambiente, coloque no comparativo também o
POSTGREE

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Walter Chagas Jr (BOL)
Enviada em: segunda-feira, 18 de agosto de 2008 08:44
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Banco de dados

 

Pelo historico que temos nas diversas listas de discussão a respeito de 
bancos de dados, acho que a melhor propostaf para aplicações de médio porte 
para pequenas redes (Máximo uns 10/15 estações) seria o Firebird.
[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]  
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: [EMAIL PROTECTED]  
SKYPE: WalterChagasJr

- Original Message - 
From: "Vinicius Santos - MSI" <[EMAIL PROTECTED]
 >
To: mailto:delphi-br%40yahoogrupos.com.br> >
Sent: Friday, August 15, 2008 5:13 PM
Subject: Re: [delphi-br] Banco de dados

Meu amigo, esse assunto não é tão simples assim...
Adotar um Banco ao invés de outro depende muito do tipo de aplicação que vc 
vai usar: OLTP, BI, WEB, em algumas situações um se sai melhor que o outro, 
vc não usaria Oracle, para simples cadastro em um site web, para isso vc 
usaria MySQL e por ai vai.

Vinicius dos Santos
http://www.msisolucoes.com.br

- Original Message - 
From: [EMAIL PROTECTED]  
To: delphi-br@yahoogrupos.com.br  
Sent: Friday, August 15, 2008 2:42 PM
Subject: [delphi-br] Banco de dados

Pergunta de quem não entende do assunto ...
Essa discussão de banco de dados ... Firebird, DBIsam, Paradox ... etc etc
gostaria de saber o sgte ... o que leva um ser melhor q outro ...
que características sugerem a utilização de um em vezde outro ...
tendo em vista que os acessos e organização de dados é desenvolvida em
delphi ..
obrigado 

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!

_

De: delphi-br@yahoogrupos.com.br 
[mailto:delphi-br@yahoogrupos.com.br 
] Em
nome de Alexandre Rodrigues
Enviada em: terça-feira, 12 de agosto de 2008 23:43
Para: delphi-br@yahoogrupos.com.br  
Assunto: Re: [delphi-br] Exportar imagem JPG do banco de dados para 
arquivo
em disco

FileOut := TFileStream.Create('C:\Nome_do_arquivo.jpg', fmCreate or
fmShareExclusive);
try
BlobField(qryFiles.FieldByName('file')).SaveToStream(FileOut );
finally
FileOut.Free;
end;

Carlos escreveu:
>
>
> Boa noite senhores!
> Tem hora que esta vida se torna cansativa. Imaginem os senhores que
> consegui, na minha opinião, o mais difícil, ou seja, o usuário clica
> no botão, é criado uma pasta em tempo de execução, adicionado arquivos
> nesta pasta, abre-se o Outlook já inserindo os destinatários,
> pré-estabelecidos em uma tabela, o usuário só tem o trabalho de
> colocar o assunto e o texto que deseja...mas...tudo sempre tem um
> mas...eu não estou conseguindo salvar as imagens em formato jpg que se
> encontram salvas no banco de dados para esta pasta, perdi quase o dia
> todo com isto, e então, após procurar no google e na lista, decidi
> importuna-los com mais esta dúvida/problema.
> Agradeço antecipadamente qualquer auxílio.
> Fraterno abraço,
> Carlos
>
>

___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo. 
com/mailbeta/tudonovo/

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

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

__ Informação do ESET NOD32 Antivirus, versão da vacina 3359 
(20080815) __

A mensagem foi verificada pelo ESET NOD32 Antivirus.

http://www.eset.com

 



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