delphi - Client Application Name in DataSnap -

-

i have client-server system uses datasnap. want log client application data use tdsserver - onconnect event. in event can access want following code:

ip:= dsconnecteventobject.channelinfo.clientinfo.ipaddress   clientport:= dsconnecteventobject.channelinfo.clientinfo.clientport   protocol:= dsconnecteventobject.channelinfo.clientinfo.protocol   appname:= dsconnecteventobject.channelinfo.clientinfo.appname

first 3 lines ok appname empty!!!

(i run server , client on same computer i.e. localhost)

i have been unable find online information how specify appname when client connects via tcp/ip. if @ code 

procedure tdstcpchannel.open; var   clientinfo: tdbxclientinfo; begin   inherited;   freeandnil(fchannelinfo);   fchannelinfo := tdbxsocketchannelinfo.create(intptr(fcontext.connection), fcontext.connection.socket.binding.peerip);    clientinfo := fchannelinfo.clientinfo;    clientinfo.ipaddress := fcontext.connection.socket.binding.peerip;   clientinfo.clientport := inttostr(fcontext.connection.socket.binding.peerport);   clientinfo.protocol := 'tcp/ip';    fchannelinfo.clientinfo := clientinfo; end;

in datasnap.dstcpservertransport.pas evident clientinfo.appname not set.

however, following work-around works seattle demo datasnap basic server + client:

  1. in client, add param 'appname' sqlconnection1 component's params , set value 'mytestapp'. recompile client.

  2. open server in ide , modify servercontainerform's code shown below.

code:

uses    [...], dbxtransport;  procedure tform8.dsserver1connect(dsconnecteventobject: tdsconnecteventobject); var   s : string;  //  added   info : tdbxclientinfo;  //  added begin    activeconnections.insert;    if dsconnecteventobject.channelinfo <> nil    begin      activeconnections['id'] := dsconnecteventobject.channelinfo.id;      activeconnections['info'] := dsconnecteventobject.channelinfo.info;    end;    activeconnections['username'] := dsconnecteventobject.connectproperties[tdbxpropertynames.username];    activeconnections['serverconnection'] := dsconnecteventobject.connectproperties[tdbxpropertynames.serverconnection];    activeconnections.post;     insertevent('connect');     //  following added appname client     s := dsconnecteventobject.connectproperties['appname'];    info := dsconnecteventobject.channelinfo.clientinfo;    info.appname := s;     dsconnecteventobject.channelinfo.clientinfo := info;    caption :=  dsconnecteventobject.channelinfo.clientinfo.appname; end;

as can see, works picking value set appname in client's sqlconnection1.params in call `dsconnecteventobject.connectproperties['appname']' , display on caption of servercontainerform.

obviously, pass other name/value pair adding them sqlconnection's params on client , pick them on server calling dsconnecteventobject.connectproperties[].


Comments

Post a Comment

Popular posts from this blog

php - How to display all orders for a single product showing the most recent first? Woocommerce -

-
i have password protected page on frontend. on page, want display full list of purchases associated single woocommerce product id. option 1: i've looked through woocommerce docs , , found: wc_cli_order , list_( $args, $assoc_args ) function lists orders. presumably, orders can filtered product id [--=] filter orders based on order property. line item fields (numeric array, started index zero): line_items.0.product_id option 2: i found article , based on customer id. i've modified code based on guesses meta_key , meta_value. $customer_orders = get_posts( array( 'numberposts' => -1, 'meta_key' => '_product', 'meta_value' => get_product_id(), 'post_type' => wc_get_order_types(), 'post_status' => array_keys( wc_get_order_statuses() ), ) ); how display orders single product showing recent order first? here solution put based on these articles: http://www.w...
Read more

asp.net - How to correctly use QUERY_STRING in ISAPI rewrite? -

-
i'm having difficult time , hope guys can help. using helicon isapi rewrite version 3.1.0.104 on our iis server. edit http.conf file , have tried , still fail. this trying do: redirect url: https://www.domain.com/switch-by-version?version=2.8.5.2594 to: https://test.domain.com/load/load.aspx?tver=2.8.5.2594 the version number @ end source url change, , need target url have same version number @ end of url example above shows. i tried following not work: rewritecond %{query_string} ^version=(\d\d?)\.(\d\d?)\.(\d\d?)\.(.*)$ [nc] rewriterule ^/switch-by-version(.*)$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l] any appreciated! thanks. if it's running in equivalent context of .htaccess , rule shouldn't start / . here's simpler version: rewritecond %{query_string} ^version=(\d+\.\d+\.\d+(?:\..+)?)$ [nc] rewriterule ^switch-by-version/?$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l]
Read more

angularjs - How restrict admin panel using in backend laravel and admin panel on angular? -

-
https://scotch.io/tutorials/token-based-authentication-for-angularjs-and-laravel-apps following tutorials, try write authentication restrict admin panel, didn't understood how can that. this admin panel, admin panel don't want show , request database unauthenticated users. my laravel-routes route::get('/admin',function(){ return view('index'); }); route::get('/api/v1/employees/{id?}', 'employees@index'); route::get('/api/v1/users/{id?}', 'employees@users'); route::post('/api/v1/employees', 'employees@store'); route::post('/api/v1/employees/{id}', 'employees@update'); route::delete('/api/v1/employees/{id}', 'employees@destroy'); route::group(['prefix' => 'api'], function() { route::resource('authenticate', 'authenticatecontroller', ['only' => ['index']]); route::post('authenticate', 'authentic...
Read more