Jhonas

veja se foi criado algum arquivo tipo: .~dpp .~dfm .~pas se existirem esse arquivos, delete os .dpp .dfm e o .pas depois renomeie os arquivos .~dpp .~dfm .~pas para .dpp .dfm e .pas de um Build All no projeto e verifique OBS: se ocorreu alguma alteração no código do Form, ele cria automaticamente arquivos de Backup para restauração do código original. abraço

se voce tem alguma imagem no seu projeto ( icones em botões ou imagem de fundo no Menu ou em algum outro Form, e esta usando o componente TImage, clique com o botão direito do mouse, no Form onde se encontra a imagem ou figura, selecione a opção View as Text. delete todo o código da figura exemplo: Picture.Data = { 0954474946496D616765EA2A0000474946383961C3009500D50000C7C7C6FFFF FFB8B9B8F3F3F331302AEBEBEBE3E3E3A8A8A6464544DBDBDB78787588888597 9796D3D3D3696964181813F9F9F95A5A53FCFCFC74746E55554D64645D262620 43433C83837FB4B3B2A3A3A0929290C1C1C1F6F6F61F201AD9DAD6EEEDEDD0D0 D0FBF7F79F9F9FE8E4E4E0E0DFCCCCCB3A3A333E3F38AEAEAD1D1D18BDBDBC9C 9C9A6E6E6E4E4E46E5E5E5E9E9E9E7E7E7DEDFDCD6D6D6E8E9E55E5E5AE4E0E0 7E7E7BDEDEDEE1E1E1D8D8D88D8D8B6F6F67EBEDF150504FF0F0F02C00000000 C30095000006FFC08070482...etc } deixe somente Picture.Data = { } depois novamente, com o botão direito do mouse no Código , selecione a opção View as Form ... compile todo o projeto e pronto. ( se a imagem sumir, basta colocar ela novamente ) OBS: voce tambem pode deletar o componente de imagem, compilar todo o projeto, e colocar novamente os componentes de imagem. se ainda tiver algum código assim, mesmo que não tenha imagem nenhuma no projeto, delete esse código e compile novamente o projeto. isso é um bug que tinha na versão do delphi 5, mas que nas versões posteriores foi solucionado. ( o código da figura ia se multiplicando, até o ponto de nem abrir mais o programa, em função da demora na compilação do código do programa ) abraço

https://t.me/DexCommunity OBS: Link não encontrado ... e trava o navegador

a idéia seria essa ... tente ai e veja se o resultado melhora. abraço

tem muito material para pesquisa na internet e com exemplos https://www.google.com.br/?gws_rd=ssl#q=algoritmo+metodo+simplex+matlab abraço

O que não estou conseguindo fazer é como criar x thread diferentes que cada uma executa x rotina diferente e esperar que essas x termine para iniciar mais. ok... a idéia era essa .... então vamos as modificações no código unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type MinhaThread0 = class(TThread) procedure Execute; override; procedure Rotina0; procedure Verifica; procedure Fechar; Private constructor Create(); end; type MinhaThread1 = class(TThread) procedure Execute; override; procedure Rotina1; procedure Verifica; procedure Fechar; Private constructor Create(); end; type MinhaThread2 = class(TThread) procedure Execute; override; procedure Rotina2; procedure Verifica; procedure Fechar; Private constructor Create(); end; type MinhaThread3 = class(TThread) procedure Execute; override; procedure Rotina3; procedure Verifica; procedure Fechar; Private constructor Create(); end; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; Memo3: TMemo; Memo4: TMemo; Memo5: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } Teste0: MinhaThread0; Teste1: MinhaThread1; Teste2: MinhaThread2; Teste3: MinhaThread3; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ procedure MinhaThread0.Execute; Var Sender : TObject; begin synchronize(Verifica); Rotina0; while not Terminated do begin Sleep (5); Terminate; Form1.Memo1.Lines.Append('Thread Finalizada'); synchronize(Fechar); end; end; procedure MinhaThread0.Verifica; begin Form1.Caption := 'TESTE'; end; procedure MinhaThread0.Fechar; begin application.terminate; end; constructor MinhaThread0.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 := tpHigher; { Configura sua prioridade na lista de processos do Sistema operacional. } //Resume; // Inicia o Thread. //Terminate; end; //================================================================================ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ procedure MinhaThread1.Execute; Var Sender : TObject; begin synchronize(Verifica); Rotina1; while not Terminated do begin Sleep (5); Terminate; Form1.Memo2.Lines.Append('Thread Finalizada'); synchronize(Fechar); end; end; procedure MinhaThread1.Verifica; begin Form1.Caption := 'TESTE'; end; procedure MinhaThread1.Fechar; begin application.terminate; end; constructor MinhaThread1.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 := tpHigher; { Configura sua prioridade na lista de processos do Sistema operacional. } //Resume; // Inicia o Thread. //Terminate; end; //================================================================================ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ procedure MinhaThread2.Execute; Var Sender : TObject; begin synchronize(Verifica); Rotina2; while not Terminated do begin Sleep (5); Terminate; Form1.Memo3.Lines.Append('Thread Finalizada'); synchronize(Fechar); end; end; procedure MinhaThread2.Verifica; begin Form1.Caption := 'TESTE'; end; procedure MinhaThread2.Fechar; begin application.terminate; end; constructor MinhaThread2.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 := tpHigher; { Configura sua prioridade na lista de processos do Sistema operacional. } //Resume; // Inicia o Thread. //Terminate; end; //================================================================================ //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ procedure MinhaThread3.Execute; Var Sender : TObject; begin synchronize(Verifica); Rotina3; while not Terminated do begin Sleep (5); Terminate; Form1.Memo4.Lines.Append('Thread Finalizada'); synchronize(Fechar); end; end; procedure MinhaThread3.Verifica; begin Form1.Caption := 'TESTE'; end; procedure MinhaThread3.Fechar; begin application.terminate; end; constructor MinhaThread3.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 := tpHigher; { Configura sua prioridade na lista de processos do Sistema operacional. } //Resume; // Inicia o Thread. //Terminate; end; //================================================================================ procedure MinhaThread0.Rotina0; var i : integer; begin for i := 1 to 100 do begin Form1.Memo1.lines.append(inttostr(i)); //sleep(1); end; end; procedure MinhaThread1.Rotina1; var i : integer; begin for i := 1 to 100 do begin Form1.Memo2.lines.append(inttostr(i)); //sleep(1); end; end; procedure MinhaThread2.Rotina2; var i : integer; begin for i := 1 to 100 do begin Form1.Memo3.lines.append(inttostr(i)); //sleep(1); end; end; procedure MinhaThread3.Rotina3; var i : integer; begin for i := 1 to 100 do begin Form1.Memo4.lines.append(inttostr(i)); //sleep(1); end; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin teste0 := MinhaThread0.Create(); teste0.Execute; teste1 := MinhaThread1.Create(); teste1.Execute; teste2 := MinhaThread2.Create(); teste2.Execute; teste3 := MinhaThread3.Create(); teste3.Execute; for i := 1 to 100 do begin Memo5.lines.append(inttostr(i)); sleep(5); end; end; end. agora voce coloca 5 Memos no Form e um botão .... rode e veja o que acontece isso poderia ser muito mais simplificado, mas quero que voce entenda o processo OBS: se voce colocar no lugar do sleep(1) que esta como comentário, um sleep(5) só para diminuir um pouco o processamento, voce vai notar que ele vai colocar o resultado em um Memo de cada vez. mas o ideal é que todos os threads comecem juntos, sem que precise terminar um para começar o outro. ( mas tem que esperar o ultimo thread terminar, pois certamente haverá diferença de tempo na execução ). abraço

ok...meu amigo, fiz um exemplo bem simples e visual, para mostrar o que acontece procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin teste0 := MinhaThread.Create(); teste0.Execute; teste1 := MinhaThread.Create(); teste1.Execute; teste2 := MinhaThread.Create(); teste2.Execute; teste3 := MinhaThread.Create(); teste3.Execute; for i := 1 to 100 do begin Memo2.lines.append(inttostr(i)); sleep(5); end; end; observe que as threads deverão ser executadas antes que o comando For ( loop ) seja executado, mostrando a sequencia de numeros de 1 a 100 no Memo2 observe tambem que dividi o trabalho em mais de uma thread e aumentei a prioridade de execução da thread para alta quando voce não usa componentes visuais isso é muito mais rápido. espero que consiga entender a lógica do processo codigo completo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type MinhaThread = class(TThread) procedure Execute; override; procedure Verifica; procedure Rotina0; procedure Rotina1; procedure Rotina2; procedure Rotina3; procedure Fechar; Private constructor Create(); end; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } Teste0: MinhaThread; Teste1: MinhaThread; Teste2: MinhaThread; Teste3: MinhaThread; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ procedure MinhaThread.Execute; Var Sender : TObject; begin synchronize(Verifica); synchronize(Rotina0); while not Terminated do begin Sleep (5); Terminate; Form1.Memo1.Lines.Append('Thread Finalizada'); synchronize(Fechar); end; end; procedure MinhaThread.Verifica; begin Form1.Caption := 'TESTE'; end; procedure MinhaThread.Fechar; begin application.terminate; 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 := tpHigher; { Configura sua prioridade na lista de processos do Sistema operacional. } //Resume; // Inicia o Thread. //Terminate; end; //================================================================================ procedure MinhaThread.Rotina0; var i : integer; begin for i := 1 to 100 do begin Form1.Memo1.lines.append(inttostr(i)); sleep(5); end; end; procedure MinhaThread.Rotina1; var i : integer; begin for i := 1 to 100 do begin Form1.Memo1.lines.append(inttostr(i)); sleep(5); end; end; procedure MinhaThread.Rotina2; var i : integer; begin for i := 1 to 100 do begin Form1.Memo1.lines.append(inttostr(i)); sleep(5); end; end; procedure MinhaThread.Rotina3; var i : integer; begin for i := 1 to 100 do begin Form1.Memo1.lines.append(inttostr(i)); sleep(5); end; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin teste0 := MinhaThread.Create(); teste0.Execute; teste1 := MinhaThread.Create(); teste1.Execute; teste2 := MinhaThread.Create(); teste2.Execute; teste3 := MinhaThread.Create(); teste3.Execute; for i := 1 to 100 do begin Memo2.lines.append(inttostr(i)); sleep(5); end; end; end. abraço

Passa todo o código que está na procedure, que voce esta usando para ler o conteúdo da tag.

você disse que aquele print do programa não foi feito em um webbrowser, ok...pode ter sido de algum navegador ( web browser) e não necessariamente de um Twebbrowser do delphi. ( mas tambem poderia ser ) somente em um webbrowser é que voce consegue visualizar a construção de paginas virtuais escritas em linguagem html, php, asp, etc. lembra do código html que foi salvo em um arquivo local ( c:\Temp.html ) ? o código dentro desse arquivo é assim .... escrito em HTML <table id="tb_salas" cellpadding="0" cellspacing="0"> <thead> <tr> <th class="salas"> <a href="bytheme.html?nodeid=6094">Amizade</a> > Amizade virtual<br /> </th> <td><span>Entrar</span></td> <td><span>Espiar</span></td> <td>Pessoas</td> </tr> </thead> <tbody> <tr> <th><a href="goroom.html?nodeid=101125">Amizade virtual (1) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101125"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101125&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101126">Amizade virtual (2) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101126"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101126&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>25</td> </tr> <tr> <th><a href="goroom.html?nodeid=101127">Amizade virtual (3) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101127"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101127&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101128">Amizade virtual (4) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101128"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101128&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101129">Amizade virtual (5) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101129"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101129&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101130">Amizade virtual (6) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101130"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101130&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101131">Amizade virtual (7) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101131"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101131&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101132">Amizade virtual (8) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101132"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101132&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101133">Amizade virtual (9) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101133"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101133&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> <tr> <th><a href="goroom.html?nodeid=101134">Amizade virtual (10) </a></th> <td><span class="bdr_cinza"><a href="goroom.html?nodeid=101134"><img src="http://bp.i.bol.com.br/v11/ico_entrar.png" border="0" title="Entrar na sala" alt="Ícone entrar" /></a></span></td> <td><span class="bdr_cinza"><a href="spy.html?nodeid=101134&type=both&mode=browsing"><img src="http://bp.i.bol.com.br/v11/ico_espiar.png" border="0" title="Espiar sala" alt="Ícone espiar" /></a></span></td> <td>0</td> </tr> </tbody> </table> quando voce joga esse código para um componente TWebBrowser do delphi o resultado será esse .... da mesma forma que, em qualquer outro browser, voce vai ver a mesma tela que a mostrada abaixo. abraço

o código que te passei, foi compilado em delphi 7 e não tem nenhum erro. vou te passar mais alguns exemplos .. espero que possa te ajudar http://www.del123.com/DelphiThreadsExample.zip https://www.thoughtco.com/synchronizing-threads-and-gui-delphi-application-1058159 http://www.delphicorner.f9.co.uk/articles/op4.htm http://www.componentace.com/multi-thread-delphi.htm abraço

veja se voce configurou, como mostra o video

acho que voce ainda não entendeu... o webbrowser é um navegador da internet, assim como o chrome, firefox, internet explorer outros navegadores de internet https://www.tecmundo.com.br/navegador/85466-10-navegadores-alternativos-leves-gratis-robustos.htm Um navegador, também conhecido pelos termos em inglês web browser ou simplesmente browser, é um programa de computador que habilita seus usuários a interagirem com documentos virtuais da Internet, também conhecidos como páginas da web, que podem ser escritas em linguagens como HTML, ASP, PHP, ... etc abraço

com relação ao erro Runtime error 214 at 01B001E. 204 Operação de ponteiro inválida Você obterá isso em vários casos: Se você chamar Dispose ou Freemem com um ponteiro inválido Caso seja chamado New ou GetMem e não há mais memória disponível. O comportamento neste caso depende da configuração de ReturnNilIfGrowHeapFails. Se é Verdadeiro, então Nil é retornado. Se False, então o run error 204 é gerado. o exemplo abaixo, mostra como evitar esse erro: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function MinhaThread(P:Pointer):LongInt; var F :TextFile; I :Integer; begin {Simula um processo Longo... } {Pode ser trocado por qualquer outra rotina que demore muito} AssignFile(F, 'C:TESTE.TXT'); ReWrite(F); While not Form1.CheckBox1.Checked do begin i := i + 1; Writeln(F,'Numero: ' + Inttostr(i)); Sleep(100); end; CloseFile(F); end; {Rotina do Botão} procedure TForm1.Button1Click(Sender: TObject); var hThreadID :THandle; ThreadID :DWord; begin {Cria a Thread, onde @MinhaThread é o Ponteiro da Função criada} hThreadID := CreateThread(nil, 0, @MinhaThread, nil, 0, ThreadID); end; end. Voce tem levar algumas coisas em consideração: Priority := tpLower; /// a prioridade de execução é baixa, nesse caso outros processos rodando no windows terão prioridade acima da thread .... voce pode mudar a prioridade para executar acima de outros processos, inclusive do proprio programa que esta executando a thread quando ela é executada. no exemplo do outro tópico sobre o uso de thread 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; se voce executar 10 threads usando a mesma procedure, elas vão entrar em uma fila ( usando a mesma procedure MinhaThread.Execute) , até que todas sejam terminadas para finalizar. isso vai demandar um tempo ... se esse tempo for maior que o processo de outra rotina no programa, voce não vai ter os retornos que precisa para continuar a execução de uma outra procedure ou função dentro do programa. abraço

a criação de web paginas pode variar na linguagem de programação pode ser html, php, asp, .net ... não sei te precisar com certeza em qual delas isso foi gerado. abraço

não teria como criar Array de Threads ? voce pode criar um array ou multithreads https://stackoverflow.com/questions/23936905/how-to-wait-for-multiple-threads-to-terminate-in-delphi nesses links vai encontrar alguns exemplos de uso https://www.google.com.br/?gws_rd=ssl#q=array+de+threads+delphi abraço

Use uma procedure para limpar a memoria a cada segundo, dentro de um timer exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure ClearMemory; var MainHandle : THandle; begin try MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ; SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ; CloseHandle(MainHandle) ; except end; Application.ProcessMessages; end; procedure TForm1.Timer1Timer(Sender: TObject); begin ClearMemory; end; end. abraço

o forum ficou travado, e não pude te responder. isso não foi feito em um webbrowser, mas poderia ser mostrado nele via codigo html abraço

se voce não sabe, voce pode executar varias threads ao mesmo tempo exemplo { Private declarations } thread0: MinhaThread; thread1: MinhaThread; thread2: MinhaThread; thread3: MinhaThread; thread4: MinhaThread; thread5: MinhaThread; thread6: MinhaThread; thread7: MinhaThread; thread8: MinhaThread; thread9: MinhaThread; etc.... thread100: MinhaThread; com isso voce pode dividir o trabalho, aumentando a velocidade de processamento. abraço

Em 3 anos muita coisa muda.... extamente o que, voce esta querendo fazer ?

voce tem varias formas de fazer isso.... usar o evento OnActive do Form ... ou seja, ao abrir o Form ( Ativa-lo ), voce pode fazer com que o arquivo html seja carregado. pode jogar o código em um botão e fazer o click no botão automaticamente em alguma parte do código Button1.Click; pode usar o Evento OnBeforeNavigate2 do Webbrowser etc... abraço

veja nesses links: https://www.google.com.br/?gws_rd=ssl#q=automação+comercial+python abraço

exemplo Private Sub CmbCalcular_Click() Dim datanasc As Date, idade As Integer datanasc = CDate(MskDataNasc.Mask) idade = CInt((Date - datanasc) / 365) TxtIdade = Str(idade) & "anos" End Sub ou veja https://www.google.com.br/?gws_rd=ssl#q=calcular+idade+vb6 abraço

exemplo: program matriz; var matriz_a : array[1..10, 1..10]of integer; matriz_b : array[1..10, 1..10]of integer; matriz_c : array[1..10, 1..10]of integer; i, j, k, nlin_a, nlin_b, ncol_a, ncol_b : integer; begin writeln('-Ordem da 1ª matriz-'); write('Nº de linhas: '); readln(nlin_a); write('Nº de colunas: '); readln(ncol_a); {=======================================} writeln('-Ordem da 2ª matriz-'); write('Nº de linhas: '); readln(nlin_b); write('Nº de colunas: '); readln(ncol_b); if(ncol_a<>nlin_b)then begin writeln('Não existe a matriz produto!'); end else begin writeln('Valores da 1ª matriz:'); for i:=1 to nlin_a do begin for j:=1 to ncol_a do begin write(i, j, ': '); readln(matriz_a[i, j]); end; end; {=================================================} writeln('Valores da 2ª matriz:'); for i:=1 to nlin_b do begin for j:=1 to ncol_b do begin write(i, j, ': '); readln(matriz_b[i, j]); end; end; {===============================================} for i:=1 to nlin_a do begin for j:=1 to ncol_b do begin matriz_c[i, j]:=0; for k:=1 to ncol_a do matriz_c[i, j]:=matriz_a[i, k]*matriz_b[k, j]+matriz_c[i, j]; end; end; {===============================================} writeln('-Resultado-'); for i:=1 to nlin_a do begin for j:=1 to ncol_b do write(matriz_c[i, j]:5); writeln; end; end; writeln; end. ou https://www.vivaolinux.com.br/scripts/download.php?codigo=5034 http://programandocompascal.blogspot.com.br/2011/01/multiplicacao-de-matriz.html abraço

voce pode enviar o programa junto com o arquivo hml, ou voce pode colocar o código no arquivo .Res do delphi exemplos: https://www.google.com.br/?gws_rd=ssl#q=arquivo+.res+delphi abraço