Array
(
)

Enviar foto usando Socket

Eric.miranda
   - 27 mar 2006

Boa tarde pessoal,
Estou precisando fazer o seguinte..
qdo eu carregar uma imagem num TImage no cliente, essa imagem aparecer no Servidor..
estou usando o Delphi 5.. Vi um exemplo usando o NMStrm... mas para aprendizado queria ver se dava pra enviar a imagem usando apenas o clientsocket e o serversocket..

na parte cliente fiz da seguinte forma:
procedure TFrmCliente.btnimagemClick(Sender: TObject);
var
ms: TMemoryStream;
begin
ms:= TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(ms);
ms.Position:= 0;
ClientSocket.Socket.SendText(IntToStr(ms.Size) + #0);
ClientSocket.Socket.SendStream(ms);
end;

nem sei se está certo..
na parte servidora não tenho mta noção do que fazer.. vi alguns exemplos mas não consegui identificar como fazer!!

obrigado pela ajuda

Eric


Paullsoftware
   - 28 mar 2006

pesquisa no forum sobre envio de stream e sockets


Massuda
   - 28 mar 2006

Entendo que seja seu interresse aprender, mas se você pretende atualizar seu Delphi, eu não usaria o NMStrm nem o TClientSocket/TServerSocket, pois esses componentes não existem nas versões mais novas do Delphi; uma solução que funciona com diferentes versões do Delphi é usar o Indy, o ICS ou Synapse (todas essas bibliotecas são open source).