Че та я не пойму с TMemoryStream

← →
MadGhost © (2004-02-10 23:15) [0]

выполняю следующий код.
procedure TForm1.Button1Click(Sender: TObject); var s:TMemoryStream; a:string; begin s:=TMemoryStream.Create; s.Write("asdasdasd",9); s.Read(a[1],9); Edit1.Text:=a; end;

в результате в Edit1.Text пусто :( почему не получается записать через TMemoryStream

← →
Palladin © (2004-02-10 23:32) [1]

перед s.Read необходимо установить позицию s.Seek(0,soBeginning)

← →
Maxud © (2004-02-10 23:33) [2]

А так:
var s: string;
begin
with TMemoryStream.Create do
begin
Write("asd",3);
SetLength(s, 3);
Seek(0, soFromBeginning);
Read(s[1], 3);
free;
Edit1.Text := s;
end;
end;

← →
MadGhost © (2004-02-10 23:41) [3]

спасибо, в примере из первого поста все получилось. но вот код такой же, все так же сделал, и не работает :(
procedure TForm1.NMUDP2DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var MyStream:TMemoryStream; TmpStr:String; begin MyStream:=TMemoryStream.Create; try NMUDP1.ReadStream(MyStream); SetLength(TmpStr,NumberBytes); MyStream.Seek(0,soFromBeginning); MyStream.Read(TmpStr[1],NumberBytes); Memo1.Lines.Add(FromIP+": "+TmpStr+"="+IntToStr(NumberBytes)); finally MyStream.Free; end; StatusBar1.SimpleText:="Данные получены"; end;

а если изменить
NMUDP 1.ReadStream(MyStream);
на
NMUDP 2.ReadStream(MyStream);
?

ну надо ж быть на стока тупым :))))))))))))
большое спасибо.......
вот засиделся за компом и за квакой за игрался :))))
уже такие вещи путать стал....
ещё раз большое спасибо

Че та я не пойму с TMemoryStream Найти похожие ветки