Dial-up Connection in Delphi

[Milad2002b]

لطفا" منو راهنمایی کنید چطوری میتونم یه برنامه بنویسم که مثل دیال آپ کانکشن یوزرنیم و پسورد وشماره تلفن بگیره و به اینترنت وصل بشه.
با تشکر :flower:

[farhad_f]

سلام
با استفاده از کامپوننت TPowerSock در پالت Internet و با متد Connect به راحتی میتونی این کار رو انجام بدی البته این کامپوننت فکر کنم از دلفی 4 به بالا باشه :roll:

[m_reza]

همچنین کامپوننتی که شما گفتید در این پالت وجود ندارد (In Delphi 7). البته من در پالت های دیگه هم دیدم اما چیزی با این اسم پیدا نکردم . :(

[Milad2002b]

من هم گشتم نبود :|

[saeed_82]

با استفاده از کامپوننت TPowerSock در پالت Internet
عزیز من کامپوننتی که شما گفتی جزو کامپوننتهای استاندارد دلفی نیست

[_alish_]

بیا حالش و ببر


uses
WinInet;

// وصل به اینترنت
procedure TForm1.Button1Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then
// not connected
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
begin
// error
end;
end;


// قطع اینترنت
procedure TForm1.Button2Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@dwConnectionTypes, 0) then
// connected
InternetAutodialHangup(0);
end;


فکر کنم با ShellExecute فایل rasdial.exeو بصورت Open هم بتونی

[Milad2002b]

این از کانکشن های ساخته شده استفاده میکنه ...
من میخوام Username,Pasword و شماره تلفن رو از داخل برنامه وارد کنم :?:

[_alish_]

خوب باید از کانکشنهای تعریف شده استفاده کنی و به آن UserName , Pass بدی دیگه. با ShellExecute استفاده کن


uses shellapi;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cmd, par, fil, dir: PChar;
begin

// rasdial.exe اتصال بوسیله
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text);
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
end;


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

[ali_sorouri2005]

سلام
میشه توضیح بدیdir ‌ cmd par fil هر کدوم چه کاری انجام میده؟؟؟؟؟
با تشکر

[nima_jafari]

سلام حالش رو بردم ولی درموردش توضیح دهید.

[Hamid_PaK]

تمام این متغییرها cmd, par, fil, dir از نوع اشاره گر هستند و هیچ عمل خاصی رو انجام نمی دهند فقط مقدار رو به روال انتقال می دهند ...
این معادل همان کد می باشد ...


ShellExecute(
Handle,
'open',
'rasdial.exe',
pChar(edtEntry.Text + ' ' + edtUser.Text + ' ' + edtPass.Text),
'C:',
SW_SHOWMINNOACTIVE);


یا حق !!!