Massonetto

Salve galera, olha eu aqui denovo pedindo ajuda... Desta vez queria saber como funciona esse método de receber menssagens no client Indy, eu percebi que tem algo a ver com o receiveTimeOut, mas tipo não consegui receber dados pelo client, aqui esta o codigo pra receber : procedure TVideo.Timer2Timer(Sender: TObject); var bmp : array[0..9999] of char ; begin Repeat client.ReceiveBuffer(bmp,sizeof(bmp)); until bmp[0] <> #0 ; end; ele nunca sai do ciclo, e nunca aribui valores, aqui o código para enviar procedure TVideo.Timer1Timer(Sender: TObject); begin buf.Position := 0 ; size := buf.Size ; server.Bindings[0].Send(buf.memory^,buf.Size,1);//não sei pra que esse 1 =\, nem sei se é 1 que vai ai end; Muito obrigado a tudos, agradeço desde já, qualquer informacao será bem vindo, pois já estou muito tempo atrás disso...

Salve pessoal, To prescisando de uma ajuda, a dois dias procuro na web e não achei nada.É o seguinte, tenho uma webcam instalada no meu pc, eu queria pegar as informações que ela transmite pela porta USB.De primeiro tentei as instruções in/out do assembly, mas o Windows diz que essa menssagem é privilegiada, ai tentei uma dll e deu certo, to lendo os bytes dos endereços de Entrada/Saida, mas tem um proplema..Como saber que endereço de memória a cam usa?? Se alguém puder me ajudar.Des de já agradeço.Abraços

Vlw churc deu certim.. t+.. muito obrigado

Olá pessoal, Gostária que vocês me ajudassem numa dúvida cruel aqui, eu to fazendo um aplicativo que abre um monte de janela, e nele tel um form principal. Eu queria que essas janelas fossem independente do form principal, ow seja se eu minimizo o principal , os outros forms não vem junto.Sabe tp estilo MSN??? Se alguém pudesse me ajudar ficaria muito agradecido.Abraços e desde já agradeço

Obrigado deu certim, abraços

Olá pessoal, estou tentando enviar um e-mail via cdonts, mas no hotmail ele vai para o lixo eletronico, alguém sabe como fazer ele ir pra caixa de entrada??Não queria que ele fosse para o lixo eletronico.Desde já agradeço

Grande Churc, vlw cara deu certo ... Abraços e pode fechar

Ow vlw deu +/- certo... o que acontece q ele tah lendo apenas o que tah na position 0 , se eu ponho 1 ele le o que tah lá... não tem um jeito dele ler td de uma só vez?? porque ele tah lendo em pedaços.. Muito obrigado Abraços , espero respostas

vlw cara assim dá certo, mas eu queria via stream pois eu vou envia-la via socket. entende??? Se você souber fazer via Stream seria muito grato. Muito Obrigado, T+

Olá pessoal, estou tentando passar os itens de um FileListBox para outro com o seguinte codigo: procedure TForm1.Button1Click(Sender: TObject); begin arq := TMemoryStream.Create; pasta.Items.SaveToStream(arq); end; procedure TForm1.Button2Click(Sender: TObject); begin pasta2.Items.LoadFromStream(arq); pasta2.Refresh; end; Pasta e pasta2 são os FileListBox. O que acontece é que o pasta2, o que está recebendo o texto, quando eu tento ler da Stream ele fica em branco. Se alguém souber algo que podesse me ajudar ficaria muito grato. Abraços, t+

Deu ertim cara, muito obrigao e abraços...

e ai pessoal, Eu to fazendo um programa e queria saber se tem jeito de converter uma variavel string para Tcolor. Muito Obrigado

Olá pessoal, sou iniciante no delphi e to fazendo um simples código de teste, só pra testa, é o seguinte: procedure TForm1.Button1Click(Sender: TObject); var buf : tmemorystream; buf2 : tmemorystream; texto : array [0..999999] of char; l : integer; begin buf := tmemorystream.Create; buf.LoadFromFile('c:/teste.mp3); buf2 := tmemorystream.Create; l := buf.Read(texto,sizeof(texto)); buf2.Write(texto,sizeof(texto)); buf2.SaveToFile('c:/teste2.mp3'); buf.Free; buf2.Free; end; o que eu faço e copia um arquivo pra memoria e depois salva ele denovo no meu pc, como se tivesse copiando, bom o erro é o seguinte, quando o arquivo é pequeno dá td certo, só q quando ele é maior, uma musica como no caso, ele copia ateh +/- os primeiro 1 mb, depis para , ai a musica fica imcompleta, se eu tento aumenta o númeos de array dá um erro chama "Stack OverFlow". Se alguém poder me ajudar ficaria muito grato... ah e já tentei pelo TFileStream, mas não se o que acontece q ele tb no copia. Desde já agradeço pela atençao!!

cologa?!?!?!?! Valeu cara deu certim , pode fechar... Abraços

E ai pessoal , beleza??? Eu to fazendo um programinha simples de consulta em banco de dados com sql e queria saber como eu faço pra pesquisa não ser exata, por exemplo , tem um cliente caas trado q chama João de Souza , se por acaso eu pesquisar só Suza ele volte resultado , entende o que eu quero dizer , eu quero que não prescise digitar o nome dele mas apenas parte dele... Estou usando paradox e Query.... Obrigado e Abraços

Valeu cara deu certim, brigado Abraços....

Por favor pessoal, é uma duvida muito boba, mas alguém pode me dizer como q chama novamente um procedure, por exemplo, eu tenho a procedure quando cria o form, ai queria q ela se repetia quando eu mandar, obrigado...

Valeu novamente cara deu certo , é sempre você q me ajuda....(heheheheh) abraços

Pessoa não sei se é problema do meu computador, mas tudo primeiro valor de um random dá zero, tipo eu ponho um botao e quando aperta aparece um numero aleatorio, mas o primeiro numero aleatoria é sempre zero, isso é normal ?????

valeu cara, deu certo, muito obrigado e abraços....

é q eu estou fazendo um descriptografador, ai se passar pra outra linha ele não reconhece isso, e descriptografa na mesmo linha, entede???? Obrigado, abraços

muito obrigado pela ajuda, mas não deu certo, se alguém souber e poder me ajudar eu agradeço, abraços

Valeu caera deu certin, mas eu tenho outra duvida, eu to fazendo um criptografador, e tipo, como é o caractere quando ele pula de linha pois meu codigo é assim j := memo1.SelStart; for i := 0 to j do begin with memo1.Lines do begin if GetText[i] = 'a' then memo2.text := memo2.text + 'å'; if GetText[i] = 'b' then memo2.text := memo2.text + 'º'; if GetText[i] = 'c' then memo2.text := memo2.text + 'Ä'; if GetText[i] = 'd' then memo2.text := memo2.text + '¦'; if GetText[i] = 'e' then memo2.text := memo2.text + '+'; e assim por diante, como eu vou saber q ele pulou de linha????? Obrigado

Por favor pessoal, estou fazendo um programa e estou querendo adicionar uma palavrar ao memo, ai fica assim memo1.lines.add('a'), mas quando eu vou adicionar outra ela vai pra linha de baixo do memo, ficando uma palavrar em cada linha, porfavor, alguém sabe como fazer pra deixa-las na mesma linha????? Obrigado

Valeu cara, era isso mesmo q eu queria, mas eu tenho outra duvida, como q eu faço pro windows já reconhece q aquela extensao é do meu programa, tipo toda vez q eu clicar no arquivo salvo, já abre meu programa com ele, se alguém puder me ajudar eu agradeço.....Abraços