mORMot Open Source

tiger

Member

Registered: 2014-05-14

Posts: 11

Http client-server + MS SqlServer2000 run "OLE DB Error Occurred"

server side code:

var
  Props: TSQLDBConnectionProperties;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Props := TSQLDBUniDACConnectionProperties.Create(
    TSQLDBUniDACConnectionProperties.URI(dMSSQL,'localhost:1433'),'Test', 'sa', '123');
  HttpServer := TSQLDBServerHttpApi.Create(Props,'root','888','user','pass');
end;

client side code:

var
  Props: TSQLDBConnectionProperties;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Props := TSQLDBWinHTTPConnectionProperties.Create('localhost:888','root','user','pass');
  DS1.DataSet := ToDataSet(DS1,Props.Execute('select * from Role',[]))
end;

client exe will run a error:
TSQLDBWinHTTPConnectionProperties.Process(cExecuteToBinary): server raised EUniError with 'OLE DB Error Occurred'. code 800401F0h. CoInitalize has not been called.
How can I sovle it?

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,603

Website

Re: Http client-server + MS SqlServer2000 run "OLE DB Error Occurred"

Could you please create a ticket?

tiger

Member

Registered: 2014-05-14

Posts: 11

Re: Http client-server + MS SqlServer2000 run "OLE DB Error Occurred"

sorry,I don't know what's your mean.forgive my poor english.

tiger

Member

Registered: 2014-05-14

Posts: 11

Re: Http client-server + MS SqlServer2000 run "OLE DB Error Occurred"

I use Delphi 10 Seattle and mORMot was the latest.

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,603

Website

Re: Http client-server + MS SqlServer2000 run "OLE DB Error Occurred"

Go to http://synopse.info/fossil/tktnew

Then login (as anonymous, it is ok - this is not the same login as in the forum).

Then you can add a new ticket.
Please put a link to this forum page.