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;

Uggenrbnve

Для этого есть компоненты 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

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

Похожие темы	Дата
Codegolf - Бесконечно Много Простых Чисел	19.12.2024, 05:12
Вызов Кода – Наивысший Общий Коэффициент – Наименьшее Количество Итераций	19.12.2024, 05:12
Последовательность — Увеличение Кодов Грея	19.12.2024, 05:12
Code Golf — Советы По Игре В Гольф В Common Lisp	19.12.2024, 05:12
Codegolf - Растяжение Времени Pcm Wave	19.12.2024, 05:12
Codegolf - Новый Корабль Тесея	19.12.2024, 05:12
Codegolf — Телескопические Скобки	19.12.2024, 05:12
Codegolf — Найти Размеры Неровного Списка	19.12.2024, 05:12
Codegolf — Синусоидальный Анимированный Текст В Формате Ascii	19.12.2024, 05:12
Строка — Декодирование Площади Полибуса/Кода Крана/Кода Тюрьмы	19.12.2024, 05:12

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

BUg.

Shs777

Uggenrbnve

Zmeiugo

Pr1me

Rkfwyder

I AM

Интересно