RES: [delphi-br] Urgente: Criando um Data Mining
Sugestões: 1) ExpressPivotGrid, da DevExpress (http://www.componentsource.com/products/expresspivotgrid-suite/index-brl.html) É excelente... mas é pago! Na página, tem opção pra ver o preço em reais (BRL - Brazilian Real). 2) Enhanced Borland Decision Cube 2.1 for Delphi (http://sourceforge.net/projects/fxds/) Free/na faixa/0800. Não avaliei, mas deve ser interessante! Sds. De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de Evaldo [evaldoave...@yahoo.com.br] Enviado: segunda-feira, 15 de junho de 2009 6:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Urgente: Criando um Data Mining Use o Decision cube, lembre se: o segredo está em gerar as visoes alguns links pra comecar http://www.planetadelphi.com.br/artigo/128/decision-cube---1a.-parte http://www.multicomp.com.br/Cont_Default.aspx?idnews=79 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Urgente: Como detectar o modelo da pl aca mãe pelo Delphi
Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter.nl.net/hcc/J.Steunebrink/chkcpu.htm Clayton. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed-recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Urgente: Como detectar o mo delo da placa mãe pelo Delphi
Uma outra alternativa seria listar esse fato no manual do seu sistema ou num FAQ ou melhor ainda informar os usuários sobre esse bug e instruí-los sobre como detectar se o HP Technology está habilitado bem como instruções sobre como desabilitar, caso esse processo traga ganho de performance da sua aplicação. Tentar fazer isso com o Delphi vai envolver código assembly (como já disseram) e pode ser que vc esbarre com o erro de instrução privilegiada. Nesse caso é melhor apelar para algo mais adminstrativo, ou seja, um comunicado aos usuários do que se descabelar atrás de uma solução técnica que pode ou não atingir o usuário. E a propósito, essa solução atende seu requisito de a solução tem que ser pra ontem. Atte, Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 24/3/09, clayton clay...@agriness.com escreveu: Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter. nl.net/hcc/ J.Steunebrink/ chkcpu.htm Clayton. _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed- recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Urgente: Como detectar o modelo d a placa mãe pelo Delphi
Esqueci de mencionar, todos os programas D6-PRO ou HARBOUR rodam melhor (mais rapidos) nos HTs, menos no DUO CORE que falei... (graças a DEUS só tem 1) AH, o meu QUAD de 2.6Ghz roda normal to aguardando o QUAD com HT que da 8 nucleos, 4 reais e mais 4 virtuais no HT... []s Luiz Escobar From: Ricardo César Cardoso Sent: Tuesday, March 24, 2009 4:41 PM To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Uma outra alternativa seria listar esse fato no manual do seu sistema ou num FAQ ou melhor ainda informar os usuários sobre esse bug e instruí-los sobre como detectar se o HP Technology está habilitado bem como instruções sobre como desabilitar, caso esse processo traga ganho de performance da sua aplicação. Tentar fazer isso com o Delphi vai envolver código assembly (como já disseram) e pode ser que vc esbarre com o erro de instrução privilegiada. Nesse caso é melhor apelar para algo mais adminstrativo, ou seja, um comunicado aos usuários do que se descabelar atrás de uma solução técnica que pode ou não atingir o usuário. E a propósito, essa solução atende seu requisito de a solução tem que ser pra ontem. Atte, Ricardo. Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 24/3/09, clayton clay...@agriness.com escreveu: Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter. nl.net/hcc/ J.Steunebrink/ chkcpu.htm Clayton. _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed- recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Urgente: Como detectar o m odelo da placa mãe pelo Delphi
Olá galera, Na JVCL tem um componente que detecta, o JvComputerInfoEx. P.S: Espero que minha resposta apareça para os usuários da lista ainda hoje. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: clayton clay...@agriness.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Março de 2009 13:03:30 Assunto: RES: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Um programa em delphi para determinar o tipo do processador? Você terá de apaelar para código assembly para conseguir isso. Os livros específicos de cada chipset da Intel tem este algoritmo (em assembly) pronto para você usar/adaptar para as suas necessidades. O problema é que estas soluções são específicas de cada fabricante, ou seja, um programa que detecta uma determinada família de processadores da Intel poderá não funcionar com processadores da AMD, e vice-versa. Eu te sugiro procurar algum software já pronto que possa lhe dar as informações necessárias, e você de dentro do teu programa Delphi, ativar estes outros softwares, os quais irão gerar algum tipo de relatório/arquivo. De posse deste arquivo você poderá fazer a leitura das informações desejadas. Abaixo segue um site (achei usando o google) que você poderá usar para obter informações de processadores AMD e Intel. Não sei se estes programas irão atender as tuas necessidades, mas vale você dar uma conferida neles. http://web.inter. nl.net/hcc/ J.Steunebrink/ chkcpu.htm Clayton. _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Jorge Ericsson Enviada em: terça-feira, 24 de março de 2009 11:28 Para: undisclosed- recipients: Assunto: [delphi-br] Urgente: Como detectar o modelo da placa mãe pelo Delphi Olá pessoal, eu tó com um problema de lentidão em minhas aplicação que usam Interbase. Simplesmente começaram a ter uma lentidão impressionante, só que descobrir que isso só acontece nas placas com o Intel(R) HP Technology Habilitado, tanto Intel como AMD. Bom eu gostaria de desenvolver algo em delphi que detectasse o modelo da placa e desabilitasse esta opção de forma transparente para o usuário. Alguém tem um exemplo de como posso controlar isso ? Obs.: Não me interessa saber de migração de banco de dados, porque no momento eu tenho várias aplicações espalhadas pelo Brasil e não posso migrar para Firebird, MySQL e etc. Preciso de uma solução para ontem nestes aplicativos. Obrigado pela ajuda desde já. Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL
Olá pessoal, Eu já fiz com Zeos: [http://www.4shared.com/file/67344222/71f82185/Zeos_and_Picture.html?dirPwdVerified=4f84753f]. Aceita os formatos PNG, GIF, BMP, JPG, ICO e etc. []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Jorge Ericsson jericsson...@gmail.com Enviadas: Terça-feira, 20 de Janeiro de 2009 12:29:56 Assunto: [delphi-br] URGENTE: Gravar e Ler imagem no banco MYSQL Olá amigos delphianos, migrei um aplicação ACCESS para MySql e estou com problemas em gravar e recuperar a foto do membro. Alguém poderia me indicar uma rotina para realizar essa tarefa sem que ter que popular a Query ou a Table com os campos ?? Exemplo. Tabelas.*TabDirigen teImg_Foto_ Dirigente* .SaveToStream( Tabelas.BlobMemo ryStream) ; Tabelas.BlobMemoryS tream.Position := 0; Tabelas.JPEGImage. LoadFromStream( Tabelas.BlobMemo ryStream) ; FotoDirigente. Picture.Assign( Tabelas.JPEGImag e); Gostaria de uma solução inteligente para gravar e carregar tanto BMP, JPEG, JPG e etc se possível.. Valew Amigos.. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsso n.com.br jericssonsup@ gmail.com jericssonsup@ hotmail.com skype:jericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] URGENTE: Controlar Inatividade do sistema
Olá pessoal, Jorge eu já usei isso, coloquei um TTimer que em 3 minutos, se nada for digitado, ou se o mouse não tiver em 'foco' no Form, o TTimer faz a pergunta se o usuário deseja aplicar ou cancelar a transação, e emite um bip para chamar a atenção do usuário (tem gente que quando está no MSN esquece do mundo, rsrsrsrs). Se mesmo assim o usuário não ouvir o bip, o TTimer cancela a transação, e informa ao usuário (2 horas depois quando saiu do MSN, rsrsrsrs). []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: Jorge Ericsson [EMAIL PROTECTED] Enviadas: Terça-feira, 18 de Novembro de 2008 9:19:46 Assunto: [delphi-br] URGENTE: Controlar Inatividade do sistema Olá pessoal, Talvez eu esteja fazendo uma pergunta que já houve resposta no forum, mas como não encontrei nada em minha pesquisa, vou remete-la. Bom eu preciso desenvolver uma função para controle de inatividade do meu sistema, tenho usuário que iniciam transações e não concluem me gerando alguns problemas no. Gostaria de após um determinado tempo fechar a tela aberta retornando o usuário para a tela principal do meu sistema. Alguém já fez isso ou conhece bem o componente JVC JEDI que faz isso ? Eu estou tentando usar somente a biblioteca JEDI qdo uso componente. Desde já agradeço... Jorge Ericsson Brasília - DF Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows
Mas e se eu tiver duas partições e minha documents and settings estiver na unidade D:\ por exemplo? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius Santos - MSI Enviada em: quinta-feira, 14 de agosto de 2008 Boa tarde Dé 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Meu computador se chama VINICIUS, as pastas ficam aqui dentro: C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ basta criar uma pasta ali dentro. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Jorge Ericsson To: undisclosed-recipients: Sent: Thursday, August 14, 2008 3:45 PM Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do Windows Olá amigos, Depois de fuçar muito esses dois dias, eu não encontrei nada que resolvesse o meu problema. Talvezes seja o cansaço mais não consegui mesmo resolver o meu problema. Bom, preciso criar um atalho para o meu programa na pasta dentro da Programas e nessa pasta colocar meu atalho da seguinte forma. Programa Console - Desktop (moleza) Console (programa) Programa Exportação - Iniciar - Programas - Exportação (pasta) Export.exe (programa) Programa Importação - Iniciar - Programas - Importação (pasta) Import.exe (programa) Programa Migração - Iniciar - Programas - Migração (programa) Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como eu criei o meu programa de instalação eu gostaria de controlar essa distribuição de aplicativos. Tentei usar a function abaixo mas não deu certo. CreateShortcut(SourceFileName ;. const SHELL_FOLDERS_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; Se alguém que já passou por isso puder me ajudar, já lhe fico grato... Valew pessoal. Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.138 / Virus Database: 270.6.3/1611 - Release Date: 14/8/2008 06:20 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Blz Davi, vou testar esta função mas por enquanto tive que resolver usando o
/s na opção.
Obrigado.
2008/6/13 Davi Eduardo Borges Wall [EMAIL PROTECTED]:
Aí! 500 pila a solução pronta.
Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC -
018-112888-8
function TFormMain.RegisterActiveXServer(const ServerLocation: string;
Register: Boolean): Boolean;
var
ServerDllRegisterServer: function: HResult; stdcall;
ServerDllUnregisterServer: function: HResult; stdcall;
ServerHandle: THandle;
procedure UnloadServerFunctions;
begin
@ServerDllRegisterServer := nil;
@ServerDllUnregisterServer := nil;
FreeLibrary(ServerHandle);
end;
function LoadServerFunctions: Boolean;
begin
Result := False;
ServerHandle := SafeLoadLibrary(ServerLocation);
if (ServerHandle 0) then
begin
@ServerDllRegisterServer := GetProcAddress(ServerHandle,
'DllRegisterServer');
@ServerDllUnregisterServer := GetProcAddress(ServerHandle,
'DllUnregisterServer');
if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil)
then
UnloadServerFunctions
else
Result := True;
end;
end;
begin
Result := False;
try
if (LoadServerFunctions) then
try
case (Register) of
False: Result := ServerDllUnregisterServer = S_OK;
True: Result := ServerDllRegisterServer = S_OK;
end;
finally
UnloadServerFunctions;
end;
except
end;
end;
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de
Rubem Nascimento da Rocha
Enviada em: sexta-feira, 13 de junho de 2008 11:04
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Prioridade: Alta
Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX
chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra
fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!).
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
From: [EMAIL PROTECTED] jericssonsup%40gmail.com mailto:
jericssonsup%40gmail.com jericssonsup%2540gmail.com
Date: Fri, 13 Jun 2008 01:10:14 -0300
Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o
registro
simultâneo em vários processos, está apresentando problemas e em algumas
não
sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma.
2008/6/12 Rubem Nascimento da Rocha [EMAIL
PROTECTED]djpardalrocha%40hotmail.commailto:
djpardalrocha%40hotmail.com djpardalrocha%2540hotmail.com :
Mas se ele fizer assim:
WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de
diálogo!
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
From: [EMAIL PROTECTED] davi.wall%40mult.com.br mailto:
davi.wall%40mult.com.br davi.wall%2540mult.com.br
Date: Thu, 12 Jun 2008 17:58:58 -0300
Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
[mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:
delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br ] Em
nome de
Jorge Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu
programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
[As partes desta
Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro
simultâneo em vários processos, está apresentando problemas e em algumas não
sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma.
2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]:
Mas se ele fizer assim:
WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de
diálogo!
Sds.
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] davi.wall%40mult.com.br
Date: Thu, 12 Jun 2008 17:58:58 -0300
Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de
Jorge Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
__
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp
TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o
registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!).
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 13 Jun 2008 01:10:14 -0300
Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro
simultâneo em vários processos, está apresentando problemas e em algumas não
sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma.
2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]:
Mas se ele fizer assim:
WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de
diálogo!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 12 Jun 2008 17:58:58 -0300
Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br ] Em nome de
Jorge Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
_
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
RES: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Aí! 500 pila a solução pronta.
Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC -
018-112888-8
function TFormMain.RegisterActiveXServer(const ServerLocation: string;
Register: Boolean): Boolean;
var
ServerDllRegisterServer: function: HResult; stdcall;
ServerDllUnregisterServer: function: HResult; stdcall;
ServerHandle: THandle;
procedure UnloadServerFunctions;
begin
@ServerDllRegisterServer := nil;
@ServerDllUnregisterServer := nil;
FreeLibrary(ServerHandle);
end;
function LoadServerFunctions: Boolean;
begin
Result := False;
ServerHandle := SafeLoadLibrary(ServerLocation);
if (ServerHandle 0) then
begin
@ServerDllRegisterServer := GetProcAddress(ServerHandle,
'DllRegisterServer');
@ServerDllUnregisterServer := GetProcAddress(ServerHandle,
'DllUnregisterServer');
if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil)
then
UnloadServerFunctions
else
Result := True;
end;
end;
begin
Result := False;
try
if (LoadServerFunctions) then
try
case (Register) of
False: Result := ServerDllUnregisterServer = S_OK;
True: Result := ServerDllRegisterServer = S_OK;
end;
finally
UnloadServerFunctions;
end;
except
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: sexta-feira, 13 de junho de 2008 11:04
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Prioridade: Alta
Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp
TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o
registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!).
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:jericssonsup%40gmail.com
Date: Fri, 13 Jun 2008 01:10:14 -0300
Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro
simultâneo em vários processos, está apresentando problemas e em algumas não
sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma.
2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]
mailto:djpardalrocha%40hotmail.com :
Mas se ele fizer assim:
WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de
diálogo!
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br
Date: Thu, 12 Jun 2008 17:58:58 -0300
Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:
delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em
nome de
Jorge Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
__
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge
Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Mas se ele fizer assim:
WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Thu, 12 Jun 2008 17:58:58 -0300
Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Para fazer isso sem chamar o executável vc tem que chamar o procaddress
referente ao método DLLRegisterServer da DLL que vc quer registrar.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge
Ericsson
Enviada em: quinta-feira, 12 de junho de 2008 17:01
Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi
Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa,
mas não gostaria de utilizar o comando
WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'),
SW_NORMAL);
Porque nesse caso registra mais fica a tela de confirmação pro usuário.
Se não me engano tem uma utni que faz isso, mas não estou encontrando a
danada...
Alguém já passou por esse problema e poderia ajudar-me ???
Valew,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
Res: [delphi-br] URGENTE - Como retornar Campos Prim ário do DataSet
O que vc pode fazer é o seguinte:
RCampo : TRecord
Campo : String;
procedure chamarLog(DS : Dataset);
var Tabela : TTable;
Campo : Array of RCampo;
begin
if (DS.State in [dsInsert, dsEdit) then
begin
for i := 0 to Ds.FieldsCount - 1 do
begin
if pfInKey in DS.Fields[i].ProviderFlags then
begin
SetLength(Campo, Length(Campo)+1);
Campo[Length(Campo)-1].Campo := DS.Fields[0] .FieldName; //retornar o
campo chave
end;
end;
Tabela := (DS as TTable).TableName) ; //retornar o nome da tabela
end;
end;
- Mensagem original
De: Jorge Ericsson [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 10 de Abril de 2008 19:06:39
Assunto: [delphi-br] URGENTE - Como retornar Campos Primário do DataSet
Olá amigos Delphianos,
Preciso enviar para minha tela de pesquisa os campos chaves e o nome da
tabela de Datasource.
Tentei o seguinte:
procedure chamarLog(DS : Dataset);
var Tabela : TTable;
Campo: String;
begin
if (DS.State in [dsInsert, dsEdit) then
begin
Campo := DS.Fields[0] .FieldName; //retornar o campo chave
Tabela := (DS as TTable).TableName) ; //retornar o nome da tabela
end;
end;
Só que dessa forma o o campo chave poderá ser mais de um e poderá estar em
qq posição da tabela.
Alguém poderia ajudar-me nesse problema ?
Agradeço,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsso n.com.br
61 9227.4785 / 3967.6172
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
--
!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
--
!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}
#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
--
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Urgente!!!!!!!!! Itens da Nota - DBGRID
O estimado,
Boa noite. Não vai rolar mesmo. Faz o seguinte: no evento AFTERSCROLL do
SQL4 fecha o SQL5 e coloca uma nova instrução SQL nela tendo como parâmetro
o registro rolado no SQL4, sacou ?
SQL4 - propriedade/comando NEXT sendo executado (suponha que tenha no texto
sql do SQL4 : select nota, cliente, valor FROM notas)
- no afterscroll do SQL4 coloca:
SQL5.Close;
SQL5.SQL.Clear;
SQL5.Add('SELECT nota, item, codpro, descricao, qtde, unitario FROM
itensnota WHERE nota = ' + SQL4.FieldByName('nota').AsString);
SQL5.Open;
Dispensa o :
datamodule.sql5.next;
mostra_itens;
Ou monta um mestre/detalhe.
Saudações.
Alexandre.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Guilherme Alves
Enviada em: segunda-feira, 28 de janeiro de 2008 17:44
Para: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Assunto: [delphi-br] Urgente! Itens da Nota - DBGRID
Olá amigos, preciso de uma ajuda urgente.
Estou desenvolvendo uma aplicação básica de cadastro de notas com seus
determinados itens da nota.
Quando eu abro o formulário já mostra o cabeçalho da nota com suas
respectivas informações e logo abaixo no mesmo form tem um grid, que mostra
os itens dessa nota.
Não sei o que está acontecendo que eu abro o formulário ele mostra tanto o
cabeçalho quanto os itens normal, mas quando eu clico no botão de navegação
(próximo, anterior, primeiro e último) o grid (itens da nota) não estão
acompanhando o cabeçalho da nota...
No botão próximo por exemplo está assim:
datamodule.sql4.Next;
mostra_cabecalho;
datamodule.sql5.next;
mostra_itens;
Em vez do mostra_itens mostrar os itens que é se refere ao cabeçalho da
nota, o datamodule.sql5 está andando no grid, como se ele tivesse andando
nos itens daquela nota, e não indo para o próximo registro.
OBS: o mostra_itens é uma consulta sql que mostra os itens no grid
conforme é o código do cabeçalho da nota
.sql.add('and');
sql.add('via.cod_via=:cod');
ParamByName('cod').Value:=edt_cod.text;
Resumindo...
Quando mostrar o cabeçalho da nota e seus respectivos itens, quero que cada
vez que eu for utilizando os botões de navegação, o grid (os itens)
acompanha o cabeçalho, e não ir de item a item.
obrigado
RES: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry
Não conheço MySQL tão bem assim, mas presumo que o IP do cliente não tenha nada a ver com a conexão estabelecida, se tivesse, nenhum site usaria, certo? É esse mesmo o problema? Os outros bancos de dados, com os quais já tive experiência, não dependiam do IP do cliente, pelo menos... Mas se o Registry está bloqueado, escreva o arquivo necessário em alguma pasta escondida... é um solução mais simples do que passar pelo bloqueio do windows. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge Ericsson Enviada em: quinta-feira, 24 de janeiro de 2008 14:39 Assunto: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Olá amigos, Eu tenho um sistema instalado em um cliente a muito muito tempo que vinha funcionando corretamente, mas o administrador da empresa resolveu adotada uma politica de segurança devido a quantidade de vírus que esta infestando a rede. Uma dessas medidas foi a proibição da escrita na registry e retirando todos os usuários da rede como administrador da máquina. Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Espero ter sido claro no meu problema. Obs: Não gostaria de usar arquivo INI pois já tive sério problemas de exclusão de arquivos. Valew !!! -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso http://www.jericsson.com.br n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry
Certo, legal. Então acho que a resposta do nosso amigo esta aí. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quinta-feira, 24 de janeiro de 2008 20:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Vitor, no Mysql ao criar um usuário vc pode determinar uma faixa de IP que o servidor vai aceitar;;; tipo se vc definir no campo host o valor 192.168.%.% o mysql so vai deixar o cliente conectar caso o IP dele seja 192.168.X.X para permitir que qualquer IP conecte ao servidor basta colocar % no campo Host.. Em 24/01/08, Vitor Redes vredesredsystem@ mailto:vredesredsystem%40yahoo.com.br yahoo.com.br escreveu: Não conheço MySQL tão bem assim, mas presumo que o IP do cliente não tenha nada a ver com a conexão estabelecida, se tivesse, nenhum site usaria, certo? É esse mesmo o problema? Os outros bancos de dados, com os quais já tive experiência, não dependiam do IP do cliente, pelo menos... Mas se o Registry está bloqueado, escreva o arquivo necessário em alguma pasta escondida... é um solução mais simples do que passar pelo bloqueio do windows. Vitor. _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br [mailto: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: quinta-feira, 24 de janeiro de 2008 14:39 Assunto: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Olá amigos, Eu tenho um sistema instalado em um cliente a muito muito tempo que vinha funcionando corretamente, mas o administrador da empresa resolveu adotada uma politica de segurança devido a quantidade de vírus que esta infestando a rede. Uma dessas medidas foi a proibição da escrita na registry e retirando todos os usuários da rede como administrador da máquina. Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Espero ter sido claro no meu problema. Obs: Não gostaria de usar arquivo INI pois já tive sério problemas de exclusão de arquivos. Valew !!! -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso http://www.jericsso http://www.jericsson.com.br n.com.br n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] URGENTE- win98 esconde as telas....
Mas D2007 é compatível com win95/win98??? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Jorge Enviada em: quinta-feira, 3 de janeiro de 2008 19:43 Para: delphi-br Assunto: [delphi-br] URGENTE- win98 esconde as telas Já postei antes sobre isso mas não obtive resposta, então como meu problema ainda persiste e acho que alguém pode ter esse mesmo problema vou explicar de novo ele aqui.. (obs. Não to reclamando não, sei que aqui é uma lista ninguém tem dever de responder a ninguém não... não me entendam mal). Tenho um aplicativo desenvolvido em delphi 2007, ele roda normalmente em maquinas win xp, windows 2000 e assim vai. Mas em windows 98 ele roda.. so que escondendo as janelas.. tipo.. ao iniciar meu sistema ele cria o form principal e chama a tela de login (no evento onactive) pro usuário passar seus dados para poder logar no sistema. Se meu sistema rodar num windows 98 simplesmente o form principal aparece. E a tela de login não.. mas se vc digitar o login.. apertar enter e digitar a senha e apertar entre ele loga.. e como se o focu tivesse na tela de login e tudo o mais. Só que ela esta atraz do form principal.. Outra coisa. Tem telas que ficam cortadas no meio.. com barra de rolagem e tudo o mais. Aquém já passou por isso? Ou sabe o que eu tenho que fazer pra evitar esses erros? Porque tem um novo cliente e lá é uma rede só com windows 98. e ele não vai atualizar pra xp nem nada disso. Ou eu resolvo essa bronca ou infelizmente vou perde-lo.. Obrigado quem puder me ajudar.. t+ -- Rafael jorge alves (Analista/desenvolvedor) www.sistemafocus.com.br sistema focus de gestão comercial e serviços em informatica. -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Urgente TLP 2742
Espero que ajude TLP2742/2844
{Modo formulário
N
O
FK0002
FK0002
FK*
FS0002
V00,29,N,Nome
V01,06,N,NrPedido
V02,13,N,NrPack
V03,30,N,Descricao
V04,10,N,Quant
V05,05,N,Local
V06,14,N,Nrident
V07,16,N,Codigo
V08,29,N,Nome
V09,06,N,NrPedido
V10,13,N,NrPack
V11,30,N,Descricao
V12,10,N,Quant
V13,05,N,Local
V14,14,N,Nrident
V15,16,N,Codigo
q800
Q800,24+0
S2
D8
ZT
TTh:m
TDy2.mn.dd
LO036,041,314,006
LO432,037,314,006
A164,134,0,1,1,1,N,PACK
A560,130,0,1,1,1,N,PACK
A036,134,0,1,1,1,N,QTD
A432,130,0,1,1,1,N,QTD
A034,215,0,1,1,1,N,PD NR
A430,215,0,1,1,1,N,PD NR
A036,014,0,4,2,1,N,V06
A432,010,0,4,2,1,N,V14
B036,051,0,1,2,2,47,N,V07
B432,047,0,1,2,2,47,N,V15
A034,110,0,1,1,1,N,V03
A430,106,0,1,1,1,N,V11
A365,211,3,2,2,3,N,V05
A761,207,3,2,2,3,N,V13
A034,148,0,2,1,2,N,V04
A430,144,0,2,1,2,N,V12
A097,185,0,4,1,2,N,V01
A493,185,0,4,1,2,N,V09
A207,195,0,2,1,2,N,V00
A605,195,0,2,1,2,N,V08
A162,148,0,2,1,2,N,V02
A558,144,0,2,1,2,N,V10
FE
FR0002
?
JATOSTEEL
125952
21525-001 $$
PINO ELASTICO DIAM 5 X 32 55SI
1,
1EN13
34503199
34503199PD125952
JATOSTEEL
125952
21525-001 $$
PINO ELASTICO DIAM 5 X 32 55SI
1,
1EN13
34503199
34503199PD125952
P1,1
}
{Modo direto
N
O
FK*
q800
Q240,24+0
S2
D8
ZT
TTh:m
TDy2.mn.dd
A022,6,0,4,2,2,N,267.469.57
A428,4,0,4,2,2,N,267.469.57
B022,67,0,1,2,2,65,B,26746957OP498651
B428,67,0,1,2,2,57,B,26746957OP498651
LO022,55,314,6
LO428,55,322,6
A022,171,0,2,1,1,N,CDL FRT DFW160
A428,171,0,2,1,1,N,CDL FRT DFW160
A022,193,0,2,2,2,N,ALM 1EA26
A428,193,0,2,2,2,N,ALM 1EA26
P1,01
}
Elcio Domingos Ramos
DEMAG Cranes Components Ltda.
www.demagcranes.com.br
[EMAIL PROTECTED]
Fone: 55 11 2145-7823
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
softarthelp
Enviada em: quinta-feira, 15 de fevereiro de 2007 17:04
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Urgente TLP 2742
Pessoal, estou com problemas e pouco tempo, alguem tem um exmplo de
impressao de etiquetas (pode ser so codigo(texto)) na impressora TLP
2743. Se tiver o fonte melhor ainda.
Estou tentando com o zebradesigner e nao ta dando certo (sao 4
etiqueas na linha 2 X 1,2), impreme uma linha e para e a luz vermelha
ascende.
Agradeço muito
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [URGENTE] Formatação Im pressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,'AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,'ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir? faz tudo na mão ou usa alguma rotina ou
componente? Posta aí que agente te ajuda
Bom Código
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: Grupo Delphi
Sent: Monday, February 12, 2007 11:40 PM
Subject: [delphi-br] [URGENTE] Formatação Impressão Matricial
Galera, seguinte, preciso da seguinte informação.
Tem como eu usar o write para fazer o seguinte.
Na hora que chegar num determinado numero de caracter, ele pule para a
proxima linha, mais ou menos no estilo das Celulas do Excel ???
Por ex.: Eu reservo um espaço de 50 caracteres para Descrição do Serviço na
nota, se ele passar de 50, ele pula para a proxima linha, sem atrapalhar a
coluna preço.
Na nota ficaria assim
DESCRIÇÃO | PREÇO
TESTE TESTE TESTE TESTE TESTE
TESTE TESTE TESTE TESTE TESTE R$ 40,00
OUTRO TESTE R$ 20,00
Tem como ?
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta
RES: [delphi-br] [URGENTE] Formatação Im pressão Matricial
Opa ... valeu Ricardo ... to tentando achar em foruns alguma coisa assim do
tipo mas até agora não consegui achar uma solução ...
Abraço
Tiago de Assis Pimenta
MSN: mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 18:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Ae Brother,
não esqueci de você não, só que estou ocupadaço, mas assim que eu tiver um
tempo vou dar uma olhada legal no teu código... Mas caso você descobrir
antes como fazer, posta na lista, pra agente saber!
Abraços
Ricardo Berti
- Original Message -
From: Tiago de Assis Pimenta
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Sent: Tuesday, February 13, 2007 9:56 AM
Subject: RES: [delphi-br] [URGENTE] Formatação Impressão Matricial
Boa Tarde Ricardo, faço tudo na mão, vou colar o código de como esta.
procedure Tfrmcadordserv.BitBtn1Click(Sender: TObject);
const
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CExpandido = #14;
SExpandido = #20;
var
a: textfile;
begin
// Imprimindo Ordem de Serviço
assignfile(a,'c:\tmp\cupom.txt');
rewrite(A);
writeln(A,'=
==');
writeln(A,' BRANCO AUTO MECANICA - ESPECIALIZADA EM INJECAO
ELETRONICA ');
writeln(A,' AV. MESSIAS GONCALVES, 1363 - (17) 3325-8055
');
writeln(A,'=
==');
write(A,CNegrito + CExpandido + format('%-29s',['ORDEM DE SERVICO N: ' +
formatfloat('0',strtoint(edit1.text))]));
writeln(A,SNegrito + SExpandido + format('%10s',['DATA:
'+frmordserv.qrordserv.fieldbyname('data').asstring]));
writeln(A);
write(A,format('%-57s',['NOME DO CLIENTE: '+
qrcli.fieldbyname('nome').value]));
writeln(A,format('%-22s',['CELULAR: '+qrcli.fieldbyname('celular').value]));
write(A,format('%-57s',['ENDERECO: '+
qrcli.fieldbyname('endereco').value]));
writeln(A,format('%-22s',['BAIRRO : '+ qrcli.fieldbyname('bairro').value]));
write(A,format('%-57s',['CIDADE: '+ qrcli.fieldbyname('cidade').value]));
writeln(A,format('%-22s',['CEP.: '+ qrcli.fieldbyname('cep').value]));
write(A,format('%-35s',['TELEFONE: '+
qrcli.fieldbyname('telefone').value]));
write(A,format('%-22s',['CPF: '+ qrcli.fieldbyname('cpf').value]));
writeln(A,format('%-22s',['RG: ' + qrcli.fieldbyname('rg').value]));
writeln(A);
write(A,format('%-57s',['MARCA: '+
frmordserv.qrordserv.fieldbyname('marca').value]));
writeln(A,format('%-22s',['MODELO: '+
frmordserv.qrordserv.fieldbyname('modelo').value]));
write(A,format('%-35s',['COR: '+
frmordserv.qrordserv.fieldbyname('cor').value]));
write(A,format('%-22s',['PLACA: '+
frmordserv.qrordserv.fieldbyname('placa').value]));
writeln(A,format('%-22s',['KM DO VEICULO: '+edit3.text]));
writeln(A);
writeln(A,format('%-20s',['FUNCIONARIO: '+
frmordserv.qrordserv.fieldbyname('funcionario').value]));
writeln(A,'=
==');
write(A,format('%-40s',['DISCRIMANACAO']));
write(A,format('%-10s',['QTDE']));
write(A,format('%-18s',['PRECO UNITARIO']));
writeln(A,format('%-10s',['PRECO TOTAL']));
writeln(A,'=
==');
qrhistserv.first;
while not qrhistserv.eof do
begin
write(A,format('%-40s',[qrhistserv.fieldbyname('servico').value]));
write(A,format('%-10s',[qrhistserv.fieldbyname('qtde').value]));
write(A,format('%-18s',[formatfloat('##0.00',qrhistserv.fieldbyname('precoun
').value)]));
write(A,format('%-10s',[formatfloat('##0.00',qrhistserv.fieldbyname('total')
.value)]));
writeln(A);
qrhistserv.next;
end;
writeln(A,'=
==');
write(A,CNegrito + CExpandido + 'TOTAL R$: ');
writeln(A,format('%29.2f',[frmordserv.qrordserv.fieldbyname('total').asfloat
]));
writeln(A,SNegrito + SExpandido +
'===
');
writeln(A);
writeln(A);
writeln(A);
writeln(A);
//writeln(A,'___');
writeln(A,' ASSINATURA DO CLIENTE');
closefile(A);
Tiago de Assis Pimenta
MSN: mailto:tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
tiagopimenta@ mailto:tiagopimenta%40hotmail.com hotmail.com
Skype: tiagopimenta_skype
Gtalk: tiagopimenta
_
De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Ricardo Berti
Enviada em: terça-feira, 13 de fevereiro de 2007 09:14
Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
Assunto: Re: [delphi-br] [URGENTE] Formatação Impressão Matricial
Como você faz pra imprimir
RES: [delphi-br] Urgente - InfoPower - Apostila ou Tutorial
Apostila ou tutorial acho meio dificil. Ce pode conseguir dicas com alguém aqui que mexe com ela ou então vai ter que ir de Help deles mesmo. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de telma woerle Enviada em: sexta-feira, 24 de março de 2006 17:28 Para: delphi br; delphi_soprogramadores; lista_delphi Assunto: [delphi-br] Urgente - InfoPower - Apostila ou Tutorial Oi Pessoal, instalei o infopower e gostaria de estar utilizando para gerar alguns contratos no sistema que eu estou desenvolvendo, mas não sei muito bem como trabalhar com ele, utilizo o delphi 7, gostaria de saber se alguem possui alguma apostila ou tutorial sobre o infopower ou se poderia me dar alguma dica de como utiliza-lo. Obrigada Telma - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [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
RES: [delphi-br] URGENTE!!!!
Admin.bani esse aí -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gustavo Sequeira Enviada em: quarta-feira, 15 de fevereiro de 2006 15:06 Assunto: [delphi-br] URGENTE *Assunto: Assine Contra Este Filme Repugnante! * *Não ignorem. Mensagem: URGENTE * Um filme nojento está sendo filmado para aparecer na América este ano, o qual mostra Jesus e seus discípulos como sendo homossexuais!!! Da mesma forma que uma peça que já tem estado em teatros por algum tempo. Se chama Corpus Christi que significa O Corpo de Cristo. É uma gozação revoltante do nosso Senhor. Mas nós podemos fazer diferença. É por isso que estou mandando esse email para todos vocês. Você poderia, por favor, adicionar o seu nome no final da lista desse email? Se você fizer isso, nós poderemos ser capazes de banir esse filme de ser mostrado na América. Aparentemente, algumas regiões da Europa já baniram o filme. Tudo que precisamos é de muitas assinaturas! Lembre-se, Jesus disse: Aquele que me negar diante dos homens, eu o negarei diante do meu Pai que está nos Céus. Por favor, não simplesmente Encaminhe!!! Por favor, selecione todo o texto, copie esta mensagem (CTRL + C), cole (CTRL+V) em uma nova mensagem e depois adicione o seu nome no final da lista e mande para todos os seus contatos. Quando as assinaturas da lista atingirem 500 nomes (ou seja quem for o nº 500 da lista), por favor mande-as para: [EMAIL PROTECTED]http://by111fd.bay111.hotmail.msn.com/cgi-bin/compose?ma ilto=1msg=68634EE0-322D-4043-AA54-764C2C940DA5start=0len=35781src=type= x[EMAIL PROTECTED]cc=bcc=subject=body=curmbox=--- -0001a=a8e139e936d537e9e9a57d8ddbf86fa468bb4199b1b97ae37540db99 944da7bbE depois comece de novo.. SE TRABALHARMOS JUNTOS PODEREMOS FAZER ISTO!!! Obrigado.! - -Lista--- 01.MechaielFarag, Perth, WA, Australia 02. John Rizkallah, Perth, WA, Australia 03. StewartRizkallah, Perth, WA, Australia 04. Michael Salib, Perth, Wa, Australia 05. Mark Nour,Melbourne, VIC, Australia 06. Marco Attia, Melbourne, VIC, Australia 07. Emil Sidra, Malbourne, VIc, Australia 08. VeronicaAbdou,Vic, Australia 09. RobertGundi, Vic, Australia 10. AmirMalek, Victoria, Australia 11. Margaret Malek, Victoria,Australia 12. Mohab Shukr 13. Rebecca Micallef, Sydney Australia 14. Stacey Moore, Sydney Australia 15. Sandy Sahyoun, Australia 16. Rebecca Sahyoun, Australia 17. Karolina Tipura, Sydney Australia 18. Tanya Likic, Sydney Australia 19. Tina Likic, Sydney Australia 20. Sima Mihaljevic, Sydney Australia 21. Joanna Mataic, Sydney Australia 22. Angela Music, Sydney Australia 23. Tereza Likic, Sydney Australia 24. Damir Music, Sydney Australia, 25. Suzi Music, Sydney Australia 26. Linda Kraljevic, Sydney Australia 27. Ana Sarac, Sydney Au stralia 28. Charley Martinez, Sydney Australia 29. Louisa Nelson, SYDNEY AUSTRALIA 30. Ernst Nelson, SYDNEY AUSTRALIA 31. Drae Nelson, SYDNEY AUSTRALIA 32.Elisa Jay To, Sydney Australia 33. Li-Ming Jay To, Sydney Australia, 34. Julie Vaigafa, Sydney Australia 35. Nigel Vaigafa, Sydney Australia 36. Joy Magele, Sydney Australia 37. Yvonne Feleti,Auckland New Zealand 38. Tala Feleti Auckland New Zealand 39. Henry Feleti, Auckland New Zealand 40. Sharlene Feleti, Auckland New Zealand 41. Samuel Feleti, Auckland New Zealand 42. Hayley Davis, Auckland New Zealand 43. Breta Lemana, Auckland New Zealand 44.theresa peni, Sydney Australia 45. Daniela Tramonte, Sydney New South Wales 46. Ayanthi Christopher, sydney, Australia 47.kimberley booth, sydney , australia 48. Stephanie cirillo,sydney,australia 49. Sam Maxted, canberra, australia 50.Samara Patch, canberra, Australia 51. Beth M. Canberra, australia 52. Jessica N. Canberra, australia 53. Lisa M. Canberra, australia 54. Owen S. Forbes creek, NSW, australia 55. Kathryn Mckinnon, S.A, Australia 56. Amos Bergstrom, New Zealand 57. Hannah Bergstrm, Maraetotara, New Zealand 58. Sarani Blackwell, QLD,Australia 59.Suzanne Batten, Te Kuiti, New Zealand 60. Phill Brandt, New Zealand 61.Justin Brandt, New Zealand 62. Chris Runciman, New Zealand 63.Susan Thomasen, New Zealand 64. Villette Haitoua, Auckland, New Zealand 65. Dave Munro,Auckland,New Zealand 66. Kirit Makan, Pukekohe, New Zealand 67. Pat Lam, Pukekohe, New Zealand 68. Steph Atkins, Pukekohe, New Zealand 69. Katrina Mika, Sydney, Australia 70. Daisy Halafihi, Auckland, New Zealand 71. Fono Sosene, Auckland, New Zealand 72. Paul Reddy, Auckland, New Zealand 73. Ray mond D'Souza, Auckland,New Zealand 74. Fay Braganza, Auckland, New Zealand 75. Neil Ribeiro, GOA, INDIA 76. Audrey Pinto, Goa, India 77. Sharon Rodrigues Dubai, UAE 78. Elvis D'Souza 79. Francis Jorge, Goa India 80. Kallen Valadares Goa, India. 81. Sherard Rodrigues Goa , India 82. Susana Pereira Dubai, UAE 83. Jai Yadav,Dubai-UAE 84. Joanna M Yadav, Dubai - U.A.E . 85. Latha Lourdes Iyer 86. Payal R. Mansukhani, Dubai, U.A.E. 87.
RES: [delphi-br] [URGENTE] Clientdataset e delphi 2006
Estimado, Bom dia. Se o sql está no ClientDataSet, certifique-se de que a opção AllowCommandText do seu PROVIDER esteja TRUE. Isso faz com que o SQLDataSet ou SQLQuery que está na outra ponta aceite os comandos vindos do clientDataset. Outra coisa é com o jeito de fazer os selects e joins. Eu faço assim: SELECT v.*, c.Nome, c.Bairro, c.Numero, c.Cidade, c.Telefone, c.Endereco, c.Uf, c.Cep, r.Nome AS NomeVendedor FROM venda_pedido v LEFT JOIN cliente c ON c.Codigo = v.Codigo LEFT JOIN vendedor r ON r.Codigo = v.Vendedor WHERE v.Empresa = :emp AND v.NumPedido = :pedido Sinceramente eu não utilizo a prática de passar comandos pelo ClientDataSet. Eu faco sempre: SQLQuery + Provider + ClientDataSet + DataSource Todos os comandos eu passo direto para a SQLQuery e o ClientDataSet só serve pra dar Open/Post/Apply/Insert/Edit e Delete. Mas cada um trabalha como quer né. Outra questão é sobre o UPDATEMODE, do provider. Nesse seu caso ai ele tem que ser KeyOnly. Daí, no SQLQuery eu adiciono todos os campos. No Tfields da SQLQuery, para os campos que não sofreram nenhuma modificação (caso os do cliente e o vendedor) eu desabilito todos os providers flag. Para os campos chave (empresa e teoricamente numero do pedido, que você não mencionou) eu coloco pfInUpdate, pfInWhere e pfInKey como true. Por fim, para o restante dos campos somente pfInUpdate. Tem alguns exemplos na net como o sistema DATACAR do Guinther que tá no quality central da borland, é só se cadastrar e baixar. Tem também apostilas e vários outros materiais do nosso companheiro Bruno. www.micrologos.com.br/mc_clienteservidor.zip E por aí vai. Aguardamos um retorno seu. Saudações. --- []'s Alexandre Frase da semana: Não basta ter grandes qualidades, cumpre saber usá-las. (La Rochefoucauld) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Jorge Enviada em: sábado, 4 de fevereiro de 2006 13:51 Para: delphi-br Assunto: [delphi-br] [URGENTE] Clientdataset e delphi 2006 eu utilizava IBO é ao migrar para dbexpress to apanhando feio com erros estranhos. um deles e o que esta impedindo de dar continuidade ao meu trabalho e esse, ao dar um post num clientdataset esta tudo certo ai dou um applyupdates e acontece isso - raised exception class edatabaseerror with message 'Database server error: column unknown nome da coluna da tabela' se eu mando continuar ai vem essa proxima mensagem - raised exception class edatabaseerror with message 'unables to find record. no key specified' so que a tabela tem chave primaria e tudo. ao abrir ela ela abre. da post e tudo so na hora do applyupdates ele da pau. o sql que ta no clientdataset é : select venda_pedido.*, cliente.nome, cliente.bairro, cliente.numero, cliente.cidade, cliente.telefone, cliente.endereco, cliente.uf,cliente.cep, venda_vendedor.nome vendnome from cliente, venda_pedido, venda_vendedor where cliente.codigo = venda_pedido.cliente and venda_vendedor.codigo = venda_pedido.vendedor and venda_pedido.empresa = :emp realmente nao sei mais o que fazer. COLOQUEI o providerflags o pfinupdate = false nos campos que vem de outra tabela, mas deu em nada. sempre o mesmo erro. nao sei mais o que fazer. meu trabalho esta parado e nao arrumo solucao pra isso. t+ -- Rafael jorge alves www.itrecife.com - para verem meus artigos e trabalhos t+ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ NOD32 1.1392 (20060202) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [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
RES: [delphi-br] [URGENTE] applyupdates no delphi 2006 nao funciona!
Rafael, funciona sim. se você estiver usando JOIN na cláusula o ApplyUpdates tem de ser feito manualmente, pois quando há JOIN não tem como o Provider saber em qual tabela ele tem que fazer update, visto que o SQL pode retornar colunas das várias tabelas do JOIN... Se for esta a situação, você tem que fazer como o Samuel disso usar o evento onGetTableName, passando o Table Name..., veja abaixo a estrutura do método, o TableName é passado por referência, então o valor que você passar é o que será usado, o update/insert/delete será passado de acordo com as configurações no ProviderFlags... procedure TForm2.DataSetProvider1GetTableName(Sender: TObject; DataSet: TDataSet; var TableName: WideString); begin end; O Provider funciona desta forma, para casos em que você faz select em apenas uma tabela, não há necessidade de usar isso Espero ter ajudado... Abraços, Andreano Lanusse System Engineer Borland Latin America Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - www.borland.com.br blocked::http://www.borland.com.br/ A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: terça-feira, 31 de janeiro de 2006 16:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [URGENTE] applyupdates no delphi 2006 nao funciona! é o DBExpress tem esse bugzinho só funciona com select em MAIUSCULO. pelos menos aqui foi so colocar em maiusculo que funcionou perfeitamente... []s Fellipe H. Em 31/01/06, Luis Lopes [EMAIL PROTECTED] escreveu: Quando tive esse problema foi porque meu banco foi criado com letra maiúscula e eu estava fazendo o select com letra minúscula (ou vice-versa, não me lembro...rs)... []´s Luis Alberto. --- Fellipe Henrique [EMAIL PROTECTED] escreveu: Por acaso no seu SQL você está usando algum JOIN? Se sim, vá no editor de campos (clique duas vezes no CDS) e selecione os campos que você está trazendo do JOIN e na UpdateFlags dele coloca False em Update... Se não verifique se sua tabela está com o mesmo nome que está no SQL []s Fellipe H. Em 31/01/06, Rafael Jorge [EMAIL PROTECTED] escreveu: eu tinha uma aplicacao usando IBO mas por via de necessidades tive que trocar por clientdataset. estou usando assim um sqlconnection - sqldataset - datasetprovider - clientdataset (ou seja a estrutura do dbexpress padrao), quando eu edito, insiro ou excluo um registro esta tudo beleza. mas se eu der um applyupdates ele dis que a tabela estqa perdida. nao entendo pois eu abro aquery. adiciono os fields e tudo. o erro é raised exception class Edatabaseerror with message 'Database server error: table unknown nome da minha tabela . ja nao sei mais o que fazer. essa tabela abre. mostra na grid. e editavel localmente e tudo mas se eu der um applyupdates já era. da erro. e meu prezo estourou e nao vejo solucao para isso. me ajudem por favor. obrigado. -- Rafael jorge alves www.itrecife.com - para verem meus artigos e trabalhos t+ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE http://br.ard.yahoo.com/SIG=12flk6ucr/M=393477.7870451.8719931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1138688129/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_3 -- *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] [EMAIL PROTECTED]http://[EMAIL PROTECTED]/?subject=Unsubscribe - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- _ Fellipe Henrique [EMAIL PROTECTED] Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM http://br.groups.yahoo.com/group/delphi-br/messages [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.yahoo.com/info/utos.html Luis Alberto
Re: RES: [delphi-br] Urgente.
Vlw Rodrigo, acredito que será de grande ajuda.
Rodrigo Mota [EMAIL PROTECTED] escreveu: Segue abaixo o código que tenho no
meu botao, gravei o resultado de cada
Campo em variáveis globais definidas na sessão PUPLIC para que outros
forms do meu
Projeto tenha acesso as variáveis.
Uma outra pessoa do grupo fez uma função que pega somente o id do
usuário conectado e sempre que abre um
Form ele verifica o ID na tabela de permissões e vê se ele tem acesso.
Sobre essa forma não recomendo
Pois toda hora que vc abrir algum form será consultado o banco, gerando
então muito trafego(stress no banco)
Do jeito que eu fiz eh soh no login e pronto e armazeno em variáveis
globais.
procedure Tfrmlogin.spdLoginClick(Sender: TObject);
begin
dm.qr_login.Close;
dm.qr_login.SQL.Clear;
dm.qr_login.SQL.Add('SELECT per.per_cadastro, per.per_alter_cad,
per.per_orbitall, per.per_seguranca, per.per_contrato,
per.per_relat_fun, log.log_nome, log.log_descnivel,
log.log_nivel, count(1) as resultado FROM tb_login log, tb_permissao
per');
dm.qr_login.SQL.Add('WHERE log_login ='''+edit1.Text+''' AND log_senha
='''+edit2.Text+'''AND log.log_codigo = per.per_codigo GROUP BY
log_nome, log_descnivel,log_nivel, per_cadastro, per_alter_cad,
per_orbitall, per_seguranca, per_contrato, per_relat_fun');
dm.qr_login.Open;
if (dm.dsn_login.DataSet['resultado'] = 1 )then {Verificar se a coluna
resultado vai retornar (1), caso sim o usuário existe}
begin
USR_NOME := dm.dsn_login.DataSet['log_nome']; {Gravar na
Variável Global Nome do usuário}
USR_DESCNIVEL := dm.dsn_login.DataSet['log_descnivel'];
{Gravar na Variável Global Desc. do Nível}
USR_NIVEL := dm.dsn_login.DataSet['log_nivel']; {Gravar na
Variável Global o Nivel do Usuário}
PER_CADASTRO := dm.dsn_login.DataSet['per_cadastro']; {Gravar
na Variável Global se o usuário tem acesso a cadastro}
PER_ALTER_CAD := dm.dsn_login.DataSet['per_alter_cad'];
{Gravar na Variável Global se o usuário tem acesso a alteração de
cadastro}
PER_ORBITALL := dm.dsn_login.DataSet['per_orbitall']; {Gravar
na Variável Global se o usuário tem acesso a sistema orbitall}
PER_SEGURANCA := dm.dsn_login.DataSet['per_seguranca'];
{Gravar na Variável Global se o usuário tem acesso a cadastro de
usuário}
PER_CONTRATO := dm.dsn_login.DataSet['per_contrato']; {Gravar
na Variável Global se o usuário tem acesso geração de contrato}
PER_RELAT_FUN := dm.dsn_login.DataSet['per_relat_fun'];
{Gravar na Variável Global se o usuário tem acesso impressao de
relatorio}
frmlogin.Close;
end else
begin
Counter := Counter + 1;
If Messagedlg('Senha incorreta, deseja
repetir?',mtconfirmation,[mbyes,mbno],0)=mrno
then Application.Terminate;
If ( Counter 3 ) then
begin
Application.Terminate;
end;
end;
end;
Rodrigo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Paulo Cesar Rohleder
Enviada em: quarta-feira, 13 de julho de 2005 14:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Urgente.
Rodrigo ..estou precisando de uma coisa parecida..
Se não for pedir muito, poderia me mandar um exemplo de como voce
fez..?? sou inciante e to apanhando muito...
Obrigado pela atenção...
- Original Message -
From: Rodrigo Mota
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 13, 2005 12:51 PM
Subject: RES: [delphi-br] Urgente.
Kara blz
Eu fiz de um jeito que fica mais flexível
Criei uma tabela de:
login
permissoes
exemplo pra vc
(tb_login) nome da tabela
log_codigo - Código autoincrement com chavePri
log_nome - Nome do usuário (caso vc queira que apareça na status bar)
log_login - Login do usuário
log_senha - Senha do usuário
log_status - Status do usuário se for 1-Ativado - 0 Desativado
(tb_permissoes) nome da tabela
log_codigo - aki eu coloco o código da tb_login (Faço um
relacionamento)
per_cadastro - Acesso a cadastro
per_relatorios - Acesso a relatórios
per_compra - Acesso a compras
per_produtos - Acesso a cadastro de produtos
Isso é um exemplo simplificado do que eu tenho.
Na tela de login vc faz um selec e coloca a coluna das em variáveis
pra
vc controlar depois na outra tela
Quem tem permissão e quem não tem e tal.
Espero ter ajudado um pouquinho
Rodrigo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de plucaslazaro
Enviada em: quarta-feira, 13 de julho de 2005 09:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Urgente.
Bom dia Rubem
Olhe qto ao controle de usuários, vc pode criar uma tabela contendo o
nome
do usuario, a senha, quais opções do menu ele podera acessar e um
campo
com
nível de acesso, vc cadastra cada usuário com seu login e senha e vai
dando
a eles as opções que cada um poderá
RES: [delphi-br] Urgente.
no meus cliente o controle he feito via forms... Tenho uma tabela com todos os forms do projeto. Uma outra tabela com o codigo do usuario x formname, que tiver cadastrado nele pode utilizar o form. Quem nao estiver nao pode, a menos que seja um gerente. No momento tem dado bons resultados. Sobre tudo porque fica na mao do proprio ususario do sistema. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 267.8.13 - Release Date: 12/7/2005 [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] ou [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
RES: [delphi-br] Urgente.
Kara blz Eu fiz de um jeito que fica mais flexível Criei uma tabela de: login permissoes exemplo pra vc (tb_login) nome da tabela log_codigo Código autoincrement com chavePri log_nome Nome do usuário (caso vc queira que apareça na status bar) log_login Login do usuário log_senha Senha do usuário log_status Status do usuário se for 1-Ativado 0 Desativado (tb_permissoes) nome da tabela log_codigo aki eu coloco o código da tb_login (Faço um relacionamento) per_cadastro Acesso a cadastro per_relatorios Acesso a relatórios per_compra Acesso a compras per_produtos Acesso a cadastro de produtos Isso é um exemplo simplificado do que eu tenho. Na tela de login vc faz um selec e coloca a coluna das em variáveis pra vc controlar depois na outra tela Quem tem permissão e quem não tem e tal. Espero ter ajudado um pouquinho Rodrigo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de plucaslazaro Enviada em: quarta-feira, 13 de julho de 2005 09:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Urgente. Bom dia Rubem Olhe qto ao controle de usuários, vc pode criar uma tabela contendo o nome do usuario, a senha, quais opções do menu ele podera acessar e um campo com nível de acesso, vc cadastra cada usuário com seu login e senha e vai dando a eles as opções que cada um poderá utilizar no seu sistema. Tipo assim. codigo nome nivel de acesso clientes fornecedores produtos relatorios backup etc... niveis de acesso pode ser 1-acesso total 2-acesso somente para ver registros, sem altera-los e 3-nao pode acessar. Paulo - Original Message - From: Rubem Nascimento da Rocha [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 12, 2005 6:06 PM Subject: Re: [delphi-br] Urgente. ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.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] ou [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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [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] ou [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
RES: [delphi-br] Urgente.
- simples, bem simples... - tabela dos forms: CREATE TABLE formsdosistema ( nomeform varchar(30), observacao varchar(200) ) - tabela com os forms e os usuarios CREATE TABLE formselogins ( codigosenha numeric(3), nomeform varchar(30) ) - Obs. codigosenha = id do usuario... - a função abaixo pesquisa se o id usuario pode utilizar uma determinada tela, caso ese usuario seja um gerente, libera a tela function PodeUsar (codigosenha_ ,nomeFORM_ : string) : boolean ; begin result := false ; if (dmprincipal.qryvalidloginfuncao.AsString = 'G') or (dmprincipal.qryvalidloginnivel.AsInteger = 0) or (eGerente(codigosenha_) = true) then result := true else begin dmprincipal.qry_temp.Close ; dmprincipal.qry_temp.SQL.Text := 'SELECT * FROM formsElogins WHERE ' + 'CODIGOSENHA = ' + codigosenha_ + ' AND upper(NOMEFORM) = ' + ASPA + trim(AnsiUpperCase(NOMEFORM_)) + ASPA ; dmprincipal.qry_temp.Open ; if not dmprincipal.qry_temp.Eof then result := true ; end ; end ; - finalmente antes de criar o form, pergunto : if not podeusar(dmprincipal.qryvalidlogincodigosenha.asstring,'frmesmpof') then exit ; Application.CreateForm(Tfrmesmpof, frmesmpof); frmesmpof.showModal ; FreeAndNil(frmesmpof) ; no momento estou sem tempo, mas futuramente quero inserir a opcao na tabela formselogins, se entra no modo, leitura ou escritura/leitura ... ESpero ter ajudado... -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 267.8.13 - Release Date: 12/7/2005 [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] ou [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
RES: [delphi-br] Urgente.
Segue abaixo o código que tenho no meu botao, gravei o resultado de cada
Campo em variáveis globais definidas na sessão PUPLIC para que outros
forms do meu
Projeto tenha acesso as variáveis.
Uma outra pessoa do grupo fez uma função que pega somente o id do
usuário conectado e sempre que abre um
Form ele verifica o ID na tabela de permissões e vê se ele tem acesso.
Sobre essa forma não recomendo
Pois toda hora que vc abrir algum form será consultado o banco, gerando
então muito trafego(stress no banco)
Do jeito que eu fiz eh soh no login e pronto e armazeno em variáveis
globais.
procedure Tfrmlogin.spdLoginClick(Sender: TObject);
begin
dm.qr_login.Close;
dm.qr_login.SQL.Clear;
dm.qr_login.SQL.Add('SELECT per.per_cadastro, per.per_alter_cad,
per.per_orbitall, per.per_seguranca, per.per_contrato,
per.per_relat_fun, log.log_nome, log.log_descnivel,
log.log_nivel, count(1) as resultado FROM tb_login log, tb_permissao
per');
dm.qr_login.SQL.Add('WHERE log_login ='''+edit1.Text+''' AND log_senha
='''+edit2.Text+'''AND log.log_codigo = per.per_codigo GROUP BY
log_nome, log_descnivel,log_nivel, per_cadastro, per_alter_cad,
per_orbitall, per_seguranca, per_contrato, per_relat_fun');
dm.qr_login.Open;
if (dm.dsn_login.DataSet['resultado'] = 1 )then {Verificar se a coluna
resultado vai retornar (1), caso sim o usuário existe}
begin
USR_NOME := dm.dsn_login.DataSet['log_nome']; {Gravar na
Variável Global Nome do usuário}
USR_DESCNIVEL := dm.dsn_login.DataSet['log_descnivel'];
{Gravar na Variável Global Desc. do Nível}
USR_NIVEL := dm.dsn_login.DataSet['log_nivel']; {Gravar na
Variável Global o Nivel do Usuário}
PER_CADASTRO := dm.dsn_login.DataSet['per_cadastro']; {Gravar
na Variável Global se o usuário tem acesso a cadastro}
PER_ALTER_CAD := dm.dsn_login.DataSet['per_alter_cad'];
{Gravar na Variável Global se o usuário tem acesso a alteração de
cadastro}
PER_ORBITALL := dm.dsn_login.DataSet['per_orbitall']; {Gravar
na Variável Global se o usuário tem acesso a sistema orbitall}
PER_SEGURANCA := dm.dsn_login.DataSet['per_seguranca'];
{Gravar na Variável Global se o usuário tem acesso a cadastro de
usuário}
PER_CONTRATO := dm.dsn_login.DataSet['per_contrato']; {Gravar
na Variável Global se o usuário tem acesso geração de contrato}
PER_RELAT_FUN := dm.dsn_login.DataSet['per_relat_fun'];
{Gravar na Variável Global se o usuário tem acesso impressao de
relatorio}
frmlogin.Close;
end else
begin
Counter := Counter + 1;
If Messagedlg('Senha incorreta, deseja
repetir?',mtconfirmation,[mbyes,mbno],0)=mrno
then Application.Terminate;
If ( Counter 3 ) then
begin
Application.Terminate;
end;
end;
end;
Rodrigo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Paulo Cesar Rohleder
Enviada em: quarta-feira, 13 de julho de 2005 14:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Urgente.
Rodrigo ..estou precisando de uma coisa parecida..
Se não for pedir muito, poderia me mandar um exemplo de como voce
fez..?? sou inciante e to apanhando muito...
Obrigado pela atenção...
- Original Message -
From: Rodrigo Mota
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 13, 2005 12:51 PM
Subject: RES: [delphi-br] Urgente.
Kara blz
Eu fiz de um jeito que fica mais flexível
Criei uma tabela de:
login
permissoes
exemplo pra vc
(tb_login) nome da tabela
log_codigo - Código autoincrement com chavePri
log_nome - Nome do usuário (caso vc queira que apareça na status bar)
log_login - Login do usuário
log_senha - Senha do usuário
log_status - Status do usuário se for 1-Ativado - 0 Desativado
(tb_permissoes) nome da tabela
log_codigo - aki eu coloco o código da tb_login (Faço um
relacionamento)
per_cadastro - Acesso a cadastro
per_relatorios - Acesso a relatórios
per_compra - Acesso a compras
per_produtos - Acesso a cadastro de produtos
Isso é um exemplo simplificado do que eu tenho.
Na tela de login vc faz um selec e coloca a coluna das em variáveis
pra
vc controlar depois na outra tela
Quem tem permissão e quem não tem e tal.
Espero ter ajudado um pouquinho
Rodrigo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de plucaslazaro
Enviada em: quarta-feira, 13 de julho de 2005 09:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Urgente.
Bom dia Rubem
Olhe qto ao controle de usuários, vc pode criar uma tabela contendo o
nome
do usuario, a senha, quais opções do menu ele podera acessar e um
campo
com
nível de acesso, vc cadastra cada usuário com seu login e senha e vai
dando
a eles as opções que cada um poderá utilizar no seu sistema. Tipo
assim.
codigo
nome
nivel de acesso
clientes
Re: RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickRepo rt 4
Grato pela ajuda. Mas vc poderia esplicar melhor. eu nao entendi direito. Walter Alves Chagas Junior escreveu: Este erro normalmente ocorre quando há duas units com mesmo nome mas nas duas BPL´s. Pode ser isto daí []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 9 de março de 2005 16:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickReport 4 Por favor quem ja teve este tipo de problema me ajude. Estou tentando instalar o QuickReport 4 junto com o JEDI esta dando erro de bpl nao pode ser acessado(qrpt70). Ai eu apago esta bpl(qrpt70) e instala o QuickReport 4 direitinho mas o JEDI para de funcionar. E tambem quando entro nos fontes do meu sistema aparece uma mensagen de que nao conseguiu achar este componemte JvCurrEdit. Como resolvo isso. eu realmente uso este componente! Estou usando o Windows XP SP2 + Delphi 7 com SP1 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [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] ou [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: RES: RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + Quic kRepo rt 4
Agora to comecando a enterder. Vc por um acaso nao sabe em quais units estao usando ela? Eu procurei este arquivo xpto.pas e nao o encontrei. Walter Alves Chagas Junior escreveu: considere a unit xpto.pas Se voce tem dois pacotes de componentes distintos e que cada um tenha uma BPL específica. Não pode haver nas duas, ao mesmo tempo, a unit xpto.pas. Somente em uma do contrário dá conflito na hora da carga da bpl []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 10 de março de 2005 07:33 Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Assunto: Re: RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickRepo rt 4 Grato pela ajuda. Mas vc poderia esplicar melhor. eu nao entendi direito. Walter Alves Chagas Junior escreveu: Este erro normalmente ocorre quando há duas units com mesmo nome mas nas duas BPL´s. Pode ser isto daí []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 9 de março de 2005 16:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickReport 4 Por favor quem ja teve este tipo de problema me ajude. Estou tentando instalar o QuickReport 4 junto com o JEDI esta dando erro de bpl nao pode ser acessado(qrpt70). Ai eu apago esta bpl(qrpt70) e instala o QuickReport 4 direitinho mas o JEDI para de funcionar. E tambem quando entro nos fontes do meu sistema aparece uma mensagen de que nao conseguiu achar este componemte JvCurrEdit. Como resolvo isso. eu realmente uso este componente! Estou usando o Windows XP SP2 + Delphi 7 com SP1 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [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] ou [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: RES: RES: RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + Quic kRepo rt 4
Walter Alves Chagas Junior escreveu: Meu amigo xpto.pas NÃO EXISTE! Eu usei este nome fictíciamente para você entender. Você tem que olhar nas mensagens de geração e carga da bpl que o linkeditor irá te informar. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 10 de março de 2005 08:03 Para: Walter Alves Chagas Junior Cc: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + Quic kRepo rt 4 Agora to comecando a enterder. Vc por um acaso nao sabe em quais units estao usando ela? Eu procurei este arquivo xpto.pas e nao o encontrei. Walter Alves Chagas Junior escreveu: considere a unit xpto.pas Se voce tem dois pacotes de componentes distintos e que cada um tenha uma BPL específica. Não pode haver nas duas, ao mesmo tempo, a unit xpto.pas. Somente em uma do contrário dá conflito na hora da carga da bpl []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 10 de março de 2005 07:33 Para: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Assunto: Re: RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickRepo rt 4 Grato pela ajuda. Mas vc poderia esplicar melhor. eu nao entendi direito. Walter Alves Chagas Junior escreveu: Este erro normalmente ocorre quando há duas units com mesmo nome mas nas duas BPL´s. Pode ser isto daí []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 9 de março de 2005 16:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickReport 4 Por favor quem ja teve este tipo de problema me ajude. Estou tentando instalar o QuickReport 4 junto com o JEDI esta dando erro de bpl nao pode ser acessado(qrpt70). Ai eu apago esta bpl(qrpt70) e instala o QuickReport 4 direitinho mas o JEDI para de funcionar. E tambem quando entro nos fontes do meu sistema aparece uma mensagen de que nao conseguiu achar este componemte JvCurrEdit. Como resolvo isso. eu realmente uso este componente! Estou usando o Windows XP SP2 + Delphi 7 com SP1 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] Ha soh, desculpe minha ignorancia. rsrsrs... Grato pela ajuda. -- 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] ou [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
RES: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickRepo rt 4
Este erro normalmente ocorre quando há duas units com mesmo nome mas nas duas BPL´s. Pode ser isto daí []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Ridson [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 9 de março de 2005 16:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Urgente - Instalar a biblioteca JEDI + QuickReport 4 Por favor quem ja teve este tipo de problema me ajude. Estou tentando instalar o QuickReport 4 junto com o JEDI esta dando erro de bpl nao pode ser acessado(qrpt70). Ai eu apago esta bpl(qrpt70) e instala o QuickReport 4 direitinho mas o JEDI para de funcionar. E tambem quando entro nos fontes do meu sistema aparece uma mensagen de que nao conseguiu achar este componemte JvCurrEdit. Como resolvo isso. eu realmente uso este componente! Estou usando o Windows XP SP2 + Delphi 7 com SP1 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [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] ou [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
RES: [delphi-br] URGENTE !!!
Estou usando a dica abaixo do www.delphi.eti.br http://www.delphi.eti.br/ voce precisa se cadastrar Cria um arquivo com os comandos e depois usa o exemplo. ::: Impressão direto pra porta (lpt, usb) ::: http://www.delphi.eti.br/ver_dica.php?id=801 Elcio Domingos Ramos mailto:[EMAIL PROTECTED] DEMAG Cranes Components Ltda. Planejamento Industrial Fone: (11)4615-7823 - Fax : (11)4615-7910 -Mensagem original- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 27 de janeiro de 2005 11:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] URGENTE !!! Como imprimir em USB usando o WriteLN Valmir Gomes Ribeiro Tecnologia da Informação AUDIFAR Filial - Recife Tel: 81 3472-7447 Cel: 81 9924-4904 [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif http://br.rd.yahoo.com/SIG=12afr9cpa/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1106919957/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/ _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do http://br.yahoo.com/info/utos.html Serviço do Yahoo!. [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] ou [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
RES: [delphi-br] URGENTE :QR COM MATRICIAL
Amigo, Verifique no Windows o papel usado na configuração da impressora matricial. Normalmente, o quick ignora o tamanho por nós definido e usa a definição do Windows. Tente alterar por lá. Comigo deu certo. Alexandre -Mensagem original- De: sr_doidera . [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 13 de outubro de 2004 19:03 Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: [delphi-br] URGENTE :QR COM MATRICIAL eu estou com um serio problema! que talves me custe um cliente! eu utilizo delphi 7 com o quickrep que vem no cd do mesmo eu tenho um sistema com mais de 150 relatórios diferentes, o sistema é muito grande e pelo fato do sistema ser grande ouve estouro de prazo, etc. bem apos todos esses problemas finalmente o sistema esta pronto e instalado neste meu cliente! ótimo, o treinamento foi dado , tudo blz. só que esta acontecendo algo muito chato que esta deixando o meu cliente indiguinado, a questão é que ele só utiliza matriciais! eu fiz meu sistema utilizando o quick report 3.0.9 e deixei os documentos de acordo com o tamanho que eu desejava! só que o danado teima em sempre imprimir em tamanho A4! o que ai acarreta na necessidade de um funcionário ter que ir na impressora rodar o papel ate a posição que ele deveria estar! como é uma fabrica o meu cliente esta quase cancelando tudo pois do jeito que esta o processo nao da! tem como eu deixar o quickrepor só imprimindo nas dimensões que eu quero?? eu estou definindo o papel como custon e dando as dimensões ai ele escreve .' no cantinho da folha e a libera! ai um amigo da lista mandou eu setar custom digitar o tamanho e tudo na pagina e depois setar como defult, so que a bronca continua: em vez dele imprimir os ... ele imprime normalmente mas corre a folha a te o tamanho de um a4! outra coisa que eu percebi e que ao dar um previw ele vai como folha a4 se o default estiver setado nao importando o tamanho que eu tenha passado! como eu resolvo isso??? obs.: todos os relatórios são herdados de um relatório principal que eu uso como modelo! onde neste relatório esta o titulo e uma função para montar um cabeçario _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Email sem vírus Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.776 / Virus Database: 523 - Release Date: 12/10/2004 --- Email sem vírus Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.776 / Virus Database: 523 - Release Date: 12/10/2004 -- 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] ou [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
