[delphi-br] Arquivo - comandos.txt
Comandos e endereços especiais do servidor eGroups - Lista delphi-br [EMAIL PROTECTED] para postar uma mensagem para a lista [EMAIL PROTECTED] manda um email para TODOS os owners e moderadores. Tanto pode ser usado pelo assinante (ou não) para comunicação direta com os responsáveis, QUANTO pode ser usado pelos próprios owners como se fosse uma listinha privativa dos moderadores, para discussão de questões administrativas da lista sem a ciência dos membros normais. Endereços de Comandos: (Envie uma msg em branco) [EMAIL PROTECTED] assina a lista [EMAIL PROTECTED] cancela a assinatura da lista [EMAIL PROTECTED] Ativa modo NO MAIL - suspende temporariamente a entrega de e-mails, sem sair da lista [EMAIL PROTECTED] Ativa modo DIGEST - Assinante passa a receber as mensagens em modo Digest (uma única mensagem é enviada, com todo texto, a cada final de dia, ou a cada vez que houverem 25 mensagens - o que ocorrer primeiro) [EMAIL PROTECTED] Desativa NO MAIL ou DIGEST - Estando em modo digest ou no mail, o assinante volta ao modo NORMAL de recebimento por e-mails individuais. Obs. Note que o e-mail remetente deve ser o mesmo e-mail de recebimento das mensagens. -- 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] Arquivo - Files.txt
COMO OBTER ACESSO À SEÇÃO DE ARQUIVOS DA LISTA. --- Para ter acesso à todos os recursos da Lista Delphi-BR, você precisa estar inscrito no YahooGrupos. Todas as listas hospedadas pelo YahooGrupos possuem espaço para disponibilização de arquivos, enquetes, fotos, URL's e histórico de mensagens, entre outros recursos. Os passos abaixo o auxiliarão no acesso à seção de arquivos da lista: - Acesse o site da lista http://lista.delphi-br.org/. - Clique no link Entre neste grupo. - Irá aparecer uma caixa de diálogo pedindo um login e uma senha do YahooGrupos. Quem já for filiado ao YahooGrupos por outros motivos, bastará digitar seu login e sua senha nos respectivos locais para que o mesmo vincule sua conta à lista. NOTA: Este cadastro é independente da sua inscrição na mesma feita via e-mail. - Após digitar seu login e senha do YahooGrupos e confirmar volte à página do grupo e verifique se todos os links da esquerda estão habilitados (Mensagens, Arquivos, Enviar, Bate-Papo, etc..). Caso não esteja mas você já seja membro do grupo, é sinal que você precisará ativar a sua conta no YahooGrupos com o mesmo. Neste caso o link que irá aparecer será Editar minhas opções. - Se você não tem conta no YahooGrupos, clique no link Cadastre-se agora. - Para quem não é associado, preencha todos os dados e confirme o envio. Lhe será enviada, pelo e-mail que você definiu, uma senha com a qual você passa a ter acesso aos serviços do Yahoo entre eles a lista de discussão. - Após este cadastro, volte ao endereço do site da lista e clique no link Entre neste grupo. Verás que aparecerá uma tela de cadastro DO SEU PERFIL NO GRUPO. Basta cofigurar tudo do jeito que você desejar e confirme as alterações. - Feito isto, você verá que quando voltar ao site da lista novas opções estarão disponíveis para você, entre as quais a área Arquivos que é a área onde você pode baixar os arquivos que o pessoal disponibiliza na lista. Quaisquer dúvidas, favor contactar o moderador da lista: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Dbgrid
Bom dia pessoal, alguém sabe se tem como fazer com que sejam exibidos em um dbgrid linhas de duas ou mais tabelas diferentes. grato Jõão [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Dbgrid
Através de select sim. Eduardo João S. Araújo escreveu: Bom dia pessoal, alguém sabe se tem como fazer com que sejam exibidos em um dbgrid linhas de duas ou mais tabelas diferentes. grato Jõão [As partes desta mensagem que não continham texto foram removidas] ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Dbgrid
Eduardo, só me mata uma dúvida, eu queria que as informações de cada tabela ficassem na mesma linha do dbgrid. É só fazer o select nas duas tabelas mesmo ou tem mais alguma coisa? Obrigado João - Original Message - From: Eduardo - Delphi [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, October 08, 2006 9:49 AM Subject: Re: [delphi-br] Dbgrid Através de select sim. Eduardo João S. Araújo escreveu: Bom dia pessoal, alguém sabe se tem como fazer com que sejam exibidos em um dbgrid linhas de duas ou mais tabelas diferentes. grato Jõão [As partes desta mensagem que não continham texto foram removidas] ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Dbgrid
Select c.Nome_Cliente, p.Data_Pedido, i.item, pd.nome from Cliente C, Pedido P, Item_Pedido I, Produto PD where c.codcliente = p.codcliente and p.codpedido = i.codpedido and i.codproduto = pd.codproduto Quatro tabelas na mesma linha. Eduardo João S. Araújo escreveu: Eduardo, só me mata uma dúvida, eu queria que as informações de cada tabela ficassem na mesma linha do dbgrid. É só fazer o select nas duas tabelas mesmo ou tem mais alguma coisa? Obrigado João - Original Message - From: Eduardo - Delphi [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, October 08, 2006 9:49 AM Subject: Re: [delphi-br] Dbgrid Através de select sim. Eduardo João S. Araújo escreveu: Bom dia pessoal, alguém sabe se tem como fazer com que sejam exibidos em um dbgrid linhas de duas ou mais tabelas diferentes. grato Jõão [As partes desta mensagem que não continham texto foram removidas] ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- 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]
Olá Leonardo,
Tente o Seguinte:
DtmDados.cdsFunc.Open;
for i := 0 to dbgrid1.SelectedRows.Count - 1 do
Begin
DtmDados.cdsFunc.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
DtmDados.cdsFunc.Edit;
*DtmDados.cdsFunc.Filtered := False;*
*DtmDados.cdsFunc.filter := 'ID_FUNC = '+
String_com_o_codigo_do_funcionario;*
*DtmDados.cdsFunc.Filtered:=true;
*DtmDados.cdsFunc.FieldByName('NOTA').AsString:=edNota.Text;
DtmDados.cdsFunc.Post;
End;
Talvéz você possa utilizar esta propriedade do Filtered de outra forma, de
maneira que atenda sua necessidade. Lembrando. O Filtered atua como um and
no SQL.
boa sorte!
Alexandre Macedo
2006/10/5, Leonardo Ribeiro [EMAIL PROTECTED]:
Estou com o seguinte problema utilizo o codigo abaixo pra modificar o
campo
notas para vários registros em um dbgrid:
i: Integer;
begin
DtmDados.cdsFunc.Open;
for i := 0 to dbgrid1.SelectedRows.Count - 1 do
Begin
DtmDados.cdsFunc.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
DtmDados.cdsFunc.Edit;
DtmDados.cdsFunc.FieldByName('NOTA').AsString:=edNota.Text;
DtmDados.cdsFunc.Post;
End;
Funciona direito quando tenho todos os registros do BD no dbgrid,
mas quando faço uma pesquisa por exemplo por empresa não dá certo,
porque ele ta modificando baseando na linha do DBGrid(
DBGrid1.SelectedRows.Items[i]),
e eu preciso que ele baseie no campo ID_FUNC, que é o registro do usuário,
alguem sabe como fazer?
--
Leonardo Ribeiro (DarkAvenger)
MSN: [EMAIL PROTECTED]
Ipatinga - MG
Slackware is the real nerds
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
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] Iniciante com duvidas...
Olá Cláudio, Sou Analista de Sistemas a mais de 5 anos. Já trabalhei com o VB no início e me adaptei para o Delphi neste período. Em todos os projetos em que me envolvi o Delphi permitiu que eu pudesse resolver absolutamente todas as questões sobre o projeto do software com uma boa otimização do trabalho. Não sei se ajudou mas aí vai minha sugestão. Sds, Alexandre Macedo Especialista em TI Aplicada Gestão Estratégica dos Negócios 2006/10/4, claudio.saocarlos [EMAIL PROTECTED]: Bom dia a todos do grupo. Sou um antigo rpogramador em Clipper 5,2 e estou definitivamente decidio a mudar para programação orientada a objetos. Tenho duvidas sobre qual linguagem me aprofundar e gostaria que as pessoas do grupo com conhecimento em Delphi e VB pudessem me ajudar a tomar esta decisão. Gostaria de saber quais são os prós e contras que existem entre as duas linguagens. Para que tipo d eaplicativos uma é melhor que a outra, etc... Tenho que admitir que tenho uma queda para o Delphi, alias ja fiz pequeninhas coisas em delphi a alguns anos atras, mas gostaria da opinião de pessoas com amis conhecimento que eu. Desde ja fico agradecido aos que puderem me ajudar. Arabço Claudio [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Numero fisico do HD
//serial físico, aquele que vem de fábrica e não muda depois da
formatação
function GetIdeDiskSerialNumber : String;
type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature: Array[0..7] of Char;
Timeout : ULONG;
ControlCode : ULONG;
ReturnCode : ULONG;
Length : ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
PSrbIoControl = ^TSrbIoControl;
TIDERegs = packed record
bFeaturesReg : Byte; // especificar comandos SMART
bSectorCountReg : Byte; // registro de contador de setor
bSectorNumberReg : Byte; // registro de número de setores
bCylLowReg : Byte; // valor de cilindro (byte mais baixo)
bCylHighReg : Byte; // valor de cilindro (byte mais alto)
bDriveHeadReg: Byte; // registro de drive/cabeça
bCommandReg : Byte; // comando IDE
bReserved: Byte; // reservado- tem que ser zero
end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;
TSendCmdInParams = packed record
cBufferSize : DWORD;
irDriveRegs : TIDERegs;
bDriveNumber : Byte;
bReserved: Array[0..2] of Byte;
dwReserved : Array[0..3] of DWORD;
bBuffer : Array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;
TIdSector = packed record
wGenConfig : Word;
wNumCyls : Word;
wReserved : Word;
wNumHeads : Word;
wBytesPerTrack : Word;
wBytesPerSector: Word;
wSectorsPerTrack : Word;
wVendorUnique : Array[0..2] of Word;
sSerialNumber : Array[0..19] of Char;
wBufferType: Word;
wBufferSize: Word;
wECCSize : Word;
sFirmwareRev : Array[0..7] of Char;
sModelNumber : Array[0..39] of Char;
wMoreVendorUnique : Word;
wDoubleWordIO : Word;
wCapabilities : Word;
wReserved1 : Word;
wPIOTiming : Word;
wDMATiming : Word;
wBS: Word;
wNumCurrentCyls: Word;
wNumCurrentHeads : Word;
wNumCurrentSectorsPerTrack : Word;
ulCurrentSectorCapacity: ULONG;
wMultSectorStuff : Word;
ulTotalAddressableSectors : ULONG;
wSingleWordDMA : Word;
wMultiWordDMA : Word;
bReserved : Array[0..127] of Byte;
end;
PIdSector = ^TIdSector;
const
IDE_ID_FUNCTION = $EC;
IDENTIFY_BUFFER_SIZE = 512;
DFP_RECEIVE_DRIVE_DATA= $0007c088;
IOCTL_SCSI_MINIPORT = $0004d008;
IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;
DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;
BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;
W9xBufferSize = IDENTIFY_BUFFER_SIZE+16;
var
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; // PSendCmdOutParams
Buffer : Array[0..BufferSize-1] of Byte;
srbControl : TSrbIoControl absolute Buffer;
procedure ChangeByteOrder( var Data; Size : Integer );
var ptr : PChar;
i : Integer;
c : Char;
begin
ptr := @Data;
for i := 0 to (Size shr 1)-1 do
begin
c := ptr^;
ptr^ := (ptr+1)^;
(ptr+1)^ := c;
Inc(ptr,2);
end;
end;
begin
Result := '';
FillChar(Buffer,BufferSize,#0);
if Win32Platform=VER_PLATFORM_WIN32_NT then
// Windows NT, Windows 2000, Windows XP
begin
// recuperar handle da porta SCSI
hDevice := CreateFile('\\.\Scsi0:',
// Nota: '\\.\C:' precisa de privilégios administrativos
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.Signature,8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData := PSendCmdInParams(PChar(@Buffer)
+SizeOf(SRB_IO_CONTROL));
pOutData := pInData;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg:= $A0;
Re: [delphi-br] [urgente] propiedades de componente
Olá Rafael, Bom os componentes que possuem a propriedade Text a exemplo do Edit são herdados da Classe TEditCustom. Por isso você póderá utilizar o seguinte: for i:=0 to TForm(sender).ComponentCount-1 do if TForm(sender).Components[i] is TCustomEdit then begin (TForm(sender).Components[i] as TCustomEdit ).Text := ''; Espero ter contribuído. Sds, Alexandre Macedo 2006/10/6, Rafael Jorge [EMAIL PROTECTED]: como eu faço pra saber se tal compomente tem uma determinada propiedade?? exemplo eu quero varrer o form e apagar os textos de todos os compomentes que tem a propiedade text. ai faria assim... for i := 0 to self.componentscount -1 do if (fu) self.components[i] (funcao que diz se tem a proiedade ou nao) -- Rafael jorge alves www.itrecife.com - para verem meus artigos e trabalhos t+ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como Implementar Delphi utilizando o modelo Orientado a Objeto
Anderson, Você já fez algum projeto de aplicação em três (ou mais) camadas utilizando o Bold? Verifiquei alguma documentação sobre o Bold na Internet (São Google) e gostaria de alguma referência sobre projetos multicamadas feitos com ele, que é o tipo de projeto que desenvolvemos aqui... O Bold só está disponível na versão Architect do Delphi 7... Atenciosamente, Danilo Valente - Original Message - From: anderson To: delphi-br@yahoogrupos.com.br Sent: Friday, October 06, 2006 9:51 AM Subject: RES: [delphi-br] Como Implementar Delphi utilizando o modelo Orientado a Objeto No delphi 7 vc tem o BOLD que é a base do próprio ECO ... isto nas versoes Enterprise e Arc _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Danilo Valente Enviada em: quinta-feira, 5 de outubro de 2006 14:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como Implementar Delphi utilizando o modelo Orientado a Objeto Anderson, Aqui ainda utilizamos o Delphi 7 em nosso projeto que está em produção, por isso não cogitamos o ECO... Basicamente adicionamos recursos similares de mapeamento objeto-relacional (o ECO ainda possui recursos de geração automática de interface com o usuário), mas sem ter que aumentar o nosso orçamento com a aquisição do BDS 2006. Talvez com o advento dos Turbo realmente o ECO passe a ser uma boa opção para o nosso caso, mas por hora está fora de cogitação atualizar as licenças de toda a equipe. Para desenvolver multicamadas e multibancos (como é o nosso caso) seria interessante um Turbo Enterprise, mas infelizmente ainda não existe. Atenciosamente, Danilo Valente - Original Message - From: anderson To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 05, 2006 11:44 AM Subject: RES: [delphi-br] Como Implementar Delphi utilizando o modelo Orientado a Objeto Não sei quanto a voces, mas já deram uma olhada no ECO III do próprio delphi 2006 ? É simplemente maravilho e completíssimo ! Vale a pena... Anderson Valério da Silva _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Danilo Valente Enviada em: quarta-feira, 4 de outubro de 2006 16:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como Implementar Delphi utilizando o modelo Orientado a Objeto O Cesar Romero não está mais atualizando, mas o produto continua sendo atualizado porque é Open Source, eu mesmo já fiz uma série de melhorias para otimizar o funcionamento em Threads... Basta conhecer um pouco e ter disposição para colocar a mão na massa... Atenciosamente, Danilo Valente - Original Message - From: Joao Morais To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 04, 2006 10:05 AM Subject: Re: [delphi-br] Como Implementar Delphi utilizando o modelo Orientado a Objeto Danilo Valente wrote: Eduardo, Você já ouviu falar no DePO (Delphi Persistent Objects)? É um framework de mapeamento objeto-relacional para o Delphi, que faz esse trabalho de encapsulamento do acesso ao banco de dados que o João comentou. Essa ferramenta é free e open source, se você quiser posso te passar os fontes e um tutorial em private... Você ainda tem - InstantObjects (www.instantobjects.org) para fazer mapeamento e persistência; - tiOPF (vide google) que também faz mapeamento e persistêcia; e - PressObjects (www.pressobjects.org/ptbr) que é um framework para criar aplicações orientadas a objeto, fazendo persistência através de um broker. O Depo está descontinuado, o autor do mesmo, Cesar Romero, está tocando outro projeto que fará persistencia -- jazz.liws.com.br As ordens, -- João Morais [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Re: Numero fisico do HD
Essa funções só funciona se o recuso de S.M.A.R.T. da placa mãe estiver
ativo. Podem testar essa função desabilitando o recurso de S.M.A.R.T. e ver
se ela retorna ainda assim o serial físico do HD.
Sds.
From: fabio_giro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: Numero fisico do HD
Date: Fri, 06 Oct 2006 17:12:16 -
//serial físico, aquele que vem de fábrica e não muda depois da
formatação
function GetIdeDiskSerialNumber : String;
type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature: Array[0..7] of Char;
Timeout : ULONG;
ControlCode : ULONG;
ReturnCode : ULONG;
Length : ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
PSrbIoControl = ^TSrbIoControl;
TIDERegs = packed record
bFeaturesReg : Byte; // especificar comandos SMART
bSectorCountReg : Byte; // registro de contador de setor
bSectorNumberReg : Byte; // registro de número de setores
bCylLowReg : Byte; // valor de cilindro (byte mais baixo)
bCylHighReg : Byte; // valor de cilindro (byte mais alto)
bDriveHeadReg: Byte; // registro de drive/cabeça
bCommandReg : Byte; // comando IDE
bReserved: Byte; // reservado- tem que ser zero
end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;
TSendCmdInParams = packed record
cBufferSize : DWORD;
irDriveRegs : TIDERegs;
bDriveNumber : Byte;
bReserved: Array[0..2] of Byte;
dwReserved : Array[0..3] of DWORD;
bBuffer : Array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;
TIdSector = packed record
wGenConfig : Word;
wNumCyls : Word;
wReserved : Word;
wNumHeads : Word;
wBytesPerTrack : Word;
wBytesPerSector: Word;
wSectorsPerTrack : Word;
wVendorUnique : Array[0..2] of Word;
sSerialNumber : Array[0..19] of Char;
wBufferType: Word;
wBufferSize: Word;
wECCSize : Word;
sFirmwareRev : Array[0..7] of Char;
sModelNumber : Array[0..39] of Char;
wMoreVendorUnique : Word;
wDoubleWordIO : Word;
wCapabilities : Word;
wReserved1 : Word;
wPIOTiming : Word;
wDMATiming : Word;
wBS: Word;
wNumCurrentCyls: Word;
wNumCurrentHeads : Word;
wNumCurrentSectorsPerTrack : Word;
ulCurrentSectorCapacity: ULONG;
wMultSectorStuff : Word;
ulTotalAddressableSectors : ULONG;
wSingleWordDMA : Word;
wMultiWordDMA : Word;
bReserved : Array[0..127] of Byte;
end;
PIdSector = ^TIdSector;
const
IDE_ID_FUNCTION = $EC;
IDENTIFY_BUFFER_SIZE = 512;
DFP_RECEIVE_DRIVE_DATA= $0007c088;
IOCTL_SCSI_MINIPORT = $0004d008;
IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;
DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;
BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;
W9xBufferSize = IDENTIFY_BUFFER_SIZE+16;
var
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; // PSendCmdOutParams
Buffer : Array[0..BufferSize-1] of Byte;
srbControl : TSrbIoControl absolute Buffer;
procedure ChangeByteOrder( var Data; Size : Integer );
var ptr : PChar;
i : Integer;
c : Char;
begin
ptr := @Data;
for i := 0 to (Size shr 1)-1 do
begin
c := ptr^;
ptr^ := (ptr+1)^;
(ptr+1)^ := c;
Inc(ptr,2);
end;
end;
begin
Result := '';
FillChar(Buffer,BufferSize,#0);
if Win32Platform=VER_PLATFORM_WIN32_NT then
// Windows NT, Windows 2000, Windows XP
begin
// recuperar handle da porta SCSI
hDevice := CreateFile('\\.\Scsi0:',
// Nota: '\\.\C:' precisa de privilégios administrativos
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.Signature,8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData :=
[delphi-br] ClienteDataset com campo aggregate
Olá pessoal. Estou com o seguinte problema. Eu criei um ClienteDataset no delphi7, ele tem um campo valor e um campo aggregate total que seria a soma de todos os valores: sum(valor). O problema é que quando eu tento acessar o valor do campo aparece a mensagem: Não é possível acessar o campo Total do tipo float. O dataset está configurado para calcular os campos aggregate, o campo total está habilitado e visível. E tem um índice para o campo valor. Se alguém puder me ajudar eu agradeceria muito. Obrigado. -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Arrastar formulário pela tela
Caros colegas da lista, como faço para evitar que o usuário do meu sistema arraste o form principal pela tela...meu form tem q ficar sempre com left 0 e top 0. Entao, se o usuario manter pressionado o mouse sobre a barra de titulo do form e arrastá-lo, essa ação deve ser bloqueada pelo meu sistema...como devo proceder isso?? Aguardo retorno... Obrigado Sérgio -- 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] Alguem me ajuda por favor. (Re: Acessar DLL com duas classes no delphi 7.)
Pessoal abaixo está o que o PE Explorer leu da dll:
//Version: 139.0
ftrFingerCentre;
GUID = {4B093D0A-EBD8-43E9-ACBB-DA81E4893881};
Dispatch _Capture;
GUID = {72B2107C-CFFA-49FF-AC33-0DAAE45DA97D};
function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
function AddRef: UI4; stdcall;
function Release: UI4; stdcall;
function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo:
^^VOID); stdcall;
function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT;
lcid: UI4; out rgdispid: ^I4); stdcall;
function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags:
UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out
pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
function GetEnrollData: BSTR; stdcall;
function GetCaptureData: BSTR; stdcall;
function FPIdentify(out strPath: ^BSTR; out strName: ^BSTR): BSTR;
stdcall;
CoClass Capture;
GUID = {1FE82766-E0DD-4B3E-AE92-99A14DE995CF};
Dispatch _Match;
GUID = {F5659224-943A-42DD-B2E6-B58BCE5FEB06};
function QueryInterface(riid: ^GUID; out ppvObj: ^^VOID); stdcall;
function AddRef: UI4; stdcall;
function Release: UI4; stdcall;
function GetTypeInfoCount(out pctinfo: ^UINT); stdcall;
function GetTypeInfo(itinfo: UINT; lcid: UI4; out pptinfo:
^^VOID); stdcall;
function GetIDsOfNames(riid: ^GUID; rgszNames: ^^I1; cNames: UINT;
lcid: UI4; out rgdispid: ^I4); stdcall;
function Invoke(dispidMember: I4; riid: ^GUID; lcid: UI4; wFlags:
UI2; pdispparams: ^DISPPARAMS; out pvarResult: ^Variant; out
pexcepinfo: ^EXCEPINFO; out puArgErr: ^UINT); stdcall;
function FPIdentify(out strPath: ^BSTR; out strName: ^BSTR; out
strIdentifyModel: ^BSTR): BSTR; stdcall;
function FpEnroll(out strPath: ^BSTR; out strUserName: ^BSTR; out
strFingerName: ^BSTR; out strEnrollTemplate: ^BSTR): I2; stdcall;
CoClass Match;
GUID = {5AA263ED-5FBB-4FB3-A1C2-0D12235F0901};
Pelo amor de Deus, alguem me ajuda a acessar essas funções, não sei
mais o que fazer. Se precisarem eu mando a dll e o manual da dll,
não dá nem 200 KB.
--- Em delphi-br@yahoogrupos.com.br, Maria Fernanda
[EMAIL PROTECTED] escreveu
Eu declaro assim:
implementation
function GetEnrollData: WideString; far; stdcall;
external 'ftrFingerCentre.dll';
E chamo assim:
GetEnrollData;
Pode me ajudar?
--- Em delphi-br@yahoogrupos.com.br, Filipe Belchior
[EMAIL PROTECTED] escreveu
fernanda, please, mostre como vc esta acessando as funções.
--- Em delphi-br@yahoogrupos.com.br, Maria Fernanda
[EMAIL PROTECTED] escreveu
Olá,
Pessoal, como faço para acessar funções em uma dll que tenha 2
classes?
Por exemplo, eu tenho uma dll aqui que tem 2 classes:
ftrfingercentre.capture e ftrfingercentre.match.
Dentro da classe Capture eu tenho 2 funções:
getenrolldata() : String;
getcapturedata() : String;
Como posso acessar essas funções? Eu declaro essas funções na
unit do
meu programa mas quando vou usar ele me fala que não foi
possivel achar
o ponto de entrada da função. E agora?
--
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] CONSULTA COM ADO
Prezados! Tenho um BD Access que guarda uma tabela. Gostaria de incluir num form um botão ao lado de um DBEdit, sendo que este DBEdit receberá uma informação (por exemplo: codigo do curso) e terá que retornar os campos dos demais DBEdit preenchidos com os campos da respectiva tabela do banco de dados. Utilizo conexão via ADO. Alguém teria uma dica? Desde já, agradeço! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Arrastar formulário pela tela
On 10/8/06, henrique_filet [EMAIL PROTECTED] wrote: Caros colegas da lista, como faço para evitar que o usuário do meu sistema arraste o form principal pela tela...meu form tem q ficar sempre com left 0 e top 0. Entao, se o usuario manter pressionado o mouse sobre a barra de titulo do form e arrastá-lo, essa ação deve ser bloqueada pelo meu sistema...como devo proceder isso?? Aguardo retorno... Obrigado Sérgio Você tem que trabalhar com as mensagens do windows. Insira esta procedure no seu formulário. procedure WMNCHITTEST(var M : TWMNCHitTest); message WM_NCHITTEST; e o seguinte código na implementação: procedure TfrmDevedores.WMNCHITTEST(var M: TWMNCHitTest); begin M.Result := 0; end; T+ -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Arrastar formulário pela tela
Caro Leodinei, Obrigado pela ajuda cara. Teóricamente, era exatamente isso que eu precisava,porém, tenho um MENUBAR na minha aplicacao que, após implementado o codigo por ti informado, este ficou desabilitado, não permitindo acessar os menus do sistema... Como procedo para corrigir esta incoerência?? Aguardo retorno. Sérgio --- Em delphi-br@yahoogrupos.com.br, Leodinei Bielak [EMAIL PROTECTED] escreveu On 10/8/06, henrique_filet [EMAIL PROTECTED] wrote: Caros colegas da lista, como faço para evitar que o usuário do meu sistema arraste o form principal pela tela...meu form tem q ficar sempre com left 0 e top 0. Entao, se o usuario manter pressionado o mouse sobre a barra de titulo do form e arrastá-lo, essa ação deve ser bloqueada pelo meu sistema...como devo proceder isso?? Aguardo retorno... Obrigado Sérgio Você tem que trabalhar com as mensagens do windows. Insira esta procedure no seu formulário. procedure WMNCHITTEST(var M : TWMNCHitTest); message WM_NCHITTEST; e o seguinte código na implementação: procedure TfrmDevedores.WMNCHITTEST(var M: TWMNCHitTest); begin M.Result := 0; end; T+ -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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] Multiselect Dbgrid, não consigo editar
Estou com o seguinte problema utilizo o codigo abaixo pra modificar o campo
notas para vários registros em um dbgrid:
i: Integer;
begin
DtmDados.cdsFunc.Open;
for i := 0 to dbgrid1.SelectedRows.Count - 1 do
Begin
DtmDados.cdsFunc.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
DtmDados.cdsFunc.Edit;
DtmDados.cdsFunc.FieldByName('NOTA').AsString:=edNota.Text;
DtmDados.cdsFunc.Post;
End;
Funciona direito quando tenho todos os registros do BD no dbgrid,
mas quando faço uma pesquisa por exemplo por empresa não dá certo,
porque ele ta modificando baseando na linha do DBGrid(
DBGrid1.SelectedRows.Items [i]),
e eu preciso que ele baseie no campo ID_FUNC, que é o registro do usuário,
alguem sabe como fazer?
Preciso de ajuda. Não achei nada na Internet
--
Leonardo Ribeiro (DarkAvenger)
MSN: [EMAIL PROTECTED]
Ipatinga - MG
Slackware is the real nerds
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Arrastar formulário pela tela
Realmente não sei. Teoricamente você poderia testar se o click foi no menu ou na barra de título. Mas nos tests que eu fiz não funcionaram. Dá uma olhada ness página. Tem a documentação desta mensagem: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/mouseinput/mouseinputreference/mouseinputmessages/wm_nchittest.asp On 10/8/06, henrique_filet [EMAIL PROTECTED] wrote: Caro Leodinei, Obrigado pela ajuda cara. Teóricamente, era exatamente isso que eu precisava,porém, tenho um MENUBAR na minha aplicacao que, após implementado o codigo por ti informado, este ficou desabilitado, não permitindo acessar os menus do sistema... Como procedo para corrigir esta incoerência?? Aguardo retorno. Sérgio --- Em delphi-br@yahoogrupos.com.br, Leodinei Bielak [EMAIL PROTECTED] escreveu On 10/8/06, henrique_filet [EMAIL PROTECTED] wrote: Caros colegas da lista, como faço para evitar que o usuário do meu sistema arraste o form principal pela tela...meu form tem q ficar sempre com left 0 e top 0. Entao, se o usuario manter pressionado o mouse sobre a barra de titulo do form e arrastá-lo, essa ação deve ser bloqueada pelo meu sistema...como devo proceder isso?? Aguardo retorno... Obrigado Sérgio Você tem que trabalhar com as mensagens do windows. Insira esta procedure no seu formulário. procedure WMNCHITTEST(var M : TWMNCHitTest); message WM_NCHITTEST; e o seguinte código na implementação: procedure TfrmDevedores.WMNCHITTEST(var M: TWMNCHitTest); begin M.Result := 0; end; T+ -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [As partes desta mensagem que não continham texto foram removidas] -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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
