PPPoE соединение в Delphi 7

[tan80]

Подскажите, как в Delphi установить PPPoE соединение и контролировать его состояние.

 

[Kilya]

Интересует тот же вопрос!
буду тоже очень признателен за дельный ответ!

 

[bUg.]

попробуйте взять программу rasdial (или rasdial32 не помню точно) и посмотреть какие функции и откуда она импортирует. потом глянуть эти функи в МСДНе. вот и все.

 

[shs777]

procedure TForm1.Button1Click(Sender: TObject);
var
cmd, par, fil, dir: PChar;
begin
// establish the connection
// rasdial.exe entryname username password
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text);
dir := 'C:';
// call rasdial.exe with Shellexecute
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;


procedure TForm1.Button2Click(Sender: TObject);
var
cmd, par, fil, dir: PChar;
begin
// disconnect the connection to the Internet
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(edtEntry.Text + ' /DISCONNECT');
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;

 

[brightman]

Thank you very much for your sample...

 

[User_]

Для этого есть компоненты MagRAScon, MagRASapi.. Простые как три копейки.
Как увидеть ссылки? | How to see hidden links?

 

[octavian1979]

@shs777 thank you for the code sample. Intresting aproach .

 

[Ьфкгл]

Юзай MagRASapi

 

[zmeiugo]

procedure TForm1.Button1Click(Sender: TObject);
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);

Я вот так юзаю :
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_HIDE);

Потом надо проверить есть ли соединение :

if InetIsOffline(0) then ShowMessage('Соединение не устоновлено!')
else ShowMessage('Подключено!');

ЗЫ>Не забудьте импортировать функцию :
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

 

[Pr1me]

+1

попробуйте взять программу rasdial (или rasdial32 не помню точно) и посмотреть какие функции и откуда она импортирует. потом глянуть эти функи в МСДНе. вот и все.

Тоже пользовался rasdial

 

[rkfwyder]

Если надо только установить соединение, то по-моему проще функцию Как увидеть ссылки? | How to see hidden links? импортировать и вызвать, чем страдать с вызовом программы.