Rest Service TBytes

[edo]

Merhaba,

Aşağıdaki gibi bir Rest service'e TBytes tipinde bir dizi geçmeye çalışıyorum. Aşağıda oluşturmaya çalıştırdığım request var. RESTRequest1.AddBody metoduna bunu nasıl geçebilirim?

Kod: (Select All)

POST http://myserver:1111//Openxxx/RecxxxLxxxPxxxx HTTP/1.1
Content-Type: text/json
Host: myserver:1111
Content-Length: 28892
Expect: 100-continue
Connection: Keep-Alive

[255,216,255,224,0,16,74,70,73,70,0,1,1,0,0,1,0,1,0,0,255,219,0,132,0,9,6,7,19,19,18,21,19,19,19,22,22,21,21,23,23,24,24,24,24,24,23,23,23,23,26,23,26,22,23,23,23,24,26,24,

...
...
...
0,13,208,0,2,240,32,94,46,109,109,123,147,170,23,11,54,55,239,2,211,26,157,79,130,130,252,168,127,164,63,164,41,109,204,245,62,106,51,135,12,146,63,255,217]

[ismailkocacan]

TRESTRequest tipi TCustomRESTRequest sınıfından miras alıyor ve AddBody methodunun farklı parametreler alan overload edilmiş hali mevcut.Belki parametre tipi soyut TStream tipinde olan methodu kullanabilirsiniz.Sonuç olarak TStream'den miras alan her türlü nesneyi parametre olarak geçebilirsiniz.

procedure AddBody(ABodyContent: TStream; AContentType: TRESTContentType = ctNone); overload;

Mesela elinizdeki byte array'i TStream'den miras alan TMemoryStream nesnesi içersine doldurup, bu methoda parametre olarak geçmeyi deneyebilirsiniz.

var
 Dizi: TBytes;
 Stream: TMemoryStream;
begin
 SetLength(Dizi, 2);
 Dizi[0] := 31;
 Dizi[1] := 32;

 Stream := TMemoryStream.Create;
 Stream.Write(Dizi, Length(Dizi));
 RESTRequest1.AddBody(Stream, TRESTContentType.ctMULTIPART_FORM_DATA);
 Stream.Free;
end;