envio imagen socket

[cmm07]

Hola, aqui de nuevo, esta vez con otra duda, voy hacer un poco breve, lo que necesito hacer es enviar el contenido de un TImage o Tbitmap a otro TImage o bitmap por medio de ClienSocket y ServerSocket, pero esta debe ser directamente, osea no debe ser grabada en ninguna parte ni ningun archivo, tiene que ser me imagino yo todo en memoria, no se si ustedes sabrán hacer algo asi

espero que me podais ayudar.....

54LU2

[Neftali [Germán.Estévez]]

Supongo que los más sencillo es convertir la imagen a Stream:

Código Delphi [-]
// convert BMP to JPEG
procedure BMPtoJPGStream(const Bitmap : TBitmap; var AStream: TMemoryStream);
var
  JpegImg: TJpegImage;
begin
   JpegImg := TJpegImage.Create;
   try
    JpegImg.PixelFormat := jf8Bit;
    JpegImg.Assign(Bitmap);
    JpegImg.SaveToStream(AStream);
   finally
    JpegImg.Free
   end;
end; (* BMPtoJPG *)

Y luego enviarlo como Stream.
Hay un ejemplo en la Web de Zarko utilizando las indy, aunque supongo que con los componentes que trae Delphi también se debe poder.

[cmm07]

gracias, muchas gracias, lo probaré luego comento..

[cmm07]

, ok gracias ya se como convertir la imagen bmp a stream, ahora mi duda es de como la envio al server y como la recibo, ya que yo nunca habia trabajado STREAM con los socket, y veo los ejemplos que me enviaste pero no entiendo mucho, y parece que estan en IdTCPClient e IdTCPServer, y yo necesito los socket, disculpa si molesto , pero si es posible de que mandaras un ejemplillo de como enviar y recibir por stream con socket o instruccion te lo agradecería mucho.....
una vez mas gracias, y disculpa por molestar

no te quito mas tu tiempo

54LU2

xaoo

[[seoane]]

Puede que esto te sirva:
http://www.clubdelphi.com/foros/show...36&postcount=6

[cmm07]

gracias, pero yo necesito como poder enviar, entre socket, no en pagina web ni nada de eso, necesito saber como recibo un stream y como envia mediante socket, pero no logro encontrar, solo encuentro del componente IdTCP, y es importante que sea por socket

54LU2

[[seoane]]

Empezado por cmm07

gracias, pero yo necesito como poder enviar, entre socket, no en pagina web ni nada de eso, necesito saber como recibo un stream y como envia mediante socket

... y en el ejemplo que te di mando el stream por carta, como se puede ver en esta linea:

Empezado por Yo mismo

send(FSocket, Stream.Memory^, Stream.Size, 0);

[cmm07]

gracias, como veo no esta en socket pero tuve que hacer algo similar y me funciona (eso creo), pero me falta saber como puedo recibir eso por socket, eh estado investigando mas de una semana sin logros todo con eso del "IdTCP" y yo necesito socket, bueno gracias, si sabes como hacer eso no dudes en ponerlo...
54LU2

[Neftali [Germán.Estévez]]

Empezado por cmm07

gracias, como veo no esta en socket pero tuve que hacer algo similar y me funciona (eso creo), pero me falta saber como puedo recibir eso por socket, eh estado investigando mas de una semana sin logros todo con eso del "IdTCP" y yo necesito socket, bueno gracias, si sabes como hacer eso no dudes en ponerlo...

¿Pero en serio has leído el post que te ha puesto Seoane?

¡¡¡Si te está dando el código exacto de lo que estás pidiendo!!!!
Falta que te lo envuelva para regalo y le ponga un lazo...