Ir para conteúdo
Fórum Script Brasil

sem ideia p/ nick

Membros
  • Total de itens

    892
  • Registro em

  • Última visita

Tudo que sem ideia p/ nick postou

  1. e o que estou fazendo atualmente... confiando ate agora tudo certo!
  2. tipo a tarifa do SKYPE e mais barata que o normal, da intelig embratel ? seguinte : como eles fazem isso? isso e voz sobre ip não e mesmo? eles passam a voz pela internet. então isso sairia a um preço minimo. agora como fazem para a ligaçao cai no meu tel????? como funciona isso ? alguém sabe explicar?
  3. ele deveria fazer automaticamente....olhei la não apontou nada não
  4. já existe atualizaçoes criticas depois do SP2??? eu escutei dizer mais o windows não identifica nada. acho que e kaoo alguém sabe responder?
  5. cara voce quer atualizar a BIOS por que ? aconselhavel ate pode ser dependendo da sua necessidade.
  6. muito estranho esse erro ae isso leva mo jeitao mesmo de spy... pow isso e foda. muito chato essas diversas pragas que os caras inventam
  7. tocar som uses MMSystem sndPlaySound('ae.wav',snd_sync)
  8. reproduz tudo que voce escreve, **so funciona no XP** ele usa a voz TIO SAM que esta configurado no painel de controle. uses ComObj procedure TForm1.Button1Click(Sender: TObject); var voz: OLEVariant; begin voz := CreateOLEObject ('SAPI.SpVoice'); voz.Speak ('Hello World!', 0); end;
  9. Funçao que retorna o seu ip: uses winsock function GetLocalIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do begin result:=StrPas(inet_ntoa(pptr^[I]^)); result := StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end;
  10. muito ROX esse site... mais na maioria dos casos esse progs que removem essas pragas e a reinstalaçao do sitema operacional resolvem mais quando precisar eu vou buscar la pra ver se funciona mesmo....
  11. isso ae... se voce der uma pesquisada ae no forum eu tive probs com isso tambem eu tentava por o XP no C: 98 no D: ae quando eu segui as dicas desses caras tudo deu certo hoje eu tenho no C: o 98 (e do mais antigo pro mais novo) e no d: o xp quando inicia ele tem uma tela de boot que no XP voce pode configurar la no painel de controle/sistema/avançado/inicializaçao e recuperaçao. blzinha? isso ae espero ter ajudado qualquer coisa posta ae
  12. olha sobre o ip voces não teria prob algum concordo com o pessoal. agora me responda uma coisa "corposemalma" para que server o /h???
  13. pow oh nada haver com a duvida principal do tópico mais eu não sabia ao certo sobre o Windows OEM, valeu mesmo ae. então eu posso ter um OEM como eu faço para gerar uma nova licença... ele não instala em outra maquina e isso ?
  14. eu tentei fazer um chat, no delphi, simples a comunicaçao e tentei usar essa function não deu certo ele repete o texto que mando 4 vezes so o servidor consegue enviar ...xi.. deu rolo....
  15. cara o prob e bem mais simples que tudo isso ae citado acima. eu hoje <17/11> formatei o pc ae fui por o cd pow.. não instalou eu fiquei bolado, então eu comecei a limpar o cd, mais limpar de todas as formas, limpar com pano com isso com akilo, xi fiz muita coisa ..... ae o cd funcionou eu acho que tava SUJO ! 0.o putz ninguém merece isso ^^ depois disso me senti ate "NOOB" fala seriu eu fiz maior caso em torno de um cd sujo quase que não posto isso aqui. (podem rir foi vacilo meu)
  16. < gostaria de relatar que os probs com codecs e com audio cam e tudo mais estao resolvidos > so foi pegar denovo formatando o pc
  17. mais cara não entendi ao certo o que voce propos, eu quero que o meu CD tenha boot eu li la na pagina da MS que são 6 disketes com drivers para o Cdroom funcionar e vou precisar do cd do windows so que o que eu quero e exatamente isso um cd que inicie no dos e va direto para a instalaçao do windows... (via dos)
  18. cara eu vou explicar mais ou menos, eu andei fazendo um chat por voz, em delphi, usando Sokets ae um colega meu achou esse codigo na net mais ele não saca nada. so achou tal, me passou, eu entendi a logica o negocio. tipo: ele pega o texto do Memo, separa em palavras tira os espaços, verifica palavra por palavra de acordo com um banco de dados paradox (2 colunas ingles e portugues) e traduz de forma bruta. entendeu ? ele não traduz expreçoes... eu queria implementar isso no meu projeto de feira de ciencias, para ser entregue amanha, mais não deu certo ate tentei tal mais não deu certo talvez eu descole um tempo extra para fazer ae volto aki para encher o saco de voces ? eheheh beleza? espero ter respondido ae ... valeu ae a ajuda brigadao fui
  19. esqueci o nick dele aki no forum mais pow valeu brother... olhem so a resp. var Form1: TForm1; CO, CD : String; implementation {$R *.DFM} Function TForm1.quebratexto(Texto:WideString):TStringList; Var aux : TStringList; I,PI,PU : Cardinal; Begin aux:= TStringList.Create; PI := 0; PU := 0; Try Try Texto:= Trim(Texto); For I:= 0 To Length(Texto) Do Begin PI:= PU; If Texto[I] = ' ' Then Begin PU:= I; aux.Add(Trim(Copy(Texto,PI,PU-PI))); End; End; aux.Add(Trim(Copy(Texto,PI,Length(Texto)-PI+1))); Finally Result:= Aux; End; Except Raise; End; End; Function TForm1.traduzir(Texto:WideString):WideString; Var I : Cardinal; aux : TStringList; Teste : String; Begin aux:= TStringList.Create; aux := quebratexto(Texto); Try Try table2.indexfieldnames:='portugues'; For I:= 0 To aux.Count - 1 Do Begin Table2.FindKey([aux.Strings[i]]); //Memo2.Lines.Add(Table1.Fields[2].AsString); Teste := Teste + ' ' + table2.fieldbyname('ingles').asstring; End; memo2.lines.add(Teste); Finally aux.Free; End; Except Raise; End; End; procedure TForm1.FormCreate(Sender: TObject); begin table2.open; If RadioGroup1.ItemIndex = 0 Then Begin CO := 'ingles'; CD:= 'portugues'; End Else Begin CO := 'portugues'; CD:= 'ingles'; End; //Table2.IndexName:= CO; end; procedure TForm1.Button1Click(Sender: TObject); begin traduzir(memo1.Text); end; end.
  20. fala galera beleza? seguinte queru fazer uma paradex aki tipo: eu quero traduzir as frases, eu vi la no tópico do PHMELHOR eu dei uma lida mais achei esse codigo aki: Function TForm1.quebratexto(Texto:WideString):TStringList; Var aux : TStringList; I,PI,PU : Cardinal; Begin aux:= TStringList.Create; PI := 0; PU := 0; Try Try Texto:= Trim(Texto); For I:= 0 To Length(Texto) Do Begin PI:= PU; If Texto[I] = ' ' Then Begin PU:= I; aux.Add(Trim(Copy(Texto,PI,PU-PI))); End; End; aux.Add(Trim(Copy(Texto,PI,Length(Texto)-PI+1))); Finally Result:= Aux; End; Except Raise; End; End; Function TForm1.traduzir(Texto:WideString):WideString; Var I : Cardinal; aux : TStringList; Begin aux:= TStringList.Create; aux := quebratexto(Texto); Try Try table2.indexfieldnames:='portugues'; For I:= 0 To aux.Count - 1 Do Begin Table2.FindKey([aux.Strings[i]]); //Memo2.Lines.Add(Table1.Fields[2].AsString); memo2.lines.add(table2.fieldbyname('ingles').asstring); End; Finally aux.Free; End; Except Raise; End; End; procedure TForm1.FormCreate(Sender: TObject); begin table2.open; If RadioGroup1.ItemIndex = 0 Then Begin CO := 'ingles'; CD:= 'portugues'; End Else Begin CO := 'portugues'; CD:= 'ingles'; End; //Table2.IndexName:= CO; end; procedure TForm1.Button1Click(Sender: TObject); begin traduzir(memo1.Text); end; agora esse codigo aki ele quebra a frase.... quando traduz deixa as palavras uma abaixo da outra, não sakei ao certo como ele funciona voces podem explicar ...?
  21. cara eu to fazendo isso eu fui reinstalar ae vi que meu cd não tem boot pow ferrou tudo eu to fazendo o sequinte copiei as paradas pro C: (98) ae formatei pelo windows mesmo, sabe botao direito em cima>> formatar... então.... ae ta formatando agora..... tem como por um boot nele? eu tento abrir o SETUP.exe ae ddiz que não e um aplicativo msdos....
  22. minha placa de som e aquela la da foto, esta instalada corretamente.... pode cre que sim, eu sou enrrolado mais posso te afirmar com toda certeza que esta instalado a foto mostra ixu, mais tipo eu desistalei o SP2 (por desencargo de conciencia) advinha o XP nem inicia mais cara foda isso foda... eu tenho 2 hds e tudo mais então entrei no 98 e como o xp usava FAT32 então foi tranks graças a Deus, beleza então eu to avisando ae que vou fazer um backup das paradas principais e seguinte voces acham que so reinstalaro WINDOWS vai resolver ??? (to pra fazer mais queria saber antes se to indo pelo caminho certu ae .... o que voces acham?)
  23. não acredito que seja o SP2 eu o tinha a algum tempo e nunca tive probs com ele.... não desse tipo.
  24. cara acabei de fazer isso <22:25hr> não deu certo não !!!
  25. olha eu ando numa pressa e numa mare de azar enorme galera... seguinte to cum prob novo aki no pc. esse e meio complicado. seguinte primeiro se liguem nas caracteristicas: +eu tenho 2 hds, um com 98 e outro com XP. ambos usam fat32 para eu poder trocar uns arquivos, na verdade eu uso 98 so por um scaner e um jogo de corrida que não pega no xp ¬¬ + no xp eu tenho esses probs ae de codec (que ainda quero resolver) ah meu xp tem sp2, ta atualizado. achu que e so qualquer duvida ae pergunta .... beleza? agora vamos ao prob. olhem essa img ae abaix: ERRO _ 01 de acordo com ela o drive de som, esta instalado corretamente, a minha placa e essa mesmo, o nome dela ae ta certu, no 98 o som toca numa boa, agora no xp fica de zoa com minha cara, no 98 a CAM tambem funciona no xp ..... então esse e mais um prob..... e tem mais nesse feriadao ae eu espetei uma plca de som aki que foi um porre pra instalar o drive dela era um Trindent NX sei la o qe ..... depois dessa praga que deu esse monte de paus aki ... alguém pode me ajudar? oh desde já valeu a paciencia... aguardo resposta
×
×
  • Criar Novo...