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
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
Curtir tópico
+ 0
Responder
Posts
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
Clique aqui para fazer login e interagir na Comunidade :)