You are not logged in.
Pages: 1
Indeed,
So i use version c8915b80ceef724651b4e97e7f222cd83de69bbb in 2017/1/20.
i guess it is, but i don't known how to use it .
i guess it is, but i don't known how to use it .
It is so strange, there is a class named TWebSocketServer, but no class TWebSocketClient.
the client demo is a html page, but i want write client with delphi, how?
ok now!
not only one bug, demo Project31SimpleEchoServer raise exception:
Debugger Exception Notification
---------------------------
Project Project31SimpleEchoServer.exe raised exception class ECrtSocket with message 'SockRecvLn 10060 WSAETIMEDOUT'.
Now Most of demos can not compile.
Error code at unit SynEcc.pas:
function TECDHEProtocol.Clone: IProtocol;
begin
result := CreateFrom(self);
end;
你可以使用接口服务.
@EMartin
good job! seem to more *mORMot* than SynDBVCL and SynDBMidasVCL.
Hi ab,
I need download some files from http server.
and i see the demo "26 - RESTful ORM" and modified one, it's work fine!.
but i want to show downloading progress in a progress bar on client, how to do it?
PS: server use TSQLRestServerDB + TSQLHttpServer, client use TSQLHttpClient.
i known, when service build in exe, it's ok, but build in dll, error happended.
please check the following code:
https://www.dropbox.com/s/iokoydstrxbwv … d.zip?dl=0
problem 1. at file fClient.pas line 64
Client.ServiceRegisterClientDriven(TypeInfo(IRemoteSQL), ISQL)
--------------with param '*', will pass--------------
Client.ServiceRegisterClientDriven(TypeInfo(IRemoteSQL), ISQL, '*')
problem2. call ISQL.Execute with param True, received param False.
function Execute(const aSQL: RawUTF8; aExpectResults, aExpanded: Boolean): RawJSON;
--------------change Boolean to ByteBool, will ok--------------
function Execute(const aSQL: RawUTF8; aExpectResults, aExpanded: ByteBool): RawJSON;
The reason seems to be parameter Boolean。
when i change Boolean to ByteBool, the problem 2 is ok.
a bug??
@ab
do you know what happened?
@EMartin
I tested the program you provided, it worked very well.
After that, I wrote a DLL like the example, Interface copy from "16 - Execute SQL via services"。
IRemoteSQL = interface(IInvokable)
['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FE}']
procedure Connect(const aServer, aDatabase, aUserID, aPassWord: RawUTF8);
function GetTableNames: TRawUTF8DynArray;
function Execute(const aSQL: RawUTF8; aExpectResults, aExpanded: Boolean): RawJSON;
end;
but found the following two questions:
1. when client call ServiceRegisterClientDriven(TypeInfo(IRemoteSQL), ISQL), error occurred:
{
"ClassName":"EServiceException",
"Address":"015E4340",
"Message": "TServiceFactoryClient.Create(): server's IRemoteSQL contract differs from client's: expected [\"ED5FDD7EA62781EB\"], received [\"4607DE69C9F22AD4\"]"
}
Exception EServiceException raised - ErrorCode=400
2. call ISQL.Execute with parameters ('select * from aTable', True, False).
but when trace the DLL, received parameters are ('select * from aTable', False, False).
what's wrong with me? Can you help me?
thank you! i will try it at next week.
now it work ok!. thank again.
I change the setting:
Database = "Driver=iSeries Access ODBC Driver;System=192.168.121.40;DefaultLibraries=MEKBLIB2;Uid=mz6;Pwd=mz6"
Server = ""
but i got an excption:
TODBCConnection.Connect: unrecognized provider
DBMSName=DB2/400 SQL
DriverName=CWBODBC.DLL
DBMSVersion=05.04.0014
view source, only support follow DB?
DBMS_NAMES: array[0..7] of PAnsiChar = (
'ORACLE','MICROSOFT SQL','ACCESS','MYSQL','SQLITE','FIREBIRD','INTERBASE','POSTGRE');
I want to connect AS400 use SynDBExplorer by ODBC, but not success.
the follow is my set, what's wrong ?
Server = "Driver=iSeries Access ODBC Driver;System=192.168.121.40;DefaultLibraries=MEKBLIB2;Uid=mz6;Pwd=mz6"
Pages: 1