mORMot Open Source

C:\Users\Admin\Desktop\EduCloudServer\PrjEduCloudServer.exe 1.0.0.6 (2017-04-25 13:24:41)
Host=ADMIN-PC User=Admin CPU=4*9-6-19971:FFFBEBBFBFFBFA7FAF679C0200 OS=11.1=6.1.7601 Wow64=1 Freq=2343828
Environment variables=#envTSLOGsss3464=46239888	ALLUSERSPROFILE=C:\ProgramData	APPDATA=C:\Users\Admin\AppData\Roaming	asl.log=Destination=file	CLASSPATH=.;C:\Program Files\Java\lib;C:\Program Files\Java\lib\tools.jar	CommonProgramFiles=C:\Program Files (x86)\Common Files	CommonProgramFiles(x86)=C:\Program Files (x86)\Common Files	CommonProgramW6432=C:\Program Files\Common Files	COMPUTERNAME=ADMIN-PC	ComSpec=C:\Windows\system32\cmd.exe	FP_NO_HOST_CHECK=NO	HOMEDRIVE=C:	HOMEPATH=\Users\Admin	JAVA_HOME=C:\Program Files\Java	LOCALAPPDATA=C:\Users\Admin\AppData\Local	LOGONSERVER=\\ADMIN-PC	NUMBER_OF_PROCESSORS=4	OS=Windows_NT	Path=C:\ProgramData\Oracle\Java\javapath;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;D:\SVN\bin;C:\Program Files (x86)\Windows Kits\8.1\Windows Performance Toolkit\;C:\Program Files\Microsoft SQL Server\110\Tools\Binn\;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\VSShell\Common7\IDE\;C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE\PrivateAssemblies\;C:\Program Files (x86)\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files (x86)\Common Files\Thunder Network\KanKan\Codecs;C:\Program Files\Java\bin;C:\Program Files\Java\jre\bin;	PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC	PROCESSOR_ARCHITECTURE=x86	PROCESSOR_ARCHITEW6432=AMD64	PROCESSOR_IDENTIFIER=Intel64 Family 6 Model 78 Stepping 3, GenuineIntel	PROCESSOR_LEVEL=6	PROCESSOR_REVISION=4e03	ProgramData=C:\ProgramData	ProgramFiles=C:\Program Files (x86)	ProgramFiles(x86)=C:\Program Files (x86)	ProgramW6432=C:\Program Files	PSModulePath=C:\Windows\system32\WindowsPowerShell\v1.0\Modules\	PUBLIC=C:\Users\Public	SESSIONNAME=Console	SystemDrive=C:	SystemRoot=C:\Windows	TEMP=C:\Users\Admin\AppData\Local\Temp	TMP=C:\Users\Admin\AppData\Local\Temp	USERDOMAIN=Admin-PC	USERNAME=Admin	USERPROFILE=C:\Users\Admin	VS120COMNTOOLS=D:\VS2013\Common7\Tools\	windir=C:\Windows	windows_tracing_flags=3	windows_tracing_logfile=C:\BVTBin\Tests\installpackage\csilogfile.log
TSynLog 1.18.3629 FTS3 2017-04-25T07:11:23

20170425 07112355 EXC   EHttpApiServer ("HttpSetServiceConfiguration failed: 拒绝访问。 (5)") at 009B0BBA  stack trace API 008D0777 008D07A0 
20170425 07112355 OSERR mORMotHttpServer.TSQLHttpServer(03B87700) http.sys URI registration error #5 for http://+:8089/root (administrator rights needed, at least once to register the URI) stack trace API 008D27CE 009CE243 009CD46F 00B946A1 00B9448C 0062D258 0054FF0A 0063F3FA 0054F527 004D1EB6 75186238 751868EA 75187D31 75187DFA 
20170425 07112355 EXC   EHttpServerException {"Message":"TSQLHttpServer: http.sys URI registration error #5 for http://+:8089/root (administrator rights needed, at least once to register the URI)"} at 009CE281  stack trace API 008D0777 008D07A0 
20170425 07112355 ERROR mORMotHttpServer.TSQLHttpServer(03B87700) {"EHttpServerException(03BDC428)":{"Message":"TSQLHttpServer: http.sys URI registration error #5 for http://+:8089/root (administrator rights needed, at least once to register the URI)"}} for {"THttpApiServer(03BB5290)":{"Cloned":false,"RegisteredUrl":"","HTTPQueueLength":1000,"MaxBandwidth":-1,"MaxConnections":-1,"APIVersion":"HTTP API 2.0","ServerName":"mORMot (Windows)","ProcessName":"root "}} at root  -> fallback to socket-based server stack trace API 008D26DE 009CD54B 00B946A1 00B9448C 0062D258 0054FF0A 0063F3FA 0054F527 004D1EB6 75186238 751868EA 75187D31 75187DFA

function TServiceRemoteSQL.Execute(const aSQL: RawUTF8; aExpectResults, aExpanded: Boolean): RawJSON;
var
  res: ISQLDBRows;
  fProps: TSQLDBConnectionProperties;
begin
  try
    fProps := Pub_ConnDataSQL.GetDBConnectionProperties;
    if fProps=nil then
    begin
      raise Exception.Create('Connect call required before Execute');
    end;
    res := fProps.ExecuteInlined(aSQL,aExpectResults);
    if res=nil then
      result := ''
    else
      result := res.FetchAllAsJSON(aExpanded);
  finally
    fProps := nil;
  end;
end;