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...
Pergunta
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...
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.