Solved

D3 and serial port under W98/NT

Posted on 1998-09-07
9
322 Views
Last Modified: 2010-04-06
hi,
i have done a nice working program which works with the serial port under W98/NT in D3.
for some tests i need to know the status of (nearly) every pin of the serial port, not only CTS or RTS. These i can get by CLEARCOMMERROR and the COMSTAT-Field.
GETCOMMMODEMSTATUS too is not the right one.
but it should not be in assembler!! i need it in D3 (or D4)!
thanks
titz
0
Comment
Question by:titz
9 Comments
 

Expert Comment

by:clopez
ID: 1338835
Can you post what are you looking for?
0
 
LVL 10

Expert Comment

by:viktornet
ID: 1338836
Here is some assembler even thought you said not to use assembler...

//Read port
function ReadPortB( wPort : Word ) : Byte;
begin
  asm
    mov dx, wPort
    in al, dx
    mov result, al
   end;
end;

//Write To Port
procedure WritePortB( wPort : Word; bValue : Byte );
begin
  asm
    mov dx, wPort
    mov al, bValue
    out dx, al
  end;
end;

Anyway, I hope you find it useful some how... =)

Regards,
Viktor Ivanov
0
 
LVL 20

Expert Comment

by:Madshi
ID: 1338837
viktornet,

nice but doesn't work with winNT... There are little freeware components for NT, but I don't know where you can get them and how their name is.

Regards, Madshi.
0
 

Expert Comment

by:clopez
ID: 1338838
I have a comm component that check the Break, CTS, DRS, Error, Ring, Rlsd, RxChar, RxFlag, TxEmpty and its freeware.  Send me an e-mail if you want it.

0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 1

Expert Comment

by:BlackDeath
ID: 1338839
whoops.
lopez -

would u do me a favour & send it to me, too?
andreas.naguschewski@vt.siemens.de

Black Death.
0
 
LVL 1

Author Comment

by:titz
ID: 1338840
hi clopez,

my email adress is
peter.helm@t-online.de
send it to me and you will have the points.

0
 
LVL 1

Author Comment

by:titz
ID: 1338841
hi victornet,

i do not want to use assembler, for it will work now under perhaps WIN95. but i fear, that it will not work under microsofts next system. and it will not work under win nt.
therefore i will use the API.
tnx !
titz

0
 

Accepted Solution

by:
clopez earned 100 total points
ID: 1338842
I have sent the file to both of you.

The file name is Async32.zip and you can find it also at DSP:

   http://SunSITE.icm.edu.pl/delphi/

Under Delphi 3/All files

Hope it works.
0
 
LVL 1

Author Comment

by:titz
ID: 1338843
hi clopez,

thanks for th quick posting of the Conn-Component.
titz

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now