geovanepc
-
Total de itens
93 -
Registro em
-
Última visita
Tudo que geovanepc postou
-
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>
-
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.
-
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.
-
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.
-
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.
-
Enviando email com MAPI - Delphi+Thunderbird
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
Estou usando o Delphi XE7 com o Indy que já vem nele, acho que deve ser a versão 10. Obrigado. -
Enviando email com MAPI - Delphi+Thunderbird
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
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. -
Enviando email com MAPI - Delphi+Thunderbird
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
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. -
Enviando email com MAPI - Delphi+Thunderbird
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
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. -
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.
-
Excelente pesquisa, obrigado!
-
(Resolvido) Organizar lista de texto por grupos
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
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. -
Deu certo? Estou com o mesmo problema!
-
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&service=mail&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&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.
-
(Resolvido) ssl, delphi6 (ou delphi7), e indy 9 (ou 10)
pergunta respondeu ao paulobergo de geovanepc em Delphi, Kylix
Os links estão redirecionando para própria página. -
(Resolvido) Organizar lista de texto por grupos
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
Obrigado pelo retorno. Testei o código, mas não ordenou como deveria. Obrigado. -
(Resolvido) Organizar lista de texto por grupos
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
Obrigado pelo retorno Jhonas. Acho que não me expressei bem, na realidade os nomes após o underline não possuem números, fiz assim apenas como uma forma de melhor compreensão para desenvolvimento do código, me desculpe. Na verdade o resultado deveria ser assim: ------------------------------------------------------------------- joão_empresamodelo maria_empresamodelo manoel_empresamodelo sergio_empresaacme maria_empresaacme manoel_empresaacme isabel_empresaacme josé_empresaacme joão_empresasiscuca maria_empresasiscuca sergio_empresasiscuca ------------------------------------------------------------------- Novamente me desculpe. Fico grato se algum colega me ajudar. Um forte abraço à todos. -
Gostaria de uma ajuda para organizar os dados vindos de um arquivo de texto, pode-se usar um Memo para receber os dados. O índice para ordenar, será o final da string usando um separador, tipo "_empresa1". Ordem inicial: joão_empresa1 joão_empresa2 josé_empresa3 maria_empresa4 maria_empresa1 manoel_empresa5 manoel_empresa1 manoel_empresa2 manoel_empresa3 ----------------------------------------------------------------- Ordem desejada: joão_empresa1 maria_empresa1 manoel_empresa1 joão_empresa2 manoel_empresa2 manoel_empresa3 josé_empresa3 maria_empresa4 manoel_empresa5 ----------------------------------------------------------------------------------------- Desde já agradeço aos colegas. Um forte abraço.
-
(Resolvido) Delphi 7 + ZeosDBO + Windows 8.1
pergunta respondeu ao geovanepc de geovanepc em Delphi, Kylix
Ok, vou tentar pra ver se corrige o problema. Obrigado Jhonas. Abraço. -
Obrigado.
-
Estou tentando instalar o ZeosDBO (ZEOSDBO-7.1.4-stable.zip) no Delphi 7 (Sistema operacional Windows 8), mas está dando erro, indicando a falta de um arquivo como segue abaixo: O programa não pode ser iniciado porque está faltando ZComponentDesign70.bpl no seu computador. Tente reinstalá-lo para resolver esse prolema Can't load package c:\program files (x86)\delphi7se\Projects\Bpl\ZComponentDesign70.bpl Não foi possível encontrar o módulo especificado. Já configurei as pastas do windows (retirei a opção como somente leitura), liberei permissões de administrador, setei o Library Path para as pastas, localizei o arquivo ZComponentDesign70.bpl, então copiei para as pastas do Delphi (Bin, Lib, C:\Program Files (x86)\Delphi7SE, Projects\Bpl), mas continua dando o mesmo erro. Já não sei mais o que fazer! Algum colega tem uma sugestão? Desde já agradeço. Um forte abraço à todos.
-
Boa noite colegas. Não sei se notaram, mas aqui, quando clico nos links, simplesmente retorna para o mesmo tópico. Não estão funcionando os links Jhonas. Obrigado.
-
Obrigado Jhonas, vou testar.
-
Gostaria de saber se algum colega dispões de algum componente gratuito ou tutorial para acesso via SSH, usando o Delphi7. Desde já agradeço. Um forte abraço à todos.
-
Gostei dos códigos, agora só falta instalar um sensor de velocidade apontando para uma rodovia, quando um veículo estiver acima do limite, o sistema aciona a câmera pra bater a foto, depois é só usar a conversão OCR para texto, para decodificar os valores da placa, é parece promissor. Vou testar e ver se dá pra desenvolver o protótipo de um Pardal.
