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

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;

User_

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

zmeiugo

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

Pr1me

+1

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

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

rkfwyder

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

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

Похожие темы	Дата
[Специалист] Система управления версиями Git	19.10.2024, 18:10
Генератор дорвеев JakoDorgen PRO v4.1.6 NULLED	19.10.2024, 18:10
Быстрое создание Portable версий программ	19.10.2024, 18:10
Starting an Online Business For Dummies - Greg Holden	19.10.2024, 18:10
Учимся работать на компьютере	19.10.2024, 18:10
GigaSoft ProEssentials - All Here	19.10.2024, 18:10
Receiving push notifications from Apple’s Push Notification and Google’s Firebase Cloud Messaging services by Allend Drennan	19.10.2024, 18:10
macOS/iOS App Transport Security Error in FMX by Malcom Grove	19.10.2024, 18:10
Exceptions: Exceptional Safety by Dalija Prasnikar	19.10.2024, 18:10
Кто-нибудь мне поможет? Проблемы с видеоплеером	19.10.2024, 18:10

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

bUg.

shs777

User_

zmeiugo

Pr1me

rkfwyder

I AM

Интересно