Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Вниз

Че та я не пойму с 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;


---

← →
Maxud   (2004-02-11 01:53) [4]

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

---

← →
MadGhost   (2004-02-11 18:32) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.031 c