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