Solved

Hanging up Dial-up networking

Posted on 1998-10-10
8
342 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
Comment Utility
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
Comment Utility
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
Comment Utility
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
 
LVL 1

Expert Comment

by:EmmDieh
Comment Utility
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
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 1

Author Comment

by:acerola
Comment Utility
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
Comment Utility
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
Comment Utility
Thank you all.
The points will go to EmmDieh, so please post something as answer.
0
 
LVL 1

Accepted Solution

by:
EmmDieh earned 50 total points
Comment Utility
Thanks
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Help to pass a value through a function 2 64
FMX enumerated colours 2 70
Reconfigure Delphi Install? 2 34
Multiple image collision 13 42
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
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 tutorial demonstrates a quick way of adding group price to multiple Magento products.
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

762 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

12 Experts available now in Live!

Get 1:1 Help Now