-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
mostre a parte do código que voce usa para ler o Txt que é atribuido a variavel HLine abraço
-
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
-
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
-
Como deletar alguns arquivos DLLS da pasta system32
pergunta respondeu ao Paulo Henrique de Assis de Jhonas em Delphi, Kylix
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 -
e qual é o erro ? sempre coloque o erro como ele aparece na sua tela abraço
-
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
-
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
-
[RESOLVIDO] Controle de formulários (form
pergunta respondeu ao pimpocvl007 de Jhonas em Delphi, Kylix
sim ... por isso dependendo da aplicação, é mais vantagem trabalhar com Form < fsNormal > abraço -
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
-
veja esse post http://scriptbrasil.com.br/forum/index.php...;hl=login+senha abraço
-
(Resolvido) Minimizar aplicação = ficar em stand-by
pergunta respondeu ao Mario Henrique de Jhonas em Delphi, Kylix
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 -
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
-
JvAVICapture1 COMPONENTE DE VIDEO NO DELPHI
pergunta respondeu ao Alexandre_Rangel de Jhonas em Delphi, Kylix
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 -
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
-
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
-
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
-
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
-
Um Feliz Natal e Feliz Ano Novo a todos os amigos e membros do Forum Delphi Abraços
-
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
-
veja http://www.google.com.br/search?q=zquery+d...aqi=g1&aql= abraço
-
experimente fazer um reset no seu roteador ( reestabelecer as configurações de fabrica ) e depois configure novamente abraço
-
procure por FindDialog no forum http://scriptbrasil.com.br/forum/index.php...lite=finddialog abraço
-
Relatorio QR lendo conteudo arquivo texto
pergunta respondeu ao Alexandre_Rangel de Jhonas em Delphi, Kylix
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 -
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
-
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