Transferencia de Archivos x Sockets

[[kurono]]

utilizando el componente SocketServer en el evento OnclientRead escribe este codigo

Edit1.Text:=Socket.ReceiveText;

deberas asignarle el mismo puerto que en la parte cliente

[ØnLy]

Ehh , esa seria la manera de recivir texto mediante el socket( Cosa que se)
pero yo hablo de recibir un string con la data de un archivo y desde delphi , recivirla y crear un nuevo archivo co ella........

alo comp

var
Data : string;

begin

data : socket.ReceiveText;

WriteFile( Data ) // <<< Esta parte es la que mas me confunde

end.

No se si me explique bien , pero espero que alguin me ayude!

[ecfisa]

Empezado por ØnLy

Ehh , esa seria la manera de recivir texto mediante el socket( Cosa que se)
pero yo hablo de recibir un string con la data de un archivo y desde delphi , recivirla y crear un nuevo archivo co ella........

alo comp

var
Data : string;

begin

data : socket.ReceiveText;

WriteFile( Data ) // <<< Esta parte es la que mas me confunde

end.

No se si me explique bien , pero espero que alguin me ayude!

Hola.

Código Delphi [-]
...
var
  txt: TextFile;
  Str: string;
begin
  Str:= Socket.ReceiveText;
  AssignFile(txt,'UNIDAD:\RUTA\NOMBRE_DE_ARCHIVO.TXT'); //unidad,ruta,nombre y extensión a gusto...
  try
    Reset(txt);
  except
    Rewrite(txt);
  end;
    Writeln(txt, Str);
  CloseFile(txt);
end;

Guía de estilo .

Saludos.

[ØnLy]

A eso me referia! xD
Y como seria el por ejemplo para mandar una imagen.... del servidor al cliente

Tengo este codigo para mandar pero no se como recibirlo para guarlo!

Código Delphi [-]
var 

 stream : TMemoryStream;

begin

stream := TMemorystream.Create;//Creamos el bufefr para el stream

    //Metemso la imagen en el stream
     image1.Picture.Bitmap.SaveToStream( stream );

         ///Enviamosel stream con al data
         socket.SendStream( stream );

end;

Como reciviriamos esa data y reproducirla en otro TImage sin meterla en una archivo primero?

Saludos

[kdemia]

estoy en lo mismo que vos.. yo hice este codigo que no funciona pero supuestamente tendria que funcionar, a ver si alguien lo mejora...

Código Delphi [-]
procedure onreaddelserversocket ( ..parametros..);
var
   Stream: TMemoryStream;
   Size: Integer;
begin
   Stream:= TMemoryStream.Create;
   Size:= Socket.ReciveLength;
   Socket.ReciveBuf(Stream, Size);
   Image1.Picture.Bitmap.LoadFromStream(Stream);
   Stream.Free;
end;