Res: [delphi-br] Adicionar vários registro num int ervalo de números
Alexsandro, pense assim. Para cada passada pelo for é como se o usuário estive preenchendo todos os campos e pressionando o botão de salvar. Você tem que colocar dentro do for todos os comando para que o insert funcione. No meu exemplo, os ... são os outros comando que você precisa colocar, exemplo dm.ADOTExemplarNomeLivro.Value: = edtNomeLivro.Text; Luciano Calenzani Simões - Mensagem original De: Alexsandro [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 17 de Junho de 2008 18:17:06 Assunto: Re: Res: [delphi-br] Adicionar vários registro num intervalo de números A sim ... É normal ele salvar os códigos fora de ordem com essa função que vc passou, tipo: 1 4 3 --- Em [EMAIL PROTECTED] os.com.br, Alexsandro [EMAIL PROTECTED] escreveu Blz Muito obrigado eu fiz assim, pois uso adotable : For i:= a to (b + c -1) do begin dm.ADOTExemplar. Insert; dm.ADOTExemplarCodE xemplar.Value: =IntToStr( i); Agora como eu posso copiar os outros campos tambem, junto? Tipo preencho os dados : edição, nome do livro, e ele cria esses códigos que esta funfando filé, e copiando a primeira linha, junto com o código. Ex: 1 maria 5ºEdição 2 Maria 5ºEdição 3 Maria 5ºEdição Muito Grato pela atenção --- Em [EMAIL PROTECTED] os.com.br, Luciano Calenzani Simões simoesluciano@ escreveu ... for i := InicioIntervalo to (InicioIntervalo + Quantidade - 1) do begin ... Query.SQL.Text := 'insert ...'; ... Query.ParamByName( 'codexemplar) .AsInteger := i; Query.ExecSQL; ... end; ... Luciano Calenzani Simões - Mensagem original De: Alexsandro aq.s@ Para: [EMAIL PROTECTED] os.com.br Enviadas: Segunda-feira, 16 de Junho de 2008 17:32:11 Assunto: [delphi-br] Adicionar vários registro num intervalo de números Boa tarde pessoal, Como eu posso adicionar registros em uma tabela de acordo com o intervalo que o usuário solicitar? Ex: Sistema de biblioteca Quando o usuário for incluir um exemplar, teria que informar quantos exemplares e o intervalo: Quantidade : 3 inicioIntervalo: 4 //no caso o intervalo fica 4,5,6 Resultado : fkLivro codExemplar 404 40 5 40 6 porque se for incluir novos exemplares é só informar o intervalo de novo e a quantidade quant:2 inicio de interva:7 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressora HP Laser P1005 x QuickReport
Ligo o pc, gero um Relatório QuickReport.. não imprime abro o bloco de notas, word.. qq coisa... imprime... volto pro meu aplicavo com quickreport. aí imprime... Delphi7 + QuickReport... O Que pode ser? a porta é USB. tem algo tipo abrir a porta Alcione Guimarães (11)9515-8707 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Acessar PARADOX via REDE - Wndows XP
Bom dia. Como ja foi dito voce precisará do BDE instalado em todas as maquinas que forem acessar o banco. Feito isso, não aconselho utilizar mapeamento para especificar o caminho do BD pois, principalmente o Win98 é danado pra perder mapeamento. Utilize o endereço fisico das maquinas na rede. Tipo \\SERVIDOR\X\DADOS file://servidor/X/DADOS. Outra questão importante para o bom funcionamento do paradox em rede é configurar no BDE aba Configuration, Drivers, Native, PARADOX o item NET DIR deve conter sempre o mesmo endereço em todas as maquinas exemplo: voce tem 2 estações e um servidor dedicado coloque no NET DIR das duas estações o endereço \\servidor\x file://servidor/x este endereço na precisa ser o endereço do banco. pois o paradox utiliza um arquivo chamado PDOXUSRS.NET que gerencia o acesso via rede ao BD e todos os computadores devem ser gerenciados pelo mesmo aquivo PDOXUSRS.NET caso contrario voce vai ter problemas de acesso. Então de uma atenção especial a este item. Grande abraço Sandro 2008/6/12 nillgolv [EMAIL PROTECTED]: A quem possa me ajudar, Tenho um sistema de cadastro de clientes que usei o bd paradox. Instalei na maquina PC-01. Peguei a cópia do executavel e coloquei no PC-02. Quero acessar o bd que esta no PC-01 Qual o procedimento que devo fazer. Onde devo configurar para ter o acesso deste bd. Peço esta ajuda por favor Grato [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BDE - Alias Grande...
Pessoal Alguns aliases grandes no meu BDE não funcionando pois o erro diz que o caminho do Alias é muito grande, se eu troco de lugar que o caminho seja menor funciona, alguem sabe como fazer para o BDE aceitar alias com o caminho grande? att. Juliano Silva [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mysql 5.0 e Delphi 7 - erros
Bom dia amigos Banco de dados Mysql 5.0 Delphi 7 Conexão: dbExpress, SQLQuery Tenho o seguinte sql : Select chamado, ddd, codigo, cod_campanha_detalhe, data_hora from log_eventos_basicos leb, integracao i where data_hora between '2008-06-16 16:59:16' and '2008-06-16 16:59:16' and i.cod_evba = leb.codigo No delphi estou usando assim: Select chamado, ddd, codigo, cod_campanha_detalhe, data_hora from log_eventos_basicos leb, integracao i where data_hora between :dataInicio and :datafim and i.cod_evba = leb.codigo Passando dois parâmetros com o Params do tipo : FtVariant erro - No value for parameter 'dataInicio' Já testei ftDateTime erro - DBX Error: Invalid Handle Agradeço se alguém poder ajudar.
[delphi-br] como faço para exportar e importar dados por meio de arq uivo txt
Achei um projetinho na net que faz isso, mas não funcionou muito bem, pois percebi que não consigo ter controle perfeito sobre o tamanho das colunas quando exporto, em fim, alguém sabe se há algum componente free disponível para isso, ou algum exemplo que funcione bem. Grato pela atenção. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: como faço para exportar e importar dados por meio de arquivo txt
Bom dia amigo veja se isso pode lhe ajudar. Exportação e Importação de dados em TXT com Firebird http://www.activedelphi.com.br/modules.php? op=modloadname=Newsfile=articlesid=581
Res: [delphi-br] Re: como faço para exportar e i mportar dados por meio de arquivo txt
tb procuro material e se alguem tiver tb gostaria de receber utilizo sqlserver - Mensagem original De: itasouza [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Junho de 2008 12:16:14 Assunto: [delphi-br] Re: como faço para exportar e importar dados por meio de arquivo txt Bom dia amigo veja se isso pode lhe ajudar. Exportação e Importação de dados em TXT com Firebird http://www.activede lphi.com. br/modules. php? op=modloadname= Newsfile= articlesid= 581 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]
Re: [delphi-br] Autenticação do Usuário no Delphi
Davi,
Para efeitos de testes fiz uma aplicação contendo 2 componentes TEdits, uma
para o usuário e outro para senha e 3 botões de autenticação.
No Botão 1 coloquei o seguinte código:
StringToWideChar(Self.edUserID.Text,NomUsu,Length(Self.edUserID.Text));
StringToWideChar(Self.edPassword.Text,SenUsu,Length(Self.edPassword.Text));
hr:=ADsOpenObject('LDAP://ENDEREÇO_IP_SERVIDOR/CN=' + 'Users' +
',DC=CONTROLADOR DE
DOMINIO',NomUsu,SenUsu,ADS_PROMPT_CREDENTIALS,IADs,obj);
if Succeeded(hr) then
ShowMessage(obj.Name+','+obj.ADsPath)
else
Showmessage(inttostr(hr));
O retorno para usuário e senha válidos é sempre um valor negativo
(-2147016672)
No evento OnClick do Botão 2:
if
LogonUserSSPI(edUserID.Text,ENDERECO_IP_SERVIDOR,edPassword.Text)=True
then
showmessage('Conectou')
else
ShowMessage('Não conectou');
Retorna 'Não Conectou' para usuário e senha válidos .
No evento OnClick do Botão 3:
if LogonUser(Pchar(edUserID.Text),
Pchar('10.10.20.230'),
Pchar(edPassword.Text),
LOGON32_LOGON_NETWORK,
LOGON32_PROVIDER_DEFAULT,
handle)=TRue then
showmessage('Conectou')
else
ShowMessage('Não conectou');
Retorna 'Não Conectou' para usuário e senha válidos .
Ainda estou na luta pra resolver esse problema.
Tem alguma coisa errada na configuração das funções de autenticação?
Qualquer ajuda é bem vinda.
Grato
André
2008/6/11 Davi Eduardo Borges Wall [EMAIL PROTECTED]:
Defina NADA FUNCIONA, qual erro?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre Farias
Enviada em: quarta-feira, 11 de junho de 2008 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Autenticação do Usuário no Delphi
ninguém sabe?
2008/6/11 algf103 [EMAIL PROTECTED]
mailto:agfarias%40gmail.comagfarias%2540gmail.com
:
E ai Pessoal,
Estou desenvolvendo uma aplicação Delphi que precisa autenticar o
usuário cada vez que roda o programa, mas não estou conseguindo.
Já chamei a função LogonUser, ADsOpenObject e LogonUserSSPI e nada
funciona.
LogonUser(Pchar(edUserID.Text),Pchar(edEnderIP.Text),
Pchar(edPassword.Text),
LOGON32_LOGON_INTERACTIVE,
LOGON32_PROVIDER_DEFAULT,
handle);
hr:=ADsOpenObject('LDAP://ENDERECOIP/CN=' + 'Users'
+ ',DC=CONTROLADOR_DO_ DOMINIO', NomUsu, SenUsu,
ADS_PROMPT_CREDENTIALS, IADs, obj);
O sistema operacional do servidor é windows 2003 server e a
aplicação cliente roda no windows xp professional.
Que pode estar acontecendo? Teria alguma maneira de chamar o prompt
do Windows Authentication para fazer essa autenticação?
Qualquer ajuda é bem-vinda.
Obrigado
André
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF TOPIC
Galera Bom Dia. Desculpem o off topic aqui na lista. Estou a procura de emprego, sou de Belo Horizonte, se alguem puder me ajudar ficarei grato. Segue abaixo email de contato e msn. No mais agradeço a atenção de todos. E que todos tenham um otimo dia. E mais uma vez me desculpem pelo assunto, mais e que eu estou correndo atras. Obrigado. Rodrigo Magno [EMAIL PROTECTED] msn [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nota Fiscal Eletronica
Saudações, Alguém da lista já desenvolveu Nota Fiscal Eletrônica em Delphi 7. Estou iniciando o desenvolvimento para um cliente e gostaria de saber quais são os maiores desafios que enfrentaram no desenvolvimento da NFe em Delphi 7. Evandro
RES: [delphi-br] OFF TOPIC
Eu não posso te ajudar, sou de Rio Branco-AC. Dá uma olhada nessa lista e poste o mail lá. http://br.groups.yahoo.com/group/delphi-empregos/?v=1 http://br.groups.yahoo.com/group/delphi-empregos/?v=1t=directorych=webpub=groupssec=dirslk=5 t=directorych=webpub=groupssec=dirslk=5 []’s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Magno Enviada em: quarta-feira, 18 de junho de 2008 09:07 Para: Grupo Lista Delphi Cc: GrupoDelphi Assunto: [delphi-br] OFF TOPIC Galera Bom Dia. Desculpem o off topic aqui na lista. Estou a procura de emprego, sou de Belo Horizonte, se alguem puder me ajudar ficarei grato. Segue abaixo email de contato e msn. No mais agradeço a atenção de todos. E que todos tenham um otimo dia. E mais uma vez me desculpem pelo assunto, mais e que eu estou correndo atras. Obrigado. Rodrigo Magno * [EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br msn[EMAIL PROTECTED] mailto:rcmagnobh%40yahoo.com.br Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota Fiscal Eletronica
Olá Evandro Eu já desenvolvi um projeto de nota fiscal eletrônica, mas com delphi 2007 e .net. Antes dei uma olhada em desenvolvimento com win32 e onde mais senti dificuldade foi na utilização do certificado digital pra acesso ao webservice, ou seja, fazer a conexão usando SSL. O componente HTTPRio não faz conexão com SSL. O Indy tem um componente pra SSL. O que vi por aí é uma mistura dos dois. Alguns códigos que mesclam os dois componentes, mas não fui a fundo nisso. Acho que pode valer a pena partir pra componentes de terceiros, já que existem alguns por aí que fazem toda a parte da conexão e da assinatura digital. Acredito que esse seja o maior desafio. O resto é tranquilo. O meu projeto na verdade não é para um cliente específico. Eu criei um sistema pra fazer esse processo pra quem não quer desenvolver ou não tem tempo hábil pra isso. O meu aplicativo se integra ao software do cliente e troca informações com este, criando os arquivos xml, fazendo a assinatura digital, fazendo as conexões e recebendo os retornos. Estou nos finalmentes dele, fazendo alguns ajustes, mas todas as funções já estão implementadas. Porém ele é todo em .NET. Mas integra-se com qualquer outro sistema, de qualquer linguagem ou ambiente, desde que plataforma windows. Abraço. __ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br www.studion2.com.br - Original Message - From: Evandro Ricardo Silvestre To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 18, 2008 11:24 AM Subject: [delphi-br] Nota Fiscal Eletronica Saudações, Alguém da lista já desenvolveu Nota Fiscal Eletrônica em Delphi 7. Estou iniciando o desenvolvimento para um cliente e gostaria de saber quais são os maiores desafios que enfrentaram no desenvolvimento da NFe em Delphi 7. Evandro __ NOD32 3197 (20080618) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Autenticação do Usuário no Delphi
Que função LogonUserSSPI() é essa? Nem na documentação da API do Windows faz-se
menção a ela!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 18 Jun 2008 13:18:24 -0300
Subject: Re: [delphi-br] Autenticação do Usuário no Delphi
Davi,
Para efeitos de testes fiz uma aplicação contendo 2 componentes TEdits, uma
para o usuário e outro para senha e 3 botões de autenticação.
No Botão 1 coloquei o seguinte código:
StringToWideChar(Self.edUserID.Text,NomUsu,Length(Self.edUserID.Text));
StringToWideChar(Self.edPassword.Text,SenUsu,Length(Self.edPassword.Text));
hr:=ADsOpenObject('LDAP:///CN=' + 'Users' +
',DC= DOMINIO',NomUsu,SenUsu,ADS_PROMPT_CREDENTIALS,IADs,obj);
if Succeeded(hr) then
ShowMessage(obj.Name+','+obj.ADsPath)
else
Showmessage(inttostr(hr));
O retorno para usuário e senha válidos é sempre um valor negativo
(-2147016672)
No evento OnClick do Botão 2:
if
LogonUserSSPI(edUserID.Text,,edPassword.Text)=True
then
showmessage('Conectou')
else
ShowMessage('Não conectou');
Retorna 'Não Conectou' para usuário e senha válidos .
No evento OnClick do Botão 3:
if LogonUser(Pchar(edUserID.Text),
Pchar('10.10.20.230'),
Pchar(edPassword.Text),
LOGON32_LOGON_NETWORK,
LOGON32_PROVIDER_DEFAULT,
handle)=TRue then
showmessage('Conectou')
else
ShowMessage('Não conectou');
Retorna 'Não Conectou' para usuário e senha válidos .
Ainda estou na luta pra resolver esse problema.
Tem alguma coisa errada na configuração das funções de autenticação?
Qualquer ajuda é bem vinda.
Grato
André
2008/6/11 Davi Eduardo Borges Wall [EMAIL PROTECTED]:
Defina NADA FUNCIONA, qual erro?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Andre Farias
Enviada em: quarta-feira, 11 de junho de 2008 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Autenticação do Usuário no Delphi
ninguém sabe?
2008/6/11 algf103 [EMAIL PROTECTED] mailto:agfarias%40gmail.com
:
E ai Pessoal,
Estou desenvolvendo uma aplicação Delphi que precisa autenticar o
usuário cada vez que roda o programa, mas não estou conseguindo.
Já chamei a função LogonUser, ADsOpenObject e LogonUserSSPI e nada
funciona.
LogonUser(Pchar(edUserID.Text),Pchar(edEnderIP.Text),
Pchar(edPassword.Text),
LOGON32_LOGON_INTERACTIVE,
LOGON32_PROVIDER_DEFAULT,
handle);
hr:=ADsOpenObject('LDAP:///CN=' + 'Users'
+ ',DC=', NomUsu, SenUsu,
ADS_PROMPT_CREDENTIALS, IADs, obj);
O sistema operacional do servidor é windows 2003 server e a
aplicação cliente roda no windows xp professional.
Que pode estar acontecendo? Teria alguma maneira de chamar o prompt
do Windows Authentication para fazer essa autenticação?
Qualquer ajuda é bem-vinda.
Obrigado
André
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
[delphi-br] Nota Fiscal Eletronica
No endereço _http://nf-eletronica.com/blog/_ você irá encontrar tudo o que precisa. Sem mais, Marlon David de Souza Desenvolvimento Sysmo Informática Ltda - Original Message - From: Evandro Ricardo Silvestre To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 18, 2008 11:24 AM Subject: [delphi-br] Nota Fiscal Eletronica Saudações, Alguém da lista já desenvolveu Nota Fiscal Eletrônica em Delphi 7. Estou iniciando o desenvolvimento para um cliente e gostaria de saber quais são os maiores desafios que enfrentaram no desenvolvimento da NFe em Delphi 7. Evandro
Res: Res: [delphi-br] Re: como faço para expor tar e importar dados por meio de arquivo txt
Uma boa aplicação para isso é o Toad da Quest Software. http://www.quest.com/toad-for-sql-server/ []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- - Mensagem original De: Sergioinfo SP [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Junho de 2008 12:31:53 Assunto: Res: [delphi-br] Re: como faço para exportar e importar dados por meio de arquivo txt tb procuro material e se alguem tiver tb gostaria de receber utilizo sqlserver - Mensagem original De: itasouza [EMAIL PROTECTED] com.br Para: [EMAIL PROTECTED] os.com.br Enviadas: Quarta-feira, 18 de Junho de 2008 12:16:14 Assunto: [delphi-br] Re: como faço para exportar e importar dados por meio de arquivo txt Bom dia amigo veja se isso pode lhe ajudar. Exportação e Importação de dados em TXT com Firebird http://www.activede lphi.com. br/modules. php? op=modloadname= Newsfile= articlesid= 581 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com Socket
Amigos boa tarde. Estou finalizando uma aplicação que trabalha com comunicação através da internet com um equipamento eletrônico. Para isto, estou utilizando o componente ClientSocket da paleta internet. O problema que está acontecendo é que eu não estou conseguindo conectar o clientsocket em tempo de execução. Por exemplo, se em design time eu altero manualmente a propriedade active do clientesocket para true e executo o programa consigo estabelecer comunicação e o programa funciona bem. Contudo, se eu tentar setar a propriedade active do clientsocket para true em run time o clientesocket simplesmente não conecta. O comando está no evento onCreate do Form. Se alguém tiver alguma idéia ficaria muito grato. Desde já agradeço a atenção. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Problemas com Socket
Só para efeito de teste, tente tirar do onCreate e coloque um botão para clicar e conectar. Luciano Calenzani Simões - Mensagem original De: Davi Eduardo Borges Wall [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Junho de 2008 17:05:22 Assunto: RES: [delphi-br] Problemas com Socket Se não conecta, deve retornar alguma mensagem de erro, correto ? _ _ __ De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Diogo de Oliveira Cunha Enviada em: quarta-feira, 18 de junho de 2008 16:55 Para: [EMAIL PROTECTED] os.com.br Assunto: [delphi-br] Problemas com Socket Amigos boa tarde. Estou finalizando uma aplicação que trabalha com comunicação através da internet com um equipamento eletrônico. Para isto, estou utilizando o componente ClientSocket da paleta internet. O problema que está acontecendo é que eu não estou conseguindo conectar o clientsocket em tempo de execução. Por exemplo, se em design time eu altero manualmente a propriedade active do clientesocket para true e executo o programa consigo estabelecer comunicação e o programa funciona bem. Contudo, se eu tentar setar a propriedade active do clientsocket para true em run time o clientesocket simplesmente não conecta. O comando está no evento onCreate do Form. Se alguém tiver alguma idéia ficaria muito grato. Desde já agradeço a atenção. -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com Socket
Infelizmente não retorna mensagem de erro nenhuma. Coloquei um código no evento onError do Socket mas este não está sendo executado . . . Com relação ao botão, já tentei também, mas infelizmente não surtiu nenhum efeito . . . 2008/6/18 Davi Eduardo Borges Wall [EMAIL PROTECTED]: Se não conecta, deve retornar alguma mensagem de erro, correto ? 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 Diogo de Oliveira Cunha Enviada em: quarta-feira, 18 de junho de 2008 16:55 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Problemas com Socket Amigos boa tarde. Estou finalizando uma aplicação que trabalha com comunicação através da internet com um equipamento eletrônico. Para isto, estou utilizando o componente ClientSocket da paleta internet. O problema que está acontecendo é que eu não estou conseguindo conectar o clientsocket em tempo de execução. Por exemplo, se em design time eu altero manualmente a propriedade active do clientesocket para true e executo o programa consigo estabelecer comunicação e o programa funciona bem. Contudo, se eu tentar setar a propriedade active do clientsocket para true em run time o clientesocket simplesmente não conecta. O comando está no evento onCreate do Form. Se alguém tiver alguma idéia ficaria muito grato. Desde já agradeço a atenção. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Autenticação do Usuário no Delphi
Boa tarde, Rubem
Achei essa função LogonUserSSPI pesquisando no google.
http://www.delphichm.com/html/Api/20070703/273.html
Não entendi direito seu funcionamento, mas sei que está utilizando funções
da DLL SECUR32.DLL.
Chamei ela apenas para testar, afinal, no despero, vai que dá certo...hehehe
Abraços
André
2008/6/18 Rubem Nascimento da Rocha [EMAIL PROTECTED]:
Que função LogonUserSSPI() é essa? Nem na documentação da API do Windows
faz-se menção a ela!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 18 Jun 2008 13:18:24 -0300
Subject: Re: [delphi-br] Autenticação do Usuário no Delphi
Davi,
Para efeitos de testes fiz uma aplicação contendo 2 componentes TEdits,
uma
para o usuário e outro para senha e 3 botões de autenticação.
No Botão 1 coloquei o seguinte código:
StringToWideChar(Self.edUserID.Text,NomUsu,Length(Self.edUserID.Text));
StringToWideChar(Self.edPassword.Text,SenUsu,Length(Self.edPassword.Text));
hr:=ADsOpenObject('LDAP:///CN=' + 'Users' +
',DC= DOMINIO',NomUsu,SenUsu,ADS_PROMPT_CREDENTIALS,IADs,obj);
if Succeeded(hr) then
ShowMessage(obj.Name+','+obj.ADsPath)
else
Showmessage(inttostr(hr));
O retorno para usuário e senha válidos é sempre um valor negativo
(-2147016672)
No evento OnClick do Botão 2:
if
LogonUserSSPI(edUserID.Text,,edPassword.Text)=True
then
showmessage('Conectou')
else
ShowMessage('Não conectou');
Retorna 'Não Conectou' para usuário e senha válidos .
No evento OnClick do Botão 3:
if LogonUser(Pchar(edUserID.Text),
Pchar('10.10.20.230'),
Pchar(edPassword.Text),
LOGON32_LOGON_NETWORK,
LOGON32_PROVIDER_DEFAULT,
handle)=TRue then
showmessage('Conectou')
else
ShowMessage('Não conectou');
Retorna 'Não Conectou' para usuário e senha válidos .
Ainda estou na luta pra resolver esse problema.
Tem alguma coisa errada na configuração das funções de autenticação?
Qualquer ajuda é bem vinda.
Grato
André
2008/6/11 Davi Eduardo Borges Wall [EMAIL PROTECTED]:
Defina NADA FUNCIONA, qual erro?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em
nome de Andre Farias
Enviada em: quarta-feira, 11 de junho de 2008 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Autenticação do Usuário no Delphi
ninguém sabe?
2008/6/11 algf103 [EMAIL PROTECTED]
mailto:agfarias%40gmail.comagfarias%2540gmail.com
:
E ai Pessoal,
Estou desenvolvendo uma aplicação Delphi que precisa autenticar o
usuário cada vez que roda o programa, mas não estou conseguindo.
Já chamei a função LogonUser, ADsOpenObject e LogonUserSSPI e nada
funciona.
LogonUser(Pchar(edUserID.Text),Pchar(edEnderIP.Text),
Pchar(edPassword.Text),
LOGON32_LOGON_INTERACTIVE,
LOGON32_PROVIDER_DEFAULT,
handle);
hr:=ADsOpenObject('LDAP:///CN=' + 'Users'
+ ',DC=', NomUsu, SenUsu,
ADS_PROMPT_CREDENTIALS, IADs, obj);
O sistema operacional do servidor é windows 2003 server e a
aplicação cliente roda no windows xp professional.
Que pode estar acontecendo? Teria alguma maneira de chamar o prompt
do Windows Authentication para fazer essa autenticação?
Qualquer ajuda é bem-vinda.
Obrigado
André
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
_
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] BDE - Alias Grande...
Será que isso não é pau do BDE? Por que não tenta reinstalar? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Res: [delphi-br] Problemas com Socket
Eu uso esse componente com esse código e funciona direitinho: ClientSocket.Host := 1.1.1.1; ClientSocket.Port := 1; while not ClientSocket.Socket.Connected do begin ClientSocket.Active := True; Application.ProcessMessages; Sleep(1000); end; Luciano Calenzani Simões - Mensagem original De: Diogo de Oliveira Cunha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Junho de 2008 17:19:01 Assunto: Re: [delphi-br] Problemas com Socket Infelizmente não retorna mensagem de erro nenhuma. Coloquei um código no evento onError do Socket mas este não está sendo executado . . . Com relação ao botão, já tentei também, mas infelizmente não surtiu nenhum efeito . . . 2008/6/18 Davi Eduardo Borges Wall [EMAIL PROTECTED] com.br: Se não conecta, deve retornar alguma mensagem de erro, correto ? _ _ __ De: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br [mailto: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br] Em nome de Diogo de Oliveira Cunha Enviada em: quarta-feira, 18 de junho de 2008 16:55 Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br Assunto: [delphi-br] Problemas com Socket Amigos boa tarde. Estou finalizando uma aplicação que trabalha com comunicação através da internet com um equipamento eletrônico. Para isto, estou utilizando o componente ClientSocket da paleta internet. O problema que está acontecendo é que eu não estou conseguindo conectar o clientsocket em tempo de execução. Por exemplo, se em design time eu altero manualmente a propriedade active do clientesocket para true e executo o programa consigo estabelecer comunicação e o programa funciona bem. Contudo, se eu tentar setar a propriedade active do clientsocket para true em run time o clientesocket simplesmente não conecta. O comando está no evento onCreate do Form. Se alguém tiver alguma idéia ficaria muito grato. Desde já agradeço a atenção. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DELPHI 5;dm1.Adotbalu.flushbuffers NÃO RECONHECE
Rubem, obrigado pela simples mais importantissima informação. Sou programador há anos em VFP. Em Delphi estou montando uma apostila passo a passo para começar a lecionar, entao, estou montando 1 exemplo com BDE x PARADOX ( li que O BDE está parado desde a versão 5 do DELPHI ) e outro exemplo com ADO X ACCESS. Tudo é fácil para quem sabe, então agradeço por ter me passado essa informação CLARA E DIRETA. --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu Meu caro, esse seu dataset é da paleta ADO? Se for, pode esquecer! O método FlushBuffers() só está definido para descendentes da classe TBDEDataSet. Agora, se for um dataset do BDE (TQuery ou TTable), declare a unit BDE na cláusula uses da seção interface/implementation. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 18 Jun 2008 01:03:21 + Subject: [delphi-br] DELPHI 5;dm1.Adotbalu.flushbuffers NÃO RECONHECE O codigo abaixo usando o DELPHI 5 : procedure Tdm1.AdotbaluAfterPost(DataSet: TDataSet); begin dm1.Adotbalu.flushbuffers ; end Dá erro ! [Error] Udatamodule.pas(50): Undeclared identifier: 'flushbuffers' _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
[delphi-br] Paradox X Table X DblookupCombobox ,o que posso melhorar ?
Estou montando uma apostila para inciantes ( tambem sou em DELPHI ), e
entao resolvi mostrar como fazer com BDE PARADOX e ADO ACCESS.
Criei a Integridade referencial entre os campos MATRICULA das tabelas
alunos e notas (era necessário ?? )( utilizei o DATABASE DESKTOP e
mostrei na apostila com imagens).O form possui 1 DBGRID, 3 Dbedits (
para as notas ),3 botoes ( INCLUIR, GRAVAR E EXCLUIR ) e 1
dblookupcombobox.
Coloquei o codigo abaixo. Mas testando antes de começar a dar as
aulas, sempre ocorre KEY VIOLATION ( sei o que quer dizer, mas nao
entendo o porque que está acontecendo ).
Tambem, queria ensinar fazer na munheca a inserção dos
dados(utilizando EDIT´S ao invés de DBedit´s) com FIELDBYNAME mas nao
consegui fazer o valor do DBlookupcombobox ( vejam a linha abaixo do
TBNOTS.INSERT ), tentei usar o KeyValue mas na hora deu erro de conversão.
Alguem pode me ajudar ?
procedure TFrnotasalu.Button1Click(Sender: TObject);
begin
TBNOTAS.Insert;
{tbnotas.fieldbyname('matricula').asinteger:= db1.KeyValue; // nao
funcoinou
tbnotas.fieldbyname('nota1').asfloat:= strtofloat(edit1.text);
tbnotas.fieldbyname('nota2').asfloat:= strtofloat(edit2.text);
tbnotas.fieldbyname('nota3').asfloat:= strtofloat(edit3.text);}
end;
procedure TFrnotasalu.FormActivate(Sender: TObject);
begin
tbnotas.open;
end;
procedure TFrnotasalu.Button2Click(Sender: TObject);
begin
tbnotas.post;
end;
procedure TFrnotasalu.Button3Click(Sender: TObject);
begin
tbnotas.Delete;
end;
procedure TFrnotasalu.tbnotasAfterPost(DataSet: TDataSet);
begin
Tbnotas.FlushBuffers;
end;
Re: [delphi-br] Problemas com Socket
Luciano, funcionou. A questão era o tempo para estabelecimento do socket. Com o código que você enviou este problema foi resolvido. Muito Obrigado 2008/6/18 Luciano Calenzani Simões [EMAIL PROTECTED]: Eu uso esse componente com esse código e funciona direitinho: ClientSocket.Host := 1.1.1.1; ClientSocket.Port := 1; while not ClientSocket.Socket.Connected do begin ClientSocket.Active := True; Application.ProcessMessages; Sleep(1000); end; Luciano Calenzani Simões - Mensagem original De: Diogo de Oliveira Cunha [EMAIL PROTECTED]diogo.cunhajf%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Junho de 2008 17:19:01 Assunto: Re: [delphi-br] Problemas com Socket Infelizmente não retorna mensagem de erro nenhuma. Coloquei um código no evento onError do Socket mas este não está sendo executado . . . Com relação ao botão, já tentei também, mas infelizmente não surtiu nenhum efeito . . . 2008/6/18 Davi Eduardo Borges Wall [EMAIL PROTECTED] com.br: Se não conecta, deve retornar alguma mensagem de erro, correto ? _ _ __ De: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br [mailto: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br] Em nome de Diogo de Oliveira Cunha Enviada em: quarta-feira, 18 de junho de 2008 16:55 Para: [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br Assunto: [delphi-br] Problemas com Socket Amigos boa tarde. Estou finalizando uma aplicação que trabalha com comunicação através da internet com um equipamento eletrônico. Para isto, estou utilizando o componente ClientSocket da paleta internet. O problema que está acontecendo é que eu não estou conseguindo conectar o clientsocket em tempo de execução. Por exemplo, se em design time eu altero manualmente a propriedade active do clientesocket para true e executo o programa consigo estabelecer comunicação e o programa funciona bem. Contudo, se eu tentar setar a propriedade active do clientsocket para true em run time o clientesocket simplesmente não conecta. O comando está no evento onCreate do Form. Se alguém tiver alguma idéia ficaria muito grato. Desde já agradeço a atenção. -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Paradox X Table X DblookupCombobox ,o que posso melhorar ?
Boa noite!
Gostaria de começar me desculpando, pois minha mensagem não ajudará no problema
objetivo mas sim serve como uma recomendação / conselho / dica / etc.
Acho que não compensa muito se dar ao trabalho de montar uma apostila para
iniciantes abordando BDE e Paradox, já que existem muitas apostilas abordando
essa mesma dupla. Por que não Firebird e DBExpress?
É só uma sugestão e por favor, não se sinta ofendido até pq a iniciativa de
abordar ADO e ACCESS por outro lado, é muito boa.
Atte,
Ricardo.
--- Em qua, 18/6/08, Rogerio Rios Pessanha [EMAIL PROTECTED] escreveu:
De: Rogerio Rios Pessanha [EMAIL PROTECTED]
Assunto: [delphi-br] Paradox X Table X DblookupCombobox ,o que posso melhorar ?
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 18 de Junho de 2008, 20:16
Estou montando uma apostila para inciantes ( tambem sou em DELPHI
), e
entao resolvi mostrar como fazer com BDE PARADOX e ADO ACCESS.
Criei a Integridade referencial entre os campos MATRICULA das tabelas
alunos e notas (era necessário ?? )( utilizei o DATABASE DESKTOP e
mostrei na apostila com imagens).O form possui 1 DBGRID, 3 Dbedits (
para as notas ),3 botoes ( INCLUIR, GRAVAR E EXCLUIR ) e 1
dblookupcombobox.
Coloquei o codigo abaixo. Mas testando antes de começar a dar as
aulas, sempre ocorre KEY VIOLATION ( sei o que quer dizer, mas nao
entendo o porque que está acontecendo ).
Tambem, queria ensinar fazer na munheca a inserção dos
dados(utilizando EDIT´S ao invés de DBedit´s) com FIELDBYNAME mas nao
consegui fazer o valor do DBlookupcombobox ( vejam a linha abaixo do
TBNOTS.INSERT ), tentei usar o KeyValue mas na hora deu erro de conversão.
Alguem pode me ajudar ?
procedure TFrnotasalu. Button1Click( Sender: TObject);
begin
TBNOTAS.Insert;
{tbnotas.fieldbynam e('matricula' ).asinteger: = db1.KeyValue; // nao
funcoinou
tbnotas.fieldbyname ('nota1') .asfloat: = strtofloat(edit1. text);
tbnotas.fieldbyname ('nota2') .asfloat: = strtofloat(edit2. text);
tbnotas.fieldbyname ('nota3') .asfloat: = strtofloat(edit3. text);}
end;
procedure TFrnotasalu. FormActivate( Sender: TObject);
begin
tbnotas.open;
end;
procedure TFrnotasalu. Button2Click( Sender: TObject);
begin
tbnotas.post;
end;
procedure TFrnotasalu. Button3Click( Sender: TObject);
begin
tbnotas.Delete;
end;
procedure TFrnotasalu. tbnotasAfterPost (DataSet: TDataSet);
begin
Tbnotas.FlushBuffer s;
end;,_._,___
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
