mharcelinho

Membros
  • Content Count

    70
  • Joined

  • Last visited

Community Reputation

0 Neutro

About mharcelinho

  1. Eu queria saber se existe alguma maneira da tela agir como uma dll. Porque quando o cliente clicar no link este link já passa os parametros para a funçao e esta tela apenas tem de executar a função, não precisa ser aberta. Não sei se isto é for possível. Eu estou usando o window.resizeTo para alterar o tamanho da tela e apenas exibir uma mensagem de sucesso dentro da mesma, existe alguma forma dos menus e a barra de navegação não aparecerem neste caso??
  2. Tenho uma função delphi que cria um email em tempo de execução, este email vai no formato html, quando o cliente recebe este email ele recebe um link para dar a resposta. O que eu queria saber é se existe a possibilidade de: 01 - deste link chamar uma página asp sem que ela apareça, já que nela só existe uma função interna e não é necessário resposta. OU 02 - deste link chamar uma tela com um tamanho pré-definido(já tentei "href='#' onclick='window.open='minhaPagina.asp'") e não funcionou pois a tela de email não aceita a função onclick do javascript , até onde eu sei o email só aceita links. Este link tem de enviar a resposta para uma pagina asp, se alguém souber agradeço
  3. Obrigado pela dica, mas não sei como fazer isso em ajax. Se souber posta o código ai. valeu.
  4. Tenho uma página que contem um link que direciona para uma outra tela que tem uma função em asp. Neste link eu passo os parametros necessarios para executar a função. Quando clico no link o navegador abre, mas nesta tela que o link direciona só tem a função, então não tenho necessidade de abrir a mesma, uma vez que ela abre em branco, mesmo colocando window.close a tela pisca. Existe alguma forma de executar a função sem piscar ou abrir a tela??
  5. Tenho uma tag select em meu site, so que horizontalmente minhas strings estão muito grandes, gostaria de saber se existe uma forma de colocar um scroll bar horizontal dentro desta tag.
  6. mharcelinho

    Quebra De Página

    Tenho um site asp que emite relatorios e o meu problema é o seguinte: O tamanho de cada página pode variar de acordo com os dados que estão no banco. um loop pega estes dados e vai montando tabelas na página do relatório. O que eu queria eram duas coisas: 1º quebrar a página quando necessário sem quebrar uma tabela ao meio como vem acontecendo, queria que se a tabela não coubesse em uma página fosse enviada para a outra. 2º a cada nova página queria que o meu cabeçalho da primeira página fossem impresso em todas as outras. Antecipados agradecimentos.
  7. ResultCont = objSoma.ContAcesso(NrAcesso + 1, Session("Cons"), Session("Cdcli"))
  8. mharcelinho

    Soma Dando Errado.

    Estou fazendo a seguinte soma em asp: valor1 = 1 valor2 = valor1 +1 No final o resultado de valor2 esta sendo 3. O que posso fazer??
  9. Segue abaixo a função que eu uso, ve se tem algum erro por favor. function TrdmSnackTech.SendSugestoes(const P_Resp, P_Mail, P_Sugest, P_CdClie: WideString): OleVariant; var IdMsgSend: TIdMessage; SMTP: TIdSMTP; lstMessage: TStringList; stNewHtml, Inst: String; begin SMTP := TIdSMTP.Create(Nil); IdMsgSend := TIdMessage.Create(Nil); lstMessage := TStringList.Create; try SetComplete; with adqParamGeral do begin Close; Open; end; with adqFilial, Parameters do begin Close; ParamByName('P_CDFILIAL').AsString := adqParamGeralCDFILIAL.AsString; Open; end; with adqFantClie, Parameters do begin close; ParamByName('P_CDCLIENTE').AsString := P_CDCLIE; open; end; Inst := adqFantClieNMFANTCLIE.AsString; IdMsgSend.Clear; lstMessage.Clear; lstMessage.Add(Format(msgPadrao.Msg('txtTetSug'),[Inst, P_Resp, P_Mail, P_Sugest])); with TIdText.Create(IdMsgSend.MessageParts, lstMessage) do begin ContentType := 'text/plain'; end; stNewHtml := msgPadrao.Msg('txtHtmlSug'); stNewHtml := StringReplace(stNewHtml,':P_Inst',Inst,[rfReplaceAll]); stNewHtml := StringReplace(stNewHtml,':P_Resp',P_Resp,[rfReplaceAll]); stNewHtml := StringReplace(stNewHtml,':P_Mail',P_Mail,[rfReplaceAll]); stNewHtml := StringReplace(stNewHtml,':P_Sugest',P_Sugest,[rfReplaceAll]); lstMessage.Clear; lstMessage.Text := stNewHtml; with TIdText.Create(IdMsgSend.MessageParts, lstMessage) do begin ContentType := 'text/html'; end; with IdMsgSend do begin Body.Text := ''; From.Text := adqParamGeralDSEMAILAUVND.AsString; Recipients.EMailAddresses := adqParamGeralDSEMAISACVND.AsString; { To: header } Subject := 'Sugestões de clientes'; Priority := TIdMessagePriority(2); { Message Priority - Normal} CCList.EMailAddresses := ''; {CC} BccList.EMailAddresses := ''; {BBC} ReceiptRecipient.Text := ''; end; {authentication settings} SMTP.AuthenticationType := atLogin; SMTP.UserID := adqParamGeralDSEMAILAUVND.AsString; SMTP.Password := Uncripto(adqParamGeralCDSENHAUTVND.AsString, 2); {General setup} SMTP.Host := adqParamGeralDSSMTPAUTVND.AsString; SMTP.Port := 25; {now we send the message} SMTP.Connect; try SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end; finally FreeAndNil(SMTP); FreeAndNil(IdMsgSend); FreeAndNil(lstMessage); end; end;
  10. Tenho um site que envia email atraves de uma função em delphi, so que na hora de enviar o email esta aparecendo esta mensagem: "Socket Error # 10054 Connection reset by peer" O que poderia causar isso? e como resolver? Qualquer ajuda será apreciada.
  11. mharcelinho

    Boleto Banco Real

    Preciso de gerar em meu site o boleto bancario para ser pago no banco real. alguém sabe como fazer isso??
  12. Tenho uma tela que quando ela é carrega no internet explorer 6 da o seguinte erro: "Não é possível mover o foco para um controle porque este invísvel, não ativado ou do tipo que não recebe focus." Este erro só ocorre no internet explorer 6, no 5 funciona normamente. alguém sabe o que pode ser?
  13. mharcelinho

    Dll

    Existe algum programa ou comando que eu consiga ler o conteudo de uma dll depois que ela foi gerada?