Enviar foto usando Socket
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
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
Curtidas 0
Respostas
Paullsoftware
27/03/2006
pesquisa no forum sobre envio de stream e sockets
GOSTEI 0
Massuda
27/03/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).
GOSTEI 0