Jhonas

tem varios exemplos na net https://www.google.com.br/?gws_rd=ssl#q=salvar+listbox+em+txt+delphi abraço

Já tentei fazer igual no vídeo mas não deu certo, porque aquele cara é um ***.e não postou o código meu amigo, não seja injusto .... o cara colocou sim o código, mas voce é que não entendeu copiei o codigo dele e coloquei aqui para voce ver. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, OleCtrls, SHDocVw; type TForm1 = class(TForm) IdHTTP1: TIdHTTP; Memo1: TMemo; WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var pagina, lista : string; arquivo : TStrings; begin pagina := IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6143'); lista := copy(pagina,pos('<table id="tb_salas"',pagina),length(pagina)); lista := copy(lista,1,pos('</table>',lista)+length('</table>')-1); //Memo1.Lines.Text := lista; arquivo := TstringList.create; arquivo.Text := lista; arquivo.SaveToFile('C:\Temp.html'); WebBrowser1.Navigate('C:\Temp.html'); end; end. OBS: depois que ele mostra o resultado em um Memo, ele tira esse codigo, salva em um arquivo html no disco ( C:\Temp.html ) e depois pega esse arquivo e joga dentro de um WebBrowser para mostrar exatamente o que voce está querendo. abraço

queria os links de todas as salas junto com o css em um memo. voce mostrou de um jeito no seu 2º post ... e te mostrei como conseguir esse resultado no programa. agora voce esta mostrando de outra maneira ...voce tem que ser mais explicito nas suas idéias. se voce olhou a video aula, no tempo de 09:41 voce vai ter exatamente essa saida.. basta seguir exatamente como mostrado no video. OBS: aquele texto embaralhado que voce viu, tem que ser jogado em um componente TWebBrowser para ficar do jeito que voce esta querendo. abraço

Erro :[Error]Unit1.pas(1):Declaration expected but identifier 'URLmon' found depois do Implementation voce coloca uses URLMON; =============================================== Veja se é isso que voce esta querendo usei o componente IdHTTP da paleta Indy unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; IdHTTP1: TIdHTTP; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; Texto : TMemo; Begin Memo1.Lines.Clear; Memo1.Width := 593; Memo1.ScrollBars := ssVertical; Memo1.Lines.Append(trim(IdHTTP1.Get('http://bpbol.uol.com.br/bytheme.html?nodeid=6101'))); for i := 1 to memo1.Lines.Count do begin if pos('bytheme.html?',memo1.Lines.Strings[i]) > 0 then memo2.Lines.Append(trim(copy(memo1.Lines.Strings[i],1,250))); end; end; end. resultado no Memo Memo2 href="http://click.uol.com.br/?rf=bpb_menusup1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">crie sua href="http://click.uol.com.br/?rf=bpb_menu1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6094">Amizade</a></li> href="http://click.uol.com.br/?rf=bpb_menu2&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6096">Cidades</a></li> href="http://click.uol.com.br/?rf=bpb_menu3&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6099">Encontros</a></l href="http://click.uol.com.br/?rf=bpb_menu4&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6101">Idade</a></li> href="http://click.uol.com.br/?rf=bpb_menu5&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6103">Namoro</a></li> href="http://click.uol.com.br/?rf=bpb_menu6&u=http://bpbol.uol.com.br/bytheme.html?nodeid=8320">Religiões</a></li href="http://click.uol.com.br/?rf=bpb_menu7&u=http://bpbol.uol.com.br/bytheme.html?nodeid=7890">Webcam</a></li href="http://click.uol.com.br/?rf=bpb_menu8&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6107">Outros href="http://click.uol.com.br/?rf=bpb_menu9&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6105">Sexo</a></li> href="http://click.uol.com.br/?rf=bpb_menu10&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6109">Imagens href="http://click.uol.com.br/?rf=bpb_menu11&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6111">Outras href="http://click.uol.com.br/?rf=bpb_menu12&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">Salas do <th><a href="http://bpbol.uol.com.br/bytheme.html?nodeid=7520">18 a 20 href="http://bpbol.uol.com.br/bytheme.html?nodeid=7520"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" href="http://bpbol.uol.com.br/bytheme.html?nodeid=7541">20 a 30 anos</a></th> href="http://bpbol.uol.com.br/bytheme.html?nodeid=7541"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" href="http://bpbol.uol.com.br/bytheme.html?nodeid=7562">30 a 40 anos</a></th> href="http://bpbol.uol.com.br/bytheme.html?nodeid=7562"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" href="http://bpbol.uol.com.br/bytheme.html?nodeid=7583">40 a 50 anos</a></th> href="http://bpbol.uol.com.br/bytheme.html?nodeid=7583"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" href="http://bpbol.uol.com.br/bytheme.html?nodeid=7604">50 a 60 anos</a></th> href="http://bpbol.uol.com.br/bytheme.html?nodeid=7604"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" href="http://bpbol.uol.com.br/bytheme.html?nodeid=74994">60 a 70 anos</a></th> href="http://bpbol.uol.com.br/bytheme.html?nodeid=74994"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" href="http://bpbol.uol.com.br/bytheme.html?nodeid=75005">Mais de 70 anos</a></th> href="http://bpbol.uol.com.br/bytheme.html?nodeid=75005"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" outro exemplo em video aula Com base no exemplo da video aula unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; IdHTTP1: TIdHTTP; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i : integer; pagina, lista : string; Begin memo1.Lines.Clear; pagina := IdHTTP1.Get('http://bpbol.uol.com.br/#rmcl'); lista := copy(pagina,pos('<li class="amizade">',pagina),length(pagina)); lista := copy(lista,1,pos('>Todas as salas</a></li>',lista)); memo1.Lines.Append(lista); end; end. Resultado no Memo <li class="amizade"><a href="http://click.uol.com.br/?rf=bpb_menu1&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6094">Amizade</a></li> <li class="cidades"><a href="http://click.uol.com.br/?rf=bpb_menu2&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6096">Cidades</a></li> <li class="encontros"><a href="http://click.uol.com.br/?rf=bpb_menu3&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6099">Encontros</a></li> <li class="idade"><a href="http://click.uol.com.br/?rf=bpb_menu4&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6101">Idade</a></li> <li class="namoro"><a href="http://click.uol.com.br/?rf=bpb_menu5&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6103">Namoro</a></li> <li class="religioes"><a href="http://click.uol.com.br/?rf=bpb_menu6&u=http://bpbol.uol.com.br/bytheme.html?nodeid=8320">Religiões</a></li> <li class="webcam"><a href="http://click.uol.com.br/?rf=bpb_menu7&u=http://bpbol.uol.com.br/bytheme.html?nodeid=7890">Webcam</a></li> <li class="outros_temas"><a href="http://click.uol.com.br/?rf=bpb_menu8&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6107">Outros temas</a></li> <li class="sexo"><a href="http://click.uol.com.br/?rf=bpb_menu9&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6105">Sexo</a></li> <li class="img_eroticas"><a href="http://click.uol.com.br/?rf=bpb_menu10&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6109">Imagens eróticas</a></li> <li class="img_outras"><a href="http://click.uol.com.br/?rf=bpb_menu11&u=http://bpbol.uol.com.br/bytheme.html?nodeid=6111">Outras imagens</a></li> <li class="publico"><a href="http://click.uol.com.br/?rf=bpb_menu12&u=http://bpbol.uol.com.br/bytheme.html?nodeid=11381">Salas do público</a></li> <li class="todas"><a href="http://click.uol.com.br/?rf=bpb_menu14&u=http://tc.bpbol.uol.com.br/todassalas.jhtm"> abraço

qual a versão do seu delphi ? qual o erro da uses URLmon ? quer usar o webbrowser ? qual o endereço da pagina que voce quer ?

queria saber como incorporar alguns elementos de uma página html em um memo que informação da pagina voce esta querendo ?

veja as configurações regionais do windows

veja nesse link quais os arquivos que devem acompanhar o seu aplicativo http://www.devmedia.com.br/forum/distribuicao-crystal-reports-9/246957 abraço

use o comando inner join para ajuntar 2 ou mais tabelas https://www.google.com.br/?gws_rd=ssl#q=join+mysql+exemplos abraço

use o comando between na select https://www.google.com.br/?gws_rd=ssl#q=select+between abraço

veja esse link https://www.google.com.br/?gws_rd=ssl#q=como+proteger+meu+site+contra+cópias abraço

coloque sleep(10) ...isso evita do processador ficar em 100% de uso abraço

vou te passar um exemplo bem simples para voce entender o funcionamento unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type MinhaThread = class(TThread) procedure Execute; override; procedure Verifica; procedure Fechar; Private constructor Create(); end; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure RotinaX(Sender: TObject); private { Private declarations } Teste: MinhaThread; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ procedure MinhaThread.Execute; Var Sender : TObject; begin synchronize(Verifica); // Acessar a VCL sem travar o programa Form1.RotinaX(Sender); // Executar Rotina ( Procedures ) while not Terminated do begin Sleep (100); Terminate; // Finaliza a Thread Form1.Memo1.Lines.Append('Thread Finalizada'); synchronize(Fechar); // Fechar o programa end; end; procedure MinhaThread.Verifica; begin Form1.Caption := 'TESTE'; end; procedure MinhaThread.Fechar; begin application.terminate; // Fechar o programa end; constructor MinhaThread.Create(); begin inherited Create(True); { Chama o contrutor herdado. Ele irá temporariamente colocar o thread em estado de espera para depois executá-lo. } FreeOnTerminate := True; // Libera o objeto após terminar. Priority := tpLower; { Configura sua prioridade na lista de processos do Sistema operacional. } Resume; // Inicia o Thread. //Terminate; end; //================================================================================ procedure TForm1.RotinaX(Sender: TObject); var i : integer; begin for i := 1 to 100 do begin Memo1.lines.append(inttostr(i)); sleep(100); end; end; procedure TForm1.Button1Click(Sender: TObject); begin teste := MinhaThread.Create(); // Cria a Thread end; end. outro exemplo http://www.planetadelphi.com.br/dica/6353/construindo-threads-com-delphi abraço

FinalizaRotina seria o que ? seria uma procedure para voce encerrar ( terminar ) a thread seria tipo isso: procedure MyThread.Execute; begin FreeOnTerminate := True; while not Terminated do begin Sleep (10000); // Just an example for take long time. Terminate; // This will set Terminated to True, so it won't iterate next time. end; end; ou simplesmente MyThread.FreeOnTerminate := True; MyThread.OnTerminate := MyThread.Terminate; MyThread.Start; ou pode ainda testar se terminou a thread if MyThread.Terminated then

Veja a modificação procedure TForm2.Button2Click(Sender: TObject); var MyThread:TThread; begin ProgressBar1.Position := 0; ProgressBar2.Position := 0; MyThread := TThread.CreateAnonymousThread(procedure var i:integer; begin for i := 0 to 100 do begin TThread.Synchronize(MyThread, procedure begin ProgressBar1.Position := i; ProgressBar2.Position := i * 2; end); Sleep(100); end; end); MyThread.FreeOnTerminate := True; MyThread.OnTerminate := FinalizarRotina; /// aqui voce coloca uma mensagem ou outra coisa MyThread.Start; end; abraço

tem um exemplo nesse link http://www.activedelphi.com.br/forum/viewtopic.php?t=74884&sid=450c21dafc32d8a4f0527aef345a0ebc abraço

lembro que houve uma modificação com relação ao PAnsiChar a partir do dephi 2009 que acho que faz parte tambem do delphi berlin function StringToPAnsiChar(stringVar : string) : PAnsiChar; Var AnsString : AnsiString; InternalError : Boolean; begin InternalError := false; Result := ''; try if stringVar <> '' Then begin AnsString := AnsiString(StringVar); Result := PAnsiChar(PAnsiString(AnsString)); end; Except InternalError := true; end; if InternalError or (String(Result) <> stringVar) then begin Raise Exception.Create('Conversion from string to PAnsiChar failed!'); end; end; Bom, funcionando é o que interessa. abraço

veja esse exemplo de tipos incompativeis procedure TForm1.Button1Click(Sender: TObject); var nrProcesso, s: string; begin nrProcesso := '5'; s := 'C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe '+ nrProcesso; WinExec(s,SW_NORMAL); end; vai dar erro de tipos incompativeis String and PAnsiChar veja que o erro esta no comando Winexec ... ou seja o Winexec quer um PAnsiChar e coloquei uma string ( S ) agora colocando o que o comando Winexec quer: procedure TForm1.Button1Click(Sender: TObject); var nrProcesso, s: string; begin nrProcesso := '5'; s := 'C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe '+ nrProcesso; WinExec(PAnsiChar(s),SW_NORMAL); end; observe que já não ocorre mais o erro e ele executa corretamente, pois houve a conversão de tipos. abraço

a sua variavel nrProcesso é um PWideChar ? ela tem que ser string. outra coisa... voce reparou nesse comando ? Memo1.Lines.APPEND(ParamStr(0)); é ele que faz a diferença ... voce esta usando ele na outra aplicação ? estou usando o delphi 7, como não conheço o delphi berlin não sei te dizer

substituí para voce ver o resultado no exemplo que passei unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var nrProcesso : string; begin //WinExec(pchar('C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe '+ //'TESTE-' + 'PARAMETROS'),SW_NORMAL); nrProcesso := '5'; WinExec(pchar('C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe '+ nrProcesso),SW_NORMAL); end; end. resultado Memo1 C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe 5 abraço mas não consigo executa vários ao mesmo tempo, tenho que fechar para abrir o proximo. varios ao mesmo tempo ???? extamente o que ? voce quer passar varios parametros ?

nrProcesso := '5'; WinExec(PAnsiChar('E:\Projetos\teste\Win32\Debug\B.exe '+nrProcesso), SW_SHOWNORMAL); é só fazer essa mudança. abraço

tem sim... para exemplificar de maneira bem simples como funciona .... cria uma aplicação ( A ) que vai chamar a aplicação ( B ) passando parametros exemplo: vamos chamar e passar 3 parametros para a aplicação ( B ) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WinExec(pchar('C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe '+ 'TESTE-' + 'PARAMETROS'),SW_NORMAL); end; end. a aplicação ( B ) vai receber os parametros da aplicação ( A ) e mostrar em um memo assim que ela for executada. unit UTesteParametro; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.APPEND(ParamStr(0)); // recebe o 1º parametro ( comando ) Memo1.Lines.APPEND(ParamStr(1)); // recebe o 2º parametro Memo1.Lines.APPEND(ParamStr(2)); // recebe o 3º parametro end; end. resultado Memo1 C:\Arquivos de programas\Borland\Delphi7\Bin\PTesteParamentro.exe TESTE-PARAMETROS abraço

existe muito material de aprendizado na internet no 3 link tem algo parecido com o que voce esta fazendo, mas todos os links referem-se a manipulação de strings https://www.google.com.br/?gws_rd=ssl#q=substituição+de+strings+dentro+de+uma+lista+python um tutorial muito bom http://www.python-course.eu/input.php abraço

veja esses links https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=https://developer.apple.com/library/content/documentation/Swift/Conceptual/Swift_Programming_Language/Functions.html&prev=search https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=https://www.tutorialspoint.com/swift/swift_functions.htm&prev=search abraço

o programa externo vai retornar algum dado para o seu programa ? se não for retornar nada ... exemplo: procedure TForm1.Button1Click(Sender: TObject); begin WinExec('C:\WINDOWS\explorer.exe', SW_SHOWNORMAL); WinExec('C:\WINDOWS\System32\calc.exe', SW_SHOWNORMAL); end;