Duvida Enviar videos via Socket

[jeanlucasxp]

Oi boa noite !

Eu tenho uma duvida , de como enviar um vídeo de um cliente para um servidor em tempo real.
Alguém tem um idéia de como eu começa eu agradeço

[Malware.exe]

Sendbuf e ReceiveBuf!

[matheuscel]

Simples! O Delphi tem uma classe chamada TMemoryStream. Com ela teremos tudo que precisamos. Então trate de declarar uma variável global assim:

ArqTmp : TMemoryStream;
E criá-lo no evento onCreate do Form Assim:
procedure TForm1.FormCreate(Sender: TObject);
begin
ArqTmp := TMemoryStream.Create;
end;
Vale lembrar que estamos primeiro construindo a aplicação cliente, que vai enviar o arquivo.
Com nosso stream construído iremos carregar o arquivo e enviar. Para isso coloquei um button e um opendialog para facilitar a vida, ficou assim:
procedure TForm1.Button2Click(Sender: TObject)

Var Tamanho : Int64;
begin
if OpenDialog1.Execute then
Begin
ArqTmp.Clear; // Limpo o stream
ArqTmp.LoadFromFile(OpenDialog1.FileName); // Carrego
Tamanho := ArqTmp.Size; // Gravo o tamanho em uma variavel
ClientSocket1.Socket.SendBuf(Tamanho,SizeOf(Int64) ); // Envio o inteiro
ClientSocket1.Socket.SendBuf(ArqTmp.Memory^,ArqTmp .Size); // vai arquivo…
end;
end;
Você deve observar que eu enviei um inteiro com o tamanho do arquivo antes de enviar o arquivo. Porque??? – Por que lá na aplicação servidora, quando a gente for receber o arquiv,o temos que saber qual o tamanho do arquivo para poder parar e gravar o arquivo. Entendido?
Pronto basicamente é isso, a aplicação cliente é mais simples.

Figura1. Aplicação Cliente
Agora é receber.
Para receber a idéia é: Primeiro vem os bytes com o tamanho do arquivo, os bytes seguintes são o próprio arquivo. Então vou guardando ate chegar todos os bytes do arquivo então eu gravo ele no meu HD.
Qualquer informação que chegue no servidor ele “dispara” o evento OnClientRead e é lá que iremos receber nosso arquivinho :-) com a ajuda da função
Socket.ReceiveBuf(var Buf; Count : integer);
Aqui passamos também endereço e a quantidade de bytes que iremos escrever. Para saber quantos bytes iremos escrever vamos utilizar a função:
Socket.ReceiveLength;
E o endereço vai estar no ponteiro que vamos criar. Aqui também iremos criar um TMemoryStream e iremos gravar o que lermos através do ReceiveBuf. O evento completo ficou assim:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var TamBuffer : integer;
Paux : pointer;
begin
if not RecebendoArquivo then
Begin
Socket.ReceiveBuf(TamanhoArquivo,sizeof(Int64));
RecebendoArquivo := True;
if Arquivo = nil then
Arquivo := TMemoryStream.Create;
ProgressBar1.Max := TamanhoArquivo;
end
else
Begin
TamBuffer := Socket.ReceiveLength;
GetMem(PAux,TamBuffer);
Socket.ReceiveBuf(PAux^,TamBuffer);
Arquivo.Write(PAux^,TamBuffer);
Dispose(PAux);
ProgressBar1.Position := Arquivo.Size;
if TamanhoArquivo = Arquivo.Size then
Begin
RecebendoArquivo := False;
ShowMessage ('Transferencia completa');
If SaveDialog1.Execute then
Arquivo.SaveToFile(SaveDialog1.FileName);
Arquivo.Free;
Arquivo := Nil;
ProgressBar1.Position := ProgressBar1.Min;
end;
end;
end;
Observe como é simples. Coloquei um ProgressBar para ficar mais chique, e é legal quando se tem arquivos grandes. E coloquei também um SaveDialog para que se informe onde vai ser salvo o arquivo e o nome. As minhas variáveis globais ficaram assim:
var
Form1: TForm1;
TamanhoArquivo : Int64;
Arquivo : TMemoryStream;
RecebendoArquivo : Boolean;
E no onCreate do form iniciei o RecebendoArquivo como false.

Figura2. Aplicação Servidora.

Creditos Matheus Imail: matheus cel @live.com