OK, I found my problem with creating the control in Delphi. I forgot about the ScriptingContext not being assigned. Da... And it does send debug info to my Debug Window. 18/06/1999 08:49:07 Rasspeakdemo1 - 1115226 - Dial Connection OK: Connected/Online 18/06/1999 08:49:07 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Connected/Online 18/06/1999 08:49:07 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Login Authenticated 18/06/1999 08:49:07 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Authentication Notification 18/06/1999 08:49:07 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Projection Completion 18/06/1999 08:49:06 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Authentication Notification 18/06/1999 08:49:06 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Projection Started 18/06/1999 08:49:06 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Authentication Notification 18/06/1999 08:49:06 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Validating User and Password 18/06/1999 08:49:06 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Connected/Negotiation 18/06/1999 08:49:06 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Connected/Answered (modem) 18/06/1999 08:49:02 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Connecting/Dialling (modem) 18/06/1999 08:49:02 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Connected/Answered (modem) 18/06/1999 08:48:32 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Connecting/Dialling (modem) 18/06/1999 08:48:32 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Serial Port Opened 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - StateChanged - DUN: I HUG - Opening Serial Port 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - No Active Connections - Dialing 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - Ras.GetConnections 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - In the Connect Button 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - ParamStr(1) = CONNECT 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - StateChanged - DUN: Offline 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - Ras.GetDeviceList 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - Ras.TestRas 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - Create RAS Control 18/06/1999 08:48:31 Rasspeakdemo1 - 1115226 - FormCreate And it does connect to the net. So why does it not work from an ASP Page? Chris -----Original Message----- From: Chris Crowe [mailto:[EMAIL PROTECTED]] Sent: Friday, 18 June 1999 08:33 Subject: RE: [DELPHI-LIST] RAS Dialing not Working from COM Component. Ok, further to my previous problems with connecting to the net via a COM Component. I thought that I would create the COM Control in a small delphi app and see if it sends the info to the debug control. But I encountered another problem. This is the create routine for the COM Control from the TYPE library that I got from Project-Import Type Library. class function CoAdrockDialInternet.Create: IAdrockDialInternet; begin Result := CreateComObject(CLASS_AdrockDialInternet) as IAdrockDialInternet; end; Now if I click a button on my form which has the following code, the create occurs normally, but when I call the DisConnectFromTheInternet method I get a message "Catastropic Failure" procedure TForm1.Button1Click(Sender: TObject); Var DialInternet : AdrockDialInternet; begin OLEInitialize(NIL); DialInternet := CoAdrockDialInternet.Create; DialInternet.DisConnectFromTheInternet; { <--- Catastropic Failure } OLEUnInitialize; end; Not sure if I need the OLEInitialize(NIL) and the OLEUninitialize; but it causes the error if they are there or not. Does anyone know or have any ideas what would be the problem? The Disconnect method uses this code from the COM Component procedure TAdrockDialInternet.DisConnectFromTheInternet; Var Status : Integer; begin Status := WinExec('f:\componen\rascmp\RasSpeakDemo1.exe DISCONNECT', SW_HIDE); m_scriptContext.Response.Write('<P><P>'+FormatDateTime('HH:MM:SS', Now)+', Status returned from WINEXEC - '+IntTostr(Status)+'</P><P>'); end; If I create it on a web page it is fine, well it doesn't cause an "Catastropic Failure" message. <% Dim myObject set myObject = Server.CreateObject("AdrockInternetProject.AdrockDialInternet") myObject.Connection = "I Hug" myObject.DisConnectFromTheInternet %> Chris --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz
