mORMot Open Source

Hello,

I just try to communicate with telegram bot api sendmessage using THttpClientSocket.

  lHttp := THttpClientSocket.Create;
  LParam := THttpMultiPartStream.Create;

  lURL_TELEG := 'https://api.telegram.org/bot' + FToken + '/sendmessage';
  LUri.From(lURL_TELEG);
  lHttp.Open(LUri.Server, LUri.Port, nlTcp, 10000, LUri.Https);

  LParam.AddContent('chat_id', chat_id);
  LParam.AddContent('text', text);

  lHttpResponse := lHttp.Post(LUri.Address, LParam, 'multipart/formdata');

And I received the response error 400 which is "Bad Request: message text is empty".
But I checked that text = 'sample text' not empty.

Am i do right usage THttpClientSocket and THttpMultiPartStream?

Hi,

What values can be entered into the TTHttpClientSocketRequestParams.DataType field?

Please give some example.

Hello,

When i connect the DB and execute CreateMissingTables(), then error is returned as below:

  TMyOrm = class(TOrm)
  private
    FCode: RawUTF8;
    FCode_name: RawUTF8;
    FCheck_item: Boolean;
  published
    property Code: RawUTF8 index 10 read FCode write FCode;
    property Code_name: RawUTF8 index 80 read FCode_name write FCode_name;
    property Check_item: Boolean read FCheck_item write FCheck_item;
  end;

FConnectProp := TSQLDBZEOSConnectionProperties.Create(
    TSQLDBZEOSConnectionProperties.URI(dMySQL, FHostIp + ':' + FPort), FDBName, FUserId, FPasswd);
  
FModel := TOrmModel.Create([TMyOrm]);
VirtualTableExternalRegisterAll(FModel, FConnectProp);

FOrmServer := TRestServerDB.Create(FStockBaseModel, SQLITE_MEMORY_DATABASE_NAME, False);

FOrmServer.CreateMissingTables(); <== Here is exception occurred 'Unknown MySQL data type!'

**) The actual return error funtion is ConvertMySQLHandleToSQLType() in ZDbcMySqlUtil.pas

Help me how to solve this problem.

Hello,

in mormot.rest.http.server unit of mormot2, there is a code as below at 1568 line.

initialization
  assert(length(FAVICON_BINARY) = 510);

But in my environment (Win10, Delphi XE5) length(FAVICON_BINARY) is 491.

Please let me know which means the above assert(...) and why check the length?

Hello,

The sqlite3 DB file is created as below:

  TTest1 = class(TOrm)
       ...
  end;

  TTest2 = class(TOrm)
       ...
  end;

   ...

function CreateTestModel: TOrmModel;
begin
  result := TOrmModel.Create([TTest1, TTest2]);
end;
 

If i just know one table "TTest1", and have no information about "TTest2",
how can i access to the "TTest1" from the DB file?

Is there any function to access using table name in the DB file?

Please give me some advise.

Thanks in advance

Hello,

I have tested JsonToObject() in mormot2.

But i was not able to step into the JsonDataProp() in mormot.core.json using Delphi XE5 IDE debugger.

https://github.com/kuksundo/dev/blob/ma … onData.PNG

How can i add a break-point in this JsonDataProp() function?
And why debugging is not avalilable only this function?

Please give me some advise.

Thanks in advance.

Hello,

When i try to select RawUtf8 field from sqlite DB, the return is incorrect as below:

FText: RawUtf8 and the its contents as json array format like

["{\"Name\":\"DI_0065_0\",\"Description\":\"Something one\"}","{\"Name\":\"DI_0065_1\",\"Description\":\"Something two\"}"]

But the select using CreateAndFillPrepare function, result is blank.

How can i get the select from json array format string?

Hello.

I'm using mORMot with Firemonkey generated client code from crossplatform wrapper as blow:

function TMyService.GetData(out ACollect: TMyCollect): Boolean;
var res: TVariantDynArray;
begin
  fClient.CallRemoteService(self,'GetData',2, // raise EServiceException on error
    [],res);
  ACollect.Free; // avoid memory leak
  ACollect := TMyCollect.CreateFromVariant(res[0]);
  Result := res[1];
end;

But when compile the client code, undeclared id "CreateFromVariant" is issued.

How can i find or create the CreateFromVariant function?

Hello!

When I execute from my code as below is OK:

//Server Side
RestServer :=  TSQLRestServerFullMemory(Model, JsonName, False, True);
RestServer.ServiceRegister(Client, [TypeInfo(IMyInterface)], sicShared);

//Client Sde
Client.ServiceRetister([TypeInfo(IMyInterface)], sicShared);

But not is OK as below

//Server Side
RestServer :=  TSQLRestServerFullMemory(Model, JsonName, False, True);
RestServer.ServiceRegister(Client, [TypeInfo(IMyInterface)], sicSingle); <=== Replace sicShared

//Client Sde
Client.ServiceRetister([TypeInfo(IMyInterface)], sicSingle);

Error message is displayed from Client Side just when above code is executed:

TServiceFactoryClient.Create(): server's IMyInterface contract differs from client's: expected["3625..."], received ["FAB6..."]

sicSingle or sicClientDriven is same result;

Only sicShared is OK.

What is the problem?

Hello!

I try to get the documents as "V1" value is greater than "6600" like below:

LColl := FDB.CollectionOrCreate[FMongoCollectionName];
SetLength(ADocs, LDocsCount);
LColl.FindDocs('{V1:{$gt, ?}}', ['6600'], ADocs);

but i've got error message as

"EBSONException : doc.VType = 275"

What's the problem?

Hello!

I got some document from MongoDB to TDocVariant like below:

[{"_id":{"$oid":"53D75BD3ACD063FD19EA3250"}, "STime":{"$date":"2014-08-18T08:30:30"}, "V1":"1", "V2":"2"}]

I could get the data "1" at TDocvariant variable Doc.V1 and i want to direct access the value as Doc.Value[x] for "V1".

but i have got error message:

"Variant method calls not supported"

What could i do access the value using index?

Hi!

I'm using mOROot for my private project.

And i want to know how to fetch the latest document from mongoDB server with Direct Access synMongoDB

In googling, i can find some command for mongoDB

db.foo.find().sort({$natural:1}).limit(1);

How to implement above command to FindDoc or FindJSON like below:

Client := TMongoClient.Create('host');
DB := Client.Database['dbname'];

Coll := DB.CollectionOrCreate['collect'];
Coll.FindDoc('{ $sort: {_id : -1 } } ', []);

help me please.