Douglas Soares

Tente Assim: aboutbox := TAboutBox.Create(Application); try AboutBox.ShowModal; finally AboutBox.Release; AboutBox := nil; end; Abraços

Deixe a propriedade KeyPreview do seu form como True, e depois vá no evento OnKeyDown e coloque isso: if key = VK_F5 then begin RichEdit1.SelText := TimeToStr(Time) + ' ' + DateToStr(Date); end; Abraços

Boa tarde não tenho experiencia com PHP e preciso ajuda de vocês, estou querendo fazer tipo um protetor de links pra download ou qualquer coisa, inclusive pro megaupload, é uma coisa nova, porém não sei como alterar certas informações... Olha meu código pra trazer a página: <?php $curl_handle=curl_init(); curl_setopt($curl_handle,CURLOPT_URL,'http://www.megaupload.com/?d=L8XFYPNF'); curl_exec($curl_handle); curl_close($curl_handle); ?> Ele vai abrir a página, e exibir o nome e descrição do arquivo... gostaria de saber como alterar isso, e também depois que colocar o captcha e for pra segunda parte ele alterar também a url de download do lado direito que vai aparecer... não sei se isso é contra as regras do fórum, se for me desculpe e apague meu post o mais rápido possível... Obrigado!!!

Pelo que vi na internet você teria que comprar o TeeChar Profissional no site www.steema.net...

Voltei dps de uma longa viagem... cheguei ontem e tava sem internet até agora... to na casa do meu patrão :blush: Então... problema quase resolvido... já consigo enviar email pra qualquer um agora, com anexo e tudo, o probleminha agora é que imagem no corpo do email ele só vai se não for gmail, aiaiai que bronca desse gmail maluco :wacko: alguém tem alguma ideia?

Puxa cara me desculpa, eu tava com a cabeça no Firebird, eu mecho com isso o dia todo aqui, huahushusa Desculpa aí não poder ajudar agora, pelo menos é uma informação a mais que sabemos eheheh Abraços

Fala churc!, beleza sim e vc? Realmente é por OuterHTML que eu puxo pra um memo e dps envio a mensagem... acho que vou ter que fazer um stringreplace mesmo, acho que vai ser fácil... no entanto to enfrentando outro problema um pouco mais facil (pelo menos eu acho ^^) Seguinte... no gmail o email html não vai nada, eu acabei de descobrir porque... ele não aceita as tags de HTML iniciais, nada que esteja antes do body e nem depois, exemplo: < html > < head > < /head > < body > Ele só aceita o html que tá aqui dentro < strong> NEGRITO < / strong> < /body > < /html> O problema é que quando converto o html pro memo ele vai com essas tags... até ai beleza não importo... só que eu precisava substituir isso... tudo por nada... deixar só o que tem depois do < body > e tirar do outro < /body > pra frente.... você tem uma noção de como eu faria isso? Vlw

Testa com o IBExpert essa query, segue o link da versão de 2004 que aparentemente é free! http://www.4shared.com/file/MBoOgdPT/ibep_...12141_full.html Registra seu banco de dados e conecta, em seguida vá em Ferramentas > Editor SQL, cola sua query lá e executa no botãozinho play(verde) Se não trazer resultados você avisa... P.S: vou viajar hoje depois do almoço e só volto segunda-feira que vem, se não resolvermos isso agora cedo creio que o Jhonas te ajuda beleza? :rolleyes: Abraços

Boa Tarde!!! Tenho uma rotina de enviar emails com IDMessage e IDSMTP que funciona perfeitamente, anexa arquivos e também coloca imagens no corpo das mensagens :rolleyes: .... o problema é que uso um WebBrowser para fazer essa mensagem... ou seja, quando eu adiciono uma imagem eu tenho que escrever um < img src="cid:nomedaimg.jpg">.... só que a imagem fica aparecendo com um quadradinho vermelho como se não estivesse disponível... se eu enviar a mensagem ela vai normalmente, porém eu queria que ela aparecesse pra pessoa que está enviando... segue o código para anexar a imagem no corpo... for i := 0 to frmCobrancaSenhas.imglistbox.Items.Count - 1 do begin if FileExists(imagens_anexas + frmCobrancaSenhas.imglistbox.Items[i]) then begin idAttach := TIdAttachment.Create(p, imagens_anexas + frmCobrancaSenhas.imglistbox.Items[i]); idAttach.ContentDisposition := 'attachment'; idAttach.ExtraHeaders.Values['Content-id'] := ExtractFileName(imagens_anexas + frmCobrancaSenhas.imglistbox.Items[i]); idAttach.ContentType := 'image/jpeg'; end; end; Repare que no código acima ele meio que adiciona um Header Extra... tem algum código pra adicionar isso no WebBrowser em tempo de execução??? tipo assim: WebBrowser1.ExtraHeader.Values['Content-id'] := ExtractFileName(imagens_anexas + frmCobrancaSenhas.imglistbox.Items); alguém sabe algo do tipo??? Obrigado

Arrrghthh que raiva... você não vai acreditar na idiotice que eu tava fazendo... os códigos eu me matei pra funcionar e pensei que estavam errados..... o problema era o caminho dos arquivos que estavam incorretos daí dava erro, olha que palhaçada.... if FileExists(frmCobrancaSenhas.FileListBox1.Items) then troquei por if FileExists(caminho + frmCobrancaSenhas.FileListBox1.Items) idAttach := TIdAttachment.Create(p,caminho + frmCobrancaSenhas.FileListBox1.Items); Ele estava pegando o caminho errado porém o nome do arquivo certo... fiz isso e funcionou na hora.... puxa que raiva que eu fiquei quando percebi isso... as coisas mais bobas são as que mais atrapalham!!! Vlw a ajuda, meu próximo passo é fazer algumas alterações no WebBrowser e enviar html pro gmail, mas isso é assunto para um outro tópico... Obrigado!

Eu testei a SQL no IBExpert e também no Delphi... e funcionou normal... o parâmetro mes está como integer?

Deixa esse gmail de lado e me ajuda com outra coisa... seguinte olha a função que to usando pra anexar arquivos for i := 0 to frmCobrancaSenhas.FileListBox1.Items.Count - 1 do begin if FileExists(frmCobrancaSenhas.FileListBox1.Items[i]) then begin idAttach := TIdAttachment.Create(frmCobrancaSenhas.IdMessage1.MessageParts, frmCobrancaSenhas.FileListBox1.Items[i]); idAttach.ContentDisposition := 'attachment'; idAttach.ExtraHeaders.Values['Content-id'] := ExtractFileName(frmCobrancaSenhas.FileListBox1.Items[i]); idAttach.ContentType := 'multipart/mixed'; end; end; frmCobrancaSenhas.imglistbox.Directory := imagens; for i := 0 to frmCobrancaSenhas.imglistbox.Items.Count - 1 do begin if FileExists(frmCobrancaSenhas.imglistbox.Items[i]) then begin idAttach := TIdAttachment.Create(frmCobrancaSenhas.IdMessage1.MessageParts, frmCobrancaSenhas.imglistbox.Items[i]); idAttach.ContentDisposition := 'attachment'; idAttach.ExtraHeaders.Values['Content-id'] := ExtractFileName(frmCobrancaSenhas.imglistbox.Items[i]); idAttach.ContentType := 'image/jpeg'; end; end; O Filelistbox é onde ficam os arquivos que vão como anexos na mensagem... e o imglistbox são as imagens que vão no corpo da mensagem... o problema é que ele só está enviando um.... vou explicar melhor. Se eu adiciono um anexo comum e envio ele chega o texto e o anexo certinho... se eu adiciono o anexo e uma imagem no email, ele só envia a imagem do corpo e o anexo comum não vai.... O que eu posso tá fazendo de errado? Obrigado

Hum... Obtenho um erro Invalid use of keyword Token Extract (DAY Testei aqui e a query é exatamente essa: select * from tabela where extract(month from data_nasc) = :mes order by extract(day from data_nasc) Dá uma olhada no código e vê se você escreveu corretamente... Outra coisa, se tiver o IBExpert aí teste essa query nele! Abraços

Um sujeito entra num boteco novinho, todo hi-tech, e pede uma bebidinha.. O barman é um robô, que serve um cocktail perfeito e pergunta: - Qual é o seu QI? O homem responde: - Uns 150. Então o robô inicia uma conversa sobre aquecimento global, espiritualidade universal, física quântica, interdependência ambiental, teoria das cordas, nanotecnologia, e por aí afora... O cara ficou impressionado, e resolveu testar o robô. Saiu,.... deu uma volta e retornou ao balcão. Novamente o robô pergunta: - Qual é o seu QI? O homem responde: - Deve ser uns 100. Imediatamente o robô lhe serve um uisquinho e começa a falar, agora sobre futebol, fórmula 1, super-modelos, comidas favoritas, armas, corpo de mulher, e outros assuntos semelhantes...... O sujeito ficou abismado. Sai do bar,.... para pensar.... e resolve voltar e fazer mais um teste. Novamente o robô lhe faz a pergunta: - Qual é o seu QI? O homem dá uma disfarçada e responde: - Uns 20, eu acho!!!!! Então o robô lhe serve uma cachaça, se inclina no balcão e diz pausadamente: - E aí mano, e o CURINTIA ??????

A primeira coisa que faço quando dá erro no win7, é testar em um XP, se der certo você pega e executa sua aplicação em modo de compatibilidade do XP... Abraços

Tente assim: procedure TForm1.Button1Click(Sender: TObject); begin query1.SQL.Clear; Query1.SQL.Add('SELECT *'); Query1.SQL.Add('FROM TABELA'); Query1.SQL.Add('WHERE extract(month from DATA_NASC) = :mes'); query1.SQL.Add('ORDER BY EXTRACT(DAY FROM DATA_NASC)'); Query1.ParamByName('mes').AsInteger := 1; Query1.Open; end; Abraços

Facil de resolver... PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y); Abraços

Desligar Windows XP/VISTA/7... WinExec("cmd /c shutdown -s",SW_NORMAL); Desligar Windows XP/VISTA/7 com tempo... WinExec("cmd /c shutdown -s -t 50",SW_NORMAL); o tempo é em segundos, ou seja o código acima o pc vai desligar em 50 segundos... Abraços

Eu tive um problema com isso... ele estava exatamente como você qria só que eu não o queria assim.... tente colocar assim: 1 Title, 1 PageHeader, 2 SubDetails... só isso... cmg funcionou :rolleyes: Olha o meu como estava saindo: http://img682.imageshack.us/img682/500/modelo3m.jpg as 2 imagens do verso e depois as 2 da frente... a ordem você quem ve ai! Abraços

Mas como os programas de email como outlook ou windows live mail enviam sem problemas? O que eu to querendo dizer é que eu preciso negritar, ou aumentar letra, ou até mudar a cor da letra, como eu faria isso pra gmail então? Jhonas, esquece todos aqueles códigos acima... agora estou usando esse exemplo: http://www.planetadelphi.com.br/artigo/114...editor-de-html/ e ao invez deu salvar o html num arquivo eu já passo ele pra um memo... ele é exibido perfeitamente... muito melhor que o antigo!!! só que a questão do gmail continua a mesma coisa... você sabe de alguma solução? Obrigado

Boa tarde... Estou a semana toda me matando por uma coisa meio que boba... por isso estou meio inativo essa semana.... estão me cobrando... preciso entregar até amanha e peço ajuda aos que puderem me ajudar :rolleyes: Seguinte... Eu envio perfeitamente o email para qualquer caixa postal do mundo (todas que testei chegou normal)... porém o GMAIL só recebe o anexo e o assunto... o texto não vai... Eu uso um richedit e converto ele para HTML pra enviar o email... Segue procedure PROCESSO, a responsável pelo envio do email... procedure ThreadCobranca.Processo; var idText1: TidText; idText2: TidText; p: TidMessageParts; slBody: TStringList; nomeimg : string; sistema : string; i : integer; tamanho_msg : TMemoryStream; begin try frmCobrancaSenhas.IdMessage1.Clear; frmCobrancaSenhas.IdMessage1.ClearBody; frmCobrancaSenhas.IdMessage1.ClearHeader; with frmCobrancaSenhas.IdMessage1 do begin From.Name := 'SN Systems'; From.Address := frmCobrancaSenhas.combo_de.Text; Recipients.EMailAddresses := frmCobrancaSenhas.edt_para.Text; CCList.EMailAddresses := frmCobrancaSenhas.edt_paracc.Text; BccList.EMailAddresses := frmCobrancaSenhas.edt_paracco.Text; Subject := frmCobrancaSenhas.edt_assunto.Text; ContentType :='multipart/mixed'; ContentDisposition :='inline'; Encoding :=meMIME; end; p := frmCobrancaSenhas.idMessage1.MessageParts; slBody := TstringList.Create; try slBody.Clear; slBody.Add('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' + '<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /></head>' + '<body bgcolor="#ffffff">' + frmCobrancaSenhas.RichEdit2.Text + '<br><br><font size="3">Atenciosamente,</font><br /><br /><table border="0" cellpadding="0" cellspacing="0" width="280">' + '<td valign="top"><img name="logosn" src="http://www.soareseneves.com.br/imagens/logosn.gif" width="95" height="50" border="0" id="logosn" alt="" /></td> <td valign="top"><font size="3">' + usuarioCompleto + '<br />' + LowerCase(usuario) + '@soareseneves.com.br</font><br /><font size="3">www.soareseneves.com.br<br /> (19) 3862-6674</font></td></tr><tr><td colspan="2">' + '<img name="rodapeoutlook" src="http://www.soareseneves.com.br/imagens/rodapeoutlook.gif" width="280" height="21" border="0" id="rodapeoutlook" alt="" />' + '</td></tr></table></body></html>'); idText1 := TidText.Create(p, slBody); idText1.ContentType := 'text/html'; idText2 := TidText.Create(p); idText2.ContentType := 'text/plain'; idText2.Body.Text := ''; frmCobrancaSenhas.idMessage1.Body.Assign(slBody); frmCobrancaSenhas.idMessage1.ContentType := 'multipart/mixed'; for i := 0 to frmCobrancaSenhas.FileListBox1.Items.Count - 1 do begin if FileExists(frmCobrancaSenhas.FileListBox1.Items[i]) then TIdAttachment.Create(frmCobrancaSenhas.IdMessage1.MessageParts, frmCobrancaSenhas.FileListBox1.Items[i]); end; tamanho_msg := TMemoryStream.create; frmCobrancaSenhas.IdMessage1.SaveToStream(tamanho_msg); Tamanho := tamanho_msg.Size; ShowMessage(frmCobrancaSenhas.IdMessage1.Body.Text); frmCobrancaSenhas.idSMTP1.Connect; frmCobrancaSenhas.idSMTP1.Send(frmCobrancaSenhas.idMessage1); finally frmCobrancaSenhas.idSMTP1.Disconnect; slBody.Free; end; frmCobrancaSenhas.Button1.Enabled := True; Synchronize(Mensagem1); except On E:Exception do begin ShowMessage('Erro: ' + E.Message); end; end; end; Função que converte para HTML: function TfrmCobrancaSenhas.RICH_HTML(RICH: TRichEdit): string; var I,J,MAX_ARRAY: integer; HTML: string; F,FO: array [0..5] of string; STR,LGT: integer; SIZE: integer; COR : string; begin HTML := ''; STR := RICH.SelStart; LGT := RICH.SelLength; MAX_ARRAY := 5; for J := 0 to MAX_ARRAY do begin F[J] := ''; FO[J] := ''; end; for I := 0 to length(RICH.text) do begin RICH.SelStart := I; RICH.SelLength := 1; for J := 0 to MAX_ARRAY do FO[J] := F[J]; if (RICH.SelAttributes.Style - [fsItalic] - [fsUnderline] - [fsStrikeOut] = [fsBold]) then F[0] := '<b>' else F[0] := '</b>'; if (RICH.SelAttributes.Style - [fsItalic] - [fsBold] - [fsStrikeOut] = [fsUnderline]) then F[1] := '<u>' else F[1] := '</u>'; if (RICH.SelAttributes.Style - [fsUnderline] - [fsBold] - [fsStrikeOut] = [fsItalic]) then F[2] := '<i>' else F[2] := '</i>'; if RICH.SelAttributes.size < 10 then SIZE := 1 else if RICH.SelAttributes.size < 12 then SIZE := 2 else if RICH.SelAttributes.size < 14 then SIZE := 3 else if RICH.SelAttributes.size < 18 then SIZE := 4 else if RICH.SelAttributes.size < 22 then SIZE := 5 else if RICH.SelAttributes.size < 32 then SIZE := 6 else SIZE := 7; COR := ColorToString(RICH.SelAttributes.Color); if (COR = 'clWindowText') or (COR = 'clBlack') then COR := '#000000' else if COR = 'clWite' then COR := '#FFFFFF' else if COR = 'clAqua' then COR := '#00FFFF' else if COR = 'clFuchsia' then COR := '#FF00FF' else if COR = 'clBlue' then COR := '#0000FF' else if COR = 'clYellow' then COR := '#FFFF00' else if COR = 'clLime' then COR := '#00FF00' else if COR = 'clRed' then COR := '#FF0000' else if COR = 'clSilver' then COR := '#C0C0C0' else if COR = 'clGray' then COR := '#808080' else if COR = 'clTeal' then COR := '#008080' else if COR = 'clPurple' then COR := '#800080' else if COR = 'clNavy' then COR := '#000080' else if COR = 'clOlive' then COR := '#808000' else if COR = 'clGreen' then COR := '#008000' else if COR = 'clMaroon' then COR := '#800000' else if copy(COR,1,1) = '$' then COR := '#'+copy(COR,length(COR)-1,2) +copy(COR,length(COR)-3,2) +copy(COR,length(COR)-5,2) else COR := '#000000'; F[3] := '</font><font face="'+RICH.SelAttributes.Name+'" size='+inttostr(SIZE)+' color="'+COR+'">'; if RICH.Paragraph.Alignment = taCenter then F[4] := '<center>' else F[4] := '</center>'; if RICH.Paragraph.Alignment = taRightJustify then F[5] := '<div align="right">' else F[5] := '</div>'; for J := 0 to MAX_ARRAY do if FO[J] <> F[J] then HTML := HTML + F[J]; if copy(RICH.text,I+1,1) = #13 then HTML := HTML + '<br>'; HTML := HTML + copy(RICH.text,I+1,1); end; RICH.SelStart := STR; RICH.SelLength := LGT; HTML := StringReplace(HTML,'[img]','<img src="',[rfReplaceAll]); HTML := StringReplace(HTML,'[/img]','"/>',[rfReplaceAll]); result := HTML; end; Converto e em seguida executo a Thread RichEdit2.Clear; RichEdit2.Lines.Text := RICH_HTML(RichEdit1); ThreadCobra:=ThreadCobranca.Create(false); ThreadCobra.Priority:=tpNormal; ThreadCobra.FreeOnTerminate:=true; Explicando... o RichEdit 1 é onde a pessoa edita o texto que já vem e formata ele a vontade... já o RichEdit2 é o texto porém convertido em HTML pela função acima. Como você pode perceber, tenho o HTML la na procedure PROCESSO, e quando chego no <body> eu coloco o texto do richedit2... Não sei mais o que fazer... será que alguém pode dar uma luz??? Abraços

Olha esse exemplo de agenda com fontes... http://www.planetadelphi.com.br/delphi/exe...os/00002973.zip ou dê uma olhada nesse tópico... http://scriptbrasil.com.br/forum/index.php...1&hl=agenda ou faça uma pesquisa no fórum... http://scriptbrasil.com.br/forum/index.php...highlite=agenda Abraços

Mais um voto a favor!

Meu nome é Douglas Soares Tenho 16 anos Moro em Mogi Mirim - SP Trabalho em uma empresa de Informatica chamada SN System's, http://www.soareseneves.com.br Gosto de trabalhar com Delphi, procuro aprender mais sobre PHP e Java, também gosto de ajudar os outros e dou o maximo de mim para melhorar tudo ao meu redor... Esse sou eu =D Vlw!!!

Ô Cumpade, Bao?? Eu estou bôm sim e o cê? Levando a vida Uaiii Dexu faze uma pergunta proce... comu que chama aquele porquinho? Aquele ali é o Cê E aquele otro cumpadê? como ele chama? Aquele ali é o irmão do Cê Ah é cumpade... mas e aquele otro dali Aquele lá é o primo do Cê Ah é cumpade... e aquela leitoa gorda ali, é a mãe do Cê? Não, aquela é a Tia do Cê, a mãe do Cê eu cumi ontê!