Hey all, I am re-posting this because we are talking
about it again.
Kevin
__________________________________
Do you Yahoo!?
Yahoo! Mail - 250MB free storage. Do more. Manage less.
http://info.mail.yahoo.com/mail_250--- Begin Message ---
I asked him for more info about what they did do. I will let you know when
and if I get an answer and post some info to Hardhats.
---------- Forwarded Message ----------
Subject: Re: CPRS and a single port
Date: Monday 20 December 2004 11:35 pm
From: "Joel Ivey" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Something close to that was one of the options that we considered. However,
that will limit a user to a single application connection to that port
number. If this is not a problem, it will work fine. However, we had to
consider the possibility (probability) that a user might want multiple
applications open on the same port number. Our solution provides that
capability.
----- Original Message -----
From: "Nancy E. Anthracite" <[EMAIL PROTECTED]>
To: "Joel Ivey" <[EMAIL PROTECTED]>
Sent: Monday, December 20, 2004 8:25 PM
Subject: Re: CPRS and a single port
Thank you very much! I wasn't expecting a "real" solution, just a fix for a
particular situation. I am surprised that it is being changed.
Just today we worked out what I think might be a solution on the hardhats
mailing list. This is what Kevin posted. Do you know off the top of your
head if this will work?
From: Kevin Toppenberg <[EMAIL PROTECTED]>
To: hardhats-members@lists.sourceforge.net
Reply to: hardhats-members@lists.sourceforge.net
Hey all,
After finding the info below, and reading other's
confirmation that the problem was in WSockc.pas, it
wasn't too hard to fix this 'bug'.
Here is the fix:
on line 700 OF WSockc.pas, change the following line:
LocalHost.sin_port := 0; { -- local listening port}
to this:
LocalHost.sin_port := htons(ListnerPort); { -- local
listening port}
So here is the surrounding code to help locating it:
LocalHost.sin_family := PF_INET; { --
internet address type}
LocalHost.sin_port := htons(ListnerPort); //kt added
{ -- local listening port}
SocketError := bind(hSocketListen, LocalHost,
SizeOf(LocalHost));{ -- bind socket to address}
If SocketError = SOCKET_ERROR Then
NetError( 'bind',0);
The project file for CPRS did not initially include
WSockc.pas in the project list. Thus I couldn't trace
to the exact point of the error and make the change.
So, go to the menu [Project], then [Add To Project].
The file should be in the ...\Broker\Source\
directory. But do a file search for wsockc.pas if you
can find it.
I will add, incidentaly, that the "reject" message
that I was getting stopped as soon as I made this fix.
It's nice when a difficult problem is quickly found
once in awhile. :-)
Kevin
On Monday 20 December 2004 09:53 pm, you wrote:
> The answers are basically Yes. The use of the server code on GTM is
> something that we are still working on to some extent, and not yet quite
as
> firm as for systems on VMS or NT. However, we will firm up the use of the
> server on GTM as well.
>
> The connection made by the new version broker and server side is a
> non-callback connection, thus much like Telnet so that if it can get
> through the firewall on a specified port, then it does not need the call
> back to a separate port that was used previously (and this is the reason
> that they have problems going through a firewall that doesn't have all
> ports open).
>
> All of our source code has been available via FOIA, and the new versions
> will be no different.
>
> The Broker Development Kit (client side code for Delphi) includes souce
> code which has been compiled (and the compiled units are included as well)
> with Delphi 5, 6, and 7.
>
> The server patch (XWB*1.1*35) and BDK patch (XWB*1.1*40) are in the final
> stages before official release, and probably should be available shortly
> after the beginning of the year.
>
> ----- Original Message -----
> From: "Nancy E. Anthracite" <[EMAIL PROTECTED]>
> To: "Joel Ivey" <[EMAIL PROTECTED]>
> Sent: Sunday, December 19, 2004 9:17 PM
> Subject: CPRS and a single port
>
> > Hi Joel!
> >
> > I am a WorldVistA volunteer. Cameron pointed me in your direction in a
> > September email on the Hardhats mailing list and Chris gave me your
email
> > address. I am a physician and only dabble in the programming aspects.
> > However, I helped write the installation instructions for VistA and CPRS
>
> that
>
> > are on the Hardhats web site. For that reason, I frequently end up
>
> embroiled
>
> > in the installation and connection problems that people get into.
> >
> > On of the recurrent problems people are having is getting CPRS connected
> > through a tunnel from outside for a production system or for setting up
a
> > demo server for prospective users.
> >
> > Cameron said you were the one that licked the problem for the VA Demo
>
> system.
>
> > I have helped port the VA Demo to GTM and have written instructions for
>
> using
>
> > the VA Demo with Cache and the standard CPRSChart version 23-15 using
the
> > standard connection method. I think some of these other problems people
>
> are
>
> > having could be solved if we used your program with a different IP as I
>
> think
>
> > you have it connecting through the telnet port with a reply sent back on
> > a single port instead of a random port, correct?
> >
> > There are two places where we could use the help I think your solution
>
> might
>
> > provide. One is in a developing country where they need an inexpensive
> > source of medical records and they have modified the VA Demo to include
> > patients typical of the local population and want to set up a demo
system
> > similar the the VA Demo system. The other is other is with a group of
>
> small
>
> > rural hospitals on a mini budget who want to share a server remotely and
>
> have
>
> > a VPN that they don't want to change, so they want to be able to connect
>
> CPRS
>
> > through 1 port without a random port reply. So I have three questions:
> >
> > 1. Do you think I am right that your modified version of CPRS will
solve
> the
>
> > problem, assuming tunneling and logons are used?
> >
> > 2. Do you think your source code is FOIAable if you do think it will
>
> solve
>
> > the problem?
> >
> > 3. If 1 and 2 are true, can we compile this on Delphi 7 since I am not
>
> sure we
>
> > have anyone who has Delphi 6 to do it with.
> >
> > I look forward to hearing from you, hopefully with 3 yes answers!
> >
> > Thank you for any help you can give us.
> > --
> > Nancy Anthracite
> > [EMAIL PROTECTED]
> > 202-273-4960 (office)
> > 301-738-2150 ( home)
> > I am home evenings, Wednesdays and weekends.
--
Nancy Anthracite
-------------------------------------------------------
--
Nancy Anthracite
--- End Message ---
