Transferencia de arquivo

Delphi

27/07/2003

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


Dhiogo

Dhiogo

Curtidas 0

Respostas

Fórum Vini

Fórum Vini

27/07/2003

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.


GOSTEI 0
Rodrigo_koga

Rodrigo_koga

27/07/2003

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


GOSTEI 0
Fórum Vini

Fórum Vini

27/07/2003

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


GOSTEI 0
POSTAR