Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Hanging up Dial-up networking

Posted on 1998-10-10
8
Medium Priority
?
358 Views
Last Modified: 2010-04-06
Outlook Express has that checkbox "Hang up when finished" that disconnects dial-up networking. How to do that in a delphi 4 application?

I need a delphi-native source code to do that. I can't add 3rd party components or dlls to my application.
0
Comment
Question by:acerola
8 Comments
 
LVL 4

Expert Comment

by:dwwang
ID: 1342503
If you want to dial through your application, it's simple enough.
You can use the RAS component to dial/hang-up/select ras entry/...  It's pure native delphi code, utilizing windows RAS
function.

You can download it from many sites, or give me your e-mail and I mail it to you, a very small component with good function.

But if you want to hang up an existing dial-up networking
connection that brought up by other applications, I'm sorry I
don't know yet.
0
 
LVL 1

Expert Comment

by:venks
ID: 1342504
When ever any connection is through windows provide a tray icon
with a disconnect button.This can be used for all applications.
You dont have to write an application for this.
But if you have to connect and disconnect through a delphi application(like I do) give me your e mail address and i will send you two free components which will do the trick.The components are not written by me but are availble in the various delphi sites
I have answered similar questions and you can get the question from list of questions answered in the delphi experts exchange forum itself.
do not grant me any points because i have already been awarded points previously.
venks
0
 
LVL 1

Author Comment

by:acerola
ID: 1342505
I want to hang up a dial-up connection that was estabilished by using the dial-up networking. And I must not use any other components. I guess that there is a hang-up proc/func in rnaapp.dll. Couldn't I just call it? If so, how?

Once again, I want some source code, NOT some new components. I thougt that doing this took only a couple lines of code...
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Expert Comment

by:EmmDieh
ID: 1342506
This may be a good starting point to you:
First retrieve the open connection(s), and then hang up
with the handle you got.
I had to write this because sometime (under Win95 NOT 98)
the Explorer crashed/restarted emptying the tray leaving
me without a possibilty to close my dial-up connection.

function RasHangUp(RASCONN: HRASCONN): DWORD; stdcall;


function HangUpRAS: Integer;
const
  MaxConnections = 16;
var
  RAS: array[1..MaxConnections] of TRASCONN;
  BuffSize: DWORD;
  CONNSWritten: DWORD;
  i: Integer;
  Ret: DWORD;
begin
  Result := 0;
    { retrieve the number of Connections }
  RAS[1].dwSize := SizeOf(RAS[1]);
  BUFFSize := SizeOf(RAS);
  CONNSWritten := 0;
  Ret := RasEnumConnections(@RAS, BUFFSize, CONNSWritten);

  if (Ret = 0) or (Ret = ERROR_BUFFER_TOO_SMALL) then
    for i := 1 to CONNSWritten do
    begin
      if RashangUp(RAS[i].hrasconn) = 0 then Inc(Result);
    end;
end;

0
 
LVL 1

Author Comment

by:acerola
ID: 1342507
Please post the definitions of the structures (TRASCONN, HRASCONN, etc). Or tell me where to find them. Also, will I need any other file besides rasapi32.dll?

Shouldn't result:=0 be ret:=0?
0
 
LVL 7

Expert Comment

by:BlackMan
ID: 1342508
You can find all the structures along with the procedure declarations in the D_RAS library. Even though you don't want it, this packagde also include a very comprehensive demo program to show (almost) all the RAS functions.
Check http://www.torry.ru/vcl/comms/d_ras.zip
0
 
LVL 1

Author Comment

by:acerola
ID: 1342509
Thank you all.
The points will go to EmmDieh, so please post something as answer.
0
 
LVL 1

Accepted Solution

by:
EmmDieh earned 200 total points
ID: 1342510
Thanks
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
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…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…
Suggested Courses
Course of the Month12 days, 13 hours left to enroll

580 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