[DUG] [computing] 16 bit compiler and Ancient Mariners

[John Bird]

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....



From: Jolyon Direnko-Smith 
Sent: Thursday, February 25, 2016 7:19 PM
To: NZ Borland Developers Group - Delphi List 
Subject: Re: [DUG] [computing] 16 bit compiler and Ancient Mariners

As a matter of historical curiosity, Delphi 1 was the first AND last version to support 16-bit targets.

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.


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:

    ping 127.0.0.1 -n 2 -w 10000 > NUL

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).

Redirecting to NUL also ensures that the PING output doesn't clutter up your screen (if that's important).



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.   :)

On 25 February 2016 at 17:51, David O'Brien <Dave at iccs.co.nz> wrote:

  Or "timeout 10" in a batch file...


  -----Original Message-----
  From: delphi-bounces at listserver.123.net.nz [mailto:delphi-bounces at listserver.123.net.nz] On Behalf Of Peter Ingham
  Sent: Thursday, 25 February 2016 5:45 pm
  To: NZ Borland Developers Group - Delphi List <delphi at listserver.123.net.nz>
  Subject: Re: [DUG] [computing] 16 bit compiler and Ancient Mariners

  On 25/02/2016 4:47 p.m., John Bird wrote:
  > I have some legacy software that requires DOSBOX (DOS emulator to run
  > 16 bit
  > software) when running on 64 bit Windows.
  >
  > I would like to add some Delphi addons already written, mainly
  > console/command line apps, but all the versions of these I currently
  > have, (built with Delphi 5/6/2007) say simply This program requires
  > Win32 to run, ie they are 32 bit compiled even as console apps.
  >
  > Is there any option in Delphi to compile for 16 bit OS or do I have to
  > find Delphi 1 or 2 or whichever was the last 16 bit version?  (have
  > D2007 and versions up to Seattle)
  >
  > One of the main things I want is to have a command to sleep for 10
  > seconds without Clobbering the CPU - exactly what sleep(10000) would do - on Win32
  > it uses a WIn32 API.   If there is no 16 bit equivalent, ie no
  > implementation of sleep() in 16 bit Delphi, then I would like to know.
  >
  > This question is mainly for other ancient mariners out there who like
  > me lived through a lot more of IT history than they like to admit.
  >
  > _______________________________________________
  > NZ Borland Developers Group - Delphi mailing list
  > Post: delphi at listserver.123.net.nz
  > Admin: http://delphi.org.nz/mailman/listinfo/delphi
  > Unsubscribe: send an email to delphi-request at listserver.123.net.nz
  > with Subject: unsubscribe
  >
  I'm presuming you want a command-line command you can call from a batch script.

  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).

  e.g: "ping 192.168.253 -n 1 -w 2000"  for a 2 second delay or "ping
  192.168.253 -n 1 -w 10000" for 10 seconds.


  Regards
  _______________________________________________
  NZ Borland Developers Group - Delphi mailing list
  Post: delphi at listserver.123.net.nz
  Admin: http://delphi.org.nz/mailman/listinfo/delphi
  Unsubscribe: send an email to delphi-request at listserver.123.net.nz with Subject: unsubscribe

  _______________________________________________
  NZ Borland Developers Group - Delphi mailing list
  Post: delphi at listserver.123.net.nz
  Admin: http://delphi.org.nz/mailman/listinfo/delphi
  Unsubscribe: send an email to delphi-request at listserver.123.net.nz with Subject: unsubscribe




--------------------------------------------------------------------------------
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi at listserver.123.net.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at listserver.123.net.nz with Subject: unsubscribe
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20160226/d0d23ecd/attachment.html