[delphi-br] Componente WebBrowser
Boa tarde a todos! Criei um programa no Delphi utilizando o componte WebBrowser para fazer a baixa automática dos andamentos processuais. Acesso o site os Tribunais de Justiça. Ao fazer a baixa de um determinado tribunal, mostra um erro de script na página. Veja : Erro no script desta página. Linha : 12 Caractere : 1 Erro : 'parents frames.0.principa' é nulo ou não é um objeto Código : 0 URL : mostra o endereço da URL... Deseja continuar executando os scripts desta página? Sim Não Para resolver este problema entrei no Internet Explore menu Ferramentas - Opções da Internet - Segurança - Nível personalisado. Desativei os scripts ativos. Ótimo, resolveu meu problema, conseguia executar meu programa sem nenhuma mensagem de erro. Depois tentei entrar em alguns sites, para ver se estava tudo bem. Ao fazer estes testes verifiquei que não conseguia abrir o site do hotmail Um problema grava, pois não posso levar esta aplicação para o usuário. Por favor, alguém sabe como desabilitar o javascript do componente WebBrowser? Agradeço a atenção de todos... Patricia Santana - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [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] Inclusão de Dados
Boa tarde, a todos!!!
Estou precisando salvar algumas informações utilizando o BD
Interbase/Firebird através de uma Stored Procedure. Vejam como estou fazendo :
1: with StoredProcJURWEB1 do {Interbase/Firebird}
begin
ParamByName('NUMEROPROCESSO').AsString := Processo;
ShowMessage('Número Processo :' + Processo);
ParamByName('DATACOMPROMISSO').AsDateTime := Data;
ParamByName('CODIGOANDAMENTO').AsInteger := (StrToInt(ParamStr(9)));
ParamByName('CODIGOFASE').AsInteger := (StrToInt(ParamStr(10)));
ParamByName('DESCRICAOCOMPROMISSO').AsMemo := MemoAndamento.Lines[i]
+char(13);
ShowMessage('LinhaMemo:' + MemoAndamento.Lines[i]);
Prepare;
ExecProc;
end;
Pedi para mostrar os parâmetros e está tudo ok. Mas quando vou executar o
comando' ExecProc ' mostra a seguinte mensagem de erro :
Master record Missing.
Violation of FOREIGN KEY constraint CE_FASECOMP_PROCESSO on table FASECOMP.
Por que ocorre este erro?
Por favor me ajudem
Obs. Uso Delphi 5.0
Obrigada pela atenção...
-
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]
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] Dúvida na Concatenação de Strings
Bom dia a todos!
Tenho o seguinte texto em um campo memo :
ARQUIVAMENTO
LOTE 215
2/9/2005 09:49:00
23/03/1998 00:00
DISTRIBUIÇÃO - PROCESSO ANTIGO
NONA VARA CÍVEL - OLINDA
23/3/1998
Preciso formatá-lo de forma que fique assim :
02/09/2005 09:49 ARQUIVAMENTO LOTE 215
23/03/1998 00:00 DISTRIBUIÇÃO - PROCESSO ANTIGO NONA VARA CÍVEL- OLINDA
Vejam um pedaço do meu código :
procedure TFormDownload.Filtro(var Txt: TStrings);
var
i : integer;
Linha, Data, Andamento, AndamentoAux, DataAux, Dia, Mes, Ano,DataAux1 :
String;
begin
try
i := 0;
AndamentoAux := '';
if Txt.Count 0 then
while i Txt.Count do
begin
if (Txt.Strings[i] = '') or (Txt.Strings[i] = ('Estes dados são
apenas informativos, não tendo nenhum valor legal.')) then
begin
Txt.Delete(i);
dec(i);
end
else
begin
if (Txt.Strings[i][1] in ['0'..'9']) then
begin
Data := Trim(copy(Txt.Strings[i], 1,10));
end;
if (Txt.Strings[i][1] in ['a'..'z','A'..'Z']) then
AndamentoAux := AndamentoAux + ' ' +Trim(Txt.Strings[i]);
end;
inc(i);
end;
Txt.Strings[1] := Data+' '+AndamentoAux;
finally
end;
end;
end.
Esta função está retornando o seguinte texto :
23/3/1998 ARQUIVAMENTO LOTE 215 DISTRIBUIÇÃO - PROCESSO ANTIGO NONA VARA
CÍVEL - OLINDA
ARQUIVAMENTO
LOTE 215
2/9/2005 09:49:00
23/03/1998 00:00
DISTRIBUIÇÃO - PROCESSO ANTIGO
NONA VARA CÍVEL - OLINDA
23/3/1998
Por favor, podem ajudar?
Muito obrigada pela atenção
Patricia Santana
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* 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] Rotina incremento
Bom dia a todos! Fiz a seguinte rotina no delphi : for i := 0 to MemoAndamento.Lines.Count - 1 do begin Linha := MemoAndamento.Lines[i]; DataAux := Trim(copy(Linha, 1, 10)); HoraAux := Trim(copy(Linha,13,6)); HoraComp := Trim(copy(MemoAndamento.Lines[i+1],13,6)); if HoraAux = HoraComp then begin HoraAux := ''; HoraAux := (copy(Linha,13,6)+':'+'0'+inttostr(i)); end; Data := StrToDateTime(DataAux +''+ HoraAux); end; Quando o a variável i = 60, o programa mostra uma mensagem de erro dizendo que ' 06/12/2005 17:060 ' não é uma data válida. Então vou ter que verificar quando o i = 60 devo incrementar os minutos e se os minutos = 60 devo incrmentar a hora Fiz uma rotina com este raciocínio, mas não está funcioando... Alguém tem alguma rotina para fazer isso... Muito obrigada pela atenção... Patricia Santana - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * 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] Rotina incremento
Leandro, estou utilizando a versão 5.0 Tem esta função? obrigada! Leandro [EMAIL PROTECTED] escreveu: Se voce usa Delphi 6 ou superior, de uma olhada nas funcoes da unit DateUtils (IncMinute, IncHour, etc).; Leandro - Original Message - From: Patricia Santana To: Sent: Thursday, December 08, 2005 8:25 AM Subject: [delphi-br] Rotina incremento Bom dia a todos! Fiz a seguinte rotina no delphi : for i := 0 to MemoAndamento.Lines.Count - 1 do begin Linha := MemoAndamento.Lines[i]; DataAux := Trim(copy(Linha, 1, 10)); HoraAux := Trim(copy(Linha,13,6)); HoraComp := Trim(copy(MemoAndamento.Lines[i+1],13,6)); if HoraAux = HoraComp then begin HoraAux := ''; HoraAux := (copy(Linha,13,6)+':'+'0'+inttostr(i)); end; Data := StrToDateTime(DataAux +''+ HoraAux); end; Quando o a variável i = 60, o programa mostra uma mensagem de erro dizendo que ' 06/12/2005 17:060 ' não é uma data válida. Então vou ter que verificar quando o i = 60 devo incrementar os minutos e se os minutos = 60 devo incrmentar a hora Fiz uma rotina com este raciocínio, mas não está funcioando... Alguém tem alguma rotina para fazer isso... Muito obrigada pela atenção... Patricia Santana - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * 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: Erro na conexão do Interbase - URGENTE
Se após desativar o firewall da máquina o errro persistir, tente este procedimento : 1 - Uma simples alteração no register pode ser a resolução deste problema, após o service pack ser aplicado a chave \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\DataBasePath é alterado você deve voltar os valores anteriores. Execute o regedit e siga os procedimento abaixos: 1 - Localize a chave acima citada 2 - Renomeie o item DataBasePath 3 - Crie uma outra chave com o mesmo nome (DataBasePath) selecionando o tipo Expandable String Value (REG_EXPAND_SZ) 4 - Copie o valor da chave anterior, provavelmente será %SystemRoot%\System32\drivers\etc 5 - Reinicie o computador Atenciosamente, Patricia Santana - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * 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: Erra na conexão do Interbase - URGE NTE
Leandro, O arquivo do interbase tem extensão .gdb Verifique se o caminho e o arquivo está correto. Atenciosamente, Patricia Santana Leandro Carbonera [EMAIL PROTECTED] escreveu: E ai pessoal tudo bem.. Estou com um pipinão. estou implantando um sistema desenvolvido em Delphi6.0 e Interbase 6.0 em um cliente novo. Ele tem 5 Pc's (1 servidor, 2 pc normal e 2 notebook) todos com windows xp professional. Em algums deles quando tento conectar o banco de dados me retorna o erro UNABLE COMPLETE TO NETWORK REQUEST TO 'JOSE'. FAILED TO LOCATE HOST MACHINE. UNDEFINED SERVICE GDS_DB/TCP . ou ainda UNABLE COMPLETE TO NETWORK REQUEST TO 'LOCALHOST'. FAILED TO LOCATE HOST MACHINE. UNDEFINED SERVICE GDS_DB/TCP . Se for uma conexão local funciona.. Estas são as conexões que eu tentei fazer: Jose=:d:\driverbr\rbrwin\bancoib\gerencia\gerencia.rbr (Deu o ero) localhost:c:\driverbr\rbrwin\bancoib\gerencia\gerencia.rbr (Deu o erro) c:\driverbr\rbrwin\bancoib\gerencia\gerencia.rbr (Funciona OK) Já verifiquei toda a rede e esta ok, só que essa bucha não conecta.(argh) Alguem tem alguma luz para me dar. Já to no desespero.. Att. Leandro Carbonera Suporte Técnico - RBR Informática Fone: 54 343 1788 [EMAIL PROTECTED] www.rbrinformatica.com.br ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * 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] Stored Procedure no Interbase
Bom dia a todos! Podem informar o que estou fazendo de errado nesta Stored Procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP) INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN EXIT END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Alguém tem agum modelo parecido, para ajudar-me? Desde já agradeço a todos Patricia Santana - 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] 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] Stored Procedure no Interbase
Boa tarde a todos! Podem informar o que estou fazendo de errado nesta Stored Procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP) INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN SUSPEND END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Alguém tem agum modelo parecido, para ajudar-me? Desde já agradeço a todos Patricia Santana - 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] 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] Stored Procedure no Interbase
Boa tarde! Por favor, podem ajudar encontrar o erro nesta stored procedure? SET TERM !! ; CREATE PROCEDURE ANDAMENTONET4 (NUMRPROC VARCHAR(25), DATACOMP TIMESTAMP, CODGANDAM INTEGER, CODGFASE INTEGER, FLAGINTERNO CHAR(1), DESCCOMP BLOB SUB_TYPE 1) RETURNS (CONTADOR INTEGER) AS DECLARE VARIABLE CONTADOR INTEGER; BEGIN FOR SELECT COUNT(NUMR_FASECOMP) FROM FASECOMP WHERE (NUMR_PROC = :NUMRPROC and DATA_COMP = :DATACOMP and DESC_COMP = :DESCCOMP)INTO :CONTADOR DO BEGIN IF (CONTADOR is null) THEN BEGIN CONTADOR = 0; END; IF (CONTADOR 0 ) THEN BEGIN SUSPEND END ELSE INSERT INTO FASECOMP (NUMR_PROC, DATA_COMP, CODG_ANDAM, CODG_FASE, FLAG_INTERNO, DESC_COMP) VALUES (:NUMRPROC, :DATACOMP, :CODGANDAM, :CODGFASE, 'N', :DESCCOMP); END!! SET TERM ; !! Desde já agradeço a atenção, Patricia Santana - 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] 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] Formatar um Texto
Boa tarde, a todos!!!
Preciso formatar um texto com o seguinte formato:
Dia/Mes/Ano - hora:00:00 - Texto
São textos diferentes com posição e tamanho da data diferente.
Vejam os exemplos :
1° )
16/06/2005267 - Autos carga ao curador de registros publicos - mp
15/06/2005070 - Profide-promotoria just def fil idoso port deficVISTA
2° )
19/10/2005BAIXA EM DEFINITIVO
Vara: 11a Vara Cível de Brasilia
Trânsito em Julgado: 17/10/2005
24/08/2005PARA JUNTAR PETIÇÃO
Observação: pg n. 12466
13/04/2004PUBLICAÇÃO DE DESPACHO
Magistrado : Des. VALTER XAVIER
Espécie: Agravo de Instrumento
Tipo: Outros
Inteiro Teor do Despacho
Publicado no DJ às fls. 24/26
3° )
BAIXA REALIZADA 04/05/2001
AGUARDA CUMPRIR DILIGÊNCIABAIXAR03/05/2001
AUTOS REMETIDOS AO ESCRIVÃOESCRIVÃO(Ã) 1012269702/05/2001
AGUARDA INTIMAR DIÁRIO OFICIAL 27/04/2001
**
Fiz a seguinte função para resolver meu problema :
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, B, K, PosB : integer;
Linha, DataAux, Dia, Mes, Ano, Andamento : String;
begin
B := 0;
for i := 1 to MemoTexto.Lines.Count -1 do
begin
Linha := MemoTexto.Lines.Strings[i];
for j := 1 to Length(Linha)-1 do
begin
if Linha[j] in ['0'..'9','/',':'] then
DataAux := copy(Linha, 0, j);
end;
B := 0;
PosB := 0;
for K := 1 to Length(DataAux) do
begin
if DataAux[K] = '/' then
begin
B := B + 1;
if B = 1 then
begin
PosB := K;
Dia := copy(DataAux, 0, K-1);
end;
if B = 2 then
begin
Mes := copy(DataAux, PosB +1,PosB-1);
//ShowMessage('Mes:'+Mes);
Ano := copy(DataAux, PosB + 4,Length(DataAux));
//ShowMessage('Ano:'+Ano);
end;
end;
end;
if Length(Dia) = 1 then
Dia := '0'+ Dia;
if Length(Mes) = 1 then
Mes := '0'+Mes;
if Length(Ano) 4 then
Ano := copy(DataAux, PosB + 4,4);
Andamento := copy(Linha, Length(Ano)+12,Length(Linha));
MemoAndamento.Lines.Add(Dia+ '/' +Mes + '/'+ Ano + ' - ' + '00:00:00'+' -
'+Andamento);
end;
end;
Porém esta função só funciona para o 1° exemplo... Para os demais não
funciona
Alguém tem uma única função para resolver meu probema?
Vejam o retorno desta função usando o 1° Exemplo :
15/06/2005 - 00:00:00 - Profide-promotoria just def fil idoso port deficVISTA
15/06/2005 - 00:00:00 - Autos distribuidos ao cartorio
03/06/2005 - 00:00:00 - Autos com funcionario(a)WILL
02/06/2005 - 00:00:00 - Autos distribuidos ao cartorio
Preciso deste formato em todos os textos
Alguém pode ajudar?
Agradeço a atenção de todos
Patricia Santana
-
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] Classe de Componente
Boa tarde a todos! Como faço para descobrir qual é a classe que devo adicionar na unit para usar um componete do tipo TStrings ? Desde já agradeço a atenção de todos!!! Patricia Santana - Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e muito mais. Instale 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] Quebra de Linha no componente Memo
Bom dia a todos Tenho o seguinte texto dentro de um componente memo : 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Onde este texto é um retorno de uma função e está em uma única linha. Preciso quebrar esta linha de forma que fique assim: 25/05/2005 13:19AGUARDANDOAUTOR 18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Data + Hora + Texto. Como faço isso no Delphi? Obs : Estou utilizando o Delphi 5.0 Desde de já agradeço Patricia Santana __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Quebra de Linha no componente Memo
Tenho o seguinte texto dentro de um componente memo : 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Onde este texto é um retorno de uma função e está em uma única linha. Preciso quebrar esta linha de forma que fique assim: 25/05/2005 13:19AGUARDANDOAUTOR 18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Data + Hora + Texto. Obs : Estou utilizando o Delphi 5.0 Como faço isso no Delphi? Desde de já agradeço Patricia Santana __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Quebra de Linha no componente Memo
Bom dia a todos!!! Tenho o seguinte texto dentro de um componente memo : 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Onde este texto está em uma única linha. Preciso quebrar esta linha para de forma que fique assim: 25/05/2005 13:19AGUARDANDOAUTOR 18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Data + Hora + Andamento. Obs : Estou utilizando o Delphi 5.0 Como faço isso no Delphi? Desde de já agradeço Patricia Santana __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Re: Quebra de Linha no componente Memo
Osmar, o retorno de uma função preenche o componete memo, porém em uma única linha. Então, Criei um outro componente memo ( Memo2) que irá receber as informações que preciso, ou seja, em várias linha : Data + Hora + Texto. 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO10/05/2005 14:42EM CLASSIFICAÇÃO Criei um laço para percorrer todo conteúdo do memo. i := 0; while i Memo1.Lines.Count do Na primeira vez que percorrer o laço consigo pegar as informações da seguinte forma : Linha := copy(Memo2.Lines.Strings[i],1,Length(Memo2.Lines.Strings[i])); Data := copy( Linha, 1, 10); Hora := copy(Linha, 11, 5); Texto := copy( Linha, 16, Length(Linha)); Mas a variável texto irá receber o conteúdo do restande da linha com o restante do texto, ou seja não consegui quebrá-lo ... O texto é assim: Data - Hora - Texto ; Data - Hora - Texto; Data - Hora - Texto... Como quebrar o texto antes da segunda data? Atribuindo assim a primeira linha do Memo2 Como quebrar o texto antes da terceira data ? Atribuindo assim a segunda linha do Memo2 E assim sucessivamente. Muito obrigada pela atenção. Osmar de Souza Júnior [EMAIL PROTECTED] escreveu: Não sei como você está preenchendo o Memo, porque quando você usa um método Add(Text) ou Append(Text) do próprio TMemo, ele adiciona a quebra automaticamente. Se você está fazendo assim: Memo1.Lines.Text := '25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO'; Então terá que adicionar as quebras com os caracteres #13 (Carriage Return) e #10 (Line Feed) - acho que é isso: Memo1.Lines.Text := '25/05/2005 13:19AGUARDANDOAUTOR' + #13#10 + '18/05/2005 08:57EXPEDIÇÃO DE MANDADO' + #13#10 + '10/05/2005 14:42EM CLASSIFICAÇÃO' + #13#10 + '09/05/2005 16:26PROTOCOLADO'; Acho que é isso. []s. --- Em delphi-br@yahoogrupos.com.br, Patricia Santana escreveu Bom dia a todos!!! Tenho o seguinte texto dentro de um componente memo : 25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Onde este texto está em uma única linha. Preciso quebrar esta linha para de forma que fique assim: 25/05/2005 13:19AGUARDANDOAUTOR 18/05/2005 08:57EXPEDIÇÃO DE MANDADO 10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005 16:26PROTOCOLADO Data + Hora + Andamento. Obs : Estou utilizando o Delphi 5.0 Como faço isso no Delphi? Desde de já agradeço Patricia Santana __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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 - Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 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 * 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] Filtrar texto
Bom dia a todos!! Tenho um determinado texto dentro de componente memo com algumas datas. Exemplo : Receba gratuitamente 23/08/2005ÓRGÃO 23/08/2005DISTRIBUIÇÃO 22/08/2005REMESSA Neste texto preciso buscar somente o texto com as datas, ou seja preciso que pule ou exclua a primeira linha que não tem data. Como faço isso? Estou utilizando o delphi 5.0 Desde de já agradeço a atenção de todos... Patricia Santana __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Excluir linhas em branco
Boa tarde a todos!!! Preciso retirar linhas em branco de um texto que está dentro de um componente memo do Delphi. Como faço isso? Desde de já agradeço a atenção de todos! Patricia Santana - Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 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 * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Excluir linhas em branco
Osmar, muito obrigada pela dica Funcionou Atenciosamente, Patricia Santana Osmar de Souza Júnior [EMAIL PROTECTED] escreveu: Se for linhas em branco no começo ou no fim do texto: Memo1.Lines.Text := Trim(Memo1.Lines.Text); Se for linhas em branco no meio do texto: var i: integer; begin i := 0; while (i Memo1.Lines.Count) do begin if (Memo1.Lines[i] = '') then Memo1.Lines.Delete(i) else i := i + 1; end; end; --- Em delphi-br@yahoogrupos.com.br, Patricia Santana escreveu Boa tarde a todos!!! Preciso retirar linhas em branco de um texto que está dentro de um componente memo do Delphi. Como faço isso? Desde de já agradeço a atenção de todos! Patricia Santana - Yahoo! Messenger com voz: PROMOÇÃO VOCÊ PODE LEVAR UMA VIAGEM NA CONVERSA. 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 __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Constante dinâmica
Bom dia a todos Preciso usar um determinado texto no meu código HTML no meu programa como uma constante. Mas este código muda de acordo com alguns parâmentros : 'HREF=Resp_Historico2flag=P1nrot=SPG2308Nmensagem=processo=21422540interloc=sequencia=020' Onde preciso inserir na linha o n° do processo e o número da sequência. Vejam como deve ficar : 'HREF=Resp_Historico2flag=P1nrot=SPG2308Nmensagem=processo='+NumrProc+'interloc=sequencia='+Seq+''; Mas ao definir como uma variável constante, mostra a seguinte mensagem de erro : Constant expression expected Depois de resolver este problema preciso saber como faço para mudar estas variáveis ( NumrProc e Seq ) dinamicamente no meu código.. O que estou fazendo de errado? Obrigada pela atenção de todos... Patricia Santana - 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] Parte do texto
Boa tarde a todos! Preciso pegar algumas informações do texto abaixo, mas não sei como pegá-la. O texto a ser retornado é: 10/08/2005 046 - Autos com funcionario(a) WILL 04/08/2005 007 - Autos distribuidos ao cartorio Por favor, como faço para trazer somente estas informações? Desde já agradeço a atenção de todos... Patricia Santana /PFONT SIZE=2BAndamentos/FONTbrBRFONT FACE=Arial, Helvetica, sans serif SIZE=+1A OnMouseMove=window.status='concluido'trueSignificado dos Andamentos/A/FONTTABLEtrtdnbsp;/td/trTRTD WIDTH=30Bfont size=2Data/B WIDTH=300Bfont size=2Andamento/BBfont size=2Complemento/B/TD/B/TRtrtdnbsp;/td/tr 10/08/2005 046 - Autos com funcionario(a) WILL 04/08/2005 007 - Autos distribuidos ao cartorio /TABLE /TABLE /p BRBRa href=javascript:history.go(-1)img border=0 Voltar/a /font/td /tr /table /blockquote /blockquote /blockquote /body /html - 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] Procura Caracteres
Boa tarde, Alguém tem um exemplo de como bucar informações dentro de um texto? Consegui trazer o texto abaixo para dentro de um memo usando a procedure abaixo. Agora preciso trazer o texto limpo, contendo somente as datas e os andamentos para dentro de outro memo. Por favor, alguém pode ajudar? O texto é : TRTD VALIGN=TOPb19/01/2005/b/TDTD VALIGN=TOP119 - Autos conclusos ao juiz para despacho/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb11/01/2005/b/TDTD VALIGN=TOP362 - Autos aguardando juntada/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb17/12/2004/b/TDTD VALIGN=TOP261 - Autos aguardando resposta de oficio/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb17/12/2004/b/TDTD VALIGN=TOP105 - Autos devolvidos do(a)/TDTD VALIGN=TOPFONTPELO JUIZ/TD/TRTRTD VALIGN=TOPb14/12/2004/b/TDTD VALIGN=TOP119 - Autos conclusos ao juiz para despacho/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb07/12/2004/b/TDTD VALIGN=TOP262 - Autos para expedir oficio/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb19/05/2004/b/TDTD VALIGN=TOP357 - Autos aguardando devolucao de carta precatoria/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb19/05/2004/b/TDTD VALIGN=TOP105 - Autos devolvidos do(a)/TDTD VALIGN=TOPFONTPELO JUIZ/TD/TRTRTD VALIGN=TOPb17/05/2004/b/TDTD VALIGN=TOP119 - Autos conclusos ao juiz para despacho/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb14/05/2004/b/TDTD VALIGN=TOP035 - Autos aguardando remessa a xerox/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb06/05/2004/b/TDTD VALIGN=TOP359 - Expedir carta precatoria/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb05/05/2004/b/TDTD VALIGN=TOP282 - Audiencia realizada/TDTD VALIGN=TOPFONTDr(a). PAULO EDUARDO NORI MORTARI/TD/TRTRTD VALIGN=TOPb06/02/2004/b/TDTD VALIGN=TOP022 - Audiencia remarcada para/TDTD VALIGN=TOPFONT05052004 1400/TD/TRTRTD VALIGN=TOPb29/01/2004/b/TDTD VALIGN=TOP326 - Autos aguardando audiencia/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb20/01/2004/b/TDTD VALIGN=TOP322 - Autos aguardando expedir diligencias/TDTD VALIGN=TOPFONT/TD/TRTRTD VALIGN=TOPb20/01/2004/b/TDTD VALIGN=TOP248 - Audiencia designada para o dia/TDTD VALIGN=TOPFONT05/04/2004 14:00/TD/TRTRTD VALIGN=TOPb17/12/2003/b/TDTD VALIGN=TOP046 - Autos com funcionario(a)/TDTD VALIGN=TOPFONTWIL/TD/TRTRTD VALIGN=TOPb16/12/2003/b/TDTD VALIGN=TOP007 - Autos distribuidos ao cartorio/TDTD VALIGN=TOPFONT/TD/TR procedure TForm1.Button1Click(Sender: TObject); const VarAntesData = 'TRTD VALIGN=TOPb'; VarAntesAnd = '/b/TDTD VALIGN=TOP'; VarFimAnd = ''; var I, J, Cont, PosReturnLinha,PosReturnData, PosReturnAnd, Skipchars,TamanhoTagData,PosData : Integer; Data, Andamento : String; begin for I := 0 to Memo1.Lines.Count do begin PosReturnLinha:= Pos(VarAntesData, Memo1.Lines[I]); //Caracteres encontrados. if (PosReturnLinha 0) then begin Skipchars := 0; for J := 0 to I - 1 do Skipchars := Skipchars + Length(Memo1.Lines[J]); SkipChars := SkipChars + (I*2); SkipChars := SkipChars + PosReturnLinha - 1; Memo1.SetFocus; Memo1.SelStart := SkipChars; Memo1.SelLength := Length(Memo1.Lines[J]); MemoLinha.Text := Memo1.Lines[J]; __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Dúvida Componente
Bom dia a todos! Estou precisando acessar uma página web que está utilizando o protocolo de segurança HTTPS, através do Delphi 5.0. Encontrei o componente Idhttp ( Localizado na paleta Indy ) que faz isso, mas não sei como utilizá-lo. Alguém pode me ajudar? Desde de já agradeço a atenção de todos! Atenciosamente, Patricia Santana - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 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] Acesso Web
Bom dia a todos! Preciso fazer o seguinte programa: - A partir de um formulário criado no Delphi tenho um botão que abre os respectivos sites dos tribunais de Justiça. Vou solicitar que o usuário informe o número do processo a ser pesquisado no site. Então, o programa deverá fazer uma busca em todos os andamentos do processo( Dentro do site. Não tenho acesso a base de dados dos tribunais) , trazer o último andamento e gravar na base de dados do meu programa. Preciso muito dessa ajuda.. Não faço a mínima idéia como fazer isso no Delphi.. Vocês podem me ajudar... Desde de já, Agradeço... Patricia Santana - Yahoo! Mail - Agora com 250MB de espaço gratuito. Abra uma conta 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] Duvidas Campos
Boa noite a todos Estou fazendo um formulário para obter o controle de uma conta bancária, os dados inseridos são: CodigoHistórico DataCréditoDébitoTotal Geral 1 Deposito 10/10/04 100,00 80,0020,00 20,00 2 Deposito 11/10/04 200,00 50,00150,00 170,00 3Retirada 12/10/04 100,00 -100,00 70,00 Ou seja a variável total irá receber: Total : = ( Crédito - Débito ) E a minha dúvida está em como calcular a variável Geral ou seja, se for o 1º registro simplesmente a variável Geral irá receber: Geral := Total Senão Geral := Geral + Total Não estou conseguindo fazer isto utilizando a linguagem de programação Delphi... Vocês podem ajudar? Desde já agradeço, Patricia Santana __ 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 * 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] Excluir um registro
Boa tarde, Gabriel!
Muito obrigada pela dica!
Gabriel Dimas [EMAIL PROTECTED] wrote:
utilize o evento BeforeDelete da Query ou Table e coloque on seguinte código
begin
if Application.MessageBox('Tem certez que deseja
excluir?','Atenção', MB_ICONEXCLAMATION + MB_YESNO)= idno then abort;
end;
--
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:PUBLICIDADE
-
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
[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] Excluir um registro
Boa noite a todos!
Estou fazendo um cadastro utilizando o componente DBNavigator. Quando vou fazer
a exclusão do registro utilizando o seguinte comando:
if button = nbdelete then
if Application.MessageBox('Tem certez que deseja excluir?','Atenção',
MB_ICONEXCLAMATION + MB_YESNO)= idyes then
QueryJurisprudencia.Delete;
Mostra um erro informando que o dataset está vazio.
Como posso resolver isto?
Obrigada a todos.
-
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: RES: [delphi-br] Page Control
Olá Cicero, Concordo com vc.. Mas no em algumas abas tem alguns campos que não podem ser nulos.. então o usuário não pode passar para próxima aba sem preenche - lo.. Patricia Cícerot [EMAIL PROTECTED] wrote: Eu acho que você não deveria deixar sua aplicação tão gerencida pela programadora. Existem situações em que o digitador precisa se responsabilizar de alguma forma. Se você tem um desses com 8 , 10 abas, vai te dar uma trabalheira danada. Checar todos os dbedits da aba1...acho que você deveria eleger um campo desses para você perguntar uma vez só. -Mensagem original- De: Patricia Santana [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 1 de novembro de 2004 17:46 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Page Control Estou utilizando um Page Control em minha aplicação, mas possui vária abas. Dentro da primeira aba tenho vários campos a ser preechidos pelo usuário ( estou utilizando o DBEdit ). Minha dúvida é: Se o usuário clicar na segunda, terceira, quarta aba .. sem preecher os dados da primeira aba, quero que o programa mostre uma mensagem dizendo que precisa cadastrar os dados da aba Principal primeiro. Após mostrar a mensagem, preciso que o programa volte para o foco para primeira aba para o usuário cadastrar os dados... Permitindo navegar entre as abas somente depois de ter cadastrado os dados da aba principal... Desde já agradeço Patricia - 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 --- Incoming 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 --- 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: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília - 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] Chave Primária Dupla
Criei duas tabelas ( Texto, Parte ) utilizando o banco de dados Firebird. Onde na tabela Texto tenho a chave primária ( Numr_Texto) e na tabela Parte tem duas chaves primárias( Numr_Sequencia, Numr_Texto ) onde Numr_Texto é chave estrangeira da tabela Texto. Criei também um generator para as chaves primárias ser um campo auto-incremento. No formulário coloquei uma query, um DataSource e um SqlUpdate. Depois fiz as devidas associações ( Associei a query ao SqlUpdate e também associei o datasouce a query ). Depois coloquei dois componentes DBText no formulário e fiz as devidas associações nas propriedades DataField e DataSouce. Coloquei também no formulário os demais campos para que o usuário preencha...e um DBNavigator para incluir,excluir, alterar e salvar os registros Mas quando clico no botão salvar do DBNavigator mostra uma mensagem de erro dizendo que o campo Numr_Texto está nulo. Como posso resolver este problema? Alguém pode ajudar? Atenciosamente, Patricia Santana __ 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 * 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] Page Control
Estou utilizando um Page Control em minha aplicação, mas possui vária abas. Dentro da primeira aba tenho vários campos a ser preechidos pelo usuário ( estou utilizando o DBEdit ). Minha dúvida é: Se o usuário clicar na segunda, terceira, quarta aba .. sem preecher os dados da primeira aba, quero que o programa mostre uma mensagem dizendo que precisa cadastrar os dados da aba Principal primeiro. Após mostrar a mensagem, preciso que o programa volte para o foco para primeira aba para o usuário cadastrar os dados... Permitindo navegar entre as abas somente depois de ter cadastrado os dados da aba principal... Desde já agradeço Patricia - 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
