Re: [delphi-br] porta serial com1
Bom dia, vc deve utilizar um componente para isso, veja na net o COMPORT, é muito bom e facil de usar. Paulo - Original Message - From: bene20032004 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 22, 2005 5:03 PM Subject: [delphi-br] porta serial com1 Pessoal, tenho um leitor de códigos de barra conectado na com1. Como faço para ler o código e jogar no edit ? Obrigado por enquanto ! -- 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 ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Capturar erro de FK
Bom dia a todos, gostaria de saber como capturar o erro de Fk para que eu exiba em meu sistema, por exemplo, qdo tentar excluir um registro onde ele está informado como referência em outra tabela não seja possível, só que gostaria q ele não aparecesse a mensagem do erro do banco, gostaria de capturar o erro e mostrar essa mensagem pelo sistema. Se alguém puder me ajudar Delphi 7 e Firebird 1.5 Cristiano. _ 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] 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] Pegar o valor do campo da célula do dbgrid
Galera, tenho um PopMenu ligado ao meu DbGrid. Uso a linha abaixo para pegar o valor da celula que eu estou. Clipboard.AsText := dmSIAEAP01.tblSIAE0104NM_ENDERECO.AsString; O problema é que eu gostaria de uma rotina genérica que pegasse o vcalor de qq célula que eu estivesse posicionado. Alguém sabe como faze-lo? ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Material-Certificação
Galera Bom dia !!! Alguém conhece algum site ou até mesmo um bom material para estudo para certificação Delphi7 e 2005 ??? Obg a todos Lenilson Medeiros - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Open Office - Delphi
E ai Galera... Li algo sobre isso em Post's anteriores mas não me ajudou muito, por isso envio uma nova msg... Tenho uma aplicação em Delphi 7 que abre um Modelo de Contrato em Word, e altera os campos que estão %NOME%, %END%, etc... mas meu cliente quer agora migrar tudo para o open office, mas estou encontrando dificuldade, para fazer isso, peguei uma rotina para abrir em branco somente o Open Office... Se alguem puder me ajudar, agradeço. Thiago [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Open Office - Delphi
THIAGO, ESTOU PRECISANDO FAZER ALGO PARECIDO SÓ QUE COM ESCRITURAS mas no word mesmo. será que vc poderia me mandar um exemplo em pvt de como fazer pra trabalhar com word e delphi? grata debora da silva costa [EMAIL PROTECTED] - Original Message - From: Thiago Oliveira To: delphi-br@yahoogrupos.com.br Sent: Monday, October 24, 2005 10:45 AM Subject: [delphi-br] Open Office - Delphi E ai Galera... Li algo sobre isso em Post's anteriores mas não me ajudou muito, por isso envio uma nova msg... Tenho uma aplicação em Delphi 7 que abre um Modelo de Contrato em Word, e altera os campos que estão %NOME%, %END%, etc... mas meu cliente quer agora migrar tudo para o open office, mas estou encontrando dificuldade, para fazer isso, peguei uma rotina para abrir em branco somente o Open Office... Se alguem puder me ajudar, agradeço. Thiago [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: -- 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] 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] SELECT com GroupBy em TCLIENTDATASET
Tentei fazer também desta forma. mas demora, prá caramba... Com o While, acho que será praticamente inviável... Mas mesmo assim obrigado pela força !! Se alguém tiver outra idéia/palpite, será bem vindo... Valeu !! []'s - Original Message - From: Celso Lorenzetti - GMail [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 9:56 PM Subject: Re: [delphi-br] SELECT com GroupBy em TCLIENTDATASET Olá Rogério, se vc utilizar o Agregate o resultado que vc obterá será o seguinte, vc tem que analizar se serve. ok? Cidade Estado Valor Soma Rib. Preto SP 1000 1700 São PauloSP 500 1700 GuarulhosSP 200 1700 BarraRJ 200 500 Copacab. RJ 300 500 ou seja, ele cria mais uma coluna e essa coluna terá a soma dependendo do campo que vc colocar como índice. Como fazer: Crie um indice com o campo Estado e coloque este indice na propriedade indexname do CDS. No Field Agregate coloque em grouplevel = 1. e o sum(valor) no expression. Se vc precisar só dos valores distintos, a única idéia que tenho é fazer um while. Não sei se foi nisso que vc chegou, de qualquer forma aí está. Espero que ajude. T+ - Original Message - From: Rogério To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 11:58 AM Subject: [delphi-br] SELECT com GroupBy em TCLIENTDATASET Ví que tem o Objeto TAggregate no TClientDataSet. tentei fazer com ele mas, acho que tb. não dá certo para estes casos... !! Se alguém ainda souber de alguma maneira... []'s - Original Message - From: Rogério [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 10:45 AM Subject: [delphi-br] Select com Groupby em TClientDataset Pessoal, alguém sabe se eu consigo fazer um Select em um TClientDataSet, através de um outro TClientDataset ??? Exemplo.: TClientDataSet1 que retorna: Cidade EstadoValor Rib. Preto SP 1000 São Paulo SP 500 Guarulhos SP 200 Barra RJ 200 Copacab. RJ300 Fazendo um Select com Groupby no TClientDataSet1, através do TClientDataSet2, retornando: TClientDataSet2 que retorna: EstadoValor SP 1700 RJ500 Obs.: Não consigo fazer direto do Banco de Dados pois os dados estão em memória e não os tenho no BD. Se alguem souber, obrigado ! []'s -- -- --- ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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 ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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 ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens
[delphi-br] Procedure ORACLE
Pessoal,
Tou tentando utilizar uma procedure do oracle (10g) e nao consigo...
tem alguma coisa errada??? sao dois parametros ENTRADA e SAIDA... que nao
estao chegando e nem vindo da procedure... estou utilizando DbExpress...
var
sCommand : String;
rCommand : String;
begin
sCommand:='M000 123456789012345 TESTE TESTE TESTE';
M000.ParamByName('ENTRADA').Value:= sCommand;
M000.Active;
M000.ExecProc;
rCommand:=M000.ParamByName('SAIDA').Valueend;
end;
___
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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]
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] Formato E-Mail
Olá! Alguém tem uma rotina para verificar se um e-mail é ou não é válido??? Abraços Charles A. Chiodi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Pegar o valor do campo da célula do dbgrid
Eduardo. Neste Caso voce ja sabe a tabela, o nome do campo... Clipboard.AsText := dmSIAEAP01.tblSIAE0104NM_ENDERECO.AsString; eu usaria uma assim para ficar mais generico. Clipboard.AsText := DBgrid.DataSource.DataSet.FieldByName(DBgrid.Columns DBgrid.SelectedIndex].FieldName).AsString; ...vejamos SelectedIndex, retorna o numero da coluna do dbgrid. (cada coluna esta associado a um campo certo). Tendo um indice eu pego o nome do campo ..(FieldName).. que sera o campo requisitado pelo dataset. Serve??? Olha eu uso o Delphi 5, e IBX...talvez tera que adaptar alguma coisa...mas a ideia e esta Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ® Enviada em: segunda-feira, 24 de outubro de 2005 10:06 Para: Grupo Delphi-br Assunto: [delphi-br] Pegar o valor do campo da célula do dbgrid Galera, tenho um PopMenu ligado ao meu DbGrid. Uso a linha abaixo para pegar o valor da celula que eu estou. Clipboard.AsText := dmSIAEAP01.tblSIAE0104NM_ENDERECO.AsString; O problema é que eu gostaria de uma rotina genérica que pegasse o vcalor de qq célula que eu estivesse posicionado. Alguém sabe como faze-lo? ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Open Office - Delphi
O Open Oficce nao abre arquivos DOC? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Oliveira Enviada em: segunda-feira, 24 de outubro de 2005 09:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Open Office - Delphi E ai Galera... Li algo sobre isso em Post's anteriores mas não me ajudou muito, por isso envio uma nova msg... Tenho uma aplicação em Delphi 7 que abre um Modelo de Contrato em Word, e altera os campos que estão %NOME%, %END%, etc... mas meu cliente quer agora migrar tudo para o open office, mas estou encontrando dificuldade, para fazer isso, peguei uma rotina para abrir em branco somente o Open Office... Se alguem puder me ajudar, agradeço. Thiago [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Formato E-Mail
function VerificaEmail(email: string): boolean; var i, j, tam_email, simb_arroba, simb_arroba2, qtd_arroba, qtd_pontos, qtd_pontos_esq, qtd_pontos_dir, posicao, posicao2, ponto, ponto2 : integer; vet_email : array [0..49] of string; //50 posições, capacidade do Edit msg : string; begin qtd_pontos := 0; qtd_pontos_esq := 0; qtd_pontos_dir := 0; qtd_arroba := 0; posicao:= 0; posicao2 := 0; simb_arroba:= 0; simb_arroba2 := 0; ponto := 0; ponto2 := 0; msg:= ''; Result := True; //Verificando parte inicial do E-mail tam_email := Length(email); for i := 0 to tam_email - 1 do begin vet_email[i] := Copy(email, i + 1, 1); if vet_email[i] = '@' then begin Inc(qtd_arroba); posicao := i; end; end; if ((vet_email[0] = '@') or (vet_email[0] = '.') or (vet_email[0] = '-')) then begin Result := False; msg:= mensagem; end; //Verificando se tem o símbolo @ e quantos tem if qtd_arroba 1 then begin Result := False; msg:= mensagem; end else if qtd_arroba 1 then begin Result := False; msg:= mensagem; end else //Verificando o que vem antes e depois do símbolo @ begin for i := 0 to 35 do begin if vet_email[posicao - 1] vet_valido[i] then Inc(simb_arroba) else Dec(simb_arroba); if vet_email[posicao + 1] vet_valido[i] then Inc(simb_arroba2) else Dec(simb_arroba2); end; if simb_arroba = 36 then begin //Antes do arroba há um símbolo desconhecido do vetor válido Result := False; msg:= mensagem; end else if simb_arroba2 = 36 then begin //Depois do arroba há um símbolo desconhecido do vetor válido Result := False; msg:= mensagem; end end; //Verificando se há pontos e quantos, e Verificando parte final do e-mail for j := 0 to tam_email - 1 do if vet_email[j] = '-' then if ((vet_email[j - 1] = '.') or (vet_email[j - 1] = '-')) then begin Result := False; msg:= mensagem; end; for i := 0 to tam_email - 1 do if vet_email[i] = '.' then begin Inc(qtd_pontos); posicao2 := i + 1; if i posicao then Inc(qtd_pontos_dir) else Inc(qtd_pontos_esq); if ((vet_email[i - 1] = '.') or (vet_email[i - 1] = '-')) then begin Result := False; msg:= mensagem; end; end; if qtd_pontos 1 then begin Result := False; msg:= mensagem; end else if vet_email[tam_email - 1] = '.' then begin Result := False; msg:= mensagem; end else if vet_email[tam_email - 2] = '.' then begin Result := False; msg:= mensagem; end else if qtd_pontos_dir 2 then begin Result := False; msg:= mensagem; end else if (not tam_email - posicao2) = 3) and (qtd_pontos_dir = 1)) or (((tam_email - posicao2) = 2) and (qtd_pontos_dir = 2)) or (((tam_email - posicao2) = 2) and (qtd_pontos_dir = 1 then begin Result := False; msg:= mensagem; end else //Verificando o que vem antes e depois do ponto begin for i := 0 to 35 do begin if vet_email[posicao2 - 2] vet_valido[i] then Inc(ponto) else Dec(ponto); if vet_email[posicao2] vet_valido[i] then Inc(ponto2) else Dec(ponto2); end; if ponto = 36 then begin //Antes do ponto há um símbolo desconhecido do vetor válido Result := False; msg:= mensagem; end else if ponto2 = 36 then begin //Depois do ponto há um símbolo desconhecido do vetor válido Result := False; msg:= mensagem; end end; //Verificação final if not Result then msg := mensagem; end; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de HNS Informática Enviada em: segunda-feira, 24 de outubro de 2005 12:36 Para: Lista DelphiBr; DelphiTotal; DelphiMysql; DelphiLista Assunto: [delphi-br] Formato E-Mail Olá! Alguém tem uma rotina para verificar se um e-mail é ou não é válido??? Abraços Charles A. Chiodi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: -- 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
RES: [delphi-br] Pegar o valor do campo da célula do dbgrid
Eduardo Correcao Faltou um colchetes. Clipboard.AsText := DBgrid.DataSource.DataSet.FieldByName(DBgrid.Columns[DBBgrid.SelectedInd ex].FieldName).AsString; Elazar ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Pegar o valor do campo da célula do dbgrid
Amigo, valeu...funcionou perfeitamente do jeito que eu precisava. Muito grato. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Elazar Enviada em: segunda-feira, 24 de outubro de 2005 13:41 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Pegar o valor do campo da célula do dbgrid Eduardo. Neste Caso voce ja sabe a tabela, o nome do campo... Clipboard.AsText := dmSIAEAP01.tblSIAE0104NM_ENDERECO.AsString; eu usaria uma assim para ficar mais generico. Clipboard.AsText := DBgrid.DataSource.DataSet.FieldByName(DBgrid.Columns DBgrid.SelectedIndex].FieldName).AsString; ...vejamos SelectedIndex, retorna o numero da coluna do dbgrid. (cada coluna esta associado a um campo certo). Tendo um indice eu pego o nome do campo ..(FieldName).. que sera o campo requisitado pelo dataset. Serve??? Olha eu uso o Delphi 5, e IBX...talvez tera que adaptar alguma coisa...mas a ideia e esta Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ® Enviada em: segunda-feira, 24 de outubro de 2005 10:06 Para: Grupo Delphi-br Assunto: [delphi-br] Pegar o valor do campo da célula do dbgrid Galera, tenho um PopMenu ligado ao meu DbGrid. Uso a linha abaixo para pegar o valor da celula que eu estou. Clipboard.AsText := dmSIAEAP01.tblSIAE0104NM_ENDERECO.AsString; O problema é que eu gostaria de uma rotina genérica que pegasse o vcalor de qq célula que eu estivesse posicionado. Alguém sabe como faze-lo? ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- 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!. __ NOD32 1.1263 (20051021) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.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] 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] Open Office - Delphi
Debora,
Aqui está a procedure e a função que ultilzo para trabalhar com o Word,
var //Global
VelhoWord, NovoWord : Variant;
function TfrmContrato.CriaObjeto(const ClasseNome: String): IDispatch;
var Classifique_Id: TGUID;
Desconhecido: IUnknown;
begin
Classifique_ID:=ProgIdToClassId(ClasseNome);
if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then
OleCheck(desconhecido.QueryInterface(Idispatch, Result))
else
Result:=CreateOleObject(ClasseNome);
end;
procedure TfrmContrato.Gerar_Contrato;
var
Doc: Variant;
begin
//MSWord:= CreateOleObject('Word.Basic');
//MSWord := FileOpen('Modelo_Contrato.doc',1);
VelhoWord := CreateOleObject('Word.Basic');
NovoWord :=CriaObjeto('Word.Application');
// Tornar o word visivel
NovoWord.Visible := True;
// Abrir arquivo para edição
Doc:= NovoWord.Documents.OPEN(ExtractFilePath(Application.ExeName)
+'Modelo_Contrato.doc');
// Substituir itens do arquivo por texto escolhido
Doc.Content.Find.Execute(FindText := '%CONDOMINIO%',
ReplaceWith := ENcond.Text);
Doc.Content.Find.Execute(FindText := '%SINDICO%',
ReplaceWith := ENsind.Text);
Doc.Content.Find.Execute(FindText := '%ENDSIND%',
ReplaceWith := Eendsind.Text);
Doc.Content.Find.Execute(FindText := '%NSIND%',
ReplaceWith := EnuSind.Text);
Doc.Content.Find.Execute(FindText := '%APTSIND%',
ReplaceWith := Eaptsind.Text);
Doc.Content.Find.Execute(FindText := '%BLSIND%',
ReplaceWith := EblSind.Text);
Doc.Content.Find.Execute(FindText := '%CID%',
ReplaceWith := ECidade.Text);
Doc.Content.Find.Execute(FindText := '%UF%',
ReplaceWith := EUF.Text);
Doc.Content.Find.Execute(FindText := '%CONTRATADA%',
ReplaceWith := EContratada.Text);
Doc.Content.Find.Execute(FindText := '%PERIODO%',
ReplaceWith := EPrazo.Text);
Doc.Content.Find.Execute(FindText := '%DTINICIO%',
ReplaceWith := DateToStr(DTInicio.Date));
Doc.Content.Find.Execute(FindText := '%VALOR%',
ReplaceWith := TxAdm.Text);
Doc.Content.Find.Execute(FindText := '%EXTENSO%',
ReplaceWith := EvlExte.Text);
Doc.Content.Find.Execute(FindText := '%DATA%',
ReplaceWith := FormatDateTime('Porto Alegre, dd de de .',
DTInicio.Date));
Doc.Content.Find.Execute(FindText := '%CONDOMINIO%',
ReplaceWith := ENcond.Text);
Doc.Content.Find.Execute(FindText := '%SINDICO%',
ReplaceWith := ENsind.Text);
//Salvar Documento
Doc.SaveAs(ExtractFilePath(Application.ExeName) + DBText1.Caption+'.doc');
end;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Open Office - Delphi
Elazar, Abre sim .doc, mas não é a mesma forma de se trabalhar no Delphi. valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Formato E-Mail
==
Eu perguntei ao nosso amigo GOOGLE e veja o que ele respondeu:
==
Validando formato de e-mail:
Primeiramente vc deverá ter num form: Um Edit (ou DBEdit), um Button e
um Label.
Antes de implementation coloque:
Const
msg1 = 'Caractere(s) inválido(s) no início do e-mail.';
msg2 = 'Símbolo @ não foi encontrado.';
msg3 = 'Excesso do símbolo @.';
msg4 = 'Caractere(s) inválido(s) antes do símbolo @.';
msg5 = 'Caractere(s) inválido(s) depois do símbolo @.';
msg6 = 'Agrupamento de caractere(s) inválido(s) a esqueda do @.';
msg7 = 'Não existe ponto(s) digitado(s).';
msg8 = 'Ponto encontrado no final do e-mail.';
msg9 = 'Ausência de caractere(s) após o último ponto.';
msg10 = 'Excesso de ponto(s) a direita do @.';
msg11 = 'Ponto(s) disposto(s) de forma errada após o @.';
msg12 = 'Caractere(s) inválido(s) antes do ponto.';
msg13 = 'Caractere(s) inválido(s) depois do ponto.';
var
Form1: TForm1; { --- Nome do meu formulário }
vet_valido: array [0..35] of string = ('0','1','2','3','4','5','6','7',
'8','9','a','b','c','d','e','f', 'g','h','i','j','k','l','m','n',
'o','p','q','r','s','t','u','v', 'w','x','y','z');
Depois de implementation {$R *.DFM} coloque a seguinte função:
function func_VerifEmail(email: string): boolean;
var
i, j, tam_email, simb_arroba, simb_arroba2, qtd_arroba, qtd_pontos,
qtd_pontos_esq, qtd_pontos_dir, posicao, posicao2, ponto, ponto2:
integer;
vet_email: array [0..49] of string; //50 posições, capacidade do Edit
msg: string;
begin
Nesta função (func_VerifEmail) é utilizada a função Copy, exemplo:
Copy(s,i,t) significa trecho de s que começa em i com tamanho t}
qtd_pontos := 0;
qtd_pontos_esq := 0;
qtd_pontos_dir := 0;
qtd_arroba := 0;
posicao := 0;
posicao2 := 0;
simb_arroba := 0;
simb_arroba2 := 0;
ponto := 0;
ponto2 := 0;
msg := '';
Result := True;
//Verificando parte inicial do E-mail
tam_email:= Length(email);
for i:= 0 to tam_email-1 do
begin
vet_email[i]:= Copy(email,i+1,1);
if vet_email[i] = '@' then
begin
Inc(qtd_arroba);
posicao:= i;
end;
end;
if ((vet_email[0] = '@') or (vet_email[0] = '.') or (vet_email[0] = '-'))
then
begin
Result:= False;
msg:= msg1;
end;
//Verificando se tem o símbolo @ e quantos tem
if qtd_arroba 1 then
begin
Result:= False;
msg:= msg2;
end
else if qtd_arroba 1 then
begin
Result:= False;
msg:= msg3 + ' Encontrado(s): '+IntToStr(qtd_arroba)+'.';
end
else
//Verificando o que vem antes e depois do símbolo @
begin
for i:=0 to 35 do
begin
if vet_email[posicao-1] vet_valido[i] then Inc(simb_arroba)
else Dec(simb_arroba);
if vet_email[posicao+1] vet_valido[i] then Inc(simb_arroba2)
else Dec(simb_arroba2);
end;
if simb_arroba = 36 then
begin
//Antes do arroba há um símbolo desconhecido do vetor válido
Result:= False;
msg:= msg4;
end
else if simb_arroba2 = 36 then
begin
//Depois do arroba há um símbolo desconhecido do vetor válido
Result:= False;
msg:= msg5;
end
end;
//Verificando se há pontos e quantos, e Verificando parte final do e-mail
for j:=0 to tam_email-1 do
if vet_email[j] = '-' then
if ((vet_email[j-1] = '.') or (vet_email[j-1] = '-')) then
begin
Result:= False;
msg:= msg6;
end;
for i:=0 to tam_email-1 do
if vet_email[i] = '.' then
begin
Inc(qtd_pontos);
posicao2:= i+1;
if i posicao then Inc(qtd_pontos_dir)
else Inc(qtd_pontos_esq);
if ((vet_email[i-1] = '.') or (vet_email[i-1] = '-')) then
begin
Result:= False;
msg:= msg6;
end;
end;
if qtd_pontos 1 then
begin
Result:= False;
msg:= msg7;
end
else if vet_email[tam_email-1] = '.' then
begin
Result:= False;
msg:= msg8;
end
else if vet_email[tam_email-2] = '.' then
begin
Result:= False;
msg:= msg9;
end
else if qtd_pontos_dir 2 then
begin
Result:= False;
msg:= msg10 + ' Encontrado(s): '+
IntToStr(qtd_pontos)+#10+'Encontrado(s) a direita do @: '+
IntToStr(qtd_pontos_dir)+'.';
end
else if (not tam_email - posicao2) = 3) and (qtd_pontos_dir = 1)) or
(((tam_email - posicao2) = 2) and (qtd_pontos_dir = 2)) or
(((tam_email - posicao2) = 2) and (qtd_pontos_dir = 1 then
begin
Result:= False;
msg:= msg11 +#10+ 'Encontrado(s) a esquerda do @: '+
IntToStr(qtd_pontos_esq) +#10+ 'Encontrado(s) a direita do @: '+
IntToStr(qtd_pontos_dir)+'.';
end
else
//Verificando o que vem antes e depois do ponto
begin
for i:=0 to 35 do
begin
if vet_email[posicao2-2] vet_valido[i] then Inc(ponto)
else Dec(ponto);
if vet_email[posicao2] vet_valido[i] then Inc(ponto2)
else Dec(ponto2);
end;
if ponto = 36 then
begin
//Antes do ponto há um símbolo desconhecido do
[delphi-br] FTP
Boa tarde galera.. Será a alguém de vcs tem algum exemplo de como acessar o FTP(download e upload) via delphi 7.0.. Procurei na pasta demo mas não encontrei nada... Se alguém puder me ajudar, agradeço desde já.. Obrigado. Rodrigo Pedroso Winsoft Informática - (14) 3664-1586 [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] 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] FTP
Na paleta Indy Clients tem o componente IdFTP. Eu o uso e funciona bem. Da uma procurada no google por esse componente que tem alguns exemplos que irão te ajudar. []s _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo - Winsoft Enviada em: segunda-feira, 24 de outubro de 2005 15:33 Para: Lista - Delphi-br Assunto: [delphi-br] FTP Boa tarde galera.. Será a alguém de vcs tem algum exemplo de como acessar o FTP(download e upload) via delphi 7.0.. Procurei na pasta demo mas não encontrei nada... Se alguém puder me ajudar, agradeço desde já.. Obrigado. Rodrigo Pedroso Winsoft Informática - (14) 3664-1586 [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html 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] 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] Rave
Olá pessoal, preciso salvar um relatório do Rave Report no formato .xls, alguém sabe como posso fazer isto?. desde já agradeço a ajuda. Att. Rodrigo ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Off-Topic Curso Delphi 7
Curso on-line para Delphi 7.0 Olá pessoal, essa é pra quem está começando e quer uma boa base: http://www.hdcoimbra.com.br/toc/cursos/sobredelphi7.php ou visite minha página http://www.hdcoimbra.com.br/toc Att Thiago Coimbra [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fechar o Form Padrao
Criei um form modelo que será herdado por outros... porem para facilitar eu inclui um botao Sair e queria ja deixar o codigo pronto pq nao vai ser mudado mesmo e sera comum a todos informações do meu form ( Delphi 7 - Form MDI ) fiz o codigo como segue: procedure TfrmBase.btnSairClick(Sender: TObject); begin Close; end; a.. Neste ponto eu estou tentando tirar o form da memoria já que ele será fechado procedure TfrmBase.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; TForm(Sender) := Nil; // se eu substituir a linha codigo acima por este ele funciona do jeito que quero mas quero fazer generico. //frmBase := Nil end; a.. Porem quando tento abrir o form novamente (O mesmo Form) ele deveria ser destruido quando fechei mas isto nao acontece... gostaria de saber dos amigos onde estou errando. procedure TfrmPrincipal.mnuClienteClick(Sender: TObject); begin if not Assigned(frmBase) then frmBase := TfrmBase.Create(self) Else frmBase.Show; end; Desculpe pelo tamanho do texto mas foi o modo mais facil que achei para explicar um Abraço a todos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Importar dados de arquivo DAT COBOL
tive um problema semelhante, somente consegui recuperar as informaçóes... baseadas nos relatórios que tinha o próprio sistema ex: recuperar tabelas de clientes se no sistema tiver algum relatório de mala direta ou coisa parecedia... desvie a impressáo para um arquivo de textodepois é só se divertir... espero te ajudado, sei que nao resolvi. - Original Message - From: Nivaldo Stainle [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 19, 2005 8:47 AM Subject: Re: [delphi-br] Importar dados de arquivo DAT COBOL [EMAIL PROTECTED] Stainle Ailton Branco [EMAIL PROTECTED] escreveu: É este mesmo o tal ACU-COBOL descobri agora... inclusive estou tentanto abrir com algumas dicas do pessoal da lista de vc puder me ajudar eu agradeco passa teu email que te mando um arquivo em PVT... abraços - Original Message - From: Nivaldo Stainle To: delphi-br@yahoogrupos.com.br Sent: Monday, October 17, 2005 1:06 PM Subject: Re: [delphi-br] Importar dados de arquivo DAT COBOL Qual é o Compilador, se for ACU-COBOL, talvez eu possa te ajudar. Stainle plucaslazaro [EMAIL PROTECTED] escreveu: Ailton, vc sabe me dizer qual a versao do cobol, vc teria algum arquivo pequeno para me mandar pra dar uma olhada. Paulo - Original Message - From: Ailton Branco [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, October 14, 2005 5:05 PM Subject: [delphi-br] Importar dados de arquivo DAT COBOL Tenho um arquivo de um programa cobol e tenho que bucar os dados dentro dele para importacao... o programador é de outra empresa e nao quer exportar para texto ou qualquer outra tipo... gostaria de saber se tem alguma ferramenta que posso exportar estes dados para texto, excel ou access. agradeço a atençã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 ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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 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!. - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [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: - 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!. - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [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
[delphi-br] Assinatura Digital
Sei que quem fornece um certifica digital ou uma assinatura digital é uma autoridade certificadora, como a certysigns por exemplo. A minha duvida é: - Como assinar digitalmente um documento usando um certificado digital? - Como autenticar um usuário usando sua assinatura digital? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Serviço abrir Iexplorer + Link!
Com relacao a pergunta número 1:
use essa funcao:
JumpTo('geocities.yahoo.com.br/alcistemas');
procedure TFrm_Principal.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := 'http://' + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil,
SW_SHOWNORMAL);
end;
obs na clausa uses utilize ShellApi
- Original Message -
From: Leonardo Lemos [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, October 21, 2005 3:30 PM
Subject: [delphi-br] Serviço abrir Iexplorer + Link!
Desenvolvi um serviço utilizando Delphi 5 o qual realiza diversas
funcionalidades, porém estou precisando realizar 2 coisas que não estou
conseguindo devido as limitações por ser um serviço:
1) Gostaria de saber como fazer para chamar o navegador padrão com uma url
na maquina do cliente. Ja tentei usar o comando abaixo e ele não da erro
porem não funciona:
ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOW);
2) Gostaria também de saber como armazenar em um TStringList todos as pastas
de um determinado diretorio. Poderia fazer utilizando o componente do Delphi
TDirectoryList porém por estar rodando como serviço esse componente não é
permitido o seu uso. Já utilizo o SelectFiles para descobrir os arquivos de
um determinado diretorio, porém só funciona com arquivos (pelo menos pelo
que vi)
Obrigado pela atenção,
Leonardo A. de Lemos
Coordenador TI - Ipad
Fone: (81) 2123.8500
Celular: (81) 9133.9017
[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
___
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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]
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] paralisacao de aplicativo
Ola lista, estou tendo o seguinte problema, qdo minha aplicacao esta executando uma rotina longa e demorada, se eu clicar no aplicaco ele para de funcionar. o que eu posso fazer para sanar esse tipo de problema. Ex: eu tenho uma rotina de verificacao de notas que demora em torno de 3 horas para processar tudo, qdo eu mando processar se eu nao mexer em nada ele conclui normalmente, mas se eu deixar ele processsando e for fazer outro procedimento no computador, a aplicacao para (trava). Uso PENTIUM IV, 1024 DE RAM, HD 80 WINXP ORIGINAL Agradeco a quem se manifestar ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Tamanho em pixels
Olá Pessoal, Alguém sabe alguma função que me retorn em pixels o tamanho de um string em determianda fonte? Grato Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Limitar tamanho da Imagem
Ai vai !
procedure TCad_Casas.BitBtn2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
if size = 3 then
begin
Imagem := TBitmap.Create;
Imagem.LoadFromFile(OpenDialog1.FileName);
Stream := TMemoryStream.Create;
Imagem.SaveToStream(Stream);
Datamodule1.Fotos.Edit;
Datamodule1.FotosFoto.LoadFromStream(Stream);
Datamodule1.fotos.Post;
Imagem.Free;
Stream.Free;
Cad_Casas.PageControl1Change(Sender);
end;
if size 3 then
begin
MessageDlg('Esta imagem selecionada tem '+inttostr(size)+' bytes, e o
maximo permitido para não atrapalhar o desempenho do Banco de Dados é de
30.000 bytes. Edite esta imagem para inseri-la no sistema.', mtInformation,
[mbOk], 0, mbOk);
end;
except
Showmessage('Problemas na importação da imagem');
end;
end;
end;
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de HNS Informática
Enviada em: sábado, 22 de outubro de 2005 10:19
Para: Lista DelphiBr; DelphiTotal; DelphiMysql; DelphiLista
Assunto: [delphi-br] Limitar tamanho da Imagem
Pessoal, estou armazenando uma imagem jpg no banco mysql, e mostrando na
tela atraves de um TImage, tem como limitar o tamanho dessa figura para 50K?
Abraços
Charles A. Chiodi
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif
_
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do http://br.yahoo.com/info/utos.html 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]
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] proibir inclusões na dbgrid
Olá! Tenho uma dbgrid com 7 registros fixos, que podem ser alterados. Não posso permitir novas inclusões. Como fazer isto. Obrigada! Cláudia Santos - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DATA DD/MM/AAAA
Grato, mais preciso mesmo mudar é no sistema operacional - Original Message - From: Francisco Carvalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, October 22, 2005 10:01 AM Subject: Re: [delphi-br] DATA DD/MM/ Tente usar estas variáveis do Delphi: ShortDateFormat := 'dd/mm/'; LongDateFormat := 'dd/mm/'; Alcistemas Informática [EMAIL PROTECTED] escreveu: Como faco para mudar via programacao a configuracao do windows para o formato DD/MM/ sem ter que entrar em painel de controle e configuracoes reginais Obrigado ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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 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!. - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [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 ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] CLX - ICONE BARRA TAREFAS
Senhores, Desenvolvi uma aplicação em Delphi 7 CLX. Quando a aplicação é chamada abre um splash e aparece o ícone deste splash na barra de tarefas ! Quando a tela de splash some o ícone some da barra de tarefas e ai aparece a tela de login que não é a Main Form principal do sistema e nào aparece o ícone do sistema na barra de tarefas. Após digitar login e senha caso confira é chamado o Main Form do sistema que é a tela principal e o ícone volta a aparecer. Meu problema é: Como faço aparecer o ícone na barra de tarefas quando a tela de login aparecer sendo que em CLX só aparece o ícone do Main Form ? Clayton [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: En: Armas
Vc está suspenso por tempo indeterminado por enviar mensagem que não condiz com o conteúdo da lista. Atenciosamente, Moderador delphi-br --- Em delphi-br@yahoogrupos.com.br, josef da silva rocha [EMAIL PROTECTED] escreveu Observação: mensagem anexa encaminhada. - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Open Office - Delphi
Mais um cliente migrando para o OpenOffice... O império está ruindo... :) Vamos lá Thiago, Eu já trabalho com OOffice e Delphi a uns 2 anos - é super tranquilo. Qual é a sua dúvida específica ? Você já conseguiu abrir o modelo de contrato pelo Delphi a partir das dicas que eu deixei aqui na lista ? Um abraço, Josir. --- Em delphi-br@yahoogrupos.com.br, Thiago Oliveira [EMAIL PROTECTED] escreveu E ai Galera... Li algo sobre isso em Post's anteriores mas não me ajudou muito, por isso envio uma nova msg... Tenho uma aplicação em Delphi 7 que abre um Modelo de Contrato em Word, e altera os campos que estão %NOME%, %END%, etc... mas meu cliente quer agora migrar tudo para o open office, mas estou encontrando dificuldade, para fazer isso, peguei uma rotina para abrir em branco somente o Open Office... Se alguem puder me ajudar, agradeço. Thiago -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: Re[2]: [delphi-br] conectar delphi + mysql + zeos com proxy.
Eduardo, muito obrigado. Fiz um teste em uma pequena rede que montei e deu certo. A minha base de dados está em MySQL/Linux o Win98 é apenas para os clientes e o servidor de internet dos clientes . Muito obrigado pela ajuda de todos. att' Paulo Batalhão - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 1:51 PM Subject: Re[2]: [delphi-br] conectar delphi + mysql + zeos com proxy. O servidor com Windows 98 que vc se refere é pra rodar o mySQL, ou é pra servidor da rede que vai acessar o banco num outro servidor externo? 1 - se for usar Win98 como servidor para rodar mySQL nao e muito seguro. por causa da Fat32. e melhor usar 2000/XP em partição NTFS e mySQL como Serviço. 2 - se for usar o Win98 Apenas como servidor de internet nao tem problemas nao, use o Win98 SE e ative o compartilhamento do conexão do proprio, fica em painel de controle, adicionar remover programas, instalação do Windows, componentes da internet. + ou - isso. aguardo notícias... = De:Paulo Batalhão [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:Re: [delphi-br] conectar delphi + mysql + zeos com proxy. Caro Eduardo, você sabe se é possivel utilizar como servidor o win 98 (pois é justamente com ele que estou tendo esta dificuldade), ou você teve que utilizar NT/2000... ou mais rescente ? muito obrigado até o momento. att' Paulo Batalhão - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 2:28 AM Subject: Re: [delphi-br] conectar delphi + mysql + zeos com proxy. para resolver o seu problema você deve usar um proxy com suporte a NAT, eu tive esse problema, usava analogProxy para compartilhar a conexão, o servidor conectava a um banco externo, as estações da rede não, usei o proprio compartilhamento de conexões do Windows e tudo ficou blz, so pra vc ter certeza, tente acessar um endereço FTP através do navegador de alguma estação da rede.. = De:Paulo Batalhão [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] conectar delphi + mysql + zeos com proxy. boa tarde , Caros, estou com o seguinte problema . Preciso disponibilizar o sistema que é feito em Delphi acessando uma base MySQL com Zeos atravez de um proxy. -- vou explicar .-- O servidor será remoto e tenho uma rede de aproximadamente 10 máquinas , o problema é que consigo apenas conectar a máquina que serve a internet. Tentei utilizar o FreeProxy e o AnalogX. Se alguem puder me ajudar , ficarei muito grato. obrigado. #2921101245151 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/mess a ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messa ges 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/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] 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] Re: En: Armas
Pior não é isso não! O cara pegou o E-Mail de um monte de usuário da lista e pos na lista particular dele pra fazer SPAM. E pior que tem gente (como eu) que nem conhecer ele conhece. É o cúmulo da desocupação viu.. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Josir Gomes Enviada em: segunda-feira, 24 de outubro de 2005 15:32 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: En: Armas Vc está suspenso por tempo indeterminado por enviar mensagem que não condiz com o conteúdo da lista. Atenciosamente, Moderador delphi-br --- Em delphi-br@yahoogrupos.com.br, josef da silva rocha [EMAIL PROTECTED] escreveu Observação: mensagem anexa encaminhada. - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Formato E-Mail
Essse Google É O CARA!
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Romario (Listas)
Enviada em: segunda-feira, 24 de outubro de 2005 13:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Formato E-Mail
==
Eu perguntei ao nosso amigo GOOGLE e veja o que ele respondeu:
==
Validando formato de e-mail:
Primeiramente vc deverá ter num form: Um Edit (ou DBEdit), um Button e
um Label.
Antes de implementation coloque:
Const
msg1 = 'Caractere(s) inválido(s) no início do e-mail.';
msg2 = 'Símbolo @ não foi encontrado.';
msg3 = 'Excesso do símbolo @.';
msg4 = 'Caractere(s) inválido(s) antes do símbolo @.';
msg5 = 'Caractere(s) inválido(s) depois do símbolo @.';
msg6 = 'Agrupamento de caractere(s) inválido(s) a esqueda do @.';
msg7 = 'Não existe ponto(s) digitado(s).';
msg8 = 'Ponto encontrado no final do e-mail.';
msg9 = 'Ausência de caractere(s) após o último ponto.';
msg10 = 'Excesso de ponto(s) a direita do @.';
msg11 = 'Ponto(s) disposto(s) de forma errada após o @.';
msg12 = 'Caractere(s) inválido(s) antes do ponto.';
msg13 = 'Caractere(s) inválido(s) depois do ponto.';
var
Form1: TForm1; { --- Nome do meu formulário }
vet_valido: array [0..35] of string = ('0','1','2','3','4','5','6','7',
'8','9','a','b','c','d','e','f', 'g','h','i','j','k','l','m','n',
'o','p','q','r','s','t','u','v', 'w','x','y','z');
Depois de implementation {$R *.DFM} coloque a seguinte função:
function func_VerifEmail(email: string): boolean;
var
i, j, tam_email, simb_arroba, simb_arroba2, qtd_arroba, qtd_pontos,
qtd_pontos_esq, qtd_pontos_dir, posicao, posicao2, ponto, ponto2:
integer;
vet_email: array [0..49] of string; //50 posições, capacidade do Edit
msg: string;
begin
Nesta função (func_VerifEmail) é utilizada a função Copy, exemplo:
Copy(s,i,t) significa trecho de s que começa em i com tamanho t}
qtd_pontos := 0;
qtd_pontos_esq := 0;
qtd_pontos_dir := 0;
qtd_arroba := 0;
posicao := 0;
posicao2 := 0;
simb_arroba := 0;
simb_arroba2 := 0;
ponto := 0;
ponto2 := 0;
msg := '';
Result := True;
//Verificando parte inicial do E-mail
tam_email:= Length(email);
for i:= 0 to tam_email-1 do
begin
vet_email[i]:= Copy(email,i+1,1);
if vet_email[i] = '@' then
begin
Inc(qtd_arroba);
posicao:= i;
end;
end;
if ((vet_email[0] = '@') or (vet_email[0] = '.') or (vet_email[0] = '-'))
then
begin
Result:= False;
msg:= msg1;
end;
//Verificando se tem o símbolo @ e quantos tem
if qtd_arroba 1 then
begin
Result:= False;
msg:= msg2;
end
else if qtd_arroba 1 then
begin
Result:= False;
msg:= msg3 + ' Encontrado(s): '+IntToStr(qtd_arroba)+'.';
end
else
//Verificando o que vem antes e depois do símbolo @
begin
for i:=0 to 35 do
begin
if vet_email[posicao-1] vet_valido[i] then Inc(simb_arroba)
else Dec(simb_arroba);
if vet_email[posicao+1] vet_valido[i] then Inc(simb_arroba2)
else Dec(simb_arroba2);
end;
if simb_arroba = 36 then
begin
//Antes do arroba há um símbolo desconhecido do vetor válido
Result:= False;
msg:= msg4;
end
else if simb_arroba2 = 36 then
begin
//Depois do arroba há um símbolo desconhecido do vetor válido
Result:= False;
msg:= msg5;
end
end;
//Verificando se há pontos e quantos, e Verificando parte final do e-mail
for j:=0 to tam_email-1 do
if vet_email[j] = '-' then
if ((vet_email[j-1] = '.') or (vet_email[j-1] = '-')) then
begin
Result:= False;
msg:= msg6;
end;
for i:=0 to tam_email-1 do
if vet_email[i] = '.' then
begin
Inc(qtd_pontos);
posicao2:= i+1;
if i posicao then Inc(qtd_pontos_dir)
else Inc(qtd_pontos_esq);
if ((vet_email[i-1] = '.') or (vet_email[i-1] = '-')) then
begin
Result:= False;
msg:= msg6;
end;
end;
if qtd_pontos 1 then
begin
Result:= False;
msg:= msg7;
end
else if vet_email[tam_email-1] = '.' then
begin
Result:= False;
msg:= msg8;
end
else if vet_email[tam_email-2] = '.' then
begin
Result:= False;
msg:= msg9;
end
else if qtd_pontos_dir 2 then
begin
Result:= False;
msg:= msg10 + ' Encontrado(s): '+
IntToStr(qtd_pontos)+#10+'Encontrado(s) a direita do @: '+
IntToStr(qtd_pontos_dir)+'.';
end
else if (not tam_email - posicao2) = 3) and (qtd_pontos_dir = 1)) or
(((tam_email - posicao2) = 2) and (qtd_pontos_dir = 2)) or
(((tam_email - posicao2) = 2) and (qtd_pontos_dir = 1 then
begin
Result:= False;
msg:= msg11 +#10+ 'Encontrado(s) a esquerda do
[delphi-br] Designer.Form não identificada
Pessoal, Esta declaração - Designer.Form funcionava perfeitamente em delphi5 passei a utilizar o delphi7 mas não encontrei a opção form dentro do de Designer como posso substituir esta linha ??? if (Designer.Form is GetTypeData(GetPropType)^.ClassType) and (Designer.Form.Name '') then Proc(Designer.Form.Name); Grato, Wellington. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Tamanho em pixels
Txt := 'Teste'; Canvas.Font.Name := 'Arial'; Canvas.Font.Size := 8; Altura := Canvas.TextHeight(Txt); Largura := Canvas.TextWidth(Txt); __ Jean Fabio Fuchs Mult Sistemas Ltda www.mult.com.br [EMAIL PROTECTED] Blumenau / SC -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Suporte Enviada em: segunda-feira, 24 de outubro de 2005 24/10:Seg : 11:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Tamanho em pixels Olá Pessoal, Alguém sabe alguma função que me retorn em pixels o tamanho de um string em determianda fonte? Grato Ricardo Berti [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] proibir inclusões na dbgrid
No evento AfterInsert do Dataset coloque: Dataset.Cancel; [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi + Word - desabilitar impressão
Povo Estou criando com o Delphi documentos Word. Necessito ativar ou desabilitar o recurso de impressão do Word 97, dependendo da ocasião. Alguém sabe como implementar essa característica? Atenciosamente Cândido Luís Dias Ferreira -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] proibir inclusões na dbgrid
Cláudia Santos Olha, eu altero a opcao dgRowSelect e dgAlwaysShowSelection do dbgrid para true; ai o usuario nao consegue digitar no grid. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Claudia Santos Enviada em: segunda-feira, 24 de outubro de 2005 10:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] proibir inclusões na dbgrid Olá! Tenho uma dbgrid com 7 registros fixos, que podem ser alterados. Não posso permitir novas inclusões. Como fazer isto. Obrigada! Cláudia Santos - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Open Office - Delphi
Thiago... Valeu...eu fui mexer pra ver... e voce tem razao.. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Oliveira Enviada em: segunda-feira, 24 de outubro de 2005 13:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Open Office - Delphi Elazar, Abre sim .doc, mas não é a mesma forma de se trabalhar no Delphi. valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] paralisacao de aplicativo
3 Horas e bastante hein...com quantas notas o programa trabalha...? eu tenho um modulo que gera arquivos do sintegra...fiz um teste com 1000 notas levou menos de 30 segundos...num micro quase igual ao teu... que banco de dados voce usa?, voce faz o processamendo todo no programa ou no banco? Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Francisco Carlos Enviada em: segunda-feira, 24 de outubro de 2005 10:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] paralisacao de aplicativo Ola lista, estou tendo o seguinte problema, qdo minha aplicacao esta executando uma rotina longa e demorada, se eu clicar no aplicaco ele para de funcionar. o que eu posso fazer para sanar esse tipo de problema. Ex: eu tenho uma rotina de verificacao de notas que demora em torno de 3 horas para processar tudo, qdo eu mando processar se eu nao mexer em nada ele conclui normalmente, mas se eu deixar ele processsando e for fazer outro procedimento no computador, a aplicacao para (trava). Uso PENTIUM IV, 1024 DE RAM, HD 80 WINXP ORIGINAL Agradeco a quem se manifestar ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] proibir inclusões na dbgrid
Eu coloco apos o after insert do dataset do datasource do dbgrid uma chamada: cancel ou abort! Dalmi Fabio --- Em delphi-br@yahoogrupos.com.br, Elazar [EMAIL PROTECTED] escreveu Cláudia Santos Olha, eu altero a opcao dgRowSelect e dgAlwaysShowSelection do dbgrid para true; ai o usuario nao consegue digitar no grid. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Claudia Santos Enviada em: segunda-feira, 24 de outubro de 2005 10:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] proibir inclusões na dbgrid Olá! Tenho uma dbgrid com 7 registros fixos, que podem ser alterados. Não posso permitir novas inclusões. Como fazer isto. Obrigada! Cláudia Santos - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Re: En: Armas
Gente, como todos, me incomoda spams na lista. Mas responder aos spams na lista não vai levar a gente a nada. As respostas aos spams são tão incomodas quanto o próprio. Um Spam como este ao inves de gerar uma só mensagem, gerou 6 (incluindo a minha). Vamos deixar os moderadores trabalharem. Com esta atitude, a gente ja lucra bastante. Da até vontade de iniciar uma campanha, Não joguem lixo na lista... te+ Daniel A. Bastos Em 24/10/05, Wilton Moreira [EMAIL PROTECTED] escreveu: São as maçãs podres meu amigo! Wilton WGO Telecom Walter Alves Chagas Junior wrote: Pior não é isso não! O cara pegou o E-Mail de um monte de usuário da lista e pos na lista particular dele pra fazer SPAM. E pior que tem gente (como eu) que nem conhecer ele conhece. É o cúmulo da desocupação viu.. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Josir Gomes Enviada em: segunda-feira, 24 de outubro de 2005 15:32 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: En: Armas Vc está suspenso por tempo indeterminado por enviar mensagem que não condiz com o conteúdo da lista. Atenciosamente, Moderador delphi-br --- Em delphi-br@yahoogrupos.com.br, josef da silva rocha [EMAIL PROTECTED] escreveu Observação: mensagem anexa encaminhada. - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re[2]: [delphi-br] paralisacao de aplicativo
caro amigo, se você estiver executando um Loop muito longo use Application.ProcessMessages; assim vai permitir que o windows responsa enquanto sua aplicação masacra o processador;; se quando ta executando e vc click no seu sistema e fica meio branco, coloque a rotina dentro do loop que resolve.. = De:Elazar [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:RES: [delphi-br] paralisacao de aplicativo 3 Horas e bastante hein...com quantas notas o programa trabalha...? eu tenho um modulo que gera arquivos do sintegra...fiz um teste com 1000 notas levou menos de 30 segundos...num micro quase igual ao teu... que banco de dados voce usa?, voce faz o processamendo todo no programa ou no banco? Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Francisco Carlos Enviada em: segunda-feira, 24 de outubro de 2005 10:14 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] paralisacao de aplicativo Ola lista, estou tendo o seguinte problema, qdo minha aplicacao esta executando uma rotina longa e demorada, se eu clicar no aplicaco ele para de funcionar. o que eu posso fazer para sanar esse tipo de problema. Ex: eu tenho uma rotina de verificacao de notas que demora em torno de 3 horas para processar tudo, qdo eu mando processar se eu nao mexer em nada ele conclui normalmente, mas se eu deixar ele processsando e for fazer outro procedimento no computador, a aplicacao para (trava). Uso PENTIUM IV, 1024 DE RAM, HD 80 WINXP ORIGINAL Agradeco a quem se manifestar ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_3244 18_pop_ps2_celv550.gif _ 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] ?subject=Unsubscribe * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM http://br.groups.yahoo.com/group/delphi-br/messa ges [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re[4]: [delphi-br] conectar delphi + mysql + zeos com proxy.
O paulo que bom que deu tudo certo, me responsa uma coisa, qual a performance do mysql no linux? sempre tive essa curiosidade mas meu conhecimento em linux é o mesmo que em física quantica. = De:Paulo Batalhão [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:Re: Re[2]: [delphi-br] conectar delphi + mysql + zeos com proxy. Eduardo, muito obrigado. Fiz um teste em uma pequena rede que montei e deu certo. A minha base de dados está em MySQL/Linux o Win98 é apenas para os clientes e o servidor de internet dos clientes . Muito obrigado pela ajuda de todos. att' Paulo Batalhão - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 1:51 PM Subject: Re[2]: [delphi-br] conectar delphi + mysql + zeos com proxy. O servidor com Windows 98 que vc se refere é pra rodar o mySQL, ou é pra servidor da rede que vai acessar o banco num outro servidor externo? 1 - se for usar Win98 como servidor para rodar mySQL nao e muito seguro. por causa da Fat32. e melhor usar 2000/XP em partição NTFS e mySQL como Serviço. 2 - se for usar o Win98 Apenas como servidor de internet nao tem problemas nao, use o Win98 SE e ative o compartilhamento do conexão do proprio, fica em painel de controle, adicionar remover programas, instalação do Windows, componentes da internet. + ou - isso. aguardo notícias... = De:Paulo Batalhão [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:Re: [delphi-br] conectar delphi + mysql + zeos com proxy. Caro Eduardo, você sabe se é possivel utilizar como servidor o win 98 (pois é justamente com ele que estou tendo esta dificuldade), ou você teve que utilizar NT/2000... ou mais rescente ? muito obrigado até o momento. att' Paulo Batalhão - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 2:28 AM Subject: Re: [delphi-br] conectar delphi + mysql + zeos com proxy. para resolver o seu problema você deve usar um proxy com suporte a NAT, eu tive esse problema, usava analogProxy para compartilhar a conexão, o servidor conectava a um banco externo, as estações da rede não, usei o proprio compartilhamento de conexões do Windows e tudo ficou blz, so pra vc ter certeza, tente acessar um endereço FTP através do navegador de alguma estação da rede.. = De:Paulo Batalhão [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] conectar delphi + mysql + zeos com proxy. boa tarde , Caros, estou com o seguinte problema . Preciso disponibilizar o sistema que é feito em Delphi acessando uma base MySQL com Zeos atravez de um proxy. -- vou explicar .-- O servidor será remoto e tenho uma rede de aproximadamente 10 máquinas , o problema é que consigo apenas conectar a máquina que serve a internet. Tentei utilizar o FreeProxy e o AnalogX. Se alguem puder me ajudar , ficarei muito grato. obrigado. #2921101245151 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/mes s a ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html ___ _ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/mess a ges 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/mess a ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messa ges 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 http://br.groups.yahoo.com/group/delphi-br/messa ges [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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]
