Ir para conteúdo
Fórum Script Brasil

geovanepc

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    93

  • Registro em

  • Última visita

1 Seguidor

Sobre geovanepc

Últimos Visitantes

1.891 visualizações

geovanepc's Achievements

0

Reputação

  1. geovanepc
    Boa noite colegas. Sou leigo em PHP e estou com um problema em um código, Ficarei grato se alguém puder me ajudar! O trecho de código abaixo está me retornando o seguinte error: ( ! ) Parse error: syntax error, unexpected end of file in C:\wamp\www\news\noticias.php on line 49 Segue o código: <?php @header( 'Content-Type: text/html; charset=iso-8859-1' ); require_once 'database/mysql.php'; $db = new Mysql; ?> <!DOCTYPE html> <html> <head> <title>News</title> <link href="css/home.css" rel="stylesheet"> <link href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-combined.min.css" rel="stylesheet"> <script src="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/js/bootstrap.min.js"></script> </head> <body> <div id="news" class="span12"> <?php //$db->url = 'noticias.php'; $db->paginate(4); $db->query("select * from noticia order by noticia_id desc")->fetchAll(); if ($db->rows >= 1): $news = $db->data; foreach ($news as $new): $n = (object) $new; $n->noticia_content_cut = $db->cut($n->noticia_content, 300, '...'); if ($n->noticia_foto == "" || strlen($n->noticia_foto) <= 1): $n->noticia_foto = "images/nopic.png"; else : $n->noticia_foto = "thumb.php?img=fotos/$n->noticia_foto"; endif; ?> <div class="media"> <a class="pull-left" href="noticia.php?id=<?= $n->noticia_id ?>"> <img src="<?= $n->noticia_foto ?>" class="media-object img-polaroid" /> </a> <div class="media-body"> <h4 class="media-heading"><?=$n->noticia_title ?></h4> <p><small><?=$n->noticia_content_cut ?> <em><a href="noticia.php?id=<?= $n->noticia_id ?>" class="btn btn-link">leia mais</a></em></small> </div> </div> <hr /> <? endforeach; echo $db->link; endif; ?> </div> </body> </html>
  2. geovanepc
    Bom dia aos colegas. Sou leigo em programação PHP e páginas Html. Peguei um código e estou implementando num sistema de notícias para sites. Mas acontece que quando vou executá-lo no browser, ocorre um erro no final do arquivo. Como se o programador estivesse esquecido de fechar alguma TAG. O código segue abaixo: //------------------------------// <?php @header( 'Content-Type: text/html; charset=iso-8859-1' ); require_once 'database/mysql.php'; $db = new Mysql; ?> <!DOCTYPE html> <html> <head> <title>News</title> <link href="css/home.css" rel="stylesheet"> <link href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-combined.min.css" rel="stylesheet"> <script src="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/js/bootstrap.min.js"></script> </head> <body> <div id="news" class="span12"> <?php // $db->url = 'noticias.php'; $db->paginate(4); $db->query("select * from noticia order by noticia_id desc")->fetchAll(); if ($db->rows >= 1): $news = $db->data; foreach ($news as $new): $n = (object) $new; $n->noticia_content_cut = $db->cut($n->noticia_content, 300, '...'); if ($n->noticia_foto == "" || strlen($n->noticia_foto) <= 1): $n->noticia_foto = "images/nopic.png"; else : $n->noticia_foto = "thumb.php?img=fotos/$n->noticia_foto"; endif; ?> <div class="media"> <a class="pull-left" href="noticia.php?id=<?= $n->noticia_id ?>"> <img src="<?= $n->noticia_foto ?>" class="media-object img-polaroid" /> </a> <div class="media-body"> <h4 class="media-heading"><?=$n->noticia_title ?></h4> <p><small><?=$n->noticia_content_cut ?> <em><a href="noticia.php?id=<?= $n->noticia_id ?>" class="btn btn-link">leia mais</a></em></small> </div> </div> <hr /> <? endforeach; echo $db->link; endif; ?> </div> </body> </html> //------------------------------// A mensagem de erro é: Obrigado a quem possa me ajudar! Um forte abraço. Geovanepc.
  3. geovanepc
    Bom dia a todos. Gostaria de saber se algum colega já trabalhou com o Palapa Web Server e conseguiu acessar o banco de dados mysql pelo delphi. Consigo acessar via phpmyadmin pelo browser, tenho acesso aos arquivos, a porta 3306 está configurada direitinho, mas não consigo conexão. Já tentei Firedac, mydac e nada. Utilizo uma DLL de acesso para o Wamp64, trabalho normalmente com ele. Mas no caso do Palapa como já havia reportado, não consegui ainda. Se algum colega puder me ajudar. Agradeço. Um forte abraço à todos.
  4. geovanepc
    Antes de tudo, obrigado pelo retorno. Fiz o procedimento, mas continua mostrando a mesma informação no WebBrowser. Confira. http://prntscr.com/fq8q1k Obrigado pela ajuda novamente.
  5. geovanepc
    Boa noite à todos. Estou com um problema com WebBrowser no Delphi7. Anteriormente eu usava o WebBrowser com GoogleMaps para abrir coordenadas. Mas quando testei hoje, ele não funcionou mais. Está apresentando a seguinte mensagem: "parece que você está usando um navegador incompatível" Sendo que estou utilizando o Windows 8.1 Pro, Crome atualizado e Internet Explorer 11. Já tentei exemplos que indica usar o Regedit, mas sem sucesso. Se algum colega já passou por isso e pode me dar uma ajuda, agradeço antecipadamente. Obrigado.
  6. geovanepc
    Estou usando o Delphi XE7 com o Indy que já vem nele, acho que deve ser a versão 10. Obrigado.
  7. geovanepc
    Jhonas, a opção com shellexecute também abre o formulário de conferência do email, antes de enviar. Depois fica esperando clicar no dito botão <Enviar agora>. A segunda referência: Send Without Saving Button Code CODE: SELECT ALL this.SendNoSave= function(event) { var prefs = Components.classes['@mozilla.org/preferences-service;1'] .getService(Components.interfaces.nsIPrefBranch); var prefstring = "mail.identity." + gCurrentIdentity.key + ".fcc"; try { var send = prefs.getBoolPref(prefstring); } catch (e) { var send = prefs.getBoolPref("mail.identity.default.fcc"); } if (send == false) { goDoCommand("cmd_sendButton"); } else { prefs.setBoolPref(prefstring, false); if (gIOService && gIOService.offline) { SendMessageLater(); } else { SendMessage(); } prefs.setBoolPref(prefstring, true); } }; Não entendi onde vai esse código. É tipo criar uma Hot Key. Procurei dentro do Thunderbird, mas não encontrei. Mas a pergunta que não quer calar, "Onde vai esse código mesmo?" kkkk. O terceiro link, faz referência ao 1º exemplo. Obrigado. Um forte abraço à todos os colegas.
  8. geovanepc
    Eu estava usando com Indy, mas de uns dias pra cá, não consigo mais enviar para fora pelo meu servidor. Já retirei todas as proteções, mas não vai. Dentro do mesmo domínio ele consegue enviar, mas para fora, nada. Daí utilizo com o Thynderbird, ele conecta direitinho e envia meus emails sem problemas. Só que existe esse inconveniente, tenho que clicar no botão <Enviar>. Achava que o Thunderbird tinha mais command lines. Sei não, acho que meu Indy tá com algum cano entupido. Vou olhar os links. Obrigado Jhonas. Um forte abraço à todos.
  9. geovanepc
    Jhonas, obrigado pelo retorno. Sim já tenho a lista de emails, quase tudo funciona perfeito, só estou querendo saber se existe algum command line, ou configuração, que possa utilizar, para evitar que o formulário de envio fique aparecendo, preciso que o Thunderbird envie direto, sem ter que estar clicando no botão <Enviar Agora>. Se existe um modo Silent, sei lá, mas que não seja preciso pressionar o botão de enviar. Obrigado. Um forte abraço à todos.
  10. geovanepc
    Estou usando este código para enviar emails pelo Thunderbird: //-------------- Função para invocar o Thunderbird -----------------------------// Declarar Uses: MAPI function TForm2.SendMailMAPI(const Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail: String): Integer; var Message: TMapiMessage; lpSender, lpRecepient: TMapiRecipDesc; FileAttach: TMapiFileDesc; SM: TFNMapiSendMail; MAPIModule: HModule; begin FillChar(message, SizeOf(message), 0); with message do begin if (Subject <> '') then begin lpszSubject := PAnsiChar(AnsiString(Subject)); // PAnsiChar(Subject); end; if (Body <> '') then begin lpszNoteText := PAnsiChar(AnsiString(Body)); end; if (SenderEMail <> '') then begin lpSender.ulRecipClass := MAPI_ORIG; if (SenderName = '') then begin lpSender.lpszName := PAnsiChar(AnsiString(SenderEMail)) end else begin lpSender.lpszName := PAnsiChar(AnsiString(SenderName)) end; lpSender.lpszAddress := PAnsiChar(AnsiString('SMTP:' + SenderEMail)); lpSender.ulReserved := 0; lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end; if (RecepientEMail <> '') then begin lpRecepient.ulRecipClass := MAPI_TO; if (RecepientName = '') then begin lpRecepient.lpszName := PAnsiChar(AnsiString(RecepientEMail)) end else begin lpRecepient.lpszName := PAnsiChar(AnsiString(RecepientName)) end; lpRecepient.lpszAddress := PAnsiChar(AnsiString('SMTP:' + RecepientEMail)); lpRecepient.ulReserved := 0; lpRecepient.ulEIDSize := 0; lpRecepient.lpEntryID := nil; nRecipCount := 1; lpRecips := @lpRecepient; end else begin lpRecips := nil end; if (FileName = '') then begin nFileCount := 0; lpFiles := nil; end else begin FillChar(FileAttach, SizeOf(FileAttach), 0); FileAttach.nPosition := Cardinal($FFFFFFFF); FileAttach.lpszPathName := PAnsiChar(AnsiString(FileName)); nFileCount := 1; lpFiles := @FileAttach; end; end; MAPIModule := LoadLibrary(PChar(MAPIDLL)); if MAPIModule = 0 then begin Result := -1 end else begin try @SM := GetProcAddress(MAPIModule, 'MAPISendMail'); if @SM <> nil then begin Result := SM(0, Application.Handle, message, MAPI_DIALOG or MAPI_LOGON_UI, 0); end else begin Result := 1 end; finally FreeLibrary(MAPIModule); end; end; if Result <> 0 then begin MessageDlg('Error sending mail (' + IntToStr(Result) + ').', mtError, [mbOK], 0) end; end; //---------------------------------------------------------------------------------// Para enviar: procedure TForm2.Button2Click(Sender: TObject); begin SendMailMAPI(Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail); end; //---------------------------------------------------------------------------------// Ele funciona perfeitamente, só tem um detalhe, como preciso enviar vários emails, um por vez, não quero ficar clicando no botão <ENVIAR EMAIL>. Também não quero enviar com cópia. Preciso que ele envie automaticamente. Existe algum comando na API do Thunderbird que posso usar para fazer esse envio automaticamente, depois de invocar e preencher o formulário? Desde já agradeço. Um forte abraço à todos.
  11. geovanepc
    Excelente pesquisa, obrigado!
  12. geovanepc
    Jhonas quero primeiramente agradecer pela ajuda, e frisar que o código realmente funcionou, mas não atendeu minhas necessidades, porque ficou muito lento. Fiz os testes e adaptei para meu sistema, "OBS: Quero dizer que não foi limitação de raciocínio lógico não falou" Apenas não serviu, pelo fato da lista ser grade, Mas mesmo assim obrigado pelo retorno. Vou setar um índice e utilizar By Order numa tabela em um banco de dados. Valeu.
  13. geovanepc
    Deu certo? Estou com o mesmo problema!
  14. geovanepc
    Boa noite a todos. Como faço pra receber uma string de retorno de uma página HTML. Estou usando WebBrowser. Essa mensagem é enviada pelo formulário Html no momento em que se preenche o edit referente ao email do Gmail. Quando já se encontra em uso no servidor de email, o Html mostra a mensagem: "Alguém já escolheu esse nome de usuário. Tente outro." URL: https://accounts.google.com/SignUp?service=mail&continue=https%3A%2F%2Fmail.google.com%2Fmail%2F<mpl=default *------------------------------------------------------------------------------------------------------------------------------------------* Neste código Html, encontrei o id da mensagem que pretendo receber (EmailAddressExistsError): <DIV id=EmailAddressExistsError style="DISPLAY: none">Este endereço de e-mail já corresponde a uma Conta do Google. <A href="https://accounts.google.com/ServiceLogin?continue=https%3A%2F%2Fmail.google.com%2Fmail%2F&amp;service=mail&amp;dsh=-4282766058618552450">Faça login</A> ou, se você esqueceu sua senha, <A href="https://accounts.google.com/RecoverAccount?continue=https%3A%2F%2FmIail.google.com%2Fmail%2F&amp;service=mail">redefina-a</A>. </DIV> Agora como faço para repassar essa string (Resultado) do Html para um Label ou Edit no Delphi? Uso assim para receber valores do Html: Label4.Caption:=WebBrowser1.OleObject.document.all.tags('input').item('email').value; Label5.Caption:=WebBrowser1.OleObject.document.all.tags('input').item('pass').value; Mas só funciona com os IDs de input. Testei assim, mas não funcionou: Label5.Caption:=WebBrowser1.OleObject.document.all.tags('input').item('EmailAddressExistsError').value; Gera o erro: Access violation *---------------------------------------------------------------------------------------------------------------------------* Tentei assim: Label14.Caption := WebBrowser1.OleObject.Document.all.Item('EmailAddressExistsError', 0).Value; Gera o erro: Method 'Value' not supported by automation object. *---------------------------------------------------------------------------------------------------------------------------* Segue em anexo a imagem com o resultado do teste de email. Um forte abraço. Obrigado à todos.
  15. geovanepc
    Os links estão redirecionando para própria página.
×
×
  • Criar Novo...