F�rum Enviando e recebendo stream via socket #286636

01/07/2005

Algu�m poderia ajudar, pois gostaria de enviar arquivos de imagens em .JPG, e estou em d�vida se seria necess�rio a aloca��o de bytes em um buffer ou se o pr�prio Socket realiza este servi�o - olhe esta declara��o v�lida para este objeto: (ClientSocket1.Socket.SendStream()) - Estou utilizando os componentes ServerSocket e ClientSocket.

Segue escolpo gen�rico:

[size=9:62d43d2a04][color=darkblue:62d43d2a04]Envio:[/color:62d43d2a04][/size:62d43d2a04]

var Str : TMemoryStream;
//    Str : TWinSocketStream;
begin
//Str:=TWinSocketStream.Create(ClientSocket1.Socket, 630);

Str:=TMemoryStream.Create;
Str.LoadFromFile(�R:\Socket\Client\BMP.bmp�);

//SetLength(buf,630);
//Write(buf^,630);
//ClientSocket1.Socket.SendBuf(buf,630);
ClientSocket1.Socket.SendStream(Str);
...

[size=9:62d43d2a04][color=darkblue:62d43d2a04]Recep��o:[/color:62d43d2a04][/size:62d43d2a04]

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
var  Str : TMemoryStream;
begin
Str:=TMemoryStream.Create;
//get imagem
ServerSocket1.Socket.ReceiveBuf(Str,630);
...

Nerdex

Curtir t�pico

+ 0

Responder