Jhonas

DTX CableAnalyzer da Fluke é um aparelho caro ... na empresa que eu trabalhava tinha um ... e era muito facil achar o problema com ele na maioria das vezes era detectado mal contado do pino ou pares invertidos OBS: diferença entre o hub e o swith é que o switch é mais inteligente e mais seguro que um hub. Isso acontece por que o hub quando recebe um pacote de informações para enviar até alguma máquina da rede ele simplesmente envia este pacote para todas em um processo conhecido como “broadcast”. Com isso, todas as máquinas da rede recebem aquele pacote, mesmo que ele não seja pra elas. Elas recebem e analisam o pacote e então determinam se devem pegar aquela informação ou descartá-la. Por causa do broadcast um hub gera dois problemas: - excesso de tráfego na rede, o que baixa o desempenho dela; - falhas de segurança, afinal de contas qualquer máquina conectada naquela rede recebe qualquer pacote de informação que venha a trafegar pelos cabos, isso na mão de um hacker é uma maravilha… Já o switch possui uma tabela interna onde ele armazena a informação de onde está conectada cada máquina. Com isso ele sabe que um determinado pacote de dados deve ser enviado somente para a máquina X. Deste modo ele reduz o tráfego na rede e aumenta a segurança. O switch é capaz de fazer isso pois ele analisa cada pacote de dados e extrai deles a informação sobre o destinatário daquele pacote. Conclusão, switches não compartilham a conexão de rede diretamente. Mas eles melhoram o desempenho e a segurança da rede, e são sempre uma opção melhor que os hubs mais informações: http://www.hardware.com.br/tutoriais/hubs-...ges-roteadores/ abraço

veja http://translate.google.com.br/translate?h...t.com/kb/840001 abraço

O switch pode ter problema de configuração ou um problema de hardware. veja: isso mostra que não é problema de cabo e nem de conector desse cabo então resta o problema na entrada de conexão do switch ou seja na porta desse switch ... ( se as outras portas estiverem funcionando ) experimente trocar o cabo de porta para ver se o problema permanece ... se sim, então o problema esta no cabo ou no conector ... se não , então é problema na porta do switch OBS: se tiver outro switch disponivel, troque para fazer um teste abraço

Veja: http://www.firebirdsql.org/manual/pt_br/fb...tion-pt_br.html procure por GSEC http://www.firebirdsql.org/pdfmanual/pt_br...Utilitarios.pdf http://www.firebirdsql.org/manual/pt_br/fb...word-pt_br.html abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=cronometro abraço

veja http://scriptbrasil.com.br/forum/index.php...mp;#entry539505 ou http://scriptbrasil.com.br/forum/index.php...hlite=processos abraço

procure sempre ser detalhista na explicação, para poder obter uma resposta .. ok ? em qual evento voce esta usando o comando ?

Erro: Operação com ponto flutuante inválido pode procurar que deve estar faltando instalar algum componente não nativo do delphi, ou alguma dcu que voce deve estar usando no programa se voce estiver usando o delphi 7, a instalação do quick report não é feita juntamente com o delphi, voce tem que instalar abraço

ERRO: recurso indefinido COMANDO OFENDENDO: ache recurso solução: Vá em Iniciar > Configurações > Impressoras Clique com o botão direito do mouse na impressora PDF Vá em Propriedades > Avançado > clique em Padrões de impressão ... clique na aba > Layout e depois clique no botão <Avançado...> Vá em Opções de documento e clique no (+) de Opções PostScript configure os seguintes itens: Opção de saída PostScript: Otimizando velocidade Opção para download de fonte TrueType: Automatico Nível de liguagem PostSript: 3 Enviar identificador de err PostScript: Sim Saída espelhada: Não ============================================================ Caso ainda não resolva, veja na Aba ( Configurações PDF da Adobe ) abraço

quando voce sai da grid com TAB o foco vai para o proximo componente qu estiver na sequencia do Tab Order... ou no evento OnExit da grid voce especifica para onde o foco deve ir exemplo: Edit10.SetFocus; DBEdit5.SetFocus; ComboBox3.SetFocus; .... etc abraço

se voce tivesse dito isso logo no primeiro post a resposta seria outra O TRichview funciona igual o Word, o não é texto puro, contem caracteres especiais junto com o texto nesse caso a maneira de usar é atraves de um DBMemo, onde o conteudo do DBMemo é transferido para o TRichview se é assim que quer usar... sem problema abraço

Se não me engano, esse erro é causado por drive corrompido do DirectX... se voce usar um arquivo mp3 esse erro não acontece. caso não consiga solucionar esse problema com o componente MediaPlayer tente outros componentes no primeiro link tem o Audio2 entre outros http://www.edudelphipage.com.br/componente...hp?categoria=20 outros componentes http://www.torry.net/pages.php?id=167 abraço

segue um exemplo que voce pode alterar para conseguir fazer o que deseja abraço

SELECT NUM, SERVICOS FROM Ordemsvc WHERE SERVICOS LIKE '%PAINEL%' uso esse código no Paradox, Interbase e Mysql ... funciona direitinho obs: o firebird é parecido com o interbase experimente TEXTO1 BLOB SUB_TYPE 1 SEGMENT SIZE 1 CHARACTER SET WIN1252 ou TEXTO1 BLOB SUB_TYPE 1 SEGMENT SIZE 1 CHARACTER SET WIN1252 COLLATE PXW_INTL850 abraço

exemplo: unit Mail; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; edtPara: TEdit; Label2: TLabel; Label3: TLabel; edtCC: TEdit; edtCCO: TEdit; cbxConfirmaLeitura: TCheckBox; btnEnviar: TButton; Label4: TLabel; edtAssunto: TEdit; IdSMTP: TIdSMTP; IdMessage: TIdMessage; btnAnexar: TButton; mmAnexos: TMemo; odAnexos: TOpenDialog; cbxPrioridade: TComboBox; Label5: TLabel; Label6: TLabel; mmMensagem: TMemo; procedure btnAnexarClick(Sender: TObject); procedure btnEnviarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnEnviarClick(Sender: TObject); Var xAnexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.CCList.EMailAddresses := edtCC.Text; IdMessage.BccList.EMailAddresses := edtCCO.Text; //Trata a Prioridade da mensagem Case cbxPrioridade.ItemIndex Of 0 : IdMessage.Priority := mpHigh; 1 : IdMessage.Priority := mpNormal; 2 : IdMessage.Priority := mpLow; End; IdMessage.Subject := edtAssunto.Text; IdMessage.Body.Text := mmMensagem.Lines.Text; if cbxConfirmaLeitura.Checked Then idmessage.ReceiptRecipient.Text := IDMessage.From.Text; // Auto Resposta //Tratando os arquivos anexos For xAnexo := 0 to mmAnexos.Lines.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(mmAnexos.Lines.Strings[xAnexo])); IdSMTP.Connect; Try IdSMTP.Send(IdMessage); Finally IdSMTP.Disconnect; Showmessage('Enviado'); End; end; procedure TForm1.btnAnexarClick(Sender: TObject); begin //Insere o nome do arquivo no memo mmAnexos if odAnexos.Execute Then mmAnexos.Lines.Add(odAnexos.FileName); end; end. OBS: faça uma comparação com o seu código abraço

é sempre mais facil alguém responder se voce postar o código abraço

veja http://scriptbrasil.com.br/forum/index.php...st&p=619935 abraço

Já pesquisou no forum ? http://scriptbrasil.com.br/forum/index.php...ivo+de+recursos abraço

voce esta usando o componente MediaPlayer ?

exemplo: SELECT NUM, SERVICOS FROM Ordemsvc WHERE SERVICOS LIKE '%PAINEL%' OBS: o campo SERVICOS é do tipo Blob ... a palavra procurada é PAINEL funciona certinho abraço

Erro de protocolo: Nome HELO invalido ( Procure RFC2821 4.1.1.1 ) http://tools.ietf.org/html/rfc2821 abraço

Já que voce não entendeu o código do link, então veja esse exemplo: procedure TForm1.Button1Click(Sender: TObject); var btn : TButton; begin btn := Sender as TButton; ShowMessage(btn.Caption); ShowMessage(IntToStr(btn.Left)); btn.OnClick(Sender); end; se voce entender esse, voce resolve o seu problema abraço

voce precisa se esforçar mais para aprender lógica de programação unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Button1: TButton; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Edit18: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; valores : array[1..10] of string; palavras : array[1..10] of string; banco : string; s, s1 : string; t : string; const d : array[0..5] of string = ('qualquercoisa', 'descriçãoaqui', 'outrainformação', 'maisuma', 'todasdiferente', 'valor1valor2valor3'); // aqui tentei listar as possiveis descrições de crédito implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i, j, X , n, k : integer; begin x := 0; k := 0; for i := k to Memo1.Lines.Count-1 do begin s := Memo1.Lines.Strings[k]; s1 := s; IF Pos('BancoCódigo', S) > 0 THEN begin edit1.text := 'BancoCódigo'; banco := copy(Memo1.Lines.Strings[k+1],1,11); // Pegar o Banco já que ele esta em uma mesma linha sempre. edit2.text := banco; inc(k); inc(k); continue; end; for j := 0 to 5 do // valores de d begin IF Pos(d[j], S) > 0 THEN begin x := x + 1; palavras[x] := copy(s,1,Pos(d[j], S)+length(d[j])-1); // pega a palavra encontrada delete(S,1,Pos(d[j], S)+length(d[j])-1); valores[x] := s; if trim(s1) = 'valor1valor2valor3' then begin inc(k); s1:= Memo1.Lines.Strings[k]; while Pos(',', S1) > 0 do begin x := x + 1; valores[x] := copy(s1,1,Pos(',', S1)+2); // SEPARAR OS VALORES S1[Pos(',', S1)] := '#'; delete(S1,1,Pos('#', S1)+2); end; end; end; end; inc(k); end; for x := 0 to 10 do begin case x of 1 : begin edit3.text := palavras[x]; edit4.text := valores[x] end; 2 : begin edit5.text := palavras[x]; edit6.text := valores[x] end; 3 : begin edit7.text := palavras[x]; edit8.text := valores[x] end; 4 : begin edit9.text := palavras[x]; edit10.text := valores[x] end; 5 : begin edit11.text := palavras[x]; edit12.text := valores[x] end; 6 : begin edit13.text := palavras[x]; edit14.text := valores[x] end; 7 : begin edit15.text := palavras[x]; edit16.text := valores[x] end; 8 : begin edit17.text := palavras[x]; edit18.text := valores[x] end; end; end; end; end. abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); begin // Carregar estrutura e conteudo da query ou ClientDataSet1 // para o RxMemoryData1 RxMemoryData1.LoadFromDataSet(ClientDataSet1,0,lmCopy); end; procedure TForm1.Button2Click(Sender: TObject); begin // Considere o RxMemoryData1 como se fosse uma query ou ClientDataSet1 // os comandos são os mesmos RxMemoryData1.Active := true; RxMemoryData1.Last; RxMemoryData1.Append; RxMemoryData1.Edit; end; abraço

exemplo: http://www.techtips.com.br/programacao/ass...aplicao-delphi/ abraço