Ir para conteúdo
Fórum Script Brasil

C.J.

Membros
  • Total de itens

    68
  • Registro em

  • Última visita

Posts postados por C.J.

  1. OBS: ESTOU USANDO O SEGUINTE SCRIPT:

    <?php
    if( $_SERVER['REQUEST_METHOD']=='POST' ){
            $to                     = 'caio@bbcreative.org'; //para quem vai o email
            $subject        = $_POST['nome'];

                    /* Mensagem */
            $message =
            '<html>
            <head>
            <title>CONTATO - BBCREATIVE</title>
            <body>'.
            '<img src="" alt="" />'.'
    '.
            '<div id="opiniao">'.
            $_POST['nome'].'
    '.
            ' ,ENTROU EM CONTATO PELO SITE:'.
            $_POST['  mensagem'].'
    '.
            ''.$_POST['tel'].' ,'.$_POST['cel'].
            '<br />'.
            '</div>';

            $message .=
            '<div id="rodape">Obrigado pelo contato, aguardamos a sua visita.</div>'.
            '
            ';

            $headers = "MIME-Version: 1.1".PHP_EOL;
            $headers .= "Content-type: text/html; charset=iso-8859-1".PHP_EOL;
            $headers .= "From: caio@bbcreative.org".PHP_EOL; // remetente
            $headers .= "Return-Path: caio@bbcreative.org".PHP_EOL; // return-path

           $headers .= "Bcc: atendimento@bbcreative.org".PHP_EOL; //altere ou comente essa linha, para receber uma cópia oculta

            mail($to, $subject, $message, $headers);
                    $msg = 'Obrigado pelo contato, aguardamos a sua visita.';
            }
    ?>


        <form method="post" action="" id="ajax_form">
            <label><input type="hidden" name="id" value="" /></label>
            <label>Nome: <input type="text" name="nome" value="" /></label>
            <label for="email" data-error="E-mail inválido!" data-sucess="E-mail válido!">Email: <input type="email" class="validate" name="email" value="" /></label>
            <label>Mensagem: <textarea  name="mensagem" class="materialize-textarea"></textarea></label>
            <div id="rodape"></div>
            

            <input class="btn-large waves-effect black-text waves-light yellow darken-3" type="submit" name="enviar" value="Enviar" />
        </form>

     

    NÃO CONSIGO também EXIBIR A MENSAGEM DE SUCESSO.

  2. Opa! Agora sim.

     

    Obrigado, segue como ficou o código para quem tiver dúvida:

    var
      dirAtual : String;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    // Capturar o diretório atual do app
      dirAtual := GetCurrentDir;
       HTML := TStringList.Create;
      HTML.Add('<html>');
      HTML.Add('<head>');
      HTML.Add('  <title>' + Edit1.Text + '</title>');
      HTML.Add('</head>');
      HTML.Add('</html>');
      HTML.Add('<body>');
      HTML.Add('<h1>' + Edit2.Text + '</h1><br />');
      HTML.Add('<center>' + Memo1.Lines.Text + '</center>');
      HTML.Add('</body>');
      dirAtual := GetCurrentDir();
      HTML.SaveToFile(dirAtual + '\index.htm');
      HTML.Free;
      ShowMessage('Arquivo gerado com sucesso em: '+ dirAtual);
    end;

     

    Abraços e obrigado!

  3. Boa noite!

    Estou com uma duvida,

    Estou com o seguinte código em um Button:

    var
      HTML : TStringList;
    begin
      HTML := TStringList.Create;
      HTML.Add('<html>');
      HTML.Add('<head>');
      HTML.Add('  <title>' + Edit1.Text + '</title>');
      HTML.Add('</head>');
      HTML.Add('</html>');
      HTML.Add('<body>');
      HTML.Add('<h1>' + Edit2.Text + '</h1><br />');
      HTML.Add('<center>' + Memo1.Lines.Text + '</center>');
      HTML.Add('</body>');
      HTML.SaveToFile('\index.htm');
      HTML.Free;
    end;
    

    O programa esta compilando certinho, sem erros.

    Quando vou usar recebo uma mensagem de acesso negado: Cannot create file "C:\index.htm". Acesso negado.

     

    Alguém sabe como resolver isso?

     

    Obrigado.

  4. exemplo:

    MoveFile('C:\MINHAPASTA\ARQUIVO1\DADOS.DAT', 'C:\MINHAPASTA\ARQUIVO2\');
    MoveFile('"C:\MINHAPASTA\ARQUIVO1\DADOS.DAT"','C:\MINHAPASTA\ARQUIVO2\');

    abraço

    Fala Jhonas, então cara sim eu sei que é assim o funcionamento, o problema esta sendo interagir o edit1 no lugar do arquivo.

    MoveFile(Edit1.Text,'C:\Destino');

    então velho testei esse seu metodo e não funcionou..

    abraços

  5. Fala Galera beleza, então to com um problema bem basico..

    estou usando esse codigo para mover um arquivo para uma pasta, porem ele não esta compilando nem funcionando, alguém pode me dizer o porque? ou se souber outro metodo de mover arquivos me ajudem!

    MoveFile (+Edit1.Text,'C:\destino');
    tentei dessa forma também
    MoveFile (' '+Edit1.Text,'C:\destino);

    abraços

  6. Fala galera beleza.

    Então to precisando de ajuda.

    preciso monta um aplciativo que você seleciona o arquivo do seu pc e ele envia para um servidor. pode ser via FTP alguém tem algum exemplo pronto ou algum script para me ajudar? seria simples a pessoa seleciona o arquivo e ele é upado pro server.

    se não expliquei direito me avisem e muito obrigado já!

    abraços!!

  7. Fala galera, bom isso é meio basico + muitas pessoas não conhecem...

    para determinar uma pagina de erro para a sua index por exemplo.

    basta adicionar o seguinte codigo

    <%@ page errorPage="paginaDeErros.jsp" %>
    e pronto sempre que ocorrer um erro ele vai chama a paginaDeErros.jsp é so alterar o nome para a sua pagina.. e na pagina de erro colocar o seguinte codigo
    <%@ page isErrorPage="true" %>

    Abraços.

  8. eae pessoa beleza??

    então to com o seguinte problema

    tenho 1 sitew de download...

    e é muito chato ficar criando pagina para cada 1...

    etnao queria criar uma pagina geral... por exemplo

    a do baixaki ele tem 1 pagina apenas + o botao de download pega a url do download automaticamente...

    o que eu queria é q ele pegasse o final da url por exemplo

    http://www.downloadsfacil.org/2add5ce/?url...%3Fd%3D0W4W7EBR

    esse link a pagina padrão é o começo: http://www.downloadsfacil.org/2add5ce

    so q o botao captura o final da url e linka nele

    se não fui claro me avise

    abraços!

  9. então é pra ficar assim??

    WinExec('ExtractFilePath(Application.ExeName)'+''teste.exe', sw_show);

    + quando eu tento compilar não vai da erro... alguém pode me informar como seria pra fdicar?/

    e também tentei por uma musica no programa dessa maneira:

    SndPlaySound('ExtractFilePath(Application.ExeName)'+'\som.wav', SND_NOSTOP)

    Não funcionou... PS:Puis no OnFormActivate

    Abraços e obrigado

  10. Ola, tenho a seguinte duvida...

    estou criando um menu autoexecutavel para um programa...

    esse menu seria gravado em um cd ou baixado da propria net...

    so que ser for gravado no cd eu não vou saber se o diretorio do cd do cara é D: ou etc...

    preciso de uma forma que ele localize a aplicação na mesma pasta que ele e a execute sem eu ter que especificar o caminho do arquivo.. isso é possivel??

    Obrigado!

    Se não fui claro me avise

×
×
  • Criar Novo...