Ir para conteúdo
Fórum Script Brasil

hencker

Membros
  • Total de itens

    165
  • Registro em

  • Última visita

Tudo que hencker postou

  1. hencker

    Erro No While

    O código abaixo deveria pegar as mensagens postadas no dia e colocar tudo em uma variável para ser enviada via e-mail. Ele dá erro na linha que faço o segundo While, já dentro da variável. Como eu devo fazer para inserir isso??? $link = mysql_connect("localhost", "d13566_debates", "TB971115d") or die ("Impossível conectar com o banco de dados!"); mysql_select_db("d13566_debates"); $consulta = "SELECT * FROM push_topics WHERE FROM_UNIXTIME(topic_time,'%d%m%Y') = " . $agora; $resultado = mysql_query($consulta) or die ("Falha na consulta"); $numero_de_postagens = mysql_num_rows($resultado); $Mensagem = 'Resumo das mensagens postadas no site hoje: Foram postadas '.$numero_de_postagens.' novas mensagens. ' while ($linha = mysql_fetch_assoc($resultado)) { $codigo = $linha["topic_first_post_id"]; $consulta2 = "SELECT * FROM push_posts_text WHERE post_id =".$codigo; $resultado2 = mysql_query($consulta2) or die ("Falha na consulta 2"); $titulo = $linha["topic_title"]; $textudo = mysql_fetch_assoc($resultado2); $texto = $textudo["post_text"]; $numero = "1"; 'Mensagem nº ['.$numero.'] - "'.titulo.'" Resumo da mensagem: "'.$texto.'" Para responder a essa mensagem clique nesse link: http://www.debates.not.br/push/viewtopic.php?t='.$codigo.' . ' $numero++; } ' Caso não consiga visualizar a mensagem copie o referido link e cole no seu navegador. -------------------------------------------------- ATENÇÃO: Não responda esse e-mail clicando em responder. Respostas enviadas por e-mail não são visualizadas no site. Para responder acesse o link acima.';
  2. hencker

    Contagem De Caracteres

    Valeu Beraldo deu certinho!!!
  3. A minha variável $texto armazena uma grande quantidade de caracteres do banco de dados... Como fazer ela selecionar somente os 255 primeiros? estou usando o seguinte código para selecionar: $texto = $textudo["post_text"];
  4. Minha dúvida é a seguinte: eu tenho uma variável $message que deve conter o seguinte texto: Sendo esses dados selecionados pela rotina: $agora = create_date('dmY', time(), $board_config['board_timezone']); $sql = "SELECT topic_title FROM " . TOPICS_TABLE . " WHERE FROM_UNIXTIME(topic_time,'%d%m%Y') = " . $agora; if ( !($result = $db->sql_query($sql)) ) { message_die(GENERAL_ERROR, 'Impossível selecionar esses usuários!', '', __LINE__, __FILE__, $sql); };
  5. hencker

    Ajuda Com Dbgrid.

    Eu fiz assim ó: var com, push :Integer; i : Integer; begin DMCon.ZCom.Active := False; DMCon.ZPush.Active := False; DMCon.ZCom.Active := True; DMCon.ZPush.Active := True; push := DMCon.ZPushtopic_id.Value; com := DMCon.ZComUltima.Value; if push > com then begin mMensagem.Lines.Add('Você está recebendo essa mensagem pois há um novo tópico de título "'+ DMCon.ZPushtopic_title.Value+'".'); mMensagem.Lines.Add('Para visualizar e responder essa mensagem basta clicar no link abaixo:'); mMensagem.Lines.Add(''); mMensagem.Lines.Add('http://www.debates.not.br/push/viewtopic.php?t='+ IntToStr(DMCon.ZPushtopic_first_post_id.Value) ); mMensagem.Lines.Add(''); mMensagem.Lines.Add(''); mMensagem.Lines.Add(''); mMensagem.Lines.Add(''); mMensagem.Lines.Add(''); mMensagem.Lines.Add('---------------------------------------------------'); for i := 1 to DMCon.ZIndividual.RecordCount do begin idMensagem.Recipients.EMailAddresses := DMCon.ZIndividualuser_email.Value; idMensagem.Subject := '[debates.not.br] '+ DMCon.ZPushtopic_title.Value; idMensagem.Body := mMensagem.Lines; try IdSMTP.Connect; IdSMTP.Send(idMensagem); finally IdSMTP.Disconnect; end; DMCon.ZIndividual.Next; end; with DMCon do begin ZCom.Close; ZTUpdt.Edit; ZTUpdtUltima.Value := ZTUpdtUltima.Value + 1; ZTUpdt.CommitUpdates; Zcom.Open; end; mMensagem.Lines.Clear; end; Esse código está atrelado ao evento onTimer, pois preciso que ele seja executado a cada 1 minuto! Usei o Indy para enviar!
  6. Eu tenho um DBGrid, que depois de uma determinada condição fica carregado com os e-mails dos meus clientes. Agora eu gostaria de saber como eu faço para ter uma rotina "linha a linha". Vamos supor que eu fosse mandar um e-mail para todos eles, porém desejo mandar um por vez (para que um não possa saber o e-mail do outro).
  7. Valeu Micheus testei com Zeos e ficou redondinho!!!
  8. Galera, essa eu mesmo matei. Mas fica ai para quem tiver dúvidas. O Problema de executar uma coisa a cada um minuto resolvi com o Objeto TTimer. O Outro eu resolvi da seguinte forma: unit UPrincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, Menus, StdCtrls, ExtCtrls, XPMan, DBXpress, DB, SqlExpr, FMTBcd; const WM_ICONTRAY = WM_USER + 1; type TFPrincipal = class(TForm) PMenu: TPopupMenu; Fechar1: TMenuItem; Abrir1: TMenuItem; N1: TMenuItem; N2: TMenuItem; XPManifest1: TXPManifest; Temp: TTimer; Label1: TLabel; SQLConexao: TSQLConnection; SQLQuery: TSQLQuery; DSQuery: TDataSource; procedure TempTimer(Sender: TObject); procedure Abrir1Click(Sender: TObject); procedure Fechar1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); private TrayIconData: TNotifyIconData; { Private declarations } public procedure TrayMessage (var Msg: TMessage); message WM_ICONTRAY; { Public declarations } end; var FPrincipal: TFPrincipal; implementation {$R *.dfm} procedure TFPrincipal.FormCreate(Sender: TObject); begin with TrayIconData do begin cbSize := SizeOf(TrayIconData); Wnd := Handle; uID := 0; uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; uCallbackMessage := WM_ICONTRAY; hIcon := Application.Icon.Handle; StrPCopy(szTip, Application.Title); end; Shell_NotifyIcon(NIM_ADD, @TrayIconData); end; procedure TFPrincipal.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, @TrayIconData); end; procedure TFPrincipal.TrayMessage(var Msg: TMessage); var Pt: TPoint; begin case Msg.lParam of wm_rbuttondown: begin GetCursorPos (Pt); PMenu.Popup (Pt.x, Pt.y); end; end; end; procedure TFPrincipal.Fechar1Click(Sender: TObject); begin Application.Terminate; end; procedure TFPrincipal.Abrir1Click(Sender: TObject); begin FPrincipal.Show; end; procedure TFPrincipal.TempTimer(Sender: TObject); begin Label1.Caption := TimeToStr(Now); end; end. :D :D :D :D :D
  9. Estou usando a palheta dbExpress do Delphi 2005 para conectar com um banco de dados que se encontra no meu site. Meu banco de dados é MySQL. Quando eu estou configurando o SQLQuery e clico em ativar (Active) ele dá um erro no arquivo dbexpmysql.dll e não dá certo de jeito nenhum... Alguém sabe como resolver ou tem alguma dica de outra forma que eu possa me conectar com meu banco de dados?
  10. Tenho duas duvidas quanto o Delphi 2005: Como eu coloco um programa na Tray? Eu sei que para o Delphi 7 existia um componente que fazia esse serviço mas no D2005 eu não sei como "funciona". Alguém tem alguma idéia de como eu faço para, de um em um minuto o meu programa faça uma verificação no banco de dados? Pois assim, o programa precisará fazer essa verificação a cada um minuto para saber se há alterações, pois se houver ele realizará uma rotina. Em contrapartida, todos os dias às 17h30m ele fará uma busca nesse banco de dados... Alguém tem idéia de como fazer???
  11. Bom dia Maique, Como é gerado esse arquivo .txt? Caso seja você que gera ele crie algumas regras, como: Se CONTAD < 6 então o programa completa com zeros na frente; Isso garantiria que os campos teriam sempre o mesmo comprimento. Essa é uma solução possível, mas creio que existem outras.
  12. Putz, tem razão... valeu!
  13. Olá galera, estou traduzindo um código de PostGres para MySQL, mas estou com um problema na seguinte rotina: CREATE VIEW view_progresso_tarefa AS SELECT projeto_tarefa_usuario.id_tarefa_projeto AS id_projeto_tarefa, (sum(projeto_tarefa_usuario.progresso_usuario_tarefa_projeto) / count(projeto_tarefa_usuario.id_tarefa_projeto)) AS progresso_tarefa_projeto FROM projeto_tarefa_usuario GROUP BY projeto_tarefa_usuario.id_tarefa_projeto; Ao executá-lo aparece a seguinte mensagem de erro: Mensagens do MySQL : Documentação #1064 - You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near 'VIEW views_progresso_tarefa AS SELECT projeto_tarefa_usuar :blink: :( Alguém sabe o erro?
  14. O caso é o seguinte, em uma tabela eu tenho os nomes e códigos dos meu alunos, e na outra eu tenho os códigos dos alunos e as notas atribuídas a eles. Eu preciso mostrar em um DBGrid as notas e os nomes dos alunos, porém cada um desses dados está em uma tabela... Alguém tem alguma idéia de como fazer isso???
  15. Alguém, por obiséquio, tem uma boa apostila de Cobol???
  16. O negocio tava meio complicado... não entendi muita coisa do site... por isso desinstalei o MySQL 5.0 e re-instalei o MySQL 4.0... Agora tdo funciona!!!
  17. Ai galera to usando o PHP pra me conectar com um DB MySQL, ateh ai tdo bem... acontece q eu não consigo fazer a conexão entre os dois... Os erros que aparecem são: E esse erro não acontece somente nesse site!!! será que alguém poderia me dar um HELP plz???
  18. hencker

    Conexao Com Mysql

    Ae Uil c tah usando BDE ou é uma conexão "direta"??? Tenta postar isso no forum de Delphi, fica mais facil da galera te responder lá... outra coisa.. Se registra, assim fica melhor pra você!!!
  19. Eu instalei o MySQL 5 e a unica coisa q mudou foi q ele passou a reconhecer o tipo de dados Serial, que antes ele não reconhecia, de resto a mesma coisa... O "comando" eu consegui driblar adicionando manualmente os dados na tabela, eu sei que tem um comando no SQL q faz isso (adicionar dados a tabela) tb, mas eu vi que ficaria mais facil assim... qualquer coisa depois é só exportar via CSV... Se alguém souber sobre os outros dois comandos e por favor avisem!!!
  20. Estou transportando um script de banco de dados do PostGreSQL para o MySQL e não tenho a menor idéia das equivalentes: Alguém sabe a equivalencia no MySQL das Linhas de Código abaixo??? Gostaria também de saber qual a equivalente para o tipo de dados Serial do PostGre...
  21. Alguém pode me explicar como fazer o efeito de uma T.V. fora do ar?
  22. hencker

    Delphi 2005

    Tipo, no D7 tem a paleta ZeosDBO para o acesso ao FireBird, alguém sabe de alguma versão para o D 2005???
  23. hencker

    Delphi 2005

    Queria saber se alguém tem componentes, tipo os botões do Win XP, ou que deem acesso apropriado a Bancos FireBird...
  24. Ai galera, eu não sou acostumado a usar a função filter, na verdade não sou acostuado a usar a paleta ADO... estou usando a segunte linha de código: procedure TMasterPesqPeoes.BBLocalizarClick(Sender: TObject); var NOMES: String; begin inherited; NOMES := EditPesquisa.Text; try with MasterCadPeoes.TabelaMaster do begin Filter := 'tipo = '+NOMES+''; Filtered := True; First; end; except Erro('Não foi possível realizar a pesquisa!'); end; end; Porém quando eu executo ele apresenta a seguinte mensagem: Alguém pode me ajudar???
  25. hencker

    Quem é Mais Seguro?

    Estou pensando em fazer um página que, se tudo der certo, vai ter um grande volume de visitas, e provavelmente, um monte de gente estúpida tentando invadir, derrubar trapacear e outras cositas mas... Quem é mais seguro, ASP ou PHP??? Porque você acha isso??? Como deixar o PHP mais seguro (medidas de segurança no código que devem ser tomadas)... Galera, conto com a opinião de vocês...
×
×
  • Criar Novo...