<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>The reason is that the earlier 16 bit version of the runtime I already have
and is effectively free, to get the current development kit (for 32 bit) is over
$3000 USD subscription per year, and costs a licence fee for every screen it is
deployed on. You may think Delphi is expensive, but not compared to
these prices, for a language not even in the TIOBE top 100 languages.</DIV>
<DIV> </DIV>
<DIV>This is the reason I moved to Delphi in the first place, because the
development and deploy model is so much better, as well as more functional, and
why I would like to keep adding extras using Delphi rather than the original
language.</DIV>
<DIV> </DIV>
<DIV>I only need to compile Delphi to 16 bit if I am using the DOS emulator on
64 bit WIndows, if it is run in a 32 bit Windows environment, then both 16bit
and 32 bit software both run native.</DIV>
<DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'></DIV>
<DIV style="FONT: 10pt tahoma">
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=robo555@gmail.com
href="mailto:robo555@gmail.com">Robo</A> </DIV>
<DIV><B>Sent:</B> Friday, February 26, 2016 11:25 PM</DIV>
<DIV><B>To:</B> <A title=delphi@listserver.123.net.nz
href="mailto:delphi@listserver.123.net.nz">NZ Borland Developers Group - Delphi
List</A> </DIV>
<DIV><B>Subject:</B> Re: [DUG] [computing] 16 bit compiler and Ancient
Mariners</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>You said you would like to add some Delphi add-ons. Since you're
still adding features to this application, may be it's time to compile it to
32bit.
<DIV> </DIV>
<DIV>Robo</DIV></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>On Fri, Feb 26, 2016 at 12:33 AM, John Bird <SPAN
dir=ltr><<A href="mailto:johnkbird@paradise.net.nz"
target=_blank>johnkbird@paradise.net.nz</A>></SPAN> wrote:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>To get best performance out of DOSBOX, have to set its cpu utilisation to
either high or max, and it tends to put about 10-15% load on the CPU a lot of
the time. Less if set to a lower cpu usage, but also slower.</DIV>
<DIV> </DIV>
<DIV>When I say no networking, it can mount drives so all networked drives are
fine, but no NET USE and PING and related commands. No
Timeout, or the other commands mentioned either. Apart from that
its very stable, in fact more stable than the Windows 7 CMD processor running
the same software on a 32 bit Windows.</DIV>
<DIV> </DIV>
<DIV>Unrelated, but fun – I was swapping addresses with a german friend, and
he was entering my details on his phone into something looking very ancient so
I had to ask what it was – turns out was his legacy DOS address book app and
he has it running on Android via DOSBOX Turbo – the android version of the
same software.</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV><B>From:</B> <A title=jsmith@deltics.co.nz
href="mailto:jsmith@deltics.co.nz" target=_blank>Jolyon Direnko-Smith</A>
</DIV>
<DIV><B>Sent:</B> Friday, February 26, 2016 11:31 AM</DIV>
<DIV>
<DIV class=h5>
<DIV><B>To:</B> <A title=delphi@listserver.123.net.nz
href="mailto:delphi@listserver.123.net.nz" target=_blank>NZ Borland Developers
Group - Delphi List</A> </DIV>
<DIV><B>Subject:</B> Re: [DUG] [computing] 16 bit compiler and Ancient
Mariners</DIV></DIV></DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV>
<DIV class=h5>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>Just curious as to why not eating the CPU is important in this
case ?<BR><BR>Unless DOSBOX is very primitive in this regard the CPU that is
"eaten" will presumably be the virtual CPU of the VM, not the physical CPU of
the host. I haven't tested it but I would have thought that modern CPU's
are unlikely to break a sweat when virtualising even a 100% utilised
8086. :)</DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>On 26 February 2016 at 10:32, John Bird <SPAN
dir=ltr><<A href="mailto:johnkbird@paradise.net.nz"
target=_blank>johnkbird@paradise.net.nz</A>></SPAN> wrote:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">
<DIV dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Already investigated that – the DOSBOX emulator has no Timeout, or ping
command, no networking at all. If there is no sleep command that
does not eat the CPU then I don’t need to look further....</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV><B>From:</B> <A title=jsmith@deltics.co.nz
href="mailto:jsmith@deltics.co.nz" target=_blank>Jolyon Direnko-Smith</A>
</DIV>
<DIV><B>Sent:</B> Thursday, February 25, 2016 7:19 PM</DIV><SPAN>
<DIV><B>To:</B> <A title=delphi@listserver.123.net.nz
href="mailto:delphi@listserver.123.net.nz" target=_blank>NZ Borland
Developers Group - Delphi List</A> </DIV></SPAN>
<DIV>
<DIV>
<DIV><B>Subject:</B> Re: [DUG] [computing] 16 bit compiler and Ancient
Mariners</DIV></DIV></DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV>
<DIV>
<DIV dir=ltr>As a matter of historical curiosity, Delphi 1 was the first AND
last version to support 16-bit targets.<BR><BR>Delphi 2 included Delphi 1 in
the box for people that still needed 16-bit support but otherwise it was
32-bit all the way from Delphi 2 onward.<BR><BR>
<DIV>There is no direct Sleep() equivalent in 16-bit and some of the other
techniques may help in the absence of that. NB. If you have a TCP/IP
stack and can use PING then you can use that trick and when considering an
IP address to [ab]use, there is (as they say) no place like
home:<BR><BR><SPAN style="FONT-SIZE: 12px"> ping
127.0.0.1</SPAN><SPAN style="FONT-SIZE: 12px"> -n 2 -w 10000 >
NUL<BR></SPAN><BR>Also note that the -w delay is BETWEEN pings. The
first ping is instant, so to wait for that specified delay you need to ping
TWICE (-n 2).<BR><BR>Redirecting to NUL also ensures that the PING output
doesn't clutter up your screen (if that's
important).<BR><BR><BR><BR>Incidentally, I still have an XP VM hosting my
"Delphi Museum". That is, functional installations of Delphi 1 thru 6
so if you ever reach a point where you simply need to compile some Delphi 1
code feel free to get in touch. I may be able to act as a compiler
proxy for you. :)</DIV></DIV>
<DIV class=gmail_extra>
<DIV> </DIV>
<DIV class=gmail_quote>On 25 February 2016 at 17:51, David O'Brien <SPAN
dir=ltr><<A href="mailto:Dave@iccs.co.nz"
target=_blank>Dave@iccs.co.nz</A>></SPAN> wrote:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex">Or
"timeout 10" in a batch file...<BR>
<DIV>
<DIV><BR>-----Original Message-----<BR>From: <A
href="mailto:delphi-bounces@listserver.123.net.nz"
target=_blank>delphi-bounces@listserver.123.net.nz</A> [mailto:<A
href="mailto:delphi-bounces@listserver.123.net.nz"
target=_blank>delphi-bounces@listserver.123.net.nz</A>] On Behalf Of Peter
Ingham<BR>Sent: Thursday, 25 February 2016 5:45 pm<BR>To: NZ Borland
Developers Group - Delphi List <<A
href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A>><BR>Subject: Re: [DUG]
[computing] 16 bit compiler and Ancient Mariners<BR><BR>On 25/02/2016 4:47
p.m., John Bird wrote:<BR>> I have some legacy software that requires
DOSBOX (DOS emulator to run<BR>> 16 bit<BR>> software) when running
on 64 bit Windows.<BR>><BR>> I would like to add some Delphi addons
already written, mainly<BR>> console/command line apps, but all the
versions of these I currently<BR>> have, (built with Delphi 5/6/2007)
say simply This program requires<BR>> Win32 to run, ie they are 32 bit
compiled even as console apps.<BR>><BR>> Is there any option in
Delphi to compile for 16 bit OS or do I have to<BR>> find Delphi 1 or 2
or whichever was the last 16 bit version? (have<BR>> D2007 and
versions up to Seattle)<BR>><BR>> One of the main things I want is
to have a command to sleep for 10<BR>> seconds without Clobbering the
CPU - exactly what sleep(10000) would do - on Win32<BR>> it uses a
WIn32 API. If there is no 16 bit equivalent, ie no<BR>>
implementation of sleep() in 16 bit Delphi, then I would like to
know.<BR>><BR>> This question is mainly for other ancient mariners
out there who like<BR>> me lived through a lot more of IT history than
they like to admit.<BR>><BR>>
_______________________________________________<BR>> NZ Borland
Developers Group - Delphi mailing list<BR>> Post: <A
href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A><BR>> Admin: <A
href="http://delphi.org.nz/mailman/listinfo/delphi" rel=noreferrer
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>>
Unsubscribe: send an email to <A
href="mailto:delphi-request@listserver.123.net.nz"
target=_blank>delphi-request@listserver.123.net.nz</A><BR>> with
Subject: unsubscribe<BR>><BR>I'm presuming you want a command-line
command you can call from a batch script.<BR><BR>On systems with TCP/IP
networking, you can use a ping to an address you know does not exist to
simulate a Sleep (the subnet must exist).<BR><BR>e.g: "ping 192.168.253 -n
1 -w 2000" for a 2 second delay or "ping<BR>192.168.253 -n 1 -w
10000" for 10
seconds.<BR><BR><BR>Regards<BR>_______________________________________________<BR>NZ
Borland Developers Group - Delphi mailing list<BR>Post: <A
href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A><BR>Admin: <A
href="http://delphi.org.nz/mailman/listinfo/delphi" rel=noreferrer
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>Unsubscribe:
send an email to <A href="mailto:delphi-request@listserver.123.net.nz"
target=_blank>delphi-request@listserver.123.net.nz</A> with Subject:
unsubscribe<BR><BR>_______________________________________________<BR>NZ
Borland Developers Group - Delphi mailing list<BR>Post: <A
href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A><BR>Admin: <A
href="http://delphi.org.nz/mailman/listinfo/delphi" rel=noreferrer
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>Unsubscribe:
send an email to <A href="mailto:delphi-request@listserver.123.net.nz"
target=_blank>delphi-request@listserver.123.net.nz</A> with Subject:
unsubscribe<BR></DIV></DIV></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV></DIV></DIV>
<HR>
<SPAN>_______________________________________________<BR>NZ Borland
Developers Group - Delphi mailing list<BR>Post: <A
href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A><BR>Admin: <A
href="http://delphi.org.nz/mailman/listinfo/delphi"
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>Unsubscribe:
send an email to <A href="mailto:delphi-request@listserver.123.net.nz"
target=_blank>delphi-request@listserver.123.net.nz</A> with Subject:
unsubscribe</SPAN>
</DIV></DIV></DIV></DIV><BR>_______________________________________________<BR>NZ
Borland Developers Group - Delphi mailing list<BR>Post: <A
href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A><BR>Admin: <A
href="http://delphi.org.nz/mailman/listinfo/delphi" rel=noreferrer
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>Unsubscribe:
send an email to <A href="mailto:delphi-request@listserver.123.net.nz"
target=_blank>delphi-request@listserver.123.net.nz</A> with Subject:
unsubscribe<BR></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV>
<HR>
_______________________________________________<BR>NZ Borland Developers Group
- Delphi mailing list<BR>Post: <A href="mailto:delphi@listserver.123.net.nz"
target=_blank>delphi@listserver.123.net.nz</A><BR>Admin: <A
href="http://delphi.org.nz/mailman/listinfo/delphi"
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>Unsubscribe:
send an email to <A href="mailto:delphi-request@listserver.123.net.nz"
target=_blank>delphi-request@listserver.123.net.nz</A> with Subject:
unsubscribe
</DIV></DIV></DIV></DIV></DIV></DIV><BR>_______________________________________________<BR>NZ
Borland Developers Group - Delphi mailing list<BR>Post: <A
href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</A><BR>Admin:
<A href="http://delphi.org.nz/mailman/listinfo/delphi" rel=noreferrer
target=_blank>http://delphi.org.nz/mailman/listinfo/delphi</A><BR>Unsubscribe:
send an email to <A
href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</A>
with Subject: unsubscribe<BR></BLOCKQUOTE></DIV>
<DIV> </DIV></DIV>
<P>
<HR>
_______________________________________________<BR>NZ Borland Developers Group -
Delphi mailing list<BR>Post: delphi@listserver.123.net.nz<BR>Admin:
http://delphi.org.nz/mailman/listinfo/delphi<BR>Unsubscribe: send an email to
delphi-request@listserver.123.net.nz with Subject:
unsubscribe</DIV></DIV></DIV></BODY></HTML>