modem, i internet

← →
ruslan © (2004-07-06 16:25) [0]

Zdravstvuyte
Ya poka novicok v Delphi.
Xocu soedinitsya v internet ne cerez d..up Win..s.

Kak mojno sozdavat proqrammu v Delphi cto s eqo pomosyu mojno bilo soedinitsya v Internet naprimer v pole edit1 napisat login a edit2 nomer telefona po selcke button1 bilo soedinenie.
Zarane blaqodaryu.
Esli smojete pomoqite.

← →
Reindeer Moss Eater © (2004-07-06 16:31) [1]

Esli smojete pomoqite

Vryad Li

← →
Anatoly Podgoretsky © (2004-07-06 16:33) [2]

Диалап это набрать номер, без диалап нужно выделеное подключение. Если у тебя нет выделеного модемного соединения, то не через диалап практически ни как.

← →
Reindeer Moss Eater © (2004-07-06 16:36) [3]

Диалап не через dial-up Windows - это дозвон (TAPI) + своя реализация PPP (SLIP etc) + привязка TCP/IP ко всему этому.
Оно тебе надо? по силам?

← →
Anatoly Podgoretsky © (2004-07-07 09:11) [4]

Reindeer Moss Eater © (06.07.04 16:36) [3]
Диалап это только дозвон до провайдера, остальное от лукавого к диалап отношения не имеет.

← →
Reindeer Moss Eater © (2004-07-07 09:14) [5]

Согласен.
Только все же имеет к "установлению соединения с инетом". То есть к вопросу.

← →
ruslan © (2004-07-12 10:43) [6]

doraqie moi sposibo vsem za otvet no davayte razbiratsya podrobnee

est takoy isxodnik ono qaditsa k moem voprosu?

function DialProvider(connection: string): boolean;
// connection - имя учетной записи
var
pars: TRasDialParams;
hRas: ThrasConn;
r: integer;
begin
hRas := 0;
strpcopy(pars.szEntryName, connection); // имя учетной записи
pars.szPhoneNumber := ""; // номеp телефона - по умолчанию
pars.szcallbacknumber := ""; // callback нам не нужен
pars.szUserName := ""; // логин - по умолчанию
pars.szPassWord := ""; // паpоль - по умолчанию
pars.szDomain := ""; // аналогично с домейном
pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи
r := rasdial(nil, nil, pars, 0, nil, hRas); // звоним
if r <> 0 then
begin // если что-то неполучилось, то
rasHangUp(hRas); // сбpасываем соединение
result := false; // ф-ция тепеpь веpнет false
end
else
result := true; // а если все ок - то true.
end;

← →
Reindeer Moss Eater © (2004-07-12 10:44) [7]

нет не годится.

← →
ruslan © (2004-07-12 11:25) [8]

Eto isxodnik ya tak vstavlyayu v form1 kak napisano vnizu
Dayot sleduyusie osibki:
[Error] Unit1.pas(29): Undeclared identifier: "TRasDialParams"
[Error] Unit1.pas(30): Undeclared identifier: "ThrasConn"
[Error] Unit1.pas(34): Not enough actual parameters
[Error] Unit1.pas(34): "END" expected but "," found
[Error] Unit1.pas(42): ";" expected but "IF" found
[Error] Unit1.pas(44): Undeclared identifier: "rasHangUp"
[Error] Unit1.pas(45): Undeclared identifier: "result"
[Error] Unit1.pas(47): "." expected but "ELSE" found
[Warning] Unit1.pas(49): Text after final "END." - ignored by compiler
[Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

Kakya moqu ispravit osibki pomoqite pojalyusta

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;

private
{ Private declarations }

public
{ Public declarations }

end;

var
Form1: TForm1;

implementation
function DialProvider(connection: string): boolean;
// connection - имя учетной записи
var
pars: TRasDialParams;
hRas: ThrasConn;
r: integer;
begin
hRas := 0;
strpcopy(pars.szEntryName, connection); // имя учетной записи
pars.szPhoneNumber := ""; // номеp телефона - по умолчанию
pars.szcallbacknumber := ""; // callback нам не нужен
pars.szUserName := ""; // логин - по умолчанию
pars.szPassWord := ""; // паpоль - по умолчанию
pars.szDomain := ""; // аналогично с домейном
pars.dwSize := Sizeof(TRasDialParams); // вычисляем pазмеp записи
r := rasdial(nil, nil, pars, 0, nil, hRas); // звоним
if r <> 0 then
begin // если что-то неполучилось, то
rasHangUp(hRas); // сбpасываем соединение
result := false; // ф-ция тепеpь веpнет false
end
else
result := true; // а если все ок - то true.
end;

{$R *.dfm}

end.

← →
Reindeer Moss Eater © (2004-07-12 11:27) [9]

тебе же русским языком сказали, что не годится этот исходник для решения твоей проблемы.

← →
ruslan © (2004-07-12 16:10) [10]

Ya xocu resit eti problemu a cto je vi mejete predlaqat? Mne krome etoqo isxodnika neceqo net i poka yo novicok v Delphi nujno pomosh.

Перечитываем вопрос:
Xocu soedinitsya v internet ne cerez d..up Win..s.

Так вот:
То, что ты пытаешься сделать здесь (те куски кода которые ты привел здесь) - это ЧЕРЕЗ dialup Windows.

a cto je vi mejete predlaqat?
Перечитай ответы в начале ветки и поймешь, что тебе предлагали.

Ya bloqadaryu tebya za to cto videleyaesh mne vremya.

Tam v nacale ya ponyal cto mne nato kakito bibloteki i videlennie soedinenie eto cto to poko mne trudno doxodit (ya poka novinkiy v Delphi).
Poetomu mojet ya ne pravilno postovil ili je obyasnil vopros.

Vot isxodnik kotorie ya napisal eto cto to blizko toqo cto ya xocu. Xotya bi tam cerez Dialup Windowsa eto neceqo poka ustraivaet mne.

No tam je (v isxodnike) mojno ukazat loqin, porol i nomer telefona.

Esli mojno davay razbiremsya s isxodnikam ctobi on ne daval osibki, mojet tot cto ya xocu s etom polucitsya. ZARANIE BLAQADARYU.

Что бы твой исходник заработал ищи в сети файл(ы) ras*.pas.
Интерфейсный модуль к RASAPI.

Nasel tokoy ves ono podoydet?

Eli da cto delat dalse?

unit RASUnit;

interface
Uses Windows;
(*RASAPI*)const
(*RASAPI*){ These are from lmcons.h }
(*RASAPI*) DNLEN = 15; // Maximum domain name length
(*RASAPI*) UNLEN = 256; // Maximum user name length
(*RASAPI*) PWLEN = 256; // Maximum password length
(*RASAPI*) NETBIOS_NAME_LEN = 16; // NetBIOS net name (bytes)
(*RASAPI*)
(*RASAPI*) RAS_MaxDeviceType = 16;
(*RASAPI*) RAS_MaxPhoneNumber = 128;
(*RASAPI*) RAS_MaxIpAddress = 15;
(*RASAPI*) RAS_MaxIpxAddress = 21;
(*RASAPI*) RAS_MaxEntryName = 256;
(*RASAPI*) RAS_MaxDeviceName = 128;
(*RASAPI*) RAS_MaxCallbackNumber = RAS_MaxPhoneNumber;
(*RASAPI*)
(*RASAPI*)type
(*RASAPI*) LPHRasConn = ^THRasConn;
(*RASAPI*) THRasConn = Longint;
(*RASAPI*)
(*RASAPI*){* Identifies an active RAS connection. (See RasEnumConnections) *}
(*RASAPI*) LPRasConnW = ^TRasConnW;
(*RASAPI*) TRasConnW = record
(*RASAPI*) dwSize : Longint;
(*RASAPI*) hrasconn : THRasConn;
(*RASAPI*) szEntryName : Array[0..RAS_MaxEntryName] of WideChar;
(*RASAPI*) szDeviceType : Array[0..RAS_MaxDeviceType] of WideChar;
(*RASAPI*) szDeviceName : Array[0..RAS_MaxDeviceName] of WideChar;
(*RASAPI*) end;
(*RASAPI*)
(*RASAPI*) LPRasConnA = ^TRasConnA;
(*RASAPI*) TRasConnA = record
(*RASAPI*) dwSize : Longint;
(*RASAPI*) hrasconn : THRasConn;
(*RASAPI*) szEntryName : Array[0..RAS_MaxEntryName] of AnsiChar;
(*RASAPI*) szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
(*RASAPI*) szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
(*RASAPI*) end;
(*RASAPI*)
(*RASAPI*) LPRasConn = ^TRasConn;
(*RASAPI*) TRasConn = TRasConnA;
(*RASAPI*)
(*RASAPI*)const
(*RASAPI*){* Enumerates intermediate states to a connection. (See RasDial) *}
(*RASAPI*) RASCS_PAUSED = $1000;
(*RASAPI*) RASCS_DONE = $2000;
(*RASAPI*)
(*RASAPI*)type
(*RASAPI*) LPRasConnState = ^TRasConnState;
(*RASAPI*) TRasConnState = Integer;
(*RASAPI*)
(*RASAPI*)const
(*RASAPI*) RASCS_OpenPort = 0;
(*RASAPI*) RASCS_PortOpened = 1;
(*RASAPI*) RASCS_ConnectDevice = 2;
(*RASAPI*) RASCS_DeviceConnected = 3;
(*RASAPI*) RASCS_AllDevicesConnected = 4;
(*RASAPI*) RASCS_Authenticate = 5;
(*RASAPI*) RASCS_AuthNotify = 6;
(*RASAPI*) RASCS_AuthRetry = 7;
(*RASAPI*) RASCS_AuthCallback = 8;
(*RASAPI*) RASCS_AuthChangePassword = 9;
(*RASAPI*) RASCS_AuthProject = 10;
(*RASAPI*) RASCS_AuthLinkSpeed = 11;
(*RASAPI*) RASCS_AuthAck = 12;
(*RASAPI*) RASCS_ReAuthenticate = 13;
(*RASAPI*) RASCS_Authenticated = 14;
(*RASAPI*) RASCS_PrepareForCallback = 15;
(*RASAPI*) RASCS_WaitForModemReset = 16;
(*RASAPI*) RASCS_WaitForCallback = 17;
(*RASAPI*) RASCS_Projected = 18;
(*RASAPI*) RASCS_StartAuthentication = 19;
(*RASAPI*) RASCS_CallbackComplete = 20;
(*RASAPI*) RASCS_LogonNetwork = 21;
(*RASAPI*)
(*RASAPI*) RASCS_Interactive = RASCS_PAUSED;
(*RASAPI*) RASCS_RetryAuthentication = RASCS_PAUSED + 1;
(*RASAPI*) RASCS_CallbackSetByCaller = RASCS_PAUSED + 2;
(*RASAPI*) RASCS_PasswordExpired = RASCS_PAUSED + 3;
(*RASAPI*)
(*RASAPI*) RASCS_Connected = RASCS_DONE;
(*RASAPI*) RASCS_Disconnected = RASCS_DONE + 1;
(*RASAPI*)
(*RASAPI*)type
(*RASAPI*){* Describes the status of a RAS connection. (See RasConnectionStatus)*}
(*RASAPI*) LPRasConnStatusW = ^TRasConnStatusW;
(*RASAPI*) TRasConnStatusW = record
(*RASAPI*) dwSize : Longint;
(*RASAPI*) rasconnstate : TRasConnState;
(*RASAPI*) dwError : LongInt;
(*RASAPI*) szDeviceType : Array[0..RAS_MaxDeviceType] of WideChar;
(*RASAPI*) szDeviceName : Array[0..RAS_MaxDeviceName] of WideChar;
(*RASAPI*) end;
(*RASAPI*)
(*RASAPI*) LPRasConnStatusA = ^TRasConnStatusA;
(*RASAPI*) TRasConnStatusA = record
(*RASAPI*) dwSize : Longint;
(*RASAPI*) rasconnstate : TRasConnState;
(*RASAPI*) dwError : LongInt;
(*RASAPI*) szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
(*RASAPI*) szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
(*RASAPI*) end;
(*RASAPI*)
(*RASAPI*) LPRasConnStatus = ^TRasConnStatus;
(*RASAPI*) TRasConnStatus = TRasConnStatusA;
(*RASAPI*)
(*RASAPI*){* Describes connection establishment parameters. (See RasDial)*}
(*RASAPI*) LPRasDialParamsW = ^TRasDialParamsW;
(*RASAPI*) TRasDialParamsW = record
(*RASAPI*) dwSize : LongInt;
(*RASAPI*) szEntryName : Array[0..RAS_MaxEntryName] of WideChar;
(*RASAPI*) szPhoneNumber : Array[0..RAS_MaxPhoneNumber] of WideChar;
(*RASAPI*) szCallbackNumber : Array[0..RAS_MaxCallbackNumber] of WideChar;
(*RASAPI*) szUserName : Array[0..UNLEN] of WideChar;
(*RASAPI*) szPassword : Array[0..PWLEN] of WideChar;
(*RASAPI*) szDomain : Array[0..DNLEN] of WideChar;
(*RASAPI*) end;
(*RASAPI*)
(*RASAPI*) LPRasDialParamsA = ^TRasDialParamsA;
(*RASAPI*) TRasDialParamsA = record
(*RASAPI*) dwSize : LongInt;
(*RASAPI*) szEntryName : Array[0..RAS_MaxEntryName] of AnsiChar;
(*RASAPI*) szPhoneNumber : Array[0..RAS_MaxPhoneNumber] of AnsiChar;

PRODOLJENIE SLEDUET

modem, i internet Найти похожие ветки