Re: [delphi-br] Re: CGI (Delphi 6)
At 09:25 1/10/2004, you wrote: Olá Luiz, Não conseguimos achar explicação para o que estava acontecendo. Mudamos do metodo SendRedirect para o Content com tags javascript direcionando para o arquivo e a coisa funcionou com pretendiamos. Agradeço pela atenção. g[], Osmar Souza. Osmar, Acho pouco provável do próprio Delphi estar chamando o CGI 2 vezes (a não ser que tenha uma Action chamando outra Action). Acredito que possa ser alguma coisa na parte não delphi (asp, html, etc). Verifique se não tem algum html com metarefresh dando reload no form e chamando seu CGI novamente, se não tem nenhum redirecionamento em asp executando de modo automático, se não tem nenhum javascript no onload do html redirecionando de volta para o CGI, etc Tivemos um problema parecido uma vez e o erro estava em um javascript no onload de um html. Luiz Henrique Severo d Oliveira RPG Soluçoes www.rpgsolucoes.com.br - Mensagem: 2 Data: Thu, 30 Sep 2004 18:56:28 -0300 De: Osmar Souza [EMAIL PROTECTED] Assunto: Olá Pessoal, Ao desenvolvermos uma CGI percebemos que ela estava passando pelo evento Action duas vezes. A primeira na chamada, por método get, e a segunda quando usamos o Response.SendRedirect, até ai não teria problemas se a função da CGI não fosse a de gerar arquivos PDFs. Como passa duas vezes e pega sequencial diferente, são gerados dois arquivos para o mesmo documento. Alguem já passou por problema parecido? Grato, Osmar Souza. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] daniel; calculo para ano bissesto
formula (Ano mod 4 = 0 and Ano mod 100 0) or (Ano mod 400 = 0) - Original Message - From: danielromabr [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, October 01, 2004 9:47 AM Subject: [delphi-br] daniel; calculo para ano bissesto ola estou estudando no 1 ano de sistemas de informacao na umc e estou estudando pascal quero saber como se calcula se um ano é bissexto ou nao: tem a ver com o numero de dias do ano?cmo é a formula? obrigado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] daniel; calculo para ano bissesto
É só ver o fonte da função IsLeapYear() que lá tem. []s -Mensagem original- De: Renato H. Osaka ( Sófolha Informática ) [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 30 de setembro de 2004 08:37 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] daniel; calculo para ano bissesto formula (Ano mod 4 = 0 and Ano mod 100 0) or (Ano mod 400 = 0) - Original Message - From: danielromabr [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, October 01, 2004 9:47 AM Subject: [delphi-br] daniel; calculo para ano bissesto ola estou estudando no 1 ano de sistemas de informacao na umc e estou estudando pascal quero saber como se calcula se um ano é bissexto ou nao: tem a ver com o numero de dias do ano?cmo é a formula? obrigado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Gerar código de barras
Olá, será que alguém possui o procedimento para gerar o codigo de barras ean-13, a partir de um codigo interno em delphi5. Desde já agradeço a todos. Ricardo. -- 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] problema ao compilar - System.pas URGENTE
Caros amigos Desculpem o urgente, mas preciso entregar um trabalho na segunda de manha e meu delphi esta meio doido. Ao compilar, da o seguinte erro Sindi.dpr. system.pas nao encontrado. Abre o arquivo de projeto .dpr e mostra este erro na linha program Sindi;. O problema acontece em todos os programas que tento compilar. Ja procurei por tal arquivo o encontrei na pasta da borland onde deve estar, mas nada, copiei novamente do cd e nada. Alguma luz ? Meu delphi 5 profissional licenciado. Atenciosamente Washington A. Müller da Silva # NextCorp Informática Ltda www.nextcorp.hpg.com.br [EMAIL PROTECTED] 0 xx (51)-589-3690 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.762 / Virus Database: 510 - Release Date: 13/09/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ordernar tabhela
Bom dia Tenho uma tabela gerada que fica fora de ordem alfabetica a qual eu gostaria que ficasse. Inicialmente eu criei um arquivo de indice pelo campo Cultivar (campo que desejo estar em ordem) e no programa coloquei a seguinte linha Table1.IndexFieldName := 'cultivar'; O resultado foi otimo só que eu tenho na barra de status uma sentença que mostra a posição do cursor atual / registro total por StatusBar1.Panels[1].Text := IntToStr(table1.RecNo) + ' / ' + IntToStr(table1.RecordCount); só que o RecNo pega o posição da tabela basica e nao a do indice Qual a saida? Tambem tentei usar a SQL Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('ALTER TABLE resultante.dbf ORDER BY cultivar'); Query1.Open; mas parece que o dbase III nao aceita isto pois recebo a menssagem que ORDER é invalida. Udo Delphi 5. Desde ja agradeço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: ordernar tabhela
select * from resultante.dbf order by cultivar --- Em [EMAIL PROTECTED], Carlos Alberto [EMAIL PROTECTED] escreveu Bom dia Tenho uma tabela gerada que fica fora de ordem alfabetica a qual eu gostaria que ficasse. Inicialmente eu criei um arquivo de indice pelo campo Cultivar (campo que desejo estar em ordem) e no programa coloquei a seguinte linha Table1.IndexFieldName := 'cultivar'; O resultado foi otimo só que eu tenho na barra de status uma sentença que mostra a posição do cursor atual / registro total por StatusBar1.Panels[1].Text := IntToStr(table1.RecNo) + ' / ' + IntToStr(table1.RecordCount); só que o RecNo pega o posição da tabela basica e nao a do indice Qual a saida? Tambem tentei usar a SQL Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('ALTER TABLE resultante.dbf ORDER BY cultivar'); Query1.Open; mas parece que o dbase III nao aceita isto pois recebo a menssagem que ORDER é invalida. Udo Delphi 5. Desde ja agradeço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] cortando o FORm!!
sr_doidera . wrote: oi to tendo um problema meio que chato! tenho um sistema feito em delphi 7 que ao ser instalado em alguns windows XP e ME fica cortando o form! Criar um descendant do TForm, que utilize valores minimos de Width e Weigth, e que acerte estes valores no evento CanResize é uma opção que uso vulgarmente. Isto permite, principalmente em forms MDI, que estas sejam criadas com o tamanho que você as programa no editor, por exemplo, e que o user possa na mesma fazer o resize. Artur -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gerar código de barras
function Valida_EAN(VEAN: String): Boolean; //Dica número 1595 de www.deephi.rg3.net. Funciona com EAN8 e EAN13 var Temp1, Temp2: Integer; Temp3: String; begin Temp2:=0; Temp3:=''; for Temp1:=Length(VEAN)-1 downto 1 do if VEAN[Temp1] in ['0'..'9'] then Temp3:=Temp3+VEAN[Temp1]; //Inverte, retirando o dígito verificador e letras for Temp1:=1 to Length(Temp3) do //Multiplica as posições impares por 3, fazendo o somatório if Temp1 mod 2 = 0 then Temp2:=Temp2+StrToInt(Temp3[Temp1]) else Temp2:=Temp2+StrToInt(Temp3[Temp1])*3; Temp2:=10-Round(Frac(Temp2/10)*10); //10 menos o resto da divisão Result:=Temp2=StrToIntDef(Copy(VEAN,Length(VEAN),1),0); end; Isso ai veririca se é válido. Pensa e modifica ou usa um Random, hehe. Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: ricardoisono [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Saturday, October 02, 2004 10:26 AM Subject: [delphi-br] Gerar código de barras Olá, será que alguém possui o procedimento para gerar o codigo de barras ean-13, a partir de um codigo interno em delphi5. Desde já agradeço a todos. Ricardo. -- 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: Assine Claudia em 5x de R$ 18,96 Assine Info em 5x de R$ 21,48 Mais... Capricho Manequim Boa Forma Nova Exame Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html