Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. mostre a parte do código que voce usa para ler o Txt que é atribuido a variavel HLine abraço
  2. infelizmente isso tem haver com o tipo de processador em sua maquina... use o Lan Speed Test para fazer um teste em sua máquina http://download.cnet.com/LAN-Speed-Test/30...4-10908738.html OBS: quanto menor o tempo gasto para o teste, mais rápido é o processador exemplo: se o tempo de escrita for <= 3 e o tempo de leitura <= 9, não vai haver paradas no delphi faça o teste para o Filesize in Megabytes = 100 abraço
  3. Sniffer - Um sniffer é um programa que consegue capturar todo o tráfego que passa em um segmento de uma rede http://www.invasao.com.br/coluna-marcos-17.htm Primeiro baixa esse arquivo, que é a instalação do WinPCap. http://www.winpcap.org/install/bin/WinPcap_4_1_2.exe Aqui os .PAS que deve usar: http://home1.stofanet.dk/nitezhifter/files/Delphi%20Pcap.zip Agora um exemplo: Código: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Zniffer, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; ComboBox1: TComboBox; Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure ComboBox1Change(Sender: TObject); private { Private declarations } FZniffer : TZniffer; procedure ReadPacket(Data:pointer;recvbytes:Word); public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Fzniffer := TZniffer.create; Fzniffer.OnPacket := ReadPacket; Combobox1.Items.assign(Fzniffer.Adapters); Combobox1.text:='< SELECT ADAPTER >'; end; procedure TForm1.ComboBox1Change(Sender: TObject); var E:string; begin if Fzniffer.Snooping then if not Fzniffer.Deactivate(E) then raise Exception.create(e); Fzniffer.AdapterIndex := COmbobox1.ItemIndex; if not Fzniffer.Activate(e) then raise Exception.create(e); end; procedure TForm1.ReadPacket(Data: pointer; recvbytes: Word); begin memo1.Lines.add('Packet snooped. Bytes: '+inttostr(recvbytes) ); end; end. Fonte: http://forum.devmedia.com.br/viewtopic.php...3df0fe395a755c4 outro exemplo: http://www.experts-exchange.com/Programmin...Q_22862762.html abraço
  4. procedure TForm1.Button1Click(Sender: TObject); begin DeleteFile(pchar('C:\Windows\System32\Teste.dll')); end; O comando está correto, somente não funcionará se a dll estiver em uso, ou não estiver presente no diretório especificado e neste caso não haverá nenhuma mensagem abraço
  5. e qual é o erro ? sempre coloque o erro como ele aparece na sua tela abraço
  6. Interbase e Firebird utilizam a mesma porta, mas não os mesmos protocolos zcnctnPrincipal.Port := 3050; zcnctnPrincipal.Protocol := 'interbase-6'; verifique se é firebird-1.5 veja tambem http://firebirdpt.wordpress.com/category/t...e-dicas/page/2/ http://www.edudelphipage.com.br/artigos/an...inatica-monitor abraço
  7. veja http://gustavohenriquephn.wordpress.com/20...o-na-em-tabela/ ou http://www.google.com.br/search?hl=pt-BR&a...delphi&sa=X abraço
  8. sim ... por isso dependendo da aplicação, é mais vantagem trabalhar com Form < fsNormal > abraço
  9. Jhonas

    XML da NF-e

    Faça uma pesquisa o Forum http://scriptbrasil.com.br/forum/index.php...mp;highlite=xml OBS: Se não enocntrar o que procura, disponibilize um arquivo xml da NF-e abraço
  10. Jhonas

    saida de estoque

    veja esse post http://scriptbrasil.com.br/forum/index.php...;hl=login+senha abraço
  11. para fazer isso eu usaria o try minimizer http://www.google.com.br/search?hl=pt-BR&a...sa=N&tab=iw ao minimizar a aplicação voce pode parar o timer e ao restaurar voce pode reiniciar o timer abraço
  12. Erro de violação de endereço de memória... ocorre quando uma posição de memoria já esta preenchida com um valor e o programa tenta escrever nesse endereço no teste que fiz aqui com o código está funcionando corretamente ... faça um debug usando o break point abraço
  13. veja esses posts sobre o assunto http://scriptbrasil.com.br/forum/index.php...highlite=webcam em um deles vai encontrar a maneira não só de tirar uma foto da webcam, mas tambem como salvar um video abraço
  14. A falha conforme o windows é no DHCP do ROTEADOR DHCP Settings DHCP Server: ( ) Disable (x) Enable Start IP Address: 192.170.1.100 End IP Address: 192.170.1.199 Address Lease Time: 120 - minutes (1~2880 minutes, the default value is 120) Default Gateway: (optional) ou 192.170.1.1 Default Domain: (optional) Primary DNS: (optional) Secondary DNS: (optional) OBS: Isso é apenas um exemplo ... se for necessario use Address Reservation - Endereços de Reserva adicione todos os endereços nessa área abraço
  15. Meu provedor é via Rádio, recebo em uma Placa de Rede USB creio que em função do seu penúltimo post, voce não conseguiu efetuar a configuração do seu Roteador ... experimente uma placa de rede com conector RJ45 abraço
  16. Jhonas

    T-link com NAT

    procure nas configurações do TP-Link a opção < IP & MAC Binding > depois clique em Binding Settings clique no botão < Add New > digite o MAC Address e o IP Address ... para finalizar clique no botão < Save > abraço
  17. verifique no site do fabricante, mas creio que voce teria que trocar a placa de video, pois não há espaço fisico para colocar uma segunda placa abraço
  18. Jhonas

    FELIZ NATAL

    Um Feliz Natal e Feliz Ano Novo a todos os amigos e membros do Forum Delphi Abraços
  19. Amigo, essa idéia eu usaria se o servidor remoto estivesse em um provedor da internet tenho uma configuração (uma rede interna com um servidor e 2 terminais) em um cliente. esse cliente tem um arquivo de produtos com mais de 100 mil itens, o ganho de performance nesse caso consegui usando table com indices que deixa a pesquisa em todo o arquivo muito rápida. entretanto, para certos tipos de pesquisa, usei querys e limitei o trafego em rede de apenas 100 a 500 registros por vez, o que tornou a rede mais rapida para entender melhor veja http://somainfo.sites.uol.com.br/altqry/altqry.htm abraço
  20. Jhonas

    saida de estoque

    veja http://www.google.com.br/search?q=zquery+d...aqi=g1&aql= abraço
  21. experimente fazer um reset no seu roteador ( reestabelecer as configurações de fabrica ) e depois configure novamente abraço
  22. procure por FindDialog no forum http://scriptbrasil.com.br/forum/index.php...lite=finddialog abraço
  23. QRMemo1.Lines.LoadFromFile('c:\teste.txt') funciona sim ... basta voce colocar o componente QRMemo dentro de uma banda Detail se colocar fora dessa banda, voce deve esticar o QRMemo para que ele possa mostrar o texto abraço
  24. o ZUpdateSQL funciona como se fosse uma query com uma instrução sql dentro exemplo: inserir um registro com o componente updatesql Código INSERT INTO ":Senior:A001CLI" (CodCli, NomCli) VALUES ( 1, 'Paulo' http://scriptbrasil.com.br/forum/index.php...st&p=163745 ABRAÇO
  25. Jhonas

    saida de estoque

    se voce estiver trabalhando com Table sim ... se estiver trabalhando com querys, voce pode usar Select eu prefiro usar select dentro de um for ... num arquivo de 100.000 registros a pesquisa fica rápida, mas existem outras maneiras abraço
×
×
  • Criar Novo...