Delphi Can

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:

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]

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;

edo

ismailkocacan