如何将Buffer写入流中？

Question

var
buffer:array [0..100] of char;
begin
mymemory:tmemorystream.create;
mymemory.position:=0;
//现在如何将buffer写入流中？

Answer 1

错了 我想问的是如何将流写入buffer中
var
buffer:array [0..100] of char;
begin
mymemory:tmemorystream.create;
mymemory.position:=0;
memo1.lines.savetostream(mymemory);
//然后如何将mymemory写入Buffer中?请高手不吝指教

Answer 2

我用的是idudp 这个控件没有sendstream方法 只有sendbuffer

Answer 3

var
  buffer: array [0..100] of Char;
  mymemory: TMemoryStream;
begin
  mymemory := TMemoryStream.Create;
  Memo1.Lines.SaveToStream(mymemory);
  mymemory.Position := 0;
  mymemory.Read(buffer, SizeOf(buffer));
  { TODO : 操作buffer }  mymemory.Free;
end;

Answer 4

var
  S: string;
begin
  IdUDPClient1.Send(Memo1.Text);
//or
  S := Memo1.Text;
  if S <> '' then IdUDPClient1.SendBuffer(S[1], Length(S));
end;