Enviar foto usando Socket

27/03/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


Eric.miranda

Respostas

28/03/2006

Paullsoftware

pesquisa no forum sobre envio de stream e sockets


Responder Citar

28/03/2006

Massuda

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).


Responder Citar