Enviar foto usando Socket

27/03/2006

0

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

Eric.miranda

Responder

Posts

28/03/2006

Paullsoftware

pesquisa no forum sobre envio de stream e sockets


Responder

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar