JSON to Object über RESTResponse

[ken_jones]

Salut Zusammen

Ein für mich zur Zeit unlösbares Problem, obwohl ich glaube, dass die Lösung ganz einfach sein sollte...

Ich habe einen Server, der ein eigenes Object in JSON umwandelt und bereitstellt (Delphi Beispielprojekt), auf der Client-Seite habe ich einen RESTResponse, mit welchem ich das Object wieder befüllen möchte.
Bis zum Empfang des JSON-Codes komme ich, kriege diesen aber nicht mehr in das Object gefüllt. Was mache ich falsch?

Object:

Delphi-Quellcode:

  TProduct = class
  private
    FMajorReference: string;
    FDescription: string;
    FImage: TJPEGImage;
    FImage2: string;
    procedure SetMajorReference(const Value: string);
    procedure SetDescription(const Value: string);
    procedure SetImage(const Value: string);
    function GetImage: TStream;
  public
    property MajorReference: string read FMajorReference write SetMajorReference;
    property Description: string read FDescription write SetDescription;
    property Image: TJPEGImage read FImage;
  end;

Encoding Serverseitig:

Delphi-Quellcode:

function TServerMethods1.GetProductOffline(MajorRef: string): TProduct;
var
  qry: TOracleQuery;
  selection: string;
  i: Integer;
  jobj: TJSONObject;
  fStream: TFileStream;
begin
  Result := TProduct.Create;
  Result.MajorReference := '1234-567-8';
  Result.Description := 'Dies ist die Beschreibung zum Artikel';
  fStream := TFileStream.Create('Images\expand.png', fmOpenRead);
  try
    Result.FImage2 := TDBXJSONTools.StreamToJSON(fStream, 0, fStream.Size).ToString;
  finally
    FreeAndNil(fStream);
  end;
  Result.SetImage('Images\expand.jpg');
end;

Was dem Client übergeben wird: (Binary ist gekürzt)

Code:

{"MajorRef":"44","result":{"type":"ServerMethodsUnit1.TProduct","id":1,"fields":{"FMajorReference":"1234-567-8","FDescription":"Dies ist die Beschreibung zum Artikel","FImage":null,"FImage2":"[137,80,78,174,66,96,130]"}}}

Und im Ziel versuche ich sowas wie:

Delphi-Quellcode:

procedure TRESTReceiver.RESTRequestAfterExecute(Sender: TCustomRESTRequest);
begin
  if assigned(RESTResponse.JSONValue) then
  begin
    p := TProduct.Create;
    p := RESTResponse.JSONValue.GetValue<TProduct>();
  end;
end;

Und das klappt nicht. Und ich hab schon über einen Tag rumgebastelt. Der Root vom RESTResponse ist auf "result" gestellt.
Hat mir jemand einen Tipp?

Danke und Gruss,
Ken

[danielmagin]

schau mal hier:

http://blogs.embarcadero.com/stephen...-line-of-code/

Wird hier in einem simplen Beispiel gut gezeigt.

Grüsse Daniel (M)

[ken_jones]

Danke, das Beispiel habe ich mir schon zu Gemüte geführt gehabt. War vielleicht bei meiner Frage auch nicht präzise genug. Ich konnte prinzipiell ein Objekt übermitteln, aber sobald ein Stream drin war, ging nix mehr.

Egal, Danke für die Hilfe, ich hab mein Projekt jetzt auf SOAP umgestellt, und es läuft!

Gruss,
Ken