Ver Mensaje Individual
  #2  
Antiguo 15-06-2006
willembg8 willembg8 is offline
Registrado
 
Registrado: abr 2006
Posts: 2
Reputación: 0
willembg8 Va por buen camino
Para enviarlo he hecho este codigo:

Código Delphi [-]
var
  Nombre,ImgNom : TMemoryStream;
begin
  Nombre := TMemoryStream.Create;
  Nombre.Write('hola',6);
  ImgNom := TMemoryStream.Create;
  ImgNom.CopyFrom(Nombre,0);
  ImgNom.CopyFrom(ImgStream,0);

  try
    if Client.Connected = true  then
      Client.Disconnect;
    Client.Host := Ip;
    Client.Connect();
    Client.WriteStream(ImgNom);
    Client.Disconnect;
  finally
    ImgNom.Free;
  end;
end;

El problema es como lo separa cuando lo leo. Separar la imagen del stream.

Gracias
Responder Con Cita