mORMot Open Source

Hi all,
as far as I understand, invoking an interface method from a delphi client translate in a

POST /interface/method

call. Is there a way to force the client to make the same call with different HTTP verbs ?

Hi!
some time ago browsing the mORMot source code I spotted a way to switch between URL-encoded vs JSON body  way to send parameters to a HTTP DELETE method, or so it seemed to me :-), but unfortunately I no longer found it.

Can you confirm that such option exists, and if so how to use it ?

If it does not exists, is it easy doable ?

I'm asking for such an option because the client of the mORMot server I'm developing only can send parameters of a DELETE method in the body, not URL-encoded.

Thanks!

Guido Aspesani

Hi,
I need to add not only a HEADER_CONTENT_TYPE header, but also a:

Content-Disposition: attachment; filename=<a server side suggested file name>

but seems that only the last header added to the property TServiceCustomAnswer.Header is sent back to the client

The OnAfterURI event can't be used because it does not know the suggested file name. (it is determined inside the interface based service).
Same as for overriding the URI method of the TSQLRestServer.

I'm NOT using the last version of the framework (don't ask! ) maybe is something already solved in latest versions?

If not, any suggestion on how to do it ?

Thanks!

Hi,
just updated to the last and greatest mORMot from git, from a while ago.
A strange behaviour is hitting me. I tracked down the issue to the method

TDynArrayHashed.HashAdd(const Elem; aHashCode: Cardinal; var result: integer);
var n,cap: integer;
begin
  n := Count;
  SetCount(n+1); // reserve space for a void element in array
  cap := Capacity;
  if cap*2-cap shr 3>=fHashsCount then begin
    // fHashs[] is too small -> recreate
    ReHash;
    result := HashFind(aHashCode,Elem); // fHashs[] has changed -> recompute
    assert(result<0);
  end;
  with fHashs[-result-1] do begin // HashFind returned negative index in fHashs[]
    Hash := aHashCode;
    Index := n;
  end;
  result := n;
end;

I do not use this class direclty, it is used by SynDB since I'm connecting to a SQL Server 2008 to access axtrernal data.

in my findings when the statement

n := Count;

sets n to zero, fHashs is not properly allocated, thus resulting in an AV when the statement

  with fHashs[-result-1] do begin // HashFind returned negative index in fHashs[]
    Hash := aHashCode;

executes.

I temporarily solved commenting out the check
  //if cap*2-cap shr 3>=fHashsCount then begin
and thus always executing ReHash;

Of course in this way all your speed optimizations are gone with the problem

Verified with XE4/XE7 targeting win32, under Win7 64 bit.

I'm sorry but I was not able to better track the 'root' issue, I suspect this is only a consequance effect of something more deep.

If you need more details I'm here to help.

Hi,
I wrote an interface based method that returns a TServiceCustomAnswer. Basically, accept an ID and searches for a corresponding file to send back to the client.
with authentication disabled, if I make a request using the browser and typing directly on the url, it works, an returns, let's say, a PDF.
The browser can view it with no prob and save it on disk where I can compare with the original file. No differences.

But if I enable authentication on the mORMot server, and I use a javascript client to access the same url, the size of the dowloaded file is about the double.
I suspect is an encoding problem, but I don't see any difference on the 2 request to explain it.
In the failing situation, the response from mORMot starts with :

%PDF-1.5

so it seems uncompressed. The request contains
Accept-Encoding gzip, deflate
and the mORMot response :

Accept-Encoding	synlz,gzip
Access-Control-Allow-Meth...	POST, PUT, GET, DELETE, LOCK, OPTIONS
Access-Control-Allow-Orig...	*
Access-Control-Expose-Hea...content-length,location,server-internalstate
Access-Control-Max-Age	1728000
Content-Length	1762067
Content-Type	application/pdf

while the working answer (no auth serverside)  shows a compressed stream

the rilevant mORMot's service code is:

          if UpperCase( extension ) = 'PDF' then
            Result.Header := HEADER_CONTENT_TYPE + PDF_CONTENT_TYPE
          else
            Result.Header := HEADER_CONTENT_TYPE + BINARY_CONTENT_TYPE;
          RawByteStream := TRawByteStringStream.Create;
          MemStream := TMemoryStream.Create;
          if FileExists(PhisicalFileName) then
            MemStream.LoadFromFile(PhisicalFileName)
          else
            raise Exception.Create('File ' + PhisicalFileName + ' not found. ID=' + IntToStr(FileID));
          MemStream.SaveToStream(RawByteStream);
          Result.Content := RawByteStream.DataString;

Another fact that makes me suspect encoding is the problem, is that if the file is a text file, everything is ok in both situations! (with and W/o auth)

Am I miss something?

First of all I want to thanks the man who made my job easier and enjoyable: Thanks Arnaud!

I'm writing an interface based service to provide a REST access to a legacy DB (so no ORM here), using DTO as parameters to move data around, and everything is fine.

Since some DTO is quite complex (with nested objects and array of objects), I'd like to execute updates  and/or inserts on the underling DB only if strictly needed, that is only if the client has really modified a certain sub-property.

So for example if in a DTO there is an array property, and I call a service using PUT passing a JSON representation of that DTO with this property 'missing' (not an empty array, [], but nothing at all), this should be interpreted as 'leave that property/array as is, don't touch it', avoiding maybe a lot of SQL statements.
The JSON object is deserialized into my DTO, but I lose the knowledge of the existence or not of the property in the original JSON object

Since mORMot is a really smart pet,  I suspect there is some way to achieve that goal.... or am I missing something?

Many thanks!

Guido

Hi,
First af all, I have to say thanks for this great artifact called mORMot!
I'm following it for a while, waiting the right project to use it, and finally the day is come!

I started to develop the backend, and I have some questions/suggestion requests on various topics, so I will ask them one by one in the hoping to help someone like me approaching for the first time to mORMot.

I followed your advice in this article
  http://blog.synopse.info/post/2012/03/2 … ed-service
to return a given file (a PDF in my case) setting

  Result.Header := HEADER_CONTENT_TYPE + 'application/pdf';

and it works wonderfully!

Now I have to implement a 'symmetric' method, to upload a binary file to the mORMot server.

Wich is the preferred/optimized way to do it? I mean, there is a way to avoid the Base64 encoding and save bandwidth also uploading?