Declare a global variable...
hCommFile : THandle;
... by putting the above just after the word "private" in the TDD55F1 class declaration.
Then, just after...
hCommFile : THandle;
... insert the following forward declaration....
procedure WriteString(sToSend:string);
... and just before the unit's terminal "end.", insert....
procedure TDD55F1.WriteString(sToSend:string);
var NumberWritten : dWord;
{N.B.: I saw the following in a newsgroup post:
"Warning: There is an error in the FAQ - NumberWritten must be
dword not LongInt"}
begin
if WriteFile(hCommFile,
PChar(sToSend)^,
Length(sToSend),
NumberWritten,
nil)=false then
showmessage('Unable to send');
end;
(We'll see what this is good for in a moment!)
Make buOpenConnection's OnClick....
procedure TDD55F1.buOpenConnectionClick(Sender: TObject);
var
CommPort : string;
NumberWritten : dWord;
{N.B.: I saw the following in a newsgroup post:
"Warning: There is an error in the FAQ - NumberWritten must be dword not LongInt"}
begin
CommPort := 'COM1';
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile=INVALID_HANDLE_VALUE then begin
ShowMessage('Unable to open '+ CommPort);
end // no ; here
else begin
buSendX.enabled:=true;
buSendY.enabled:=true;
buCloseConnection.enabled:=true;
buOpenConnection.enabled:=false;
end; //else
end;
Note: If when you connected via Hyperterminal, you were using a Com port other than 1, then you will need to modify the COM1 above accordingly.
Now make buSendX's OnClick....
procedure TDD55F1.buSendXClick(Sender: TObject);
begin
WriteString('X');
end;
Run the program. Click on the "Open connection" button. Click the "Send X" button. You should see an "X" appear on the other computer! You should click on the "Close Connection" button before exiting the program, though Windows may clean up after you if you fail to do so. A "proper" application would need to monitor whether the connection was open or closed, close it when the program is closed, if not closed.
Add the following for buSendY's OnClick....
procedure TDD55F1.buSendYClick(Sender: TObject);
begin
WriteString('Y');
end;
Now you can send "X" or "Y" to the other computer (Useful, when you've sent a bunch of Xs, and it is a little hard to see if another is arriving!
The procedure WriteString is, of course capable of sending more than a single byte. Set up a button called buHelloWorld, make it's OnClick...
procedure TDD55F1.buHelloWorldClick(Sender: TObject);
begin
WriteString('Hello World ');
end;
... and then you can send "Hello World" to the destination computer. Ta! Da!
You can send numbers to the other computer... but the receiving program will have to be expecting them. If Hyperterminal receives a 65, it will display the character "A". There are numbers Hyperterminal will respond badly to.
If you want "65" (i.e. the two digits 6 and 5) to appear on the destination computer, use WriteString('65'). If you want the number 65 sent to the other computer, change the line of code in buSendX's OnClick to....
WriteString(chr(65));SendX will now send 65 to the other computer. If it is running Hyperterminal, it will display an "A". There is nothing to stop you from creating a system which will dispense 65 marbles if it is sent 65... but that's a story for another time! (Or visit my site about sensing and control.)
|
|
Click here if you're feeling kind! (Promotes my site via "Top100Borland")
Ad from page's editor: Yes.. I do enjoy compiling these things for you... hope they are helpful. However.. this doesn't pay my bills!!! If you find this stuff useful, (and you run an MS-DOS or Windows pc) please visit my freeware and shareware page, download something, and circulate it for me? Links on your page to this page would also be appreciated!
Click here to visit editor's freeware, shareware page.
Link to Tutorials main page
Here is how you can contact this page's author, Tom Boyd.
Page WILL BE tested for compliance with INDUSTRY (not MS-only) standards, using the free, publicly accessible validator at validator.w3.org
If this page causes a script to run, why? Because of things like Google panels, and the code for the search button. Why do I mention scripts? Be sure you know all you need to about spyware.
....... P a g e . . . E n d s .....