Transferencia de arquivo

Question

Alguem sabe como fazer uma transferencia de arquivos tcp/ip usando socks?...

F�rum Vini · Answer

Com socks eu nunca tentei, mas vc pode transferir um FileStream por UDP com um NmUdp(Paleta FastNet);
Exemplo:

procedure TForm1.UdpDataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
  Fs: TFileStream;
begin
  Fs:=TFileStream.Create(�C:\teste.bmp�,fmCreate);//pode ser qualquer tipo de arquivo...
  Udp.ReadStream(Fs);
  Fs.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Fs: TFileStream;
begin
  Fs:=TFileStream.Create(Edit1.Text,fmOpenRead);
  Udp.RemoteHost:=�127.0.0.1�;//aqui vai o ip do destino
  Udp.SendStream(Fs);
  Fs.Free;
end;

No Edit1 vai o nome do arquivo.
N�o esque�a de mudar as propriedades LocalPort e RemotePort!

Espero ter ajudado.

Vinicius.

Rodrigo_koga · Answer

Acho q seu programa esta com algum defeito pois ele naum recebe so envia......

F�rum Vini · Answer

Tem certeza que colocou o RemoteHost como 127.0.0.1?No meu pc funcionou normal......

F�rum Transferencia de arquivo #171788