hunter2017 Postado Maio 29, 2017 Denunciar Share Postado Maio 29, 2017 Olá pessoal, sou iniciante em programação delphi e queria saber como incorporar alguns elementos de uma página html em um memo, dá para fazer isso? Lembrando que se for declarar a uses URLmon; no meu está dando erro. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Maio 29, 2017 Denunciar Share Postado Maio 29, 2017 queria saber como incorporar alguns elementos de uma página html em um memo que informação da pagina voce esta querendo ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Maio 30, 2017 Autor Denunciar Share Postado Maio 30, 2017 Estou programando com html de uma página de bate papo e queria os links de todas as salas junto com o css em um memo. <ul> <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">Todas as salas</a></li> </ul> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Maio 30, 2017 Denunciar Share Postado Maio 30, 2017 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 ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Maio 30, 2017 Autor Denunciar Share Postado Maio 30, 2017 (editado) vamos por partes.. Versão : delphi 7 enterprise Erro :[Error]Unit1.pas(1):Declaration expected but identifier 'URLmon' found [Fatal Error]Project.dpr(4): Could not compile used unit 'Unit1.pas' WEBBROSER : chromium http://bpbol.uol.com.br/bytheme.html?nodeid=6101 Mas pelo webbrowser vai pegar a página inteira, eu quero somente os links de acesso as salas que na verdade são os ID..é que eu estou fazendo uma aplicação delphi para acessar salas de bate papo via socket client e socket servidor. Editado Maio 30, 2017 por hunter2017 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Maio 30, 2017 Denunciar Share Postado Maio 30, 2017 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Maio 31, 2017 Autor Denunciar Share Postado Maio 31, 2017 Eu vi o vídeo mas o codigo a compilação não ficou visualmente como mostra o vídeo, só fica apenas texto embaralhado e não é bem isso que eu quero, acho que vou ter que usar o webbrowser mesmo mas configurar o html para mostrar somente a lista de salas pelo chromium isso requer um pouco de conhecimento em css3, eu gostaria de saber se tem como trocar a barra do scrollbar do chromium ou usar um scrollbar do próprio delphi para funcionar em webbrowser.. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Maio 31, 2017 Autor Denunciar Share Postado Maio 31, 2017 Eu gostaria que ficasse em minha aplicação dessa forma. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Maio 31, 2017 Denunciar Share Postado Maio 31, 2017 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Maio 31, 2017 Autor Denunciar Share Postado Maio 31, 2017 Já tentei fazer igual no vídeo mas não deu certo, porque aquele cara é um fdp..e não postou o código, só quer likes nos vídeos e não ajuda ngm e fazer somente olhando é muito difícil, eu não sei se ele colocou o código dentro do webbrowser porque o cara não mostrou onde ele colocou esses parêmetros. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Maio 31, 2017 Denunciar Share Postado Maio 31, 2017 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 1, 2017 Autor Denunciar Share Postado Junho 1, 2017 8 horas atrás, Jhonas disse: 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 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. Esse codigo acima eu coloco a onde? é no webbrowser, no memo, ou na unit1? você não falou onde coloca esse código e nem o cara do vídeo. Ta dando erro undeclarado de idhttp1; a mesma falha quando tentei declarar URLmon; e toda vez que vou declarar algo na uses dá esse erro. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 1, 2017 Denunciar Share Postado Junho 1, 2017 Esse codigo acima eu coloco a onde? você não falou onde coloca esse código e nem o cara do vídeo. voce tem que olhar o nome da procedure que esta no código ( evento OnCreate do Form ) procedure TForm1.FormCreate(Sender: TObject); Ta dando erro não declarado de idhttp1; voce tem que colocar o componente TIdHTTP da paleta Indy Clients e o componente TWebBrowser da paleta Internet no Form OBS: O código está completo e funcionando .... voce tem que abrir uma nova aplicação e no Form voce coloca o componente Tidhttp e o componente twebbrowser o codigo voce coloca no evento OnCreate do Form 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; esse código não utiliza a uses URLMON. abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 1, 2017 Autor Denunciar Share Postado Junho 1, 2017 (editado) Sim jhonas, funcionou!! Agora tem a segunda dúvida, eu tenho um painel de login com 2 combobox, um botão "Entrar", um botão "Desconectar" e um botão "Sair", eu preciso conectar esse painel em no servidor com o auxílio de dois sockets, um para client e outro para servidor no qual o endereço ip dele é 200.147.3.199, eu algum tempo atrás eu tava quase conseguindo mas desisti porque pensei que estava errado mas eu estava no caminho certo, porém, não me lembro como fiz, a única coisa que me lembro foi de ter programado os parâmetros de programação no botão "Entrar" e esse botão ficou com a borda mais "grossa" se isso te faz lembrar de como é feito essa conexão socket no servidor, me dê uma idéia, porque o que eu necessito é de uma line.string em que o servidor possa verificar se o email e senha estão corretos para poder conectar, caso contrário o login será cancelado pelo servidor. Olhe o meu form.. São 2 edits, mas imagine que seja combobox. Editado Junho 1, 2017 por hunter2017 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 1, 2017 Denunciar Share Postado Junho 1, 2017 o que eu necessito é de uma line.string em que o servidor possa verificar se o email e senha estão corretos para poder conectar, no combobox voce pode colocar os nomes e no edit voce digita a senha como é feito essa conexão socket no servidor, me dê uma idéia exemplo: http://www.planetadelphi.com.br/download/1805/arquivo/sockets caso voce queira pesquisar sobre o assunto https://www.google.com.br/?gws_rd=ssl#q=socket+delphi+exemplo abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 1, 2017 Autor Denunciar Share Postado Junho 1, 2017 Obrigado, Jhonas! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 2, 2017 Autor Denunciar Share Postado Junho 2, 2017 Esses posts que você me passou não tem o que eu preciso porque não diz nada relacionado a LineStrings ou algo do tipo, acho que vou ter que abrir um novo post em um outro site. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 2, 2017 Denunciar Share Postado Junho 2, 2017 que eu saiba no delphi não tem isso ( a não ser que seja Memo.Lines.String )... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 2, 2017 Autor Denunciar Share Postado Junho 2, 2017 É um parâmetro que envia dados de login e senha por socket para o servidor fazer a verificação do login se está correto ou não, talvez eu tenha confundido o nome, mas é mais ou menos isso. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 2, 2017 Denunciar Share Postado Junho 2, 2017 ok... veja esse exemplo http://www.unidev.com.br/index.php?/topic/45516-tela-de-logon-em-socket/ ou https://www.google.com.br/?gws_rd=ssl#q=login+senha+socket+delphi+ abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 3, 2017 Autor Denunciar Share Postado Junho 3, 2017 O que é uma variável global e qual forma de se declarar uma variável global, Jhonas? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 3, 2017 Denunciar Share Postado Junho 3, 2017 Em programação, uma variável global é uma variável acessível em todos os escopos de um programa de computador. O mecanismo de interação com variáveis globais é chamada ambiente global. Em contraste o ambiente local é um mecanismo no qual as variáveis são locais (conceito básico de variável local) e sem memória compartilhada. O uso de variáveis globais é geralmente considerado inadequado pois seu conteúdo pode ser potencialmente modificado de qualquer local, e qualquer parte de um código pode depender dela. A técnica possui o potencial de criar dependências mútuas, o que aumenta a complexidade e dificuldade de leitura de um código. Entretanto, para alguns casos seu uso pode ser adequado; um exemplo é a passagem frequente de variáveis continuamente por diversas funções. Em programação concorrente, variáveis globais são bastante usadas para passar informações entre seções de código que não compartilham relação, como threads concorrentes e em programação de sinais. exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } num1 : integer; // variavel global dentro da aplicação end; var Form1: TForm1; num : integer = 2; // variavel global dentro do form implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var num2 : integer; // variavel local dentro da procedure begin num2 := 10; num := num * num2; num1 := 3; showmessage(inttostr(num2)); showmessage(inttostr(num)); showmessage(inttostr(num1)); end; procedure TForm1.Button2Click(Sender: TObject); begin num1 := num1 + num1; showmessage(inttostr(num1)); end; end. OBS: clicando no botão1 o resultado será 10 , 20 e 3 respectivamente .. veja que a variavel num1 recebe o valor = 3 nesse instante. quando voce clica no botão2 o resultado é 6, pois o valor é passado para toda a aplicação mais informações sobre o assunto: https://www.google.com.br/?gws_rd=ssl#q=declarar+variavel+global+delphi+7 abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 4, 2017 Autor Denunciar Share Postado Junho 4, 2017 Assim está o meu comando, agora preciso colocar no edit1 e edit 2 um receive.text para receber o que foi digitado no edit, mas não sei como fazer isso. procedure TForm1.btn02Click(Sender: TObject); begin if servidor1.Active = True then begin servidor1.active := False; end; end; procedure TForm1.btn1Click(Sender: TObject); begin if servidor1.Active = False then begin servidor1.active := True; end; end; procedure TForm1.edit1Change(Sender: TObject); begin end; end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 4, 2017 Denunciar Share Postado Junho 4, 2017 já te passei um exemplo completo .... use esse exemplo ou estude o código e faça as modificações no seu. http://www.planetadelphi.com.br/download/1805/arquivo/sockets preciso colocar no edit1 e edit 2 um receive.text para receber o que foi digitado no edit outro exemplo mais simples http://www.devmedia.com.br/forum/senha-por-sockets/170200 abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 hunter2017 Postado Junho 10, 2017 Autor Denunciar Share Postado Junho 10, 2017 Ainda tenho dúvidas sobre esse post, eu queria saber como pegar pedaços de uma página da web e exibí-la em um memo da mesma forma como fez no webbrowser. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 11, 2017 Denunciar Share Postado Junho 11, 2017 eu queria saber como pegar pedaços de uma página da web e exibí-la em um memo da mesma forma como fez no webbrowser. no webbrowser aparece a execução do código, no memo vai aparecer somente o código. o código é o mesmo que aparece no arquivo 'C:\Temp.html' abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
hunter2017
Olá pessoal, sou iniciante em programação delphi e queria saber como incorporar alguns elementos de uma página html em um memo, dá para fazer isso? Lembrando que se for declarar a uses URLmon; no meu está dando erro.
Link para o comentário
Compartilhar em outros sites
Top Posters For This Question
28
26
Dias Populares
Mai 30
6
Jun 10
5
Mai 31
5
Ago 24
4
Top Posters For This Question
hunter2017 28 posts
Jhonas 26 posts
Dias Populares
Mai 30 2017
6 posts
Jun 10 2017
5 posts
Mai 31 2017
5 posts
Ago 24 2017
4 posts
Posted Images
53 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.