基于midas的MIS中的用户操作日志的创建（待续）

http://groups.google.com/group/borland.public.midas/browse_thread/thread/62869146faacfc96/c75cd6a1c77bd295?lnk=st&q=midas+identify+client&rnum=6#c75cd6a1c77bd295



All 5 messages in topic - view as tree
From: Andreas Oberhofer - view profile
Date: Fri, Nov 24 2000 12:00 am
Not yet rated

show options

Hello,

when processing the BeforeApplyUpdates event on the server in a few cases I
need some additional data from the client (in my case a file).

How do I call the client and ask him to send me the data ?
Or: how do I start a communication between server and client from the server
side ?

I am using TSocketConnections, ciMultiInstance, tmApartment.

Thank you
Andreas Oberhofer

Reply Rate this post:

From: Dan Miser /(TeamB/) - view profile
Date: Sat, Nov 25 2000 12:00 am
Not yet rated

show options

Take a look at my Callback(2) sample on the MIDAS page of my web site.
--
Dan Miser
http://www.distribucon.com

"Andreas Oberhofer" <Andreas.Oberho...@tin.it> wrote in message

news:3a1e6228$1_1@dnews...

- Show quoted text -

Reply Rate this post:

From: Andreas Oberhofer - view profile
Date: Mon, Nov 27 2000 12:00 am
Not yet rated

show options

Thank you Dan,

I have already seen this example.
It installs an additional (communication-) server at the client side.
Do I have to install also the ScktSrv.exe on the client ?

Is there no easier way to have the same result, like calling a method of the
TClientDataset or the TSocketConnection ?

If not I think it would be easier to pack some status information into the
AfterApplyUpdates event. My problem is that I would like to call the client
immediatly when processing every single record in the BeforeUpdateRecord
event. When I use AfterApplyUpdates I have to identify the single records I
want to talk about.
It seems that it is not possible with standard Midas methods to communicate
on a record per record level.

Thank you
Andreas

Reply Rate this post:

From: Alexandre GUILLIEN - view profile
Date: Mon, Nov 27 2000 12:00 am
Not yet rated

show options



> Thank you Dan,

> I have already seen this example.
> It installs an additional (communication-) server at the client side.
> Do I have to install also the ScktSrv.exe on the client ?

No.

> It seems that it is not possible with standard Midas methods to communicate
> on a record per record level.

It is not.
The callback solution is the best and only available. You just have, from the
server, to call methods of the callback object you created client-side to have
direct communication with the client. The requirements are to use
TSocketConnection client side and use the structure given in the callback
example. Nothing more.

Alexandre Guillien

Reply Rate this post:

From: Sunil Furtado - view profile
Date: Thurs, Nov 30 2000 12:00 am
Not yet rated

show options



> If not I think it would be easier to pack some status information into the
> AfterApplyUpdates event. My problem is that I would like to call the
client
> immediatly when processing every single record in the BeforeUpdateRecord
> event. When I use AfterApplyUpdates I have to identify the single records
I
> want to talk about.

I store some state information in my client and pass this information as
parameters to the server on apply updates (Thanks to Dan).

Client side:

if dm.paymast.ChangeCount > 0 then
begin
dm.paymast.setoptionalparam('UserLevel', dm.level, True); // thise are
the optional parameters
dm.paymast.setoptionalparam('location', dm.location, True);
if dm.paymast.applyupdates(0) = 0 then
dm.paymast.refresh;
end
else
messagedlg('No changes to save !!!',mtinformation,[mbok],0);

On the server:

beforeupdaterecored event:
var
UserLevel,location: string;
begin
// get the parameters from the client
UserLevel := DeltaDS.GetOptionalParam('UserLevel');
location := DeltaDS.GetOptionalParam('location');
// check for access permissions
if (UpdateKind = ukModify) then
begin
if ((UserLevel <> 'A') and (location <> 'C')) then
raise exception.create('You dont have enough rights to modify data');
end;
end;

A bit extreme to send info to the server and then raise the error but it
works.

--
Sunil Furtado
New Mangalore Port Trust

Reply Rate this post: