Mario Lopes

Boa tarde Gostava de implementar em Delphi 7 um sistema de envio de sms. Vivo em Portugal e tenho sms ilimitadas no meu cartão da operadora mas infelizmente não consigo ligar o meu iphone ao pc e criar um programa que me faça isso. Estive a ler sobre o assunto e julgo que necessito de comprar um modem gsm (qual a melhor relação preço/qualidade?), ligá-lo à porta série do pc e depois...? Alguém já fez algo semelhante? Obrigado

Pode enviar mensagens via whatsapp através de um endereço web, não ajuda? Talvez ajude https://programamos.pt/adicionar-a-funcao-de-enviar-whatsapp-mensagem-a-partir-do-website/

Grande! Obrigado Jhonas

Posso deixar um link para descarregar o ficheiro, é fornecido por uma empresa com loja online. https://programamos.pt/animais.csv Já agora não sei o que se passa com este fórum porque que tenho sempre que pedir link para colocar nova password, o forum não aceita o meu Login. O facto é que não me recordo muito bem qual o meu username, mas não tenho como saber no fórum (a opção meu perfil nada me indica sobre isso).

Viva Jhonas Por exemplo o texto Aspirador de Mão Ciclónico Cecoclean PowerHand Wet aparece como Aspirador de Mão Ciclónico Cecoclean PowerHand Wet Abraço

Viva Uso o seguinte código para ler um ficheiro CSV . procedure TForm1.Button1Click(Sender: TObject); var Linhas, Colunas:TStringList; i:integer; begin Linhas := TStringList.Create; Colunas := TStringList.Create; try Linhas.LoadFromFile('C:\cheirabem\bbanimais\animais.csv'); //Carregando arquivo for i := 1 to 10 do begin Colunas.text := StringReplace(Linhas.Strings[i],';',#13,[rfReplaceAll]); edit1.Text:= Colunas.Strings[1]; end; finally Linhas.Free; Colunas.Free; end; end; O problema é que os carateres acentuados não me aparecem em condições. Alguém ajuda? Obrigado Mário Lopes

Viva Jhonas Foi você que fez o favor de me ajudar e me dar o link para download. A minha versão é 10.1.5 Na altura fiz o download e deixei os ficheiros no meu pc. Foi o segundo link que me sugeriu neste post agora já não se encontra ativo

Infelizmente não consigo compreender bem esta solução. Tive alguns problemas com as lib, que foram resolvidos mas continuo sem fazer a mínima ideia de como devo proceder. Apelo à vossa paciência e por isso fiz o vídeo que vos peço que visualizem no youtube:

Ok Jhonas Julgo que houve alterações no Plesk do meu fornecedor e agora necessito de fazer ftp por ftps:// Ao alterar as propriedades do componente TidFTP para useRequireTLS ou useExplicitTLS obtenho a mensagem SSL IOHandler is required for this setting Alguma ajuda neste assunto? Tenho a versão indy 10.1.5

Boa tarde Sempre fiz ftp para o meu site de imagens com Delphi. Ontem deparei-me com o erro "Policy requires SSL" Não sei que alterações houve no servidor, o responsável pelo servidor também parece não saber, o que é certo é que não consigo enviar ficheiros, assim como não consigo fazer upload para o site a partir do vs2017 (desculpem falar na concorrência) uso o componente Indy IdFtp e o código é simples: ftp.Connect; ftp.changedir('/httpdocs/imagens/'); ftp.Put(lblimagem.Caption,edit1.Text+'.jpg'); ftp.Quit; ftp.Disconnect; //---------- Pena ter deixado de funcionar de um momento para o outro.

Perfeito, como sempre Jhonas

Viva Pretendo aceder a um site com selenium. O meu problema é simples: Não consigo lançar o firefox com o módulo https://addons.mozilla.org/pt-PT/firefox/addon/anonymox/ instalado. Lanço o firefox mas sem este módulo não consigo aceder ao site que quero porque o google bloqueou o meu IP (questão de feitios...) Eis o código que estou a usar: from selenium import webdriver import webbrowser import requests from bs4 import BeautifulSoup from urllib.request import urlopen browser = webdriver.Firefox() url = 'http://want-to-go-in/' browser.get(url) soup = BeautifulSoup(urlopen(url), 'html.parser') images = soup.findAll('img') O firefox é lançado sem a extensão que referi e logo a minha entrada é barrada. Quem sabe como resolver?

Viva Estou voltando a um programa antigo em Delphi 7 de deparo-me com este erro: Undeclared Identifier TstringReader Alguém ajuda, por favor? Eis o código procedure TForm1.Button1Click(Sender: TObject); var total:integer; lReader: TStringReader; linha,procura:string; begin lHTTP := TIdHTTP.Create(nil); lHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0'; lReader := TStringReader.Create(lHTTP.Get(zquery1.FieldByName('http://ondequeroir.com').AsString)); procura:='#CC0000;">'; repeat linha := lReader.ReadLine; if AnsiContainsStr(linha,procura) then begin //faz a as tarefas break; end; until lReader = Nil; end; showmessage('terminei'); end;

Grande ajuda Jhonas. Abraço e tudo de bom.

Boa tarde, Troquei de computador e estou tendo problemas em instalar o Indy no delphi 7, em ambiente win10. Ao abrir as packages do Indy quando tento a opção install obtenho sempre o erro Unable to find Project e claro que nem a instalação nem a compilação são feitas. Estou a instalar o Indy a partir desta página: http://www.indyproject.org/Sockets/Download/Files/Indy10.EN.aspx Agradeço ajuda Mário Lopes

Procuro um preço numa página web: Eis o html da página: arial,serif;font-size:18px;">9,95€</span></td> O meu código regex='arial,serif;font-size:18px;">(.+?) ' pattern=re.compile(regex) price=pattern.findall(str(htmltext)) o valor de price é [] por causa do simbolo euro. Como apanhar o valor 9,95? Cumprimentos Mário Lopes

Bem melhor Jhonas Muito Obrigado

Viva Graças a este fórum (Jhonas) consegui fazer scrap a uma página web. Deixo o código de seguida porque pode ser útil para alguém. A minha questão é se esta forma de scrap pode ser otimizada porque para ficheiros web com muitas linhas de código (na ordem dos 2000) este processo é um pouco lento. O que este programa faz é ler linha a linha o ficheiro web e procurar a correspondência. Há alguma otimização possível? Obrigado Mario procedure Tfrmscrapalternativos.Button1Click(Sender: TObject); var total:integer; lReader: TStringReader; linha,procura:string; begin lHTTP := TIdHTTP.Create(nil); lHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0'; zquery1.First; total:=zquery1.RecordCount; for j := 1 to total do begin lReader := TStringReader.Create(lHTTP.Get(zquery1.FieldByName('link1').AsString)); procura:='#CC0000;">'; repeat linha := lReader.ReadLine; if AnsiContainsStr(linha,procura) then begin //faz a as tarefas break; end; until lReader = Nil; zquery1.Next; end; showmessage('terminei'); end;

Boa tarde Como posso gravar som de uma página web? Explico: preciso de ter uma página web (php) com determinada hora de início e conclusão e necessito de gravar automaticamente som a partir da hora de inicio à de conclusão. A minha página php pode residir no meu pc e executar automaticamente um programa windows para fazer isso. Obrigado lopes

Muito obrigado pela sua ajuda. Sem a sua ajuda não teria sido fácil resolver este projeto. Optei pela solução seguinte: <?php $dom = new domDocument; $html="http://www.cttexpresso.pt/feapl_2/app/open/objectSearch/cttexpresso_feapl_132col-cttexpressoObjectSearch.jspx?lang=def&showResults=true&pesqObjecto.objectoId=RG051768667CN"; $content = file_get_contents( $html ); $DOM = new DOMDocument; $DOM->loadHTML( $content ); $tr = $DOM->getElementById( 'object_RG051768667CN' ); $casa=trim(strip_tags($tr->nodeValue)); $string = preg_replace('/\s+/', '', $casa); $tamanho=strlen($string); $registo=substr($string,0,13); $data=substr($string,13,10); $hora=substr($string,23,5); $mensagem=htmlentities(substr($string,28,$tamanho-28-14)); echo "<br>"; echo $registo; echo"<br>"; echo $data; echo"<br>"; echo $hora; echo"<br>"; echo $mensagem; ?>

Obrigado JJI Na verdade fiz isso e verifiquei que o conteúdo está em várias linhas e não é uma única linha. Isto porque o conteúdo do objeto object_RG051768667CN está dentro de tag <td>. Ou seja RG051768667CN está numa <td> a data numa outra <td> ... Eis a imagem do problema aqui

Se o valor retornado por $tr->nodeValue; é uma string, porque é que o código seguinte não funciona? $recuperado = $tr->nodeValue; for ($i = 0; $i <= 10; $i++) { echo substr($recuperado,$i,1); echo "<br>"; } O resultado da variável é: object(DOMElement)#3 (18) { ["tagName"]=> string(2) "tr" ["schemaTypeInfo"]=> NULL ["nodeName"]=> string(2) "tr" ["nodeValue"]=> string(393) " RG051768667CN 2015/01/06 16:15 Objeto rececionado [+]Info [-]Info " ["nodeType"]=> int(1) ["parentNode"]=> string(22) "(object value omitted)" ["childNodes"]=> string(22) "(object value omitted)" ["firstChild"]=> string(22) "(object value omitted)" ["lastChild"]=> string(22) "(object value omitted)" ["previousSibling"]=> string(22) "(object value omitted)" ["nextSibling"]=> string(22) "(object value omitted)" ["attributes"]=> string(22) "(object value omitted)" ["ownerDocument"]=> string(22) "(object value omitted)" ["namespaceURI"]=> NULL ["prefix"]=> string(0) "" ["localName"]=> string(2) "tr" ["baseURI"]=> NULL ["textContent"]=> string(393) " RG051768667CN 2015/01/06 16:15 Objeto rececionado [+]Info [-]Info " } Estranho porque nodeValue é uma string...

Viva Necessito de fazer um scrap a uma página html. Eis o código: <?php $dom = new domDocument; $html="http://www.cttexpresso.pt/feapl_2/app/open/objectSearch/cttexpresso_feapl_132col-cttexpressoObjectSearch.jspx?lang=def&showResults=true&pesqObjecto.objectoId=RG051768667CN"; $content = file_get_contents( $html ); $DOM = new DOMDocument; $DOM->loadHTML( $content ); $tr = $DOM->getElementById( 'object_RG051768667CN' ); //var_dump( $tr ); echo "<br>"; //echo $tr->nodeValue; $dados = explode (' ', $tr->nodeValue ); echo "<br>"; echo $dados[0]; echo "<br>"; echo $dados[1]; echo "<br>"; ?> Porque é que o explode não funciona corretamente? O resultado é RG051768667CN 2015/01/06 16:15 Objeto rececionado [+]Info [-]Info Porque os espaços não são detetados entre N 2 por exemplo? Nem a função substring funciona corretamente? Cumprimentos lopezio

Boa noite Desenvolvi o meu programa de envio de email e, como acontece muitas vezes no windows, no meu pc funciona bem mas no computador do cliente o programa pendura, são dá erro mas nada faz e o programa tem que ser parado. Coloquei apenas o executável no programa do cliente e receio que esteja alguma coisa em falta, daí que pensei criar um programa de instalação. Tenho o delphi 2010 e gostaria de saber: se o Inno Setup é uma boa opção para criação de programas de instalação em delphi (permite configurar e instalar o BDE que é uma excelente valia). Por outro lado gostaria que o meu programa mostrasse uma qualquer mensagem enquanto está a processar o envio de email porque como é um processo demorado o cliente fica sem saber se realmente o programa está a ser executado ou não. Cumprimentos Mário Lopes

Verifiquei que se comentar //idmessage1.ContentType:='text/html' ; tudo funciona corretamente. Vou desistir do formato html, no fundo nem preciso tanto dele assim porque com um campo Memo consigo praticamente os mesmos resultados (exceto o envio de imagens). Cumprimentos Mário Lopes