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