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

Вниз

TMemoryStream как превратиь в string?   Найти похожие ветки 

← →
Studios   (2008-03-19 17:12) [0]

TMemoryStream как превратиь в string?

---

← →
Johnmen ©   (2008-03-19 17:13) [1]

А смысл?

---

← →
Джо ©   (2008-03-19 17:13) [2]

SetLength (S,Ms.Size);
Ms.Position := 0;
Ms.Read (S[0],Length(S));

---

← →
AntonUSAnoV   (2008-03-19 17:14) [3]

Удалено модератором
Примечание: не нужно домыслов.

---

← →
Джо ©   (2008-03-19 17:15) [4]

> [2] Джо ©   (19.03.08 17:13)

Пардон, описка. Читать как:
Ms.Read (S[1],Length(S));

---

← →
han_malign ©   (2008-03-19 17:16) [5]

SetString(S, PChar(ms.Memory), ms.Size);

---

← →
Studios   (2008-03-19 17:18) [6]

мне нужно так вот
procedure TForm1.Button1Click(Sender: TObject);
var
   Data : TMemoryStream;
begin
   Memo1.Clear;

   Data := TMemoryStream.Create;
   try
       httpcli1.URL        := "http://local/index.php5";
       httpcli1.Proxy      := "127.0.0.1";
       httpcli1.ProxyPort  := "81";
       httpcli1.RcvdStream := Data;
       httpcli1.Get;
     
   finally
       Data.Free;

   end;
end;
а DATA чтоб было в формате string

---

← →
Джо ©   (2008-03-19 17:23) [7]

> [6] Studios   (19.03.08 17:18)
> мне нужно так вот

Уже дали 2 варианта выше.

---

← →
Johnmen ©   (2008-03-19 17:25) [8]

> а DATA чтоб было в формате string

var
 Data : string;
 ...
 finally
     Data:="";


---

← →
easy ©   (2008-03-19 18:40) [9]

ICS\Internet\HttpDmo1.pas

procedure LoadMemoFromMemoryStream(Memo : TMemo; Stream : TMemoryStream);
var
   p, q, r : PChar;
begin
   p := Stream.Memory;
   q := p + Stream.Size;// -1; fixed by Shay Horovitz
   r := p;
   while (p <> nil) and (p < q) do begin
       while (p < q) and (p^ <> #13) and (p^ <> #10) do
           Inc(p);
       Memo.Lines.Add(Copy(StrPas(r), 1, p - r));
       if (p[0] = #13) and (p[1] = #10) then
          Inc(p, 2)
       else
          Inc(p);
       r := p;
   end;
end;

---

← →
easy ©   (2008-03-19 18:45) [10]

procedure TForm1.Button1Click(Sender: TObject);
var
  Data : TStringStream;
begin
  Memo1.Clear;

  Data := TStringStream.Create("");
  try
      httpcli1.URL        := "http://local/index.php5";
      httpcli1.Proxy      := "127.0.0.1";
      httpcli1.ProxyPort  := "81";
      httpcli1.RcvdStream := Data;
      httpcli1.Get;
      showmessage(Data.DataString);
  finally
      Data.Free;

  end;
end;

---

← →
Джо ©   (2008-03-19 19:17) [11]

> [9] easy ©   (19.03.08 18:40)
> ICS\Internet\HttpDmo1.pas
>
> procedure LoadMemoFromMemoryStream(Memo : TMemo; Stream
> : TMemoryStream);

Чего только не придумают, чтобы не делать Memo.Lines.LoadFromStream :)

---

← →
easy ©   (2008-03-19 20:00) [12]

> Джо © (19.03.08 19:17) [11]
> > [9] easy ©   (19.03.08 18:40)
> > ICS\Internet\HttpDmo1.pas
> >
> > procedure LoadMemoFromMemoryStream(Memo : TMemo; Stream
> > : TMemoryStream);
>
> Чего только не придумают, чтобы не делать Memo.Lines.LoadFromStream
> :)

а это проще, чем LoadFromStream 8)

---

← →
easy ©   (2008-03-19 20:19) [13]

ктому же, если уж поставил что-то - посмотри в демосы %)

---

← →
Джо ©   (2008-03-19 20:21) [14]

> [12] easy ©   (19.03.08 20:00)
> а это проще, чем LoadFromStream 8)

А чем оно проще? Тем, что нужно включать в uses еще один модуль? А так — ничё включать ненужно сверх, используй :)

---

← →
Studios   (2008-03-19 22:26) [15]

а как подвязать?
XMLD.load(Data.DataString)

---

← →
easy ©   (2008-03-19 22:50) [16]

программу пишете?
http://delphimaster.net/view/2-1204539788/
http://delphikingdom.info/asp/answer.asp?IDAnswer=59922

---

← →
Studios   (2008-03-19 23:58) [17]

да

---

← →
Studios   (2008-03-20 00:02) [18]

спасибо тебе easy

---

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

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

Наверх

Память: 0.51 MB
Время: 0.007 c