Done, but the picture is still missing (but no errors in browser console). For double check - here's how I save the picture:
procedure TfrmNew.UpdatePicture;
var
xhr: TJSXmlHttpRequest;
begin
xhr := TJSXMLHttpRequest.new;
xhr.open('PUT', connServer.URL+'/'+string('pobuda('+wdsPobuda.FieldByName('Id').AsString+')/Slika'));
xhr.send(imgSlika.Base64Image);
end;
This is called on the AplyUpdates event:
procedure TfrmNew.wdsPobudaAfterApplyUpdates(Sender: TDataSet; Info: TResolveResults);
begin
UpdatePicture;
ModalResult := mrOk;
end;
After execution the DB record is filled with text (Base64 image data I presume :) )
I load it later (in another form) with this code:
procedure TfrmDetails.wdsPobudaAfterOpen(DataSet: TDataSet);
begin
imgSlika2.Url := connServer.URL + '/' +string(TJSObject(wdsPobuda.CurrentData)['Slika@xdata.proxy']);
end;
I checked the browser console for any errors, but ther seems everything ok - just the picture is missing.