-
Total de itens
93 -
Registro em
-
Última visita
Posts postados por 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.
-
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.
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.
-
Estou usando o Delphi XE7 com o Indy que já vem nele, acho que deve ser a versão 10.
Obrigado.
-
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.
-
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.
-
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!
-
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."
*------------------------------------------------------------------------------------------------------------------------------------------*
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.
-
Os links estão redirecionando para própria página.
-
Obrigado pelo retorno.
Testei o código, mas não ordenou como deveria.
Obrigado.
-
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.
-
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 prolemaCan'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.
Parse error: syntax error
em PHP
Postado
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:
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>