sql server 2008 - How to consume TDatasource Component by coding returned through delphi webservice in a delphi VLC Form -


i have made cgi web service. code below:

unit myservicesimpl;  interface  uses soap.invokeregistry, system.types, soap.xsbuiltins, myservicesintf,   data.db,   data.sqlexpr, sqlconnection1, data.win.adodb;  type   { tmyservices }   tmyservices = class(tinvokableclass, imyservices)   public     function testfunction(): tadodataset; stdcall;   end;  var   connstring: string;   objtadoquery: tadoquery;   objtsqlds: tdatasource;   objds: tadodataset;   objtable :tadotable;  implementation   function tmyservices.testfunction: tadodataset; var   objtsqlconnection1: tadoconnection; var   constr: string; begin    objtsqlconnection1 := tadoconnection.create(nil);   constr := 'provider=sqloledb;' + 'data source=kays-serv64-01;' +     'initial catalog=test;' + 'user id=sa;password=kays@india';   objtsqlconnection1.connectionstring := constr;   objtsqlconnection1.loginprompt := false;    objtsqlconnection1.connected := true;    if (objtsqlconnection1.connected)   begin     objtadoquery := tadoquery.create(nil);     objtsqlds := tdatasource.create(nil);     objds:= tadodataset.create(nil);     objtable:= tadotable.create(nil);     objtable.tablename:='expediads';     objtadoquery.connection := objtsqlconnection1;     objtadoquery.sql.text := 'select * expediads';     objtadoquery.prepared := true;     objtadoquery.active := true;     objtsqlds.dataset := objtadoquery;     objds.datasource:=objtsqlds;     result := objds;   end   else   begin     result := objds;   end; end;  initialization  { invokable classes must registered } invregistry.registerinvokableclass(tmyservices);  end.

now trying consume webservice, have used wsdl imported. when used like:

procedure tform3.testfunction; var   vmyservice: imyservices; var   objdatasource: tdatasource; var   objnewds: imyservices1.tadodataset;   var   objtsqlconnection1: tadoconnection; var   constr: string; begin    vmyservice := getimyservices;   objnewds :=vmyservice.testfunction();   end;

the test function returns imyservice1.tadodataset nad hence not compatible data.db.tadodataset. please help.

you cannot tadodataset cannot remoted need tadoconnection , such things connectionstring on client on server.

the way remove data using delphi using datasnap tsoapdatamodule on server side containing tclientdataset gets populated tadodataset using tdatasetprovider, , on client side tsoapconnection plus tclientdataset on client.

datasnap perform read/update traffic using soap (i.e. xml on http).

see datasnap videos pawel glowacki idea on how set up, read documentation @ creating multi tiered applications index.

note datasnap, need have delphi enterprise minimum edition, , won't work cgi webservices.

another solution (less options, gets data across server client), expose tclientdataset's internal data xml, provide through method on cgi web service, on client side put xml tclientdataset again.

i'm not sure if within delphi licensing terms (they might prohibit using tclientdataset doing multi-tier work), should work.


Comments

Post a Comment

Popular posts from this blog

basic authentication with http post params android -

i doing basic authentication passing username , password , using basicnamevaluepair sending post params response service. my method: public stringbuilder callservicehttppost(string username, string password, string type) { // create new httpclient , post header httpclient httpclient = new defaulthttpclient(); httppost httppost = new httppost(webservice + type); httpresponse response = null; stringbuilder total = new stringbuilder(); try { url url = new url(webservice + type); /*string base64encodedcredentials = base64.encodetostring((username + ":" + password).getbytes(), base64.url_safe | base64.no_wrap);*/ string base64encodedcredentials = "basic " + base64.encodetostring( (username + ":" + password).getbytes(), base64.no_wrap); httppost.setheader("auth...
Read more

vb.net - Virtual Keyboard commands -

i wondering difference between virtual these keyboard commands is: keyeventf_extendedkey , keyeventf_keyup is. everywhere have looked gives me description based off integers , not want know each of them does. you've tagged question vb.net, these have nothing @ vb.net. they're constants defined in windows header files, use win32 api functions. as far difference, can't tell looking @ values. individual values not particularly important, that's why named identifiers used. what's important used , documentation functions tells mean. the first one, keyeventf_extendedkey , used keybdinput structure (which used along e.g. sendinput function) pass information synthesized keyboard input. if flag used, means scan code should interpreted extended key. technically, means scan code preceded prefix byte value 224 (&he0 in hexadecimal notation). the second one, keyeventf_keyup , 1 of flags available use structure. means key being released (going up)...
Read more

css - Firefox for ubuntu renders wrong colors -

Image
i've got following problem: i'm developing website, while testing around i've noticed firefox , chromium display css bar in different colors. when switched between several machine come conclusion firefox ubuntu problem. on other devices i've tested website. it's fine. the differences between chrome , firefox rendering: firefox: chromium: note: firefox ubuntu problem. does knows why , came solution? https://bugzilla.mozilla.org/show_bug.cgi?id=655637 bug 629312 - firefox displays wrong colors on image (only linux) open about:config , rechange gfx.color_management.mode 2 0.
Read more