ola
como posso enviar uma memory stream em indy 9 com protocolo tcp no delphi 5
o codigo que tenho é o seguinte:
server:
Código Delphi
[-]
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var ftmpStream : TMemoryStream;
begin
ftmpStream := TMemoryStream.Create;
with AThread.Connection do
while Connected do
ReadStream(fTmpStream);
Image1.Picture.Graphic.LoadFromstream(ftmpStream);
ftmpStream.Free;
end;
cliente:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var fStream : TMemoryStream;
begin
if IdTCPClient1.Connected then IdTCPClient1.Disconnect;
IdTCPClient1.Connect;
num:=num+1;
fStream := TMemoryStream.Create;
IdTCPClient1.OpenWriteBuffer;
IdTCPClient1.WriteStream(fStream);
IdTCPClient1.CloseWriteBuffer;
Memo1.Lines.add('File transfer completed'+ inttostr(num));
fStream.Free;
end;
ja testei com file stream e funciona correctamente mas com memory stream envia mas nao consigo mostrar a imagem.