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

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

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;

Для этого есть компоненты MagRAScon, MagRASapi.. Простые как три копейки.
http://www.magsys.co.uk/delphi/

shs777, post: 553584:

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';

+1

bUg., post: 553583:

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

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

Если надо только установить соединение, то по-моему проще функцию RasDial

импортировать и вызвать, чем страдать с вызовом программы.